diff --git a/jsaddle-dom.cabal b/jsaddle-dom.cabal --- a/jsaddle-dom.cabal +++ b/jsaddle-dom.cabal @@ -1,5 +1,5 @@ name: jsaddle-dom -version: 0.8.0.0 +version: 0.9.0.0 cabal-version: >=1.22 build-type: Simple license: MIT @@ -44,6 +44,7 @@ JSDOM.Generated.Animatable JSDOM.Generated.Animation JSDOM.Generated.AnimationEvent + JSDOM.Generated.ApplePayError JSDOM.Generated.ApplePayPaymentAuthorizedEvent JSDOM.Generated.ApplePayPaymentMethodSelectedEvent JSDOM.Generated.ApplePaySession @@ -65,10 +66,12 @@ JSDOM.Generated.AudioTrackList JSDOM.Generated.AutocompleteErrorEvent JSDOM.Generated.BarProp + JSDOM.Generated.BasicCredential JSDOM.Generated.BeforeLoadEvent JSDOM.Generated.BeforeUnloadEvent JSDOM.Generated.BiquadFilterNode JSDOM.Generated.Blob + JSDOM.Generated.BlobCallback JSDOM.Generated.Body JSDOM.Generated.ByteLengthQueuingStrategy JSDOM.Generated.CSS @@ -89,13 +92,12 @@ JSDOM.Generated.CSSSupportsRule JSDOM.Generated.CSSValue JSDOM.Generated.CSSValueList + JSDOM.Generated.CanvasCaptureMediaStreamTrack JSDOM.Generated.CanvasGradient JSDOM.Generated.CanvasPath JSDOM.Generated.CanvasRenderingContext2D JSDOM.Generated.CharacterData JSDOM.Generated.ChildNode - JSDOM.Generated.ClientRect - JSDOM.Generated.ClientRectList JSDOM.Generated.ClipboardEvent JSDOM.Generated.CloseEvent JSDOM.Generated.CommandLineAPIHost @@ -133,6 +135,7 @@ JSDOM.Generated.DeviceOrientationEvent JSDOM.Generated.DeviceProximityEvent JSDOM.Generated.Document + JSDOM.Generated.DocumentAndElementEventHandlers JSDOM.Generated.DocumentFragment JSDOM.Generated.DocumentOrShadowRoot JSDOM.Generated.DocumentTimeline @@ -142,6 +145,7 @@ JSDOM.Generated.EXTTextureFilterAnisotropic JSDOM.Generated.EXTsRGB JSDOM.Generated.Element + JSDOM.Generated.ElementCSSInlineStyle JSDOM.Generated.Enums JSDOM.Generated.ErrorEvent JSDOM.Generated.Event @@ -314,7 +318,6 @@ JSDOM.Generated.NonDocumentTypeChildNode JSDOM.Generated.NonElementParentNode JSDOM.Generated.Notification - JSDOM.Generated.NotificationCenter JSDOM.Generated.NotificationPermissionCallback JSDOM.Generated.OESStandardDerivatives JSDOM.Generated.OESTextureHalfFloat @@ -328,6 +331,7 @@ JSDOM.Generated.PageTransitionEvent JSDOM.Generated.PannerNode JSDOM.Generated.ParentNode + JSDOM.Generated.PasswordCredential JSDOM.Generated.Path2D JSDOM.Generated.Performance JSDOM.Generated.PerformanceEntry @@ -345,6 +349,7 @@ JSDOM.Generated.PositionErrorCallback JSDOM.Generated.ProcessingInstruction JSDOM.Generated.ProgressEvent + JSDOM.Generated.PromiseRejectionEvent JSDOM.Generated.QuickTimePluginReplacement JSDOM.Generated.RGBColor JSDOM.Generated.RTCDTMFSender @@ -353,7 +358,9 @@ JSDOM.Generated.RTCDataChannelEvent JSDOM.Generated.RTCIceCandidate JSDOM.Generated.RTCIceCandidateEvent + JSDOM.Generated.RTCIceTransport JSDOM.Generated.RTCPeerConnection + JSDOM.Generated.RTCPeerConnectionIceEvent JSDOM.Generated.RTCRtpReceiver JSDOM.Generated.RTCRtpSender JSDOM.Generated.RTCRtpTransceiver @@ -363,6 +370,8 @@ JSDOM.Generated.Range JSDOM.Generated.ReadableByteStreamController JSDOM.Generated.ReadableStream + JSDOM.Generated.ReadableStreamBYOBReader + JSDOM.Generated.ReadableStreamBYOBRequest JSDOM.Generated.ReadableStreamDefaultController JSDOM.Generated.ReadableStreamDefaultReader JSDOM.Generated.ReadableStreamSource @@ -493,6 +502,7 @@ JSDOM.Generated.SecurityPolicyViolationEvent JSDOM.Generated.Selection JSDOM.Generated.ShadowRoot + JSDOM.Generated.SiteBoundCredential JSDOM.Generated.Slotable JSDOM.Generated.SourceBuffer JSDOM.Generated.SourceBufferList @@ -555,6 +565,26 @@ JSDOM.Generated.WebGLLoseContext JSDOM.Generated.WebGLRenderingContextBase JSDOM.Generated.WebGLShaderPrecisionFormat + JSDOM.Generated.WebGPUBuffer + JSDOM.Generated.WebGPUCommandBuffer + JSDOM.Generated.WebGPUCommandQueue + JSDOM.Generated.WebGPUComputeCommandEncoder + JSDOM.Generated.WebGPUDepthStencilDescriptor + JSDOM.Generated.WebGPUDepthStencilState + JSDOM.Generated.WebGPUDrawable + JSDOM.Generated.WebGPUFunction + JSDOM.Generated.WebGPULibrary + JSDOM.Generated.WebGPURenderCommandEncoder + JSDOM.Generated.WebGPURenderPassAttachmentDescriptor + JSDOM.Generated.WebGPURenderPassColorAttachmentDescriptor + JSDOM.Generated.WebGPURenderPassDepthAttachmentDescriptor + JSDOM.Generated.WebGPURenderPassDescriptor + JSDOM.Generated.WebGPURenderPipelineColorAttachmentDescriptor + JSDOM.Generated.WebGPURenderPipelineDescriptor + JSDOM.Generated.WebGPURenderPipelineState + JSDOM.Generated.WebGPURenderingContext + JSDOM.Generated.WebGPUTexture + JSDOM.Generated.WebGPUTextureDescriptor JSDOM.Generated.WebKitAnimationEvent JSDOM.Generated.WebKitCSSMatrix JSDOM.Generated.WebKitCSSRegionRule @@ -615,6 +645,7 @@ JSDOM.Generated.Animatable as JSDOM.Animatable, JSDOM.Generated.Animation as JSDOM.Animation, JSDOM.Generated.AnimationEvent as JSDOM.AnimationEvent, + JSDOM.Generated.ApplePayError as JSDOM.ApplePayError, JSDOM.Generated.ApplePayPaymentAuthorizedEvent as JSDOM.ApplePayPaymentAuthorizedEvent, JSDOM.Generated.ApplePayPaymentMethodSelectedEvent as JSDOM.ApplePayPaymentMethodSelectedEvent, JSDOM.Generated.ApplePaySession as JSDOM.ApplePaySession, @@ -635,10 +666,12 @@ JSDOM.Generated.AudioTrackList as JSDOM.AudioTrackList, JSDOM.Generated.AutocompleteErrorEvent as JSDOM.AutocompleteErrorEvent, JSDOM.Generated.BarProp as JSDOM.BarProp, + JSDOM.Generated.BasicCredential as JSDOM.BasicCredential, JSDOM.Generated.BeforeLoadEvent as JSDOM.BeforeLoadEvent, JSDOM.Generated.BeforeUnloadEvent as JSDOM.BeforeUnloadEvent, JSDOM.Generated.BiquadFilterNode as JSDOM.BiquadFilterNode, JSDOM.Generated.Blob as JSDOM.Blob, + JSDOM.Generated.BlobCallback as JSDOM.BlobCallback, JSDOM.Generated.Body as JSDOM.Body, JSDOM.Generated.ByteLengthQueuingStrategy as JSDOM.ByteLengthQueuingStrategy, JSDOM.Generated.CSS as JSDOM.CSS, @@ -659,13 +692,12 @@ JSDOM.Generated.CSSSupportsRule as JSDOM.CSSSupportsRule, JSDOM.Generated.CSSValue as JSDOM.CSSValue, JSDOM.Generated.CSSValueList as JSDOM.CSSValueList, + JSDOM.Generated.CanvasCaptureMediaStreamTrack as JSDOM.CanvasCaptureMediaStreamTrack, JSDOM.Generated.CanvasGradient as JSDOM.CanvasGradient, JSDOM.Generated.CanvasPath as JSDOM.CanvasPath, JSDOM.Generated.CanvasRenderingContext2D as JSDOM.CanvasRenderingContext2D, JSDOM.Generated.CharacterData as JSDOM.CharacterData, JSDOM.Generated.ChildNode as JSDOM.ChildNode, - JSDOM.Generated.ClientRect as JSDOM.ClientRect, - JSDOM.Generated.ClientRectList as JSDOM.ClientRectList, JSDOM.Generated.ClipboardEvent as JSDOM.ClipboardEvent, JSDOM.Generated.CloseEvent as JSDOM.CloseEvent, JSDOM.Generated.CommandLineAPIHost as JSDOM.CommandLineAPIHost, @@ -701,6 +733,7 @@ JSDOM.Generated.DeviceOrientationEvent as JSDOM.DeviceOrientationEvent, JSDOM.Generated.DeviceProximityEvent as JSDOM.DeviceProximityEvent, JSDOM.Generated.Document as JSDOM.Document, + JSDOM.Generated.DocumentAndElementEventHandlers as JSDOM.DocumentAndElementEventHandlers, JSDOM.Generated.DocumentFragment as JSDOM.DocumentFragment, JSDOM.Generated.DocumentOrShadowRoot as JSDOM.DocumentOrShadowRoot, JSDOM.Generated.DocumentTimeline as JSDOM.DocumentTimeline, @@ -710,6 +743,7 @@ JSDOM.Generated.EXTTextureFilterAnisotropic as JSDOM.EXTTextureFilterAnisotropic, JSDOM.Generated.EXTsRGB as JSDOM.EXTsRGB, JSDOM.Generated.Element as JSDOM.Element, + JSDOM.Generated.ElementCSSInlineStyle as JSDOM.ElementCSSInlineStyle, JSDOM.Generated.ErrorEvent as JSDOM.ErrorEvent, JSDOM.Generated.Event as JSDOM.Event, JSDOM.Generated.EventListener as JSDOM.EventListener, @@ -878,7 +912,6 @@ JSDOM.Generated.NonDocumentTypeChildNode as JSDOM.NonDocumentTypeChildNode, JSDOM.Generated.NonElementParentNode as JSDOM.NonElementParentNode, JSDOM.Generated.Notification as JSDOM.Notification, - JSDOM.Generated.NotificationCenter as JSDOM.NotificationCenter, JSDOM.Generated.NotificationPermissionCallback as JSDOM.NotificationPermissionCallback, JSDOM.Generated.OESStandardDerivatives as JSDOM.OESStandardDerivatives, JSDOM.Generated.OESTextureHalfFloat as JSDOM.OESTextureHalfFloat, @@ -892,6 +925,7 @@ JSDOM.Generated.PageTransitionEvent as JSDOM.PageTransitionEvent, JSDOM.Generated.PannerNode as JSDOM.PannerNode, JSDOM.Generated.ParentNode as JSDOM.ParentNode, + JSDOM.Generated.PasswordCredential as JSDOM.PasswordCredential, JSDOM.Generated.Path2D as JSDOM.Path2D, JSDOM.Generated.Performance as JSDOM.Performance, JSDOM.Generated.PerformanceEntry as JSDOM.PerformanceEntry, @@ -908,6 +942,7 @@ JSDOM.Generated.PositionErrorCallback as JSDOM.PositionErrorCallback, JSDOM.Generated.ProcessingInstruction as JSDOM.ProcessingInstruction, JSDOM.Generated.ProgressEvent as JSDOM.ProgressEvent, + JSDOM.Generated.PromiseRejectionEvent as JSDOM.PromiseRejectionEvent, JSDOM.Generated.QuickTimePluginReplacement as JSDOM.QuickTimePluginReplacement, JSDOM.Generated.RGBColor as JSDOM.RGBColor, JSDOM.Generated.RTCDTMFSender as JSDOM.RTCDTMFSender, @@ -916,6 +951,8 @@ JSDOM.Generated.RTCDataChannelEvent as JSDOM.RTCDataChannelEvent, JSDOM.Generated.RTCIceCandidate as JSDOM.RTCIceCandidate, JSDOM.Generated.RTCIceCandidateEvent as JSDOM.RTCIceCandidateEvent, + JSDOM.Generated.RTCIceTransport as JSDOM.RTCIceTransport, + JSDOM.Generated.RTCPeerConnectionIceEvent as JSDOM.RTCPeerConnectionIceEvent, JSDOM.Generated.RTCRtpReceiver as JSDOM.RTCRtpReceiver, JSDOM.Generated.RTCRtpSender as JSDOM.RTCRtpSender, JSDOM.Generated.RTCRtpTransceiver as JSDOM.RTCRtpTransceiver, @@ -925,6 +962,8 @@ JSDOM.Generated.Range as JSDOM.Range, JSDOM.Generated.ReadableByteStreamController as JSDOM.ReadableByteStreamController, JSDOM.Generated.ReadableStream as JSDOM.ReadableStream, + JSDOM.Generated.ReadableStreamBYOBReader as JSDOM.ReadableStreamBYOBReader, + JSDOM.Generated.ReadableStreamBYOBRequest as JSDOM.ReadableStreamBYOBRequest, JSDOM.Generated.ReadableStreamDefaultController as JSDOM.ReadableStreamDefaultController, JSDOM.Generated.ReadableStreamDefaultReader as JSDOM.ReadableStreamDefaultReader, JSDOM.Generated.ReadableStreamSource as JSDOM.ReadableStreamSource, @@ -1053,6 +1092,7 @@ JSDOM.Generated.SecurityPolicyViolationEvent as JSDOM.SecurityPolicyViolationEvent, JSDOM.Generated.Selection as JSDOM.Selection, JSDOM.Generated.ShadowRoot as JSDOM.ShadowRoot, + JSDOM.Generated.SiteBoundCredential as JSDOM.SiteBoundCredential, JSDOM.Generated.Slotable as JSDOM.Slotable, JSDOM.Generated.SourceBuffer as JSDOM.SourceBuffer, JSDOM.Generated.SourceBufferList as JSDOM.SourceBufferList, @@ -1115,6 +1155,26 @@ JSDOM.Generated.WebGLLoseContext as JSDOM.WebGLLoseContext, JSDOM.Generated.WebGLRenderingContextBase as JSDOM.WebGLRenderingContextBase, JSDOM.Generated.WebGLShaderPrecisionFormat as JSDOM.WebGLShaderPrecisionFormat, + JSDOM.Generated.WebGPUBuffer as JSDOM.WebGPUBuffer, + JSDOM.Generated.WebGPUCommandBuffer as JSDOM.WebGPUCommandBuffer, + JSDOM.Generated.WebGPUCommandQueue as JSDOM.WebGPUCommandQueue, + JSDOM.Generated.WebGPUComputeCommandEncoder as JSDOM.WebGPUComputeCommandEncoder, + JSDOM.Generated.WebGPUDepthStencilDescriptor as JSDOM.WebGPUDepthStencilDescriptor, + JSDOM.Generated.WebGPUDepthStencilState as JSDOM.WebGPUDepthStencilState, + JSDOM.Generated.WebGPUDrawable as JSDOM.WebGPUDrawable, + JSDOM.Generated.WebGPUFunction as JSDOM.WebGPUFunction, + JSDOM.Generated.WebGPULibrary as JSDOM.WebGPULibrary, + JSDOM.Generated.WebGPURenderCommandEncoder as JSDOM.WebGPURenderCommandEncoder, + JSDOM.Generated.WebGPURenderPassAttachmentDescriptor as JSDOM.WebGPURenderPassAttachmentDescriptor, + JSDOM.Generated.WebGPURenderPassColorAttachmentDescriptor as JSDOM.WebGPURenderPassColorAttachmentDescriptor, + JSDOM.Generated.WebGPURenderPassDepthAttachmentDescriptor as JSDOM.WebGPURenderPassDepthAttachmentDescriptor, + JSDOM.Generated.WebGPURenderPassDescriptor as JSDOM.WebGPURenderPassDescriptor, + JSDOM.Generated.WebGPURenderPipelineColorAttachmentDescriptor as JSDOM.WebGPURenderPipelineColorAttachmentDescriptor, + JSDOM.Generated.WebGPURenderPipelineDescriptor as JSDOM.WebGPURenderPipelineDescriptor, + JSDOM.Generated.WebGPURenderPipelineState as JSDOM.WebGPURenderPipelineState, + JSDOM.Generated.WebGPURenderingContext as JSDOM.WebGPURenderingContext, + JSDOM.Generated.WebGPUTexture as JSDOM.WebGPUTexture, + JSDOM.Generated.WebGPUTextureDescriptor as JSDOM.WebGPUTextureDescriptor, JSDOM.Generated.WebKitAnimationEvent as JSDOM.WebKitAnimationEvent, JSDOM.Generated.WebKitCSSMatrix as JSDOM.WebKitCSSMatrix, JSDOM.Generated.WebKitCSSRegionRule as JSDOM.WebKitCSSRegionRule, @@ -1153,7 +1213,7 @@ base-compat >=0.9.0 && <0.10, transformers >=0.2 && <0.6, text >=0.11.0.6 && <1.3, - jsaddle >=0.8.0.0 && <0.9, + jsaddle >=0.9.0.0 && <0.10, lens >=4.12.3 && <4.16 default-language: Haskell2010 hs-source-dirs: src diff --git a/src/JSDOM/EventM.hs b/src/JSDOM/EventM.hs --- a/src/JSDOM/EventM.hs +++ b/src/JSDOM/EventM.hs @@ -126,14 +126,32 @@ event :: EventM t e e event = ask -eventTarget :: IsEvent e => EventM t e EventTarget +eventTarget :: IsEvent e => EventM t e (Maybe EventTarget) eventTarget = event >>= (lift . Event.getTarget) -target :: (IsEvent e, IsGObject t) => EventM t e t -target = eventTarget >>= (liftJSM . fromJSValUnchecked . coerce) +eventTargetUnsafe :: IsEvent e => EventM t e EventTarget +eventTargetUnsafe = event >>= (lift . Event.getTargetUnsafe) -eventCurrentTarget :: IsEvent e => EventM t e EventTarget +eventTargetUnchecked :: IsEvent e => EventM t e EventTarget +eventTargetUnchecked = event >>= (lift . Event.getTargetUnchecked) + +target :: (IsEvent e, IsGObject t) => EventM t e (Maybe t) +target = eventTarget >>= mapM (liftJSM . fromJSValUnchecked . coerce) + +targetUnsafe :: (IsEvent e, IsGObject t) => EventM t e t +targetUnsafe = eventTargetUnsafe >>= (liftJSM . fromJSValUnchecked . coerce) + +targetUnchecked :: (IsEvent e, IsGObject t) => EventM t e t +targetUnchecked = eventTargetUnchecked >>= (liftJSM . fromJSValUnchecked . coerce) + +eventCurrentTarget :: IsEvent e => EventM t e (Maybe EventTarget) eventCurrentTarget = event >>= (lift . Event.getCurrentTarget) + +eventCurrentTargetUnsafe :: IsEvent e => EventM t e EventTarget +eventCurrentTargetUnsafe = event >>= (lift . Event.getCurrentTargetUnsafe) + +eventCurrentTargetUnchecked :: IsEvent e => EventM t e EventTarget +eventCurrentTargetUnchecked = event >>= (lift . Event.getCurrentTargetUnchecked) eventPhase :: IsEvent e => EventM t e Word eventPhase = event >>= (lift . Event.getEventPhase) diff --git a/src/JSDOM/Generated/ANGLEInstancedArrays.hs b/src/JSDOM/Generated/ANGLEInstancedArrays.hs --- a/src/JSDOM/Generated/ANGLEInstancedArrays.hs +++ b/src/JSDOM/Generated/ANGLEInstancedArrays.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AbstractWorker.hs b/src/JSDOM/Generated/AbstractWorker.hs --- a/src/JSDOM/Generated/AbstractWorker.hs +++ b/src/JSDOM/Generated/AbstractWorker.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AnalyserNode.hs b/src/JSDOM/Generated/AnalyserNode.hs --- a/src/JSDOM/Generated/AnalyserNode.hs +++ b/src/JSDOM/Generated/AnalyserNode.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Animatable.hs b/src/JSDOM/Generated/Animatable.hs --- a/src/JSDOM/Generated/Animatable.hs +++ b/src/JSDOM/Generated/Animatable.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Animation.hs b/src/JSDOM/Generated/Animation.hs --- a/src/JSDOM/Generated/Animation.hs +++ b/src/JSDOM/Generated/Animation.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AnimationEvent.hs b/src/JSDOM/Generated/AnimationEvent.hs --- a/src/JSDOM/Generated/AnimationEvent.hs +++ b/src/JSDOM/Generated/AnimationEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ApplePayError.hs b/src/JSDOM/Generated/ApplePayError.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/ApplePayError.hs @@ -0,0 +1,82 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.ApplePayError + (newApplePayError, setCode, getCode, setContactField, + getContactField, getContactFieldUnsafe, getContactFieldUnchecked, + setMessage, getMessage, ApplePayError(..), gTypeApplePayError) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newApplePayError :: + (MonadDOM m, ToJSString message) => + ApplePayErrorCode -> + Maybe ApplePayErrorContactField -> Maybe message -> m ApplePayError +newApplePayError errorCode contactField message + = liftDOM + (ApplePayError <$> + new (jsg "ApplePayError") + [toJSVal errorCode, toJSVal contactField, toJSVal message]) + +-- | +setCode :: + (MonadDOM m) => ApplePayError -> ApplePayErrorCode -> m () +setCode self val = liftDOM (self ^. jss "code" (toJSVal val)) + +-- | +getCode :: (MonadDOM m) => ApplePayError -> m ApplePayErrorCode +getCode self = liftDOM ((self ^. js "code") >>= fromJSValUnchecked) + +-- | +setContactField :: + (MonadDOM m) => + ApplePayError -> Maybe ApplePayErrorContactField -> m () +setContactField self val + = liftDOM (self ^. jss "contactField" (toJSVal val)) + +-- | +getContactField :: + (MonadDOM m) => + ApplePayError -> m (Maybe ApplePayErrorContactField) +getContactField self + = liftDOM ((self ^. js "contactField") >>= fromJSVal) + +-- | +getContactFieldUnsafe :: + (MonadDOM m, HasCallStack) => + ApplePayError -> m ApplePayErrorContactField +getContactFieldUnsafe self + = liftDOM + (((self ^. js "contactField") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getContactFieldUnchecked :: + (MonadDOM m) => ApplePayError -> m ApplePayErrorContactField +getContactFieldUnchecked self + = liftDOM ((self ^. js "contactField") >>= fromJSValUnchecked) + +-- | +setMessage :: + (MonadDOM m, ToJSString val) => ApplePayError -> val -> m () +setMessage self val = liftDOM (self ^. jss "message" (toJSVal val)) + +-- | +getMessage :: + (MonadDOM m, FromJSString result) => ApplePayError -> m result +getMessage self + = liftDOM ((self ^. js "message") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/ApplePayPaymentAuthorizedEvent.hs b/src/JSDOM/Generated/ApplePayPaymentAuthorizedEvent.hs --- a/src/JSDOM/Generated/ApplePayPaymentAuthorizedEvent.hs +++ b/src/JSDOM/Generated/ApplePayPaymentAuthorizedEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ApplePayPaymentMethodSelectedEvent.hs b/src/JSDOM/Generated/ApplePayPaymentMethodSelectedEvent.hs --- a/src/JSDOM/Generated/ApplePayPaymentMethodSelectedEvent.hs +++ b/src/JSDOM/Generated/ApplePayPaymentMethodSelectedEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ApplePaySession.hs b/src/JSDOM/Generated/ApplePaySession.hs --- a/src/JSDOM/Generated/ApplePaySession.hs +++ b/src/JSDOM/Generated/ApplePaySession.hs @@ -7,6 +7,9 @@ canMakePayments, canMakePayments_, canMakePaymentsWithActiveCard, canMakePaymentsWithActiveCard_, openPaymentSetup, openPaymentSetup_, begin, abort, completeMerchantValidation, + completeShippingMethodSelectionUpdate, + completeShippingContactSelectionUpdate, + completePaymentMethodSelectionUpdate, completePaymentResult, completeShippingMethodSelection, completeShippingContactSelection, completePaymentMethodSelection, completePayment, pattern STATUS_SUCCESS, pattern STATUS_FAILURE, @@ -23,7 +26,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -121,6 +124,40 @@ (void (self ^. jsf "completeMerchantValidation" [toJSVal merchantSession])) + +-- | +completeShippingMethodSelectionUpdate :: + (MonadDOM m) => + ApplePaySession -> ApplePayShippingMethodUpdate -> m () +completeShippingMethodSelectionUpdate self update + = liftDOM + (void + (self ^. jsf "completeShippingMethodSelection" [toJSVal update])) + +-- | +completeShippingContactSelectionUpdate :: + (MonadDOM m) => + ApplePaySession -> ApplePayShippingContactUpdate -> m () +completeShippingContactSelectionUpdate self update + = liftDOM + (void + (self ^. jsf "completeShippingContactSelection" [toJSVal update])) + +-- | +completePaymentMethodSelectionUpdate :: + (MonadDOM m) => + ApplePaySession -> ApplePayPaymentMethodUpdate -> m () +completePaymentMethodSelectionUpdate self update + = liftDOM + (void + (self ^. jsf "completePaymentMethodSelection" [toJSVal update])) + +-- | +completePaymentResult :: + (MonadDOM m) => + ApplePaySession -> ApplePayPaymentAuthorizationResult -> m () +completePaymentResult self result + = liftDOM (void (self ^. jsf "completePayment" [toJSVal result])) -- | completeShippingMethodSelection :: diff --git a/src/JSDOM/Generated/ApplePayShippingContactSelectedEvent.hs b/src/JSDOM/Generated/ApplePayShippingContactSelectedEvent.hs --- a/src/JSDOM/Generated/ApplePayShippingContactSelectedEvent.hs +++ b/src/JSDOM/Generated/ApplePayShippingContactSelectedEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ApplePayShippingMethodSelectedEvent.hs b/src/JSDOM/Generated/ApplePayShippingMethodSelectedEvent.hs --- a/src/JSDOM/Generated/ApplePayShippingMethodSelectedEvent.hs +++ b/src/JSDOM/Generated/ApplePayShippingMethodSelectedEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ApplePayValidateMerchantEvent.hs b/src/JSDOM/Generated/ApplePayValidateMerchantEvent.hs --- a/src/JSDOM/Generated/ApplePayValidateMerchantEvent.hs +++ b/src/JSDOM/Generated/ApplePayValidateMerchantEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ApplicationCache.hs b/src/JSDOM/Generated/ApplicationCache.hs --- a/src/JSDOM/Generated/ApplicationCache.hs +++ b/src/JSDOM/Generated/ApplicationCache.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Attr.hs b/src/JSDOM/Generated/Attr.hs --- a/src/JSDOM/Generated/Attr.hs +++ b/src/JSDOM/Generated/Attr.hs @@ -3,16 +3,17 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Attr - (getName, getNameUnsafe, getNameUnchecked, getSpecified, setValue, - getValue, getOwnerElement, getNamespaceURI, getNamespaceURIUnsafe, - getNamespaceURIUnchecked, getPrefix, getPrefixUnsafe, - getPrefixUnchecked, getLocalName, Attr(..), gTypeAttr) + (getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked, + getPrefix, getPrefixUnsafe, getPrefixUnchecked, getLocalName, + getName, setValue, getValue, getOwnerElement, + getOwnerElementUnsafe, getOwnerElementUnchecked, getSpecified, + Attr(..), gTypeAttr) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -22,44 +23,6 @@ import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums --- | -getName :: - (MonadDOM m, FromJSString result) => Attr -> m (Maybe result) -getName self = liftDOM ((self ^. js "name") >>= fromJSVal) - --- | -getNameUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => Attr -> m result -getNameUnsafe self - = liftDOM - (((self ^. js "name") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getNameUnchecked :: - (MonadDOM m, FromJSString result) => Attr -> m result -getNameUnchecked self - = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) - --- | -getSpecified :: (MonadDOM m) => Attr -> m Bool -getSpecified self - = liftDOM ((self ^. js "specified") >>= valToBool) - --- | -setValue :: (MonadDOM m, ToJSString val) => Attr -> val -> m () -setValue self val = liftDOM (self ^. jss "value" (toJSVal val)) - --- | -getValue :: (MonadDOM m, FromJSString result) => Attr -> m result -getValue self - = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) - --- | -getOwnerElement :: (MonadDOM m) => Attr -> m Element -getOwnerElement self - = liftDOM ((self ^. js "ownerElement") >>= fromJSValUnchecked) - -- | getNamespaceURI :: (MonadDOM m, FromJSString result) => Attr -> m (Maybe result) @@ -104,3 +67,39 @@ (MonadDOM m, FromJSString result) => Attr -> m result getLocalName self = liftDOM ((self ^. js "localName") >>= fromJSValUnchecked) + +-- | +getName :: (MonadDOM m, FromJSString result) => Attr -> m result +getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) + +-- | +setValue :: (MonadDOM m, ToJSString val) => Attr -> val -> m () +setValue self val = liftDOM (self ^. jss "value" (toJSVal val)) + +-- | +getValue :: (MonadDOM m, FromJSString result) => Attr -> m result +getValue self + = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) + +-- | +getOwnerElement :: (MonadDOM m) => Attr -> m (Maybe Element) +getOwnerElement self + = liftDOM ((self ^. js "ownerElement") >>= fromJSVal) + +-- | +getOwnerElementUnsafe :: + (MonadDOM m, HasCallStack) => Attr -> m Element +getOwnerElementUnsafe self + = liftDOM + (((self ^. js "ownerElement") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getOwnerElementUnchecked :: (MonadDOM m) => Attr -> m Element +getOwnerElementUnchecked self + = liftDOM ((self ^. js "ownerElement") >>= fromJSValUnchecked) + +-- | +getSpecified :: (MonadDOM m) => Attr -> m Bool +getSpecified self + = liftDOM ((self ^. js "specified") >>= valToBool) diff --git a/src/JSDOM/Generated/AudioBuffer.hs b/src/JSDOM/Generated/AudioBuffer.hs --- a/src/JSDOM/Generated/AudioBuffer.hs +++ b/src/JSDOM/Generated/AudioBuffer.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AudioBufferCallback.hs b/src/JSDOM/Generated/AudioBufferCallback.hs --- a/src/JSDOM/Generated/AudioBufferCallback.hs +++ b/src/JSDOM/Generated/AudioBufferCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -48,7 +48,7 @@ newAudioBufferCallbackAsync callback = liftDOM (AudioBufferCallback . Callback <$> - function + asyncFunction (\ _ _ [audioBuffer] -> fromJSValUnchecked audioBuffer >>= \ audioBuffer' -> callback audioBuffer')) diff --git a/src/JSDOM/Generated/AudioBufferSourceNode.hs b/src/JSDOM/Generated/AudioBufferSourceNode.hs --- a/src/JSDOM/Generated/AudioBufferSourceNode.hs +++ b/src/JSDOM/Generated/AudioBufferSourceNode.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AudioContext.hs b/src/JSDOM/Generated/AudioContext.hs --- a/src/JSDOM/Generated/AudioContext.hs +++ b/src/JSDOM/Generated/AudioContext.hs @@ -26,7 +26,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AudioDestinationNode.hs b/src/JSDOM/Generated/AudioDestinationNode.hs --- a/src/JSDOM/Generated/AudioDestinationNode.hs +++ b/src/JSDOM/Generated/AudioDestinationNode.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AudioListener.hs b/src/JSDOM/Generated/AudioListener.hs --- a/src/JSDOM/Generated/AudioListener.hs +++ b/src/JSDOM/Generated/AudioListener.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AudioNode.hs b/src/JSDOM/Generated/AudioNode.hs --- a/src/JSDOM/Generated/AudioNode.hs +++ b/src/JSDOM/Generated/AudioNode.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AudioParam.hs b/src/JSDOM/Generated/AudioParam.hs --- a/src/JSDOM/Generated/AudioParam.hs +++ b/src/JSDOM/Generated/AudioParam.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AudioProcessingEvent.hs b/src/JSDOM/Generated/AudioProcessingEvent.hs --- a/src/JSDOM/Generated/AudioProcessingEvent.hs +++ b/src/JSDOM/Generated/AudioProcessingEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AudioTrack.hs b/src/JSDOM/Generated/AudioTrack.hs --- a/src/JSDOM/Generated/AudioTrack.hs +++ b/src/JSDOM/Generated/AudioTrack.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AudioTrackList.hs b/src/JSDOM/Generated/AudioTrackList.hs --- a/src/JSDOM/Generated/AudioTrackList.hs +++ b/src/JSDOM/Generated/AudioTrackList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/AutocompleteErrorEvent.hs b/src/JSDOM/Generated/AutocompleteErrorEvent.hs --- a/src/JSDOM/Generated/AutocompleteErrorEvent.hs +++ b/src/JSDOM/Generated/AutocompleteErrorEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/BarProp.hs b/src/JSDOM/Generated/BarProp.hs --- a/src/JSDOM/Generated/BarProp.hs +++ b/src/JSDOM/Generated/BarProp.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/BasicCredential.hs b/src/JSDOM/Generated/BasicCredential.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/BasicCredential.hs @@ -0,0 +1,37 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.BasicCredential + (getId, getType, BasicCredential(..), gTypeBasicCredential, + IsBasicCredential, toBasicCredential) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getId :: + (MonadDOM m, IsBasicCredential self, FromJSString result) => + self -> m result +getId self + = liftDOM + (((toBasicCredential self) ^. js "id") >>= fromJSValUnchecked) + +-- | +getType :: + (MonadDOM m, IsBasicCredential self, FromJSString result) => + self -> m result +getType self + = liftDOM + (((toBasicCredential self) ^. js "type") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/BeforeLoadEvent.hs b/src/JSDOM/Generated/BeforeLoadEvent.hs --- a/src/JSDOM/Generated/BeforeLoadEvent.hs +++ b/src/JSDOM/Generated/BeforeLoadEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/BeforeUnloadEvent.hs b/src/JSDOM/Generated/BeforeUnloadEvent.hs --- a/src/JSDOM/Generated/BeforeUnloadEvent.hs +++ b/src/JSDOM/Generated/BeforeUnloadEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/BiquadFilterNode.hs b/src/JSDOM/Generated/BiquadFilterNode.hs --- a/src/JSDOM/Generated/BiquadFilterNode.hs +++ b/src/JSDOM/Generated/BiquadFilterNode.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Blob.hs b/src/JSDOM/Generated/Blob.hs --- a/src/JSDOM/Generated/Blob.hs +++ b/src/JSDOM/Generated/Blob.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/BlobCallback.hs b/src/JSDOM/Generated/BlobCallback.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/BlobCallback.hs @@ -0,0 +1,48 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.BlobCallback + (newBlobCallback, newBlobCallbackSync, newBlobCallbackAsync, + BlobCallback) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newBlobCallback :: + (MonadDOM m) => (Maybe Blob -> JSM ()) -> m BlobCallback +newBlobCallback callback + = liftDOM + (BlobCallback . Callback <$> + function + (\ _ _ [blob] -> fromJSVal blob >>= \ blob' -> callback blob')) + +-- | +newBlobCallbackSync :: + (MonadDOM m) => (Maybe Blob -> JSM ()) -> m BlobCallback +newBlobCallbackSync callback + = liftDOM + (BlobCallback . Callback <$> + function + (\ _ _ [blob] -> fromJSVal blob >>= \ blob' -> callback blob')) + +-- | +newBlobCallbackAsync :: + (MonadDOM m) => (Maybe Blob -> JSM ()) -> m BlobCallback +newBlobCallbackAsync callback + = liftDOM + (BlobCallback . Callback <$> + asyncFunction + (\ _ _ [blob] -> fromJSVal blob >>= \ blob' -> callback blob')) diff --git a/src/JSDOM/Generated/Body.hs b/src/JSDOM/Generated/Body.hs --- a/src/JSDOM/Generated/Body.hs +++ b/src/JSDOM/Generated/Body.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ByteLengthQueuingStrategy.hs b/src/JSDOM/Generated/ByteLengthQueuingStrategy.hs --- a/src/JSDOM/Generated/ByteLengthQueuingStrategy.hs +++ b/src/JSDOM/Generated/ByteLengthQueuingStrategy.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSS.hs b/src/JSDOM/Generated/CSS.hs --- a/src/JSDOM/Generated/CSS.hs +++ b/src/JSDOM/Generated/CSS.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSFontFaceLoadEvent.hs b/src/JSDOM/Generated/CSSFontFaceLoadEvent.hs --- a/src/JSDOM/Generated/CSSFontFaceLoadEvent.hs +++ b/src/JSDOM/Generated/CSSFontFaceLoadEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSFontFaceRule.hs b/src/JSDOM/Generated/CSSFontFaceRule.hs --- a/src/JSDOM/Generated/CSSFontFaceRule.hs +++ b/src/JSDOM/Generated/CSSFontFaceRule.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSImportRule.hs b/src/JSDOM/Generated/CSSImportRule.hs --- a/src/JSDOM/Generated/CSSImportRule.hs +++ b/src/JSDOM/Generated/CSSImportRule.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSKeyframeRule.hs b/src/JSDOM/Generated/CSSKeyframeRule.hs --- a/src/JSDOM/Generated/CSSKeyframeRule.hs +++ b/src/JSDOM/Generated/CSSKeyframeRule.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSKeyframesRule.hs b/src/JSDOM/Generated/CSSKeyframesRule.hs --- a/src/JSDOM/Generated/CSSKeyframesRule.hs +++ b/src/JSDOM/Generated/CSSKeyframesRule.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSMediaRule.hs b/src/JSDOM/Generated/CSSMediaRule.hs --- a/src/JSDOM/Generated/CSSMediaRule.hs +++ b/src/JSDOM/Generated/CSSMediaRule.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSNamespaceRule.hs b/src/JSDOM/Generated/CSSNamespaceRule.hs --- a/src/JSDOM/Generated/CSSNamespaceRule.hs +++ b/src/JSDOM/Generated/CSSNamespaceRule.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSPageRule.hs b/src/JSDOM/Generated/CSSPageRule.hs --- a/src/JSDOM/Generated/CSSPageRule.hs +++ b/src/JSDOM/Generated/CSSPageRule.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSPrimitiveValue.hs b/src/JSDOM/Generated/CSSPrimitiveValue.hs --- a/src/JSDOM/Generated/CSSPrimitiveValue.hs +++ b/src/JSDOM/Generated/CSSPrimitiveValue.hs @@ -21,7 +21,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSRule.hs b/src/JSDOM/Generated/CSSRule.hs --- a/src/JSDOM/Generated/CSSRule.hs +++ b/src/JSDOM/Generated/CSSRule.hs @@ -19,7 +19,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSRuleList.hs b/src/JSDOM/Generated/CSSRuleList.hs --- a/src/JSDOM/Generated/CSSRuleList.hs +++ b/src/JSDOM/Generated/CSSRuleList.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSStyleDeclaration.hs b/src/JSDOM/Generated/CSSStyleDeclaration.hs --- a/src/JSDOM/Generated/CSSStyleDeclaration.hs +++ b/src/JSDOM/Generated/CSSStyleDeclaration.hs @@ -19,7 +19,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -141,7 +141,7 @@ (MonadDOM m, ToJSString propertyName, ToJSString value, ToJSString priority) => CSSStyleDeclaration -> - propertyName -> Maybe value -> Maybe priority -> m () + propertyName -> value -> Maybe priority -> m () setProperty self propertyName value priority = liftDOM (void diff --git a/src/JSDOM/Generated/CSSStyleRule.hs b/src/JSDOM/Generated/CSSStyleRule.hs --- a/src/JSDOM/Generated/CSSStyleRule.hs +++ b/src/JSDOM/Generated/CSSStyleRule.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSStyleSheet.hs b/src/JSDOM/Generated/CSSStyleSheet.hs --- a/src/JSDOM/Generated/CSSStyleSheet.hs +++ b/src/JSDOM/Generated/CSSStyleSheet.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSSupportsRule.hs b/src/JSDOM/Generated/CSSSupportsRule.hs --- a/src/JSDOM/Generated/CSSSupportsRule.hs +++ b/src/JSDOM/Generated/CSSSupportsRule.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSValue.hs b/src/JSDOM/Generated/CSSValue.hs --- a/src/JSDOM/Generated/CSSValue.hs +++ b/src/JSDOM/Generated/CSSValue.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CSSValueList.hs b/src/JSDOM/Generated/CSSValueList.hs --- a/src/JSDOM/Generated/CSSValueList.hs +++ b/src/JSDOM/Generated/CSSValueList.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CanvasCaptureMediaStreamTrack.hs b/src/JSDOM/Generated/CanvasCaptureMediaStreamTrack.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/CanvasCaptureMediaStreamTrack.hs @@ -0,0 +1,33 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.CanvasCaptureMediaStreamTrack + (requestFrame, getCanvas, CanvasCaptureMediaStreamTrack(..), + gTypeCanvasCaptureMediaStreamTrack) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +requestFrame :: + (MonadDOM m) => CanvasCaptureMediaStreamTrack -> m () +requestFrame self = liftDOM (void (self ^. jsf "requestFrame" ())) + +-- | +getCanvas :: + (MonadDOM m) => + CanvasCaptureMediaStreamTrack -> m HTMLCanvasElement +getCanvas self + = liftDOM ((self ^. js "canvas") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CanvasGradient.hs b/src/JSDOM/Generated/CanvasGradient.hs --- a/src/JSDOM/Generated/CanvasGradient.hs +++ b/src/JSDOM/Generated/CanvasGradient.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CanvasPath.hs b/src/JSDOM/Generated/CanvasPath.hs --- a/src/JSDOM/Generated/CanvasPath.hs +++ b/src/JSDOM/Generated/CanvasPath.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CanvasRenderingContext2D.hs b/src/JSDOM/Generated/CanvasRenderingContext2D.hs --- a/src/JSDOM/Generated/CanvasRenderingContext2D.hs +++ b/src/JSDOM/Generated/CanvasRenderingContext2D.hs @@ -45,7 +45,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -685,7 +685,7 @@ createPattern :: (MonadDOM m, IsCanvasImageSource image, ToJSString repetition) => CanvasRenderingContext2D -> - image -> Maybe repetition -> m (Maybe CanvasPattern) + image -> repetition -> m (Maybe CanvasPattern) createPattern self image repetition = liftDOM ((self ^. jsf "createPattern" [toJSVal image, toJSVal repetition]) @@ -694,7 +694,7 @@ -- | createPattern_ :: (MonadDOM m, IsCanvasImageSource image, ToJSString repetition) => - CanvasRenderingContext2D -> image -> Maybe repetition -> m () + CanvasRenderingContext2D -> image -> repetition -> m () createPattern_ self image repetition = liftDOM (void @@ -704,8 +704,7 @@ createPatternUnsafe :: (MonadDOM m, IsCanvasImageSource image, ToJSString repetition, HasCallStack) => - CanvasRenderingContext2D -> - image -> Maybe repetition -> m CanvasPattern + CanvasRenderingContext2D -> image -> repetition -> m CanvasPattern createPatternUnsafe self image repetition = liftDOM (((self ^. jsf "createPattern" [toJSVal image, toJSVal repetition]) @@ -715,8 +714,7 @@ -- | createPatternUnchecked :: (MonadDOM m, IsCanvasImageSource image, ToJSString repetition) => - CanvasRenderingContext2D -> - image -> Maybe repetition -> m CanvasPattern + CanvasRenderingContext2D -> image -> repetition -> m CanvasPattern createPatternUnchecked self image repetition = liftDOM ((self ^. jsf "createPattern" [toJSVal image, toJSVal repetition]) diff --git a/src/JSDOM/Generated/CharacterData.hs b/src/JSDOM/Generated/CharacterData.hs --- a/src/JSDOM/Generated/CharacterData.hs +++ b/src/JSDOM/Generated/CharacterData.hs @@ -3,17 +3,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CharacterData - (substringData, substringData_, substringDataUnsafe, - substringDataUnchecked, appendData, insertData, deleteData, - replaceData, setData, getData, getDataUnsafe, getDataUnchecked, - getLength, CharacterData(..), gTypeCharacterData, IsCharacterData, - toCharacterData) + (substringData, substringData_, appendData, insertData, deleteData, + replaceData, setData, getData, getLength, CharacterData(..), + gTypeCharacterData, IsCharacterData, toCharacterData) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -26,43 +24,21 @@ -- | substringData :: (MonadDOM m, IsCharacterData self, FromJSString result) => - self -> Word -> Word -> m (Maybe result) -substringData self offset length + self -> Word -> Word -> m result +substringData self offset count = liftDOM (((toCharacterData self) ^. jsf "substringData" - [toJSVal offset, toJSVal length]) - >>= fromJSVal) + [toJSVal offset, toJSVal count]) + >>= fromJSValUnchecked) -- | substringData_ :: (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m () -substringData_ self offset length +substringData_ self offset count = liftDOM (void ((toCharacterData self) ^. jsf "substringData" - [toJSVal offset, toJSVal length])) - --- | -substringDataUnsafe :: - (MonadDOM m, IsCharacterData self, HasCallStack, - FromJSString result) => - self -> Word -> Word -> m result -substringDataUnsafe self offset length - = liftDOM - ((((toCharacterData self) ^. jsf "substringData" - [toJSVal offset, toJSVal length]) - >>= fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -substringDataUnchecked :: - (MonadDOM m, IsCharacterData self, FromJSString result) => - self -> Word -> Word -> m result -substringDataUnchecked self offset length - = liftDOM - (((toCharacterData self) ^. jsf "substringData" - [toJSVal offset, toJSVal length]) - >>= fromJSValUnchecked) + [toJSVal offset, toJSVal count])) -- | appendData :: @@ -85,52 +61,34 @@ -- | deleteData :: (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m () -deleteData self offset length +deleteData self offset count = liftDOM (void ((toCharacterData self) ^. jsf "deleteData" - [toJSVal offset, toJSVal length])) + [toJSVal offset, toJSVal count])) -- | replaceData :: (MonadDOM m, IsCharacterData self, ToJSString data') => self -> Word -> Word -> data' -> m () -replaceData self offset length data' +replaceData self offset count data' = liftDOM (void ((toCharacterData self) ^. jsf "replaceData" - [toJSVal offset, toJSVal length, toJSVal data'])) + [toJSVal offset, toJSVal count, toJSVal data'])) -- | setData :: (MonadDOM m, IsCharacterData self, ToJSString val) => - self -> Maybe val -> m () + self -> val -> m () setData self val = liftDOM ((toCharacterData self) ^. jss "data" (toJSVal val)) -- | getData :: (MonadDOM m, IsCharacterData self, FromJSString result) => - self -> m (Maybe result) + self -> m result getData self - = liftDOM - (((toCharacterData self) ^. js "data") >>= fromMaybeJSString) - --- | -getDataUnsafe :: - (MonadDOM m, IsCharacterData self, HasCallStack, - FromJSString result) => - self -> m result -getDataUnsafe self - = liftDOM - ((((toCharacterData self) ^. js "data") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getDataUnchecked :: - (MonadDOM m, IsCharacterData self, FromJSString result) => - self -> m result -getDataUnchecked self = liftDOM (((toCharacterData self) ^. js "data") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/ChildNode.hs b/src/JSDOM/Generated/ChildNode.hs --- a/src/JSDOM/Generated/ChildNode.hs +++ b/src/JSDOM/Generated/ChildNode.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ClientRect.hs b/src/JSDOM/Generated/ClientRect.hs deleted file mode 100644 --- a/src/JSDOM/Generated/ClientRect.hs +++ /dev/null @@ -1,51 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module JSDOM.Generated.ClientRect - (getTop, getRight, getBottom, getLeft, getWidth, getHeight, - ClientRect(..), gTypeClientRect) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import JSDOM.Types -import Control.Applicative ((<$>)) -import Control.Monad (void) -import Control.Lens.Operators ((^.)) -import JSDOM.EventTargetClosures (EventName, unsafeEventName) -import JSDOM.Enums - --- | -getTop :: (MonadDOM m) => ClientRect -> m Float -getTop self - = liftDOM (realToFrac <$> ((self ^. js "top") >>= valToNumber)) - --- | -getRight :: (MonadDOM m) => ClientRect -> m Float -getRight self - = liftDOM (realToFrac <$> ((self ^. js "right") >>= valToNumber)) - --- | -getBottom :: (MonadDOM m) => ClientRect -> m Float -getBottom self - = liftDOM (realToFrac <$> ((self ^. js "bottom") >>= valToNumber)) - --- | -getLeft :: (MonadDOM m) => ClientRect -> m Float -getLeft self - = liftDOM (realToFrac <$> ((self ^. js "left") >>= valToNumber)) - --- | -getWidth :: (MonadDOM m) => ClientRect -> m Float -getWidth self - = liftDOM (realToFrac <$> ((self ^. js "width") >>= valToNumber)) - --- | -getHeight :: (MonadDOM m) => ClientRect -> m Float -getHeight self - = liftDOM (realToFrac <$> ((self ^. js "height") >>= valToNumber)) diff --git a/src/JSDOM/Generated/ClientRectList.hs b/src/JSDOM/Generated/ClientRectList.hs deleted file mode 100644 --- a/src/JSDOM/Generated/ClientRectList.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module JSDOM.Generated.ClientRectList - (item, item_, getLength, ClientRectList(..), gTypeClientRectList) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import JSDOM.Types -import Control.Applicative ((<$>)) -import Control.Monad (void) -import Control.Lens.Operators ((^.)) -import JSDOM.EventTargetClosures (EventName, unsafeEventName) -import JSDOM.Enums - --- | -item :: (MonadDOM m) => ClientRectList -> Word -> m ClientRect -item self index - = liftDOM - ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) - --- | -item_ :: (MonadDOM m) => ClientRectList -> Word -> m () -item_ self index - = liftDOM (void (self ^. jsf "item" [toJSVal index])) - --- | -getLength :: (MonadDOM m) => ClientRectList -> m Word -getLength self - = liftDOM (round <$> ((self ^. js "length") >>= valToNumber)) diff --git a/src/JSDOM/Generated/ClipboardEvent.hs b/src/JSDOM/Generated/ClipboardEvent.hs --- a/src/JSDOM/Generated/ClipboardEvent.hs +++ b/src/JSDOM/Generated/ClipboardEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CloseEvent.hs b/src/JSDOM/Generated/CloseEvent.hs --- a/src/JSDOM/Generated/CloseEvent.hs +++ b/src/JSDOM/Generated/CloseEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CommandLineAPIHost.hs b/src/JSDOM/Generated/CommandLineAPIHost.hs --- a/src/JSDOM/Generated/CommandLineAPIHost.hs +++ b/src/JSDOM/Generated/CommandLineAPIHost.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Comment.hs b/src/JSDOM/Generated/Comment.hs --- a/src/JSDOM/Generated/Comment.hs +++ b/src/JSDOM/Generated/Comment.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CompositionEvent.hs b/src/JSDOM/Generated/CompositionEvent.hs --- a/src/JSDOM/Generated/CompositionEvent.hs +++ b/src/JSDOM/Generated/CompositionEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ConvolverNode.hs b/src/JSDOM/Generated/ConvolverNode.hs --- a/src/JSDOM/Generated/ConvolverNode.hs +++ b/src/JSDOM/Generated/ConvolverNode.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Coordinates.hs b/src/JSDOM/Generated/Coordinates.hs --- a/src/JSDOM/Generated/Coordinates.hs +++ b/src/JSDOM/Generated/Coordinates.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CountQueuingStrategy.hs b/src/JSDOM/Generated/CountQueuingStrategy.hs --- a/src/JSDOM/Generated/CountQueuingStrategy.hs +++ b/src/JSDOM/Generated/CountQueuingStrategy.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Counter.hs b/src/JSDOM/Generated/Counter.hs --- a/src/JSDOM/Generated/Counter.hs +++ b/src/JSDOM/Generated/Counter.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Crypto.hs b/src/JSDOM/Generated/Crypto.hs --- a/src/JSDOM/Generated/Crypto.hs +++ b/src/JSDOM/Generated/Crypto.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CryptoKey.hs b/src/JSDOM/Generated/CryptoKey.hs --- a/src/JSDOM/Generated/CryptoKey.hs +++ b/src/JSDOM/Generated/CryptoKey.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CustomElementRegistry.hs b/src/JSDOM/Generated/CustomElementRegistry.hs --- a/src/JSDOM/Generated/CustomElementRegistry.hs +++ b/src/JSDOM/Generated/CustomElementRegistry.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/CustomEvent.hs b/src/JSDOM/Generated/CustomEvent.hs --- a/src/JSDOM/Generated/CustomEvent.hs +++ b/src/JSDOM/Generated/CustomEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMError.hs b/src/JSDOM/Generated/DOMError.hs --- a/src/JSDOM/Generated/DOMError.hs +++ b/src/JSDOM/Generated/DOMError.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMException.hs b/src/JSDOM/Generated/DOMException.hs --- a/src/JSDOM/Generated/DOMException.hs +++ b/src/JSDOM/Generated/DOMException.hs @@ -22,7 +22,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMImplementation.hs b/src/JSDOM/Generated/DOMImplementation.hs --- a/src/JSDOM/Generated/DOMImplementation.hs +++ b/src/JSDOM/Generated/DOMImplementation.hs @@ -5,14 +5,14 @@ module JSDOM.Generated.DOMImplementation (createDocumentType, createDocumentType_, createDocument, createDocument_, createHTMLDocument, createHTMLDocument_, - hasFeature, hasFeature_, createCSSStyleSheet, createCSSStyleSheet_, - DOMImplementation(..), gTypeDOMImplementation) + hasFeature, hasFeature_, DOMImplementation(..), + gTypeDOMImplementation) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -50,7 +50,7 @@ (MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) => DOMImplementation -> Maybe namespaceURI -> - Maybe qualifiedName -> Maybe DocumentType -> m XMLDocument + qualifiedName -> Maybe DocumentType -> m XMLDocument createDocument self namespaceURI qualifiedName doctype = liftDOM ((self ^. jsf "createDocument" @@ -61,8 +61,7 @@ createDocument_ :: (MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) => DOMImplementation -> - Maybe namespaceURI -> - Maybe qualifiedName -> Maybe DocumentType -> m () + Maybe namespaceURI -> qualifiedName -> Maybe DocumentType -> m () createDocument_ self namespaceURI qualifiedName doctype = liftDOM (void @@ -93,21 +92,3 @@ -- | hasFeature_ :: (MonadDOM m) => DOMImplementation -> m () hasFeature_ self = liftDOM (void (self ^. jsf "hasFeature" ())) - --- | -createCSSStyleSheet :: - (MonadDOM m, ToJSString title, ToJSString media) => - DOMImplementation -> Maybe title -> Maybe media -> m CSSStyleSheet -createCSSStyleSheet self title media - = liftDOM - ((self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media]) - >>= fromJSValUnchecked) - --- | -createCSSStyleSheet_ :: - (MonadDOM m, ToJSString title, ToJSString media) => - DOMImplementation -> Maybe title -> Maybe media -> m () -createCSSStyleSheet_ self title media - = liftDOM - (void - (self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media])) diff --git a/src/JSDOM/Generated/DOMNamedFlowCollection.hs b/src/JSDOM/Generated/DOMNamedFlowCollection.hs --- a/src/JSDOM/Generated/DOMNamedFlowCollection.hs +++ b/src/JSDOM/Generated/DOMNamedFlowCollection.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMParser.hs b/src/JSDOM/Generated/DOMParser.hs --- a/src/JSDOM/Generated/DOMParser.hs +++ b/src/JSDOM/Generated/DOMParser.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMPoint.hs b/src/JSDOM/Generated/DOMPoint.hs --- a/src/JSDOM/Generated/DOMPoint.hs +++ b/src/JSDOM/Generated/DOMPoint.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMPointReadOnly.hs b/src/JSDOM/Generated/DOMPointReadOnly.hs --- a/src/JSDOM/Generated/DOMPointReadOnly.hs +++ b/src/JSDOM/Generated/DOMPointReadOnly.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMRect.hs b/src/JSDOM/Generated/DOMRect.hs --- a/src/JSDOM/Generated/DOMRect.hs +++ b/src/JSDOM/Generated/DOMRect.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMRectReadOnly.hs b/src/JSDOM/Generated/DOMRectReadOnly.hs --- a/src/JSDOM/Generated/DOMRectReadOnly.hs +++ b/src/JSDOM/Generated/DOMRectReadOnly.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMStringList.hs b/src/JSDOM/Generated/DOMStringList.hs --- a/src/JSDOM/Generated/DOMStringList.hs +++ b/src/JSDOM/Generated/DOMStringList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMStringMap.hs b/src/JSDOM/Generated/DOMStringMap.hs --- a/src/JSDOM/Generated/DOMStringMap.hs +++ b/src/JSDOM/Generated/DOMStringMap.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DOMTokenList.hs b/src/JSDOM/Generated/DOMTokenList.hs --- a/src/JSDOM/Generated/DOMTokenList.hs +++ b/src/JSDOM/Generated/DOMTokenList.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DataCue.hs b/src/JSDOM/Generated/DataCue.hs --- a/src/JSDOM/Generated/DataCue.hs +++ b/src/JSDOM/Generated/DataCue.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DataTransfer.hs b/src/JSDOM/Generated/DataTransfer.hs --- a/src/JSDOM/Generated/DataTransfer.hs +++ b/src/JSDOM/Generated/DataTransfer.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DataTransferItem.hs b/src/JSDOM/Generated/DataTransferItem.hs --- a/src/JSDOM/Generated/DataTransferItem.hs +++ b/src/JSDOM/Generated/DataTransferItem.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DataTransferItemList.hs b/src/JSDOM/Generated/DataTransferItemList.hs --- a/src/JSDOM/Generated/DataTransferItemList.hs +++ b/src/JSDOM/Generated/DataTransferItemList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Database.hs b/src/JSDOM/Generated/Database.hs --- a/src/JSDOM/Generated/Database.hs +++ b/src/JSDOM/Generated/Database.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DatabaseCallback.hs b/src/JSDOM/Generated/DatabaseCallback.hs --- a/src/JSDOM/Generated/DatabaseCallback.hs +++ b/src/JSDOM/Generated/DatabaseCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -46,6 +46,6 @@ newDatabaseCallbackAsync callback = liftDOM (DatabaseCallback . Callback <$> - function + asyncFunction (\ _ _ [database] -> fromJSValUnchecked database >>= \ database' -> callback database')) diff --git a/src/JSDOM/Generated/DedicatedWorkerGlobalScope.hs b/src/JSDOM/Generated/DedicatedWorkerGlobalScope.hs --- a/src/JSDOM/Generated/DedicatedWorkerGlobalScope.hs +++ b/src/JSDOM/Generated/DedicatedWorkerGlobalScope.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DelayNode.hs b/src/JSDOM/Generated/DelayNode.hs --- a/src/JSDOM/Generated/DelayNode.hs +++ b/src/JSDOM/Generated/DelayNode.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DeviceMotionEvent.hs b/src/JSDOM/Generated/DeviceMotionEvent.hs --- a/src/JSDOM/Generated/DeviceMotionEvent.hs +++ b/src/JSDOM/Generated/DeviceMotionEvent.hs @@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DeviceOrientationEvent.hs b/src/JSDOM/Generated/DeviceOrientationEvent.hs --- a/src/JSDOM/Generated/DeviceOrientationEvent.hs +++ b/src/JSDOM/Generated/DeviceOrientationEvent.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DeviceProximityEvent.hs b/src/JSDOM/Generated/DeviceProximityEvent.hs --- a/src/JSDOM/Generated/DeviceProximityEvent.hs +++ b/src/JSDOM/Generated/DeviceProximityEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Document.hs b/src/JSDOM/Generated/Document.hs --- a/src/JSDOM/Generated/Document.hs +++ b/src/JSDOM/Generated/Document.hs @@ -3,1510 +3,1501 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Document - (getAnimations, getAnimations_, newDocument, createElement, - createElement_, createDocumentFragment, createDocumentFragment_, - createTextNode, createTextNode_, createComment, createComment_, - createCDATASection, createCDATASection_, - createProcessingInstruction, createProcessingInstruction_, - createAttribute, createAttribute_, getElementsByTagName, - getElementsByTagName_, importNode, importNode_, createElementNS, - createElementNS_, createAttributeNS, createAttributeNS_, - getElementsByTagNameNS, getElementsByTagNameNS_, adoptNode, - adoptNode_, createEvent, createEvent_, createRange, createRange_, - createNodeIterator, createNodeIterator_, createTreeWalker, - createTreeWalker_, getOverrideStyle, getOverrideStyle_, - createExpression, createExpression_, createNSResolver, - createNSResolver_, evaluate, evaluate_, execCommand, execCommand_, - queryCommandEnabled, queryCommandEnabled_, queryCommandIndeterm, - queryCommandIndeterm_, queryCommandState, queryCommandState_, - queryCommandSupported, queryCommandSupported_, queryCommandValue, - queryCommandValue_, getElementsByName, getElementsByName_, - caretRangeFromPoint, caretRangeFromPoint_, getSelection, - getSelection_, getCSSCanvasContext, getCSSCanvasContext_, - getElementsByClassName, getElementsByClassName_, hasFocus, - hasFocus_, webkitCancelFullScreen, webkitExitFullscreen, - exitPointerLock, webkitGetNamedFlows, webkitGetNamedFlows_, - createTouch, createTouch_, createTouchList, createTouchList_, - getTimeline, getDoctype, getDoctypeUnsafe, getDoctypeUnchecked, - getImplementation, getDocumentElement, getDocumentElementUnsafe, - getDocumentElementUnchecked, getInputEncoding, getXmlEncoding, - getXmlEncodingUnsafe, getXmlEncodingUnchecked, setXmlVersion, - getXmlVersion, getXmlVersionUnsafe, getXmlVersionUnchecked, - setXmlStandalone, getXmlStandalone, getDocumentURI, getDefaultView, - getStyleSheets, getContentType, setTitle, getTitle, setDir, getDir, - setDesignMode, getDesignMode, getReferrer, setDomain, getDomain, - getURL, setCookie, getCookie, setBody, getBody, getBodyUnsafe, - getBodyUnchecked, getHead, getHeadUnsafe, getHeadUnchecked, - getImages, getApplets, getLinks, getForms, getAnchors, getEmbeds, - getPlugins, getScripts, getLastModified, getLocation, - getLocationUnsafe, getLocationUnchecked, getCharset, getReadyState, - getCharacterSet, getPreferredStylesheetSet, - getPreferredStylesheetSetUnsafe, - getPreferredStylesheetSetUnchecked, setSelectedStylesheetSet, - getSelectedStylesheetSet, getSelectedStylesheetSetUnsafe, - getSelectedStylesheetSetUnchecked, getCompatMode, - getWebkitIsFullScreen, getWebkitFullScreenKeyboardInputAllowed, - getWebkitCurrentFullScreenElement, getWebkitFullscreenEnabled, - getWebkitFullscreenElement, getWebkitFullscreenElementUnsafe, - getWebkitFullscreenElementUnchecked, getFonts, getVisibilityState, - getHidden, visibilitychange, getCurrentScript, - getCurrentScriptUnsafe, getCurrentScriptUnchecked, getOrigin, - getScrollingElement, getScrollingElementUnsafe, - getScrollingElementUnchecked, beforeCopy, beforeCut, beforeinput, - beforePaste, copy, cut, paste, selectStart, webKitFullscreenChange, - webKitFullscreenError, selectionchange, readyStateChange, - pointerlockchange, pointerlockerror, getRootElement, - getRootElementUnsafe, getRootElementUnchecked, Document(..), - gTypeDocument, IsDocument, toDocument) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import JSDOM.Types -import Control.Applicative ((<$>)) -import Control.Monad (void) -import Control.Lens.Operators ((^.)) -import JSDOM.EventTargetClosures (EventName, unsafeEventName) -import JSDOM.Enums - --- | -getAnimations :: - (MonadDOM m, IsDocument self) => self -> m [Animation] -getAnimations self - = liftDOM - (((toDocument self) ^. jsf "getAnimations" ()) >>= - fromJSArrayUnchecked) - --- | -getAnimations_ :: (MonadDOM m, IsDocument self) => self -> m () -getAnimations_ self - = liftDOM (void ((toDocument self) ^. jsf "getAnimations" ())) - --- | -newDocument :: (MonadDOM m) => m Document -newDocument = liftDOM (Document <$> new (jsg "Document") ()) - --- | -createElement :: - (MonadDOM m, IsDocument self, ToJSString tagName) => - self -> tagName -> m Element -createElement self tagName - = liftDOM - (((toDocument self) ^. jsf "createElement" [toJSVal tagName]) >>= - fromJSValUnchecked) - --- | -createElement_ :: - (MonadDOM m, IsDocument self, ToJSString tagName) => - self -> tagName -> m () -createElement_ self tagName - = liftDOM - (void ((toDocument self) ^. jsf "createElement" [toJSVal tagName])) - --- | -createDocumentFragment :: - (MonadDOM m, IsDocument self) => self -> m DocumentFragment -createDocumentFragment self - = liftDOM - (((toDocument self) ^. jsf "createDocumentFragment" ()) >>= - fromJSValUnchecked) - --- | -createDocumentFragment_ :: - (MonadDOM m, IsDocument self) => self -> m () -createDocumentFragment_ self - = liftDOM - (void ((toDocument self) ^. jsf "createDocumentFragment" ())) - --- | -createTextNode :: - (MonadDOM m, IsDocument self, ToJSString data') => - self -> data' -> m Text -createTextNode self data' - = liftDOM - (((toDocument self) ^. jsf "createTextNode" [toJSVal data']) >>= - fromJSValUnchecked) - --- | -createTextNode_ :: - (MonadDOM m, IsDocument self, ToJSString data') => - self -> data' -> m () -createTextNode_ self data' - = liftDOM - (void ((toDocument self) ^. jsf "createTextNode" [toJSVal data'])) - --- | -createComment :: - (MonadDOM m, IsDocument self, ToJSString data') => - self -> data' -> m Comment -createComment self data' - = liftDOM - (((toDocument self) ^. jsf "createComment" [toJSVal data']) >>= - fromJSValUnchecked) - --- | -createComment_ :: - (MonadDOM m, IsDocument self, ToJSString data') => - self -> data' -> m () -createComment_ self data' - = liftDOM - (void ((toDocument self) ^. jsf "createComment" [toJSVal data'])) - --- | -createCDATASection :: - (MonadDOM m, IsDocument self, ToJSString data') => - self -> data' -> m CDATASection -createCDATASection self data' - = liftDOM - (((toDocument self) ^. jsf "createCDATASection" [toJSVal data']) - >>= fromJSValUnchecked) - --- | -createCDATASection_ :: - (MonadDOM m, IsDocument self, ToJSString data') => - self -> data' -> m () -createCDATASection_ self data' - = liftDOM - (void - ((toDocument self) ^. jsf "createCDATASection" [toJSVal data'])) - --- | -createProcessingInstruction :: - (MonadDOM m, IsDocument self, ToJSString target, - ToJSString data') => - self -> target -> data' -> m ProcessingInstruction -createProcessingInstruction self target data' - = liftDOM - (((toDocument self) ^. jsf "createProcessingInstruction" - [toJSVal target, toJSVal data']) - >>= fromJSValUnchecked) - --- | -createProcessingInstruction_ :: - (MonadDOM m, IsDocument self, ToJSString target, - ToJSString data') => - self -> target -> data' -> m () -createProcessingInstruction_ self target data' - = liftDOM - (void - ((toDocument self) ^. jsf "createProcessingInstruction" - [toJSVal target, toJSVal data'])) - --- | -createAttribute :: - (MonadDOM m, IsDocument self, ToJSString name) => - self -> name -> m Attr -createAttribute self name - = liftDOM - (((toDocument self) ^. jsf "createAttribute" [toJSVal name]) >>= - fromJSValUnchecked) - --- | -createAttribute_ :: - (MonadDOM m, IsDocument self, ToJSString name) => - self -> name -> m () -createAttribute_ self name - = liftDOM - (void ((toDocument self) ^. jsf "createAttribute" [toJSVal name])) - --- | -getElementsByTagName :: - (MonadDOM m, IsDocument self, ToJSString tagname) => - self -> tagname -> m HTMLCollection -getElementsByTagName self tagname - = liftDOM - (((toDocument self) ^. jsf "getElementsByTagName" - [toJSVal tagname]) - >>= fromJSValUnchecked) - --- | -getElementsByTagName_ :: - (MonadDOM m, IsDocument self, ToJSString tagname) => - self -> tagname -> m () -getElementsByTagName_ self tagname - = liftDOM - (void - ((toDocument self) ^. jsf "getElementsByTagName" - [toJSVal tagname])) - --- | -importNode :: - (MonadDOM m, IsDocument self, IsNode importedNode) => - self -> importedNode -> Bool -> m Node -importNode self importedNode deep - = liftDOM - (((toDocument self) ^. jsf "importNode" - [toJSVal importedNode, toJSVal deep]) - >>= fromJSValUnchecked) - --- | -importNode_ :: - (MonadDOM m, IsDocument self, IsNode importedNode) => - self -> importedNode -> Bool -> m () -importNode_ self importedNode deep - = liftDOM - (void - ((toDocument self) ^. jsf "importNode" - [toJSVal importedNode, toJSVal deep])) - --- | -createElementNS :: - (MonadDOM m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> Maybe namespaceURI -> qualifiedName -> m Element -createElementNS self namespaceURI qualifiedName - = liftDOM - (((toDocument self) ^. jsf "createElementNS" - [toJSVal namespaceURI, toJSVal qualifiedName]) - >>= fromJSValUnchecked) - --- | -createElementNS_ :: - (MonadDOM m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> Maybe namespaceURI -> qualifiedName -> m () -createElementNS_ self namespaceURI qualifiedName - = liftDOM - (void - ((toDocument self) ^. jsf "createElementNS" - [toJSVal namespaceURI, toJSVal qualifiedName])) - --- | -createAttributeNS :: - (MonadDOM m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> Maybe namespaceURI -> qualifiedName -> m Attr -createAttributeNS self namespaceURI qualifiedName - = liftDOM - (((toDocument self) ^. jsf "createAttributeNS" - [toJSVal namespaceURI, toJSVal qualifiedName]) - >>= fromJSValUnchecked) - --- | -createAttributeNS_ :: - (MonadDOM m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> Maybe namespaceURI -> qualifiedName -> m () -createAttributeNS_ self namespaceURI qualifiedName - = liftDOM - (void - ((toDocument self) ^. jsf "createAttributeNS" - [toJSVal namespaceURI, toJSVal qualifiedName])) - --- | -getElementsByTagNameNS :: - (MonadDOM m, IsDocument self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m HTMLCollection -getElementsByTagNameNS self namespaceURI localName - = liftDOM - (((toDocument self) ^. jsf "getElementsByTagNameNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= fromJSValUnchecked) - --- | -getElementsByTagNameNS_ :: - (MonadDOM m, IsDocument self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m () -getElementsByTagNameNS_ self namespaceURI localName - = liftDOM - (void - ((toDocument self) ^. jsf "getElementsByTagNameNS" - [toJSVal namespaceURI, toJSVal localName])) - --- | -adoptNode :: - (MonadDOM m, IsDocument self, IsNode source) => - self -> source -> m Node -adoptNode self source - = liftDOM - (((toDocument self) ^. jsf "adoptNode" [toJSVal source]) >>= - fromJSValUnchecked) - --- | -adoptNode_ :: - (MonadDOM m, IsDocument self, IsNode source) => - self -> source -> m () -adoptNode_ self source - = liftDOM - (void ((toDocument self) ^. jsf "adoptNode" [toJSVal source])) - --- | -createEvent :: - (MonadDOM m, IsDocument self, ToJSString eventType) => - self -> eventType -> m Event -createEvent self eventType - = liftDOM - (((toDocument self) ^. jsf "createEvent" [toJSVal eventType]) >>= - fromJSValUnchecked) - --- | -createEvent_ :: - (MonadDOM m, IsDocument self, ToJSString eventType) => - self -> eventType -> m () -createEvent_ self eventType - = liftDOM - (void ((toDocument self) ^. jsf "createEvent" [toJSVal eventType])) - --- | -createRange :: (MonadDOM m, IsDocument self) => self -> m Range -createRange self - = liftDOM - (((toDocument self) ^. jsf "createRange" ()) >>= - fromJSValUnchecked) - --- | -createRange_ :: (MonadDOM m, IsDocument self) => self -> m () -createRange_ self - = liftDOM (void ((toDocument self) ^. jsf "createRange" ())) - --- | -createNodeIterator :: - (MonadDOM m, IsDocument self, IsNode root) => - self -> root -> Maybe Word -> Maybe NodeFilter -> m NodeIterator -createNodeIterator self root whatToShow filter - = liftDOM - (((toDocument self) ^. jsf "createNodeIterator" - [toJSVal root, toJSVal whatToShow, toJSVal filter]) - >>= fromJSValUnchecked) - --- | -createNodeIterator_ :: - (MonadDOM m, IsDocument self, IsNode root) => - self -> root -> Maybe Word -> Maybe NodeFilter -> m () -createNodeIterator_ self root whatToShow filter - = liftDOM - (void - ((toDocument self) ^. jsf "createNodeIterator" - [toJSVal root, toJSVal whatToShow, toJSVal filter])) - --- | -createTreeWalker :: - (MonadDOM m, IsDocument self, IsNode root) => - self -> root -> Maybe Word -> Maybe NodeFilter -> m TreeWalker -createTreeWalker self root whatToShow filter - = liftDOM - (((toDocument self) ^. jsf "createTreeWalker" - [toJSVal root, toJSVal whatToShow, toJSVal filter]) - >>= fromJSValUnchecked) - --- | -createTreeWalker_ :: - (MonadDOM m, IsDocument self, IsNode root) => - self -> root -> Maybe Word -> Maybe NodeFilter -> m () -createTreeWalker_ self root whatToShow filter - = liftDOM - (void - ((toDocument self) ^. jsf "createTreeWalker" - [toJSVal root, toJSVal whatToShow, toJSVal filter])) - --- | -getOverrideStyle :: - (MonadDOM m, IsDocument self, IsElement element, - ToJSString pseudoElement) => - self -> - Maybe element -> Maybe pseudoElement -> m CSSStyleDeclaration -getOverrideStyle self element pseudoElement - = liftDOM - (((toDocument self) ^. jsf "getOverrideStyle" - [toJSVal element, toJSVal pseudoElement]) - >>= fromJSValUnchecked) - --- | -getOverrideStyle_ :: - (MonadDOM m, IsDocument self, IsElement element, - ToJSString pseudoElement) => - self -> Maybe element -> Maybe pseudoElement -> m () -getOverrideStyle_ self element pseudoElement - = liftDOM - (void - ((toDocument self) ^. jsf "getOverrideStyle" - [toJSVal element, toJSVal pseudoElement])) - --- | -createExpression :: - (MonadDOM m, IsDocument self, ToJSString expression) => - self -> - Maybe expression -> Maybe XPathNSResolver -> m XPathExpression -createExpression self expression resolver - = liftDOM - (((toDocument self) ^. jsf "createExpression" - [toJSVal expression, toJSVal resolver]) - >>= fromJSValUnchecked) - --- | -createExpression_ :: - (MonadDOM m, IsDocument self, ToJSString expression) => - self -> Maybe expression -> Maybe XPathNSResolver -> m () -createExpression_ self expression resolver - = liftDOM - (void - ((toDocument self) ^. jsf "createExpression" - [toJSVal expression, toJSVal resolver])) - --- | -createNSResolver :: - (MonadDOM m, IsDocument self, IsNode nodeResolver) => - self -> Maybe nodeResolver -> m XPathNSResolver -createNSResolver self nodeResolver - = liftDOM - (((toDocument self) ^. jsf "createNSResolver" - [toJSVal nodeResolver]) - >>= fromJSValUnchecked) - --- | -createNSResolver_ :: - (MonadDOM m, IsDocument self, IsNode nodeResolver) => - self -> Maybe nodeResolver -> m () -createNSResolver_ self nodeResolver - = liftDOM - (void - ((toDocument self) ^. jsf "createNSResolver" - [toJSVal nodeResolver])) - --- | -evaluate :: - (MonadDOM m, IsDocument self, ToJSString expression, - IsNode contextNode) => - self -> - Maybe expression -> - Maybe contextNode -> - Maybe XPathNSResolver -> - Maybe Word -> Maybe XPathResult -> m XPathResult -evaluate self expression contextNode resolver type' inResult - = liftDOM - (((toDocument self) ^. jsf "evaluate" - [toJSVal expression, toJSVal contextNode, toJSVal resolver, - toJSVal type', toJSVal inResult]) - >>= fromJSValUnchecked) - --- | -evaluate_ :: - (MonadDOM m, IsDocument self, ToJSString expression, - IsNode contextNode) => - self -> - Maybe expression -> - Maybe contextNode -> - Maybe XPathNSResolver -> Maybe Word -> Maybe XPathResult -> m () -evaluate_ self expression contextNode resolver type' inResult - = liftDOM - (void - ((toDocument self) ^. jsf "evaluate" - [toJSVal expression, toJSVal contextNode, toJSVal resolver, - toJSVal type', toJSVal inResult])) - --- | -execCommand :: - (MonadDOM m, IsDocument self, ToJSString command, - ToJSString value) => - self -> command -> Bool -> Maybe value -> m Bool -execCommand self command userInterface value - = liftDOM - (((toDocument self) ^. jsf "execCommand" - [toJSVal command, toJSVal userInterface, toJSVal value]) - >>= valToBool) - --- | -execCommand_ :: - (MonadDOM m, IsDocument self, ToJSString command, - ToJSString value) => - self -> command -> Bool -> Maybe value -> m () -execCommand_ self command userInterface value - = liftDOM - (void - ((toDocument self) ^. jsf "execCommand" - [toJSVal command, toJSVal userInterface, toJSVal value])) - --- | -queryCommandEnabled :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandEnabled self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandEnabled" [toJSVal command]) - >>= valToBool) - --- | -queryCommandEnabled_ :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m () -queryCommandEnabled_ self command - = liftDOM - (void - ((toDocument self) ^. jsf "queryCommandEnabled" [toJSVal command])) - --- | -queryCommandIndeterm :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandIndeterm self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandIndeterm" - [toJSVal command]) - >>= valToBool) - --- | -queryCommandIndeterm_ :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m () -queryCommandIndeterm_ self command - = liftDOM - (void - ((toDocument self) ^. jsf "queryCommandIndeterm" - [toJSVal command])) - --- | -queryCommandState :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandState self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandState" [toJSVal command]) - >>= valToBool) - --- | -queryCommandState_ :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m () -queryCommandState_ self command - = liftDOM - (void - ((toDocument self) ^. jsf "queryCommandState" [toJSVal command])) - --- | -queryCommandSupported :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandSupported self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandSupported" - [toJSVal command]) - >>= valToBool) - --- | -queryCommandSupported_ :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m () -queryCommandSupported_ self command - = liftDOM - (void - ((toDocument self) ^. jsf "queryCommandSupported" - [toJSVal command])) - --- | -queryCommandValue :: - (MonadDOM m, IsDocument self, ToJSString command, - FromJSString result) => - self -> command -> m result -queryCommandValue self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandValue" [toJSVal command]) - >>= fromJSValUnchecked) - --- | -queryCommandValue_ :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m () -queryCommandValue_ self command - = liftDOM - (void - ((toDocument self) ^. jsf "queryCommandValue" [toJSVal command])) - --- | -getElementsByName :: - (MonadDOM m, IsDocument self, ToJSString elementName) => - self -> elementName -> m NodeList -getElementsByName self elementName - = liftDOM - (((toDocument self) ^. jsf "getElementsByName" - [toJSVal elementName]) - >>= fromJSValUnchecked) - --- | -getElementsByName_ :: - (MonadDOM m, IsDocument self, ToJSString elementName) => - self -> elementName -> m () -getElementsByName_ self elementName - = liftDOM - (void - ((toDocument self) ^. jsf "getElementsByName" - [toJSVal elementName])) - --- | -caretRangeFromPoint :: - (MonadDOM m, IsDocument self) => - self -> Maybe Int -> Maybe Int -> m Range -caretRangeFromPoint self x y - = liftDOM - (((toDocument self) ^. jsf "caretRangeFromPoint" - [toJSVal x, toJSVal y]) - >>= fromJSValUnchecked) - --- | -caretRangeFromPoint_ :: - (MonadDOM m, IsDocument self) => - self -> Maybe Int -> Maybe Int -> m () -caretRangeFromPoint_ self x y - = liftDOM - (void - ((toDocument self) ^. jsf "caretRangeFromPoint" - [toJSVal x, toJSVal y])) - --- | -getSelection :: - (MonadDOM m, IsDocument self) => self -> m Selection -getSelection self - = liftDOM - (((toDocument self) ^. jsf "getSelection" ()) >>= - fromJSValUnchecked) - --- | -getSelection_ :: (MonadDOM m, IsDocument self) => self -> m () -getSelection_ self - = liftDOM (void ((toDocument self) ^. jsf "getSelection" ())) - --- | -getCSSCanvasContext :: - (MonadDOM m, IsDocument self, ToJSString contextId, - ToJSString name) => - self -> contextId -> name -> Int -> Int -> m RenderingContext -getCSSCanvasContext self contextId name width height - = liftDOM - (((toDocument self) ^. jsf "getCSSCanvasContext" - [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height]) - >>= fromJSValUnchecked) - --- | -getCSSCanvasContext_ :: - (MonadDOM m, IsDocument self, ToJSString contextId, - ToJSString name) => - self -> contextId -> name -> Int -> Int -> m () -getCSSCanvasContext_ self contextId name width height - = liftDOM - (void - ((toDocument self) ^. jsf "getCSSCanvasContext" - [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height])) - --- | -getElementsByClassName :: - (MonadDOM m, IsDocument self, ToJSString classNames) => - self -> classNames -> m HTMLCollection -getElementsByClassName self classNames - = liftDOM - (((toDocument self) ^. jsf "getElementsByClassName" - [toJSVal classNames]) - >>= fromJSValUnchecked) - --- | -getElementsByClassName_ :: - (MonadDOM m, IsDocument self, ToJSString classNames) => - self -> classNames -> m () -getElementsByClassName_ self classNames - = liftDOM - (void - ((toDocument self) ^. jsf "getElementsByClassName" - [toJSVal classNames])) - --- | -hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool -hasFocus self - = liftDOM (((toDocument self) ^. jsf "hasFocus" ()) >>= valToBool) - --- | -hasFocus_ :: (MonadDOM m, IsDocument self) => self -> m () -hasFocus_ self - = liftDOM (void ((toDocument self) ^. jsf "hasFocus" ())) - --- | -webkitCancelFullScreen :: - (MonadDOM m, IsDocument self) => self -> m () -webkitCancelFullScreen self - = liftDOM - (void ((toDocument self) ^. jsf "webkitCancelFullScreen" ())) - --- | -webkitExitFullscreen :: - (MonadDOM m, IsDocument self) => self -> m () -webkitExitFullscreen self - = liftDOM - (void ((toDocument self) ^. jsf "webkitExitFullscreen" ())) - --- | -exitPointerLock :: (MonadDOM m, IsDocument self) => self -> m () -exitPointerLock self - = liftDOM (void ((toDocument self) ^. jsf "exitPointerLock" ())) - --- | -webkitGetNamedFlows :: - (MonadDOM m, IsDocument self) => self -> m DOMNamedFlowCollection -webkitGetNamedFlows self - = liftDOM - (((toDocument self) ^. jsf "webkitGetNamedFlows" ()) >>= - fromJSValUnchecked) - --- | -webkitGetNamedFlows_ :: - (MonadDOM m, IsDocument self) => self -> m () -webkitGetNamedFlows_ self - = liftDOM - (void ((toDocument self) ^. jsf "webkitGetNamedFlows" ())) - --- | -createTouch :: - (MonadDOM m, IsDocument self, IsEventTarget target) => - self -> - Maybe Window -> - Maybe target -> - Maybe Int -> - Maybe Int -> - Maybe Int -> - Maybe Int -> - Maybe Int -> - Maybe Int -> Maybe Int -> Maybe Float -> Maybe Float -> m Touch -createTouch self window target identifier pageX pageY screenX - screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce - = liftDOM - (((toDocument self) ^. jsf "createTouch" - [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX, - toJSVal pageY, toJSVal screenX, toJSVal screenY, - toJSVal webkitRadiusX, toJSVal webkitRadiusY, - toJSVal webkitRotationAngle, toJSVal webkitForce]) - >>= fromJSValUnchecked) - --- | -createTouch_ :: - (MonadDOM m, IsDocument self, IsEventTarget target) => - self -> - Maybe Window -> - Maybe target -> - Maybe Int -> - Maybe Int -> - Maybe Int -> - Maybe Int -> - Maybe Int -> - Maybe Int -> Maybe Int -> Maybe Float -> Maybe Float -> m () -createTouch_ self window target identifier pageX pageY screenX - screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce - = liftDOM - (void - ((toDocument self) ^. jsf "createTouch" - [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX, - toJSVal pageY, toJSVal screenX, toJSVal screenY, - toJSVal webkitRadiusX, toJSVal webkitRadiusY, - toJSVal webkitRotationAngle, toJSVal webkitForce])) - --- | -createTouchList :: - (MonadDOM m, IsDocument self) => self -> [Touch] -> m TouchList -createTouchList self touches - = liftDOM - (((toDocument self) ^. jsf "createTouchList" - [toJSVal (array touches)]) - >>= fromJSValUnchecked) - --- | -createTouchList_ :: - (MonadDOM m, IsDocument self) => self -> [Touch] -> m () -createTouchList_ self touches - = liftDOM - (void - ((toDocument self) ^. jsf "createTouchList" - [toJSVal (array touches)])) - --- | -getTimeline :: - (MonadDOM m, IsDocument self) => self -> m DocumentTimeline -getTimeline self - = liftDOM - (((toDocument self) ^. js "timeline") >>= fromJSValUnchecked) - --- | -getDoctype :: - (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType) -getDoctype self - = liftDOM (((toDocument self) ^. js "doctype") >>= fromJSVal) - --- | -getDoctypeUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack) => - self -> m DocumentType -getDoctypeUnsafe self - = liftDOM - ((((toDocument self) ^. js "doctype") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getDoctypeUnchecked :: - (MonadDOM m, IsDocument self) => self -> m DocumentType -getDoctypeUnchecked self - = liftDOM - (((toDocument self) ^. js "doctype") >>= fromJSValUnchecked) - --- | -getImplementation :: - (MonadDOM m, IsDocument self) => self -> m DOMImplementation -getImplementation self - = liftDOM - (((toDocument self) ^. js "implementation") >>= fromJSValUnchecked) - --- | -getDocumentElement :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Element) -getDocumentElement self - = liftDOM - (((toDocument self) ^. js "documentElement") >>= fromJSVal) - --- | -getDocumentElementUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element -getDocumentElementUnsafe self - = liftDOM - ((((toDocument self) ^. js "documentElement") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getDocumentElementUnchecked :: - (MonadDOM m, IsDocument self) => self -> m Element -getDocumentElementUnchecked self - = liftDOM - (((toDocument self) ^. js "documentElement") >>= - fromJSValUnchecked) - --- | -getInputEncoding :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getInputEncoding self - = liftDOM - (((toDocument self) ^. js "inputEncoding") >>= fromJSValUnchecked) - --- | -getXmlEncoding :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getXmlEncoding self - = liftDOM (((toDocument self) ^. js "xmlEncoding") >>= fromJSVal) - --- | -getXmlEncodingUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack, FromJSString result) => - self -> m result -getXmlEncodingUnsafe self - = liftDOM - ((((toDocument self) ^. js "xmlEncoding") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getXmlEncodingUnchecked :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getXmlEncodingUnchecked self - = liftDOM - (((toDocument self) ^. js "xmlEncoding") >>= fromJSValUnchecked) - --- | -setXmlVersion :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setXmlVersion self val - = liftDOM ((toDocument self) ^. jss "xmlVersion" (toJSVal val)) - --- | -getXmlVersion :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getXmlVersion self - = liftDOM (((toDocument self) ^. js "xmlVersion") >>= fromJSVal) - --- | -getXmlVersionUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack, FromJSString result) => - self -> m result -getXmlVersionUnsafe self - = liftDOM - ((((toDocument self) ^. js "xmlVersion") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getXmlVersionUnchecked :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getXmlVersionUnchecked self - = liftDOM - (((toDocument self) ^. js "xmlVersion") >>= fromJSValUnchecked) - --- | -setXmlStandalone :: - (MonadDOM m, IsDocument self) => self -> Bool -> m () -setXmlStandalone self val - = liftDOM ((toDocument self) ^. jss "xmlStandalone" (toJSVal val)) - --- | -getXmlStandalone :: (MonadDOM m, IsDocument self) => self -> m Bool -getXmlStandalone self - = liftDOM (((toDocument self) ^. js "xmlStandalone") >>= valToBool) - --- | -getDocumentURI :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getDocumentURI self - = liftDOM - (((toDocument self) ^. js "documentURI") >>= fromJSValUnchecked) - --- | -getDefaultView :: (MonadDOM m, IsDocument self) => self -> m Window -getDefaultView self - = liftDOM - (((toDocument self) ^. js "defaultView") >>= fromJSValUnchecked) - --- | -getStyleSheets :: - (MonadDOM m, IsDocument self) => self -> m StyleSheetList -getStyleSheets self - = liftDOM - (((toDocument self) ^. js "styleSheets") >>= fromJSValUnchecked) - --- | -getContentType :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getContentType self - = liftDOM - (((toDocument self) ^. js "contentType") >>= fromJSValUnchecked) - --- | -setTitle :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> val -> m () -setTitle self val - = liftDOM ((toDocument self) ^. jss "title" (toJSVal val)) - --- | -getTitle :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getTitle self - = liftDOM - (((toDocument self) ^. js "title") >>= fromJSValUnchecked) - --- | -setDir :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> val -> m () -setDir self val - = liftDOM ((toDocument self) ^. jss "dir" (toJSVal val)) - --- | -getDir :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getDir self - = liftDOM (((toDocument self) ^. js "dir") >>= fromJSValUnchecked) - --- | -setDesignMode :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> val -> m () -setDesignMode self val - = liftDOM ((toDocument self) ^. jss "designMode" (toJSVal val)) - --- | -getDesignMode :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getDesignMode self - = liftDOM - (((toDocument self) ^. js "designMode") >>= fromJSValUnchecked) - --- | -getReferrer :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getReferrer self - = liftDOM - (((toDocument self) ^. js "referrer") >>= fromJSValUnchecked) - --- | -setDomain :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> val -> m () -setDomain self val - = liftDOM ((toDocument self) ^. jss "domain" (toJSVal val)) - --- | -getDomain :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getDomain self - = liftDOM - (((toDocument self) ^. js "domain") >>= fromJSValUnchecked) - --- | -getURL :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getURL self - = liftDOM (((toDocument self) ^. js "URL") >>= fromJSValUnchecked) - --- | -setCookie :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> val -> m () -setCookie self val - = liftDOM ((toDocument self) ^. jss "cookie" (toJSVal val)) - --- | -getCookie :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getCookie self - = liftDOM - (((toDocument self) ^. js "cookie") >>= fromJSValUnchecked) - --- | -setBody :: - (MonadDOM m, IsDocument self, IsHTMLElement val) => - self -> Maybe val -> m () -setBody self val - = liftDOM ((toDocument self) ^. jss "body" (toJSVal val)) - --- | -getBody :: - (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement) -getBody self - = liftDOM (((toDocument self) ^. js "body") >>= fromJSVal) - --- | -getBodyUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack) => - self -> m HTMLElement -getBodyUnsafe self - = liftDOM - ((((toDocument self) ^. js "body") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getBodyUnchecked :: - (MonadDOM m, IsDocument self) => self -> m HTMLElement -getBodyUnchecked self - = liftDOM (((toDocument self) ^. js "body") >>= fromJSValUnchecked) - --- | -getHead :: - (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement) -getHead self - = liftDOM (((toDocument self) ^. js "head") >>= fromJSVal) - --- | -getHeadUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack) => - self -> m HTMLHeadElement -getHeadUnsafe self - = liftDOM - ((((toDocument self) ^. js "head") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getHeadUnchecked :: - (MonadDOM m, IsDocument self) => self -> m HTMLHeadElement -getHeadUnchecked self - = liftDOM (((toDocument self) ^. js "head") >>= fromJSValUnchecked) - --- | -getImages :: - (MonadDOM m, IsDocument self) => self -> m HTMLCollection -getImages self - = liftDOM - (((toDocument self) ^. js "images") >>= fromJSValUnchecked) - --- | -getApplets :: - (MonadDOM m, IsDocument self) => self -> m HTMLCollection -getApplets self - = liftDOM - (((toDocument self) ^. js "applets") >>= fromJSValUnchecked) - --- | -getLinks :: - (MonadDOM m, IsDocument self) => self -> m HTMLCollection -getLinks self - = liftDOM - (((toDocument self) ^. js "links") >>= fromJSValUnchecked) - --- | -getForms :: - (MonadDOM m, IsDocument self) => self -> m HTMLCollection -getForms self - = liftDOM - (((toDocument self) ^. js "forms") >>= fromJSValUnchecked) - --- | -getAnchors :: - (MonadDOM m, IsDocument self) => self -> m HTMLCollection -getAnchors self - = liftDOM - (((toDocument self) ^. js "anchors") >>= fromJSValUnchecked) - --- | -getEmbeds :: - (MonadDOM m, IsDocument self) => self -> m HTMLCollection -getEmbeds self - = liftDOM - (((toDocument self) ^. js "embeds") >>= fromJSValUnchecked) - --- | -getPlugins :: - (MonadDOM m, IsDocument self) => self -> m HTMLCollection -getPlugins self - = liftDOM - (((toDocument self) ^. js "plugins") >>= fromJSValUnchecked) - --- | -getScripts :: - (MonadDOM m, IsDocument self) => self -> m HTMLCollection -getScripts self - = liftDOM - (((toDocument self) ^. js "scripts") >>= fromJSValUnchecked) - --- | -getLastModified :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getLastModified self - = liftDOM - (((toDocument self) ^. js "lastModified") >>= fromJSValUnchecked) - --- | -getLocation :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Location) -getLocation self - = liftDOM (((toDocument self) ^. js "location") >>= fromJSVal) - --- | -getLocationUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack) => self -> m Location -getLocationUnsafe self - = liftDOM - ((((toDocument self) ^. js "location") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getLocationUnchecked :: - (MonadDOM m, IsDocument self) => self -> m Location -getLocationUnchecked self - = liftDOM - (((toDocument self) ^. js "location") >>= fromJSValUnchecked) - --- | -getCharset :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getCharset self - = liftDOM - (((toDocument self) ^. js "charset") >>= fromJSValUnchecked) - --- | -getReadyState :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getReadyState self - = liftDOM - (((toDocument self) ^. js "readyState") >>= fromJSValUnchecked) - --- | -getCharacterSet :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getCharacterSet self - = liftDOM - (((toDocument self) ^. js "characterSet") >>= fromJSValUnchecked) - --- | -getPreferredStylesheetSet :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getPreferredStylesheetSet self - = liftDOM - (((toDocument self) ^. js "preferredStylesheetSet") >>= fromJSVal) - --- | -getPreferredStylesheetSetUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack, FromJSString result) => - self -> m result -getPreferredStylesheetSetUnsafe self - = liftDOM - ((((toDocument self) ^. js "preferredStylesheetSet") >>= fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getPreferredStylesheetSetUnchecked :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getPreferredStylesheetSetUnchecked self - = liftDOM - (((toDocument self) ^. js "preferredStylesheetSet") >>= - fromJSValUnchecked) - --- | -setSelectedStylesheetSet :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setSelectedStylesheetSet self val - = liftDOM - ((toDocument self) ^. jss "selectedStylesheetSet" (toJSVal val)) - --- | -getSelectedStylesheetSet :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getSelectedStylesheetSet self - = liftDOM - (((toDocument self) ^. js "selectedStylesheetSet") >>= fromJSVal) - --- | -getSelectedStylesheetSetUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack, FromJSString result) => - self -> m result -getSelectedStylesheetSetUnsafe self - = liftDOM - ((((toDocument self) ^. js "selectedStylesheetSet") >>= fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getSelectedStylesheetSetUnchecked :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getSelectedStylesheetSetUnchecked self - = liftDOM - (((toDocument self) ^. js "selectedStylesheetSet") >>= - fromJSValUnchecked) - --- | -getCompatMode :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getCompatMode self - = liftDOM - (((toDocument self) ^. js "compatMode") >>= fromJSValUnchecked) - --- | -getWebkitIsFullScreen :: - (MonadDOM m, IsDocument self) => self -> m Bool -getWebkitIsFullScreen self - = liftDOM - (((toDocument self) ^. js "webkitIsFullScreen") >>= valToBool) - --- | -getWebkitFullScreenKeyboardInputAllowed :: - (MonadDOM m, IsDocument self) => self -> m Bool -getWebkitFullScreenKeyboardInputAllowed self - = liftDOM - (((toDocument self) ^. js "webkitFullScreenKeyboardInputAllowed") - >>= valToBool) - --- | -getWebkitCurrentFullScreenElement :: - (MonadDOM m, IsDocument self) => self -> m Element -getWebkitCurrentFullScreenElement self - = liftDOM - (((toDocument self) ^. js "webkitCurrentFullScreenElement") >>= - fromJSValUnchecked) - --- | -getWebkitFullscreenEnabled :: - (MonadDOM m, IsDocument self) => self -> m Bool -getWebkitFullscreenEnabled self - = liftDOM - (((toDocument self) ^. js "webkitFullscreenEnabled") >>= valToBool) - --- | -getWebkitFullscreenElement :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Element) -getWebkitFullscreenElement self - = liftDOM - (((toDocument self) ^. js "webkitFullscreenElement") >>= fromJSVal) - --- | -getWebkitFullscreenElementUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element -getWebkitFullscreenElementUnsafe self - = liftDOM - ((((toDocument self) ^. js "webkitFullscreenElement") >>= - fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getWebkitFullscreenElementUnchecked :: - (MonadDOM m, IsDocument self) => self -> m Element -getWebkitFullscreenElementUnchecked self - = liftDOM - (((toDocument self) ^. js "webkitFullscreenElement") >>= - fromJSValUnchecked) - --- | -getFonts :: (MonadDOM m, IsDocument self) => self -> m FontFaceSet -getFonts self - = liftDOM - (((toDocument self) ^. js "fonts") >>= fromJSValUnchecked) - --- | -getVisibilityState :: - (MonadDOM m, IsDocument self) => self -> m VisibilityState -getVisibilityState self - = liftDOM - (((toDocument self) ^. js "visibilityState") >>= - fromJSValUnchecked) - --- | -getHidden :: (MonadDOM m, IsDocument self) => self -> m Bool -getHidden self - = liftDOM (((toDocument self) ^. js "hidden") >>= valToBool) - --- | -visibilitychange :: - (IsDocument self, IsEventTarget self) => EventName self Event -visibilitychange = unsafeEventName (toJSString "visibilitychange") - --- | -getCurrentScript :: - (MonadDOM m, IsDocument self) => - self -> m (Maybe HTMLScriptElement) -getCurrentScript self - = liftDOM (((toDocument self) ^. js "currentScript") >>= fromJSVal) - --- | -getCurrentScriptUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack) => - self -> m HTMLScriptElement -getCurrentScriptUnsafe self - = liftDOM - ((((toDocument self) ^. js "currentScript") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getCurrentScriptUnchecked :: - (MonadDOM m, IsDocument self) => self -> m HTMLScriptElement -getCurrentScriptUnchecked self - = liftDOM - (((toDocument self) ^. js "currentScript") >>= fromJSValUnchecked) - --- | -getOrigin :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getOrigin self - = liftDOM - (((toDocument self) ^. js "origin") >>= fromJSValUnchecked) - --- | -getScrollingElement :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Element) -getScrollingElement self - = liftDOM - (((toDocument self) ^. js "scrollingElement") >>= fromJSVal) - --- | -getScrollingElementUnsafe :: - (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element -getScrollingElementUnsafe self - = liftDOM - ((((toDocument self) ^. js "scrollingElement") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getScrollingElementUnchecked :: - (MonadDOM m, IsDocument self) => self -> m Element -getScrollingElementUnchecked self - = liftDOM - (((toDocument self) ^. js "scrollingElement") >>= - fromJSValUnchecked) - --- | -beforeCopy :: - (IsDocument self, IsEventTarget self) => - EventName self ClipboardEvent -beforeCopy = unsafeEventName (toJSString "beforecopy") - --- | -beforeCut :: - (IsDocument self, IsEventTarget self) => - EventName self ClipboardEvent -beforeCut = unsafeEventName (toJSString "beforecut") - --- | -beforeinput :: - (IsDocument self, IsEventTarget self) => - EventName self onbeforeinput -beforeinput = unsafeEventName (toJSString "beforeinput") - --- | -beforePaste :: - (IsDocument self, IsEventTarget self) => - EventName self ClipboardEvent -beforePaste = unsafeEventName (toJSString "beforepaste") - --- | -copy :: - (IsDocument self, IsEventTarget self) => - EventName self ClipboardEvent -copy = unsafeEventName (toJSString "copy") - --- | -cut :: - (IsDocument self, IsEventTarget self) => - EventName self ClipboardEvent -cut = unsafeEventName (toJSString "cut") - --- | -paste :: - (IsDocument self, IsEventTarget self) => - EventName self ClipboardEvent -paste = unsafeEventName (toJSString "paste") - --- | -selectStart :: - (IsDocument self, IsEventTarget self) => EventName self Event -selectStart = unsafeEventName (toJSString "selectstart") - --- | -webKitFullscreenChange :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitFullscreenChange - = unsafeEventName (toJSString "webkitfullscreenchange") - --- | -webKitFullscreenError :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitFullscreenError - = unsafeEventName (toJSString "webkitfullscreenerror") - --- | -selectionchange :: - (IsDocument self, IsEventTarget self) => - EventName self onselectionchange -selectionchange = unsafeEventName (toJSString "selectionchange") - --- | -readyStateChange :: - (IsDocument self, IsEventTarget self) => EventName self Event -readyStateChange = unsafeEventName (toJSString "readystatechange") - --- | -pointerlockchange :: - (IsDocument self, IsEventTarget self) => EventName self Event -pointerlockchange - = unsafeEventName (toJSString "pointerlockchange") - --- | -pointerlockerror :: - (IsDocument self, IsEventTarget self) => EventName self Event -pointerlockerror = unsafeEventName (toJSString "pointerlockerror") + (getAnimations, getAnimations_, newDocument, getElementsByTagName, + getElementsByTagName_, getElementsByTagNameNS, + getElementsByTagNameNS_, getElementsByClassName, + getElementsByClassName_, createElement, createElement_, + createElementNS, createElementNS_, createDocumentFragment, + createDocumentFragment_, createTextNode, createTextNode_, + createCDATASection, createCDATASection_, createComment, + createComment_, createProcessingInstruction, + createProcessingInstruction_, importNode, importNode_, adoptNode, + adoptNode_, createAttribute, createAttribute_, createAttributeNS, + createAttributeNS_, createEvent, createEvent_, createRange, + createRange_, createNodeIterator, createNodeIterator_, + createTreeWalker, createTreeWalker_, getElementsByName, + getElementsByName_, hasFocus, hasFocus_, execCommand, execCommand_, + queryCommandEnabled, queryCommandEnabled_, queryCommandIndeterm, + queryCommandIndeterm_, queryCommandState, queryCommandState_, + queryCommandSupported, queryCommandSupported_, queryCommandValue, + queryCommandValue_, getSelection, getSelection_, + getSelectionUnsafe, getSelectionUnchecked, createExpression, + createExpression_, createNSResolver, createNSResolver_, evaluate, + evaluate_, webkitExitFullscreen, webkitCancelFullScreen, + exitPointerLock, getOverrideStyle, getOverrideStyle_, + caretRangeFromPoint, caretRangeFromPoint_, getCSSCanvasContext, + getCSSCanvasContext_, webkitGetNamedFlows, webkitGetNamedFlows_, + createTouch, createTouch_, createTouchList, createTouchList_, + getTimeline, getImplementation, getURL, getDocumentURI, getOrigin, + getCompatMode, getCharacterSet, getCharset, getInputEncoding, + getContentType, getDoctype, getDoctypeUnsafe, getDoctypeUnchecked, + getDocumentElement, getDocumentElementUnsafe, + getDocumentElementUnchecked, getLocation, getLocationUnsafe, + getLocationUnchecked, setDomain, getDomain, getReferrer, setCookie, + getCookie, getLastModified, getReadyState, setTitle, getTitle, + setDir, getDir, setBody, getBody, getBodyUnsafe, getBodyUnchecked, + getHead, getHeadUnsafe, getHeadUnchecked, getImages, getEmbeds, + getPlugins, getLinks, getForms, getScripts, getCurrentScript, + getCurrentScriptUnsafe, getCurrentScriptUnchecked, getDefaultView, + getDefaultViewUnsafe, getDefaultViewUnchecked, setDesignMode, + getDesignMode, readyStateChange, getStyleSheets, + getScrollingElement, getScrollingElementUnsafe, + getScrollingElementUnchecked, getWebkitFullscreenEnabled, + getWebkitFullscreenElement, getWebkitFullscreenElementUnsafe, + getWebkitFullscreenElementUnchecked, getWebkitIsFullScreen, + getWebkitFullScreenKeyboardInputAllowed, + getWebkitCurrentFullScreenElement, webKitFullscreenChange, + webKitFullscreenError, pointerlockchange, pointerlockerror, + getFonts, getHidden, getVisibilityState, visibilitychange, + getApplets, getAnchors, getPreferredStylesheetSet, + getPreferredStylesheetSetUnsafe, + getPreferredStylesheetSetUnchecked, setSelectedStylesheetSet, + getSelectedStylesheetSet, getSelectedStylesheetSetUnsafe, + getSelectedStylesheetSetUnchecked, getXmlEncoding, + getXmlEncodingUnsafe, getXmlEncodingUnchecked, setXmlVersion, + getXmlVersion, getXmlVersionUnsafe, getXmlVersionUnchecked, + setXmlStandalone, getXmlStandalone, selectStart, selectionchange, + getRootElement, getRootElementUnsafe, getRootElementUnchecked, + Document(..), gTypeDocument, IsDocument, toDocument) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getAnimations :: + (MonadDOM m, IsDocument self) => self -> m [Animation] +getAnimations self + = liftDOM + (((toDocument self) ^. jsf "getAnimations" ()) >>= + fromJSArrayUnchecked) + +-- | +getAnimations_ :: (MonadDOM m, IsDocument self) => self -> m () +getAnimations_ self + = liftDOM (void ((toDocument self) ^. jsf "getAnimations" ())) + +-- | +newDocument :: (MonadDOM m) => m Document +newDocument = liftDOM (Document <$> new (jsg "Document") ()) + +-- | +getElementsByTagName :: + (MonadDOM m, IsDocument self, ToJSString qualifiedName) => + self -> qualifiedName -> m HTMLCollection +getElementsByTagName self qualifiedName + = liftDOM + (((toDocument self) ^. jsf "getElementsByTagName" + [toJSVal qualifiedName]) + >>= fromJSValUnchecked) + +-- | +getElementsByTagName_ :: + (MonadDOM m, IsDocument self, ToJSString qualifiedName) => + self -> qualifiedName -> m () +getElementsByTagName_ self qualifiedName + = liftDOM + (void + ((toDocument self) ^. jsf "getElementsByTagName" + [toJSVal qualifiedName])) + +-- | +getElementsByTagNameNS :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m HTMLCollection +getElementsByTagNameNS self namespaceURI localName + = liftDOM + (((toDocument self) ^. jsf "getElementsByTagNameNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) + +-- | +getElementsByTagNameNS_ :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +getElementsByTagNameNS_ self namespaceURI localName + = liftDOM + (void + ((toDocument self) ^. jsf "getElementsByTagNameNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getElementsByClassName :: + (MonadDOM m, IsDocument self, ToJSString classNames) => + self -> classNames -> m HTMLCollection +getElementsByClassName self classNames + = liftDOM + (((toDocument self) ^. jsf "getElementsByClassName" + [toJSVal classNames]) + >>= fromJSValUnchecked) + +-- | +getElementsByClassName_ :: + (MonadDOM m, IsDocument self, ToJSString classNames) => + self -> classNames -> m () +getElementsByClassName_ self classNames + = liftDOM + (void + ((toDocument self) ^. jsf "getElementsByClassName" + [toJSVal classNames])) + +-- | +createElement :: + (MonadDOM m, IsDocument self, ToJSString localName) => + self -> localName -> m Element +createElement self localName + = liftDOM + (((toDocument self) ^. jsf "createElement" [toJSVal localName]) >>= + fromJSValUnchecked) + +-- | +createElement_ :: + (MonadDOM m, IsDocument self, ToJSString localName) => + self -> localName -> m () +createElement_ self localName + = liftDOM + (void + ((toDocument self) ^. jsf "createElement" [toJSVal localName])) + +-- | +createElementNS :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> Maybe namespaceURI -> qualifiedName -> m Element +createElementNS self namespaceURI qualifiedName + = liftDOM + (((toDocument self) ^. jsf "createElementNS" + [toJSVal namespaceURI, toJSVal qualifiedName]) + >>= fromJSValUnchecked) + +-- | +createElementNS_ :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> Maybe namespaceURI -> qualifiedName -> m () +createElementNS_ self namespaceURI qualifiedName + = liftDOM + (void + ((toDocument self) ^. jsf "createElementNS" + [toJSVal namespaceURI, toJSVal qualifiedName])) + +-- | +createDocumentFragment :: + (MonadDOM m, IsDocument self) => self -> m DocumentFragment +createDocumentFragment self + = liftDOM + (((toDocument self) ^. jsf "createDocumentFragment" ()) >>= + fromJSValUnchecked) + +-- | +createDocumentFragment_ :: + (MonadDOM m, IsDocument self) => self -> m () +createDocumentFragment_ self + = liftDOM + (void ((toDocument self) ^. jsf "createDocumentFragment" ())) + +-- | +createTextNode :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m Text +createTextNode self data' + = liftDOM + (((toDocument self) ^. jsf "createTextNode" [toJSVal data']) >>= + fromJSValUnchecked) + +-- | +createTextNode_ :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m () +createTextNode_ self data' + = liftDOM + (void ((toDocument self) ^. jsf "createTextNode" [toJSVal data'])) + +-- | +createCDATASection :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m CDATASection +createCDATASection self data' + = liftDOM + (((toDocument self) ^. jsf "createCDATASection" [toJSVal data']) + >>= fromJSValUnchecked) + +-- | +createCDATASection_ :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m () +createCDATASection_ self data' + = liftDOM + (void + ((toDocument self) ^. jsf "createCDATASection" [toJSVal data'])) + +-- | +createComment :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m Comment +createComment self data' + = liftDOM + (((toDocument self) ^. jsf "createComment" [toJSVal data']) >>= + fromJSValUnchecked) + +-- | +createComment_ :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m () +createComment_ self data' + = liftDOM + (void ((toDocument self) ^. jsf "createComment" [toJSVal data'])) + +-- | +createProcessingInstruction :: + (MonadDOM m, IsDocument self, ToJSString target, + ToJSString data') => + self -> target -> data' -> m ProcessingInstruction +createProcessingInstruction self target data' + = liftDOM + (((toDocument self) ^. jsf "createProcessingInstruction" + [toJSVal target, toJSVal data']) + >>= fromJSValUnchecked) + +-- | +createProcessingInstruction_ :: + (MonadDOM m, IsDocument self, ToJSString target, + ToJSString data') => + self -> target -> data' -> m () +createProcessingInstruction_ self target data' + = liftDOM + (void + ((toDocument self) ^. jsf "createProcessingInstruction" + [toJSVal target, toJSVal data'])) + +-- | +importNode :: + (MonadDOM m, IsDocument self, IsNode node) => + self -> node -> Bool -> m Node +importNode self node deep + = liftDOM + (((toDocument self) ^. jsf "importNode" + [toJSVal node, toJSVal deep]) + >>= fromJSValUnchecked) + +-- | +importNode_ :: + (MonadDOM m, IsDocument self, IsNode node) => + self -> node -> Bool -> m () +importNode_ self node deep + = liftDOM + (void + ((toDocument self) ^. jsf "importNode" + [toJSVal node, toJSVal deep])) + +-- | +adoptNode :: + (MonadDOM m, IsDocument self, IsNode node) => + self -> node -> m Node +adoptNode self node + = liftDOM + (((toDocument self) ^. jsf "adoptNode" [toJSVal node]) >>= + fromJSValUnchecked) + +-- | +adoptNode_ :: + (MonadDOM m, IsDocument self, IsNode node) => self -> node -> m () +adoptNode_ self node + = liftDOM + (void ((toDocument self) ^. jsf "adoptNode" [toJSVal node])) + +-- | +createAttribute :: + (MonadDOM m, IsDocument self, ToJSString localName) => + self -> localName -> m Attr +createAttribute self localName + = liftDOM + (((toDocument self) ^. jsf "createAttribute" [toJSVal localName]) + >>= fromJSValUnchecked) + +-- | +createAttribute_ :: + (MonadDOM m, IsDocument self, ToJSString localName) => + self -> localName -> m () +createAttribute_ self localName + = liftDOM + (void + ((toDocument self) ^. jsf "createAttribute" [toJSVal localName])) + +-- | +createAttributeNS :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> Maybe namespaceURI -> qualifiedName -> m Attr +createAttributeNS self namespaceURI qualifiedName + = liftDOM + (((toDocument self) ^. jsf "createAttributeNS" + [toJSVal namespaceURI, toJSVal qualifiedName]) + >>= fromJSValUnchecked) + +-- | +createAttributeNS_ :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> Maybe namespaceURI -> qualifiedName -> m () +createAttributeNS_ self namespaceURI qualifiedName + = liftDOM + (void + ((toDocument self) ^. jsf "createAttributeNS" + [toJSVal namespaceURI, toJSVal qualifiedName])) + +-- | +createEvent :: + (MonadDOM m, IsDocument self, ToJSString type') => + self -> type' -> m Event +createEvent self type' + = liftDOM + (((toDocument self) ^. jsf "createEvent" [toJSVal type']) >>= + fromJSValUnchecked) + +-- | +createEvent_ :: + (MonadDOM m, IsDocument self, ToJSString type') => + self -> type' -> m () +createEvent_ self type' + = liftDOM + (void ((toDocument self) ^. jsf "createEvent" [toJSVal type'])) + +-- | +createRange :: (MonadDOM m, IsDocument self) => self -> m Range +createRange self + = liftDOM + (((toDocument self) ^. jsf "createRange" ()) >>= + fromJSValUnchecked) + +-- | +createRange_ :: (MonadDOM m, IsDocument self) => self -> m () +createRange_ self + = liftDOM (void ((toDocument self) ^. jsf "createRange" ())) + +-- | +createNodeIterator :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> root -> Maybe Word -> Maybe NodeFilter -> m NodeIterator +createNodeIterator self root whatToShow filter + = liftDOM + (((toDocument self) ^. jsf "createNodeIterator" + [toJSVal root, toJSVal whatToShow, toJSVal filter]) + >>= fromJSValUnchecked) + +-- | +createNodeIterator_ :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> root -> Maybe Word -> Maybe NodeFilter -> m () +createNodeIterator_ self root whatToShow filter + = liftDOM + (void + ((toDocument self) ^. jsf "createNodeIterator" + [toJSVal root, toJSVal whatToShow, toJSVal filter])) + +-- | +createTreeWalker :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> root -> Maybe Word -> Maybe NodeFilter -> m TreeWalker +createTreeWalker self root whatToShow filter + = liftDOM + (((toDocument self) ^. jsf "createTreeWalker" + [toJSVal root, toJSVal whatToShow, toJSVal filter]) + >>= fromJSValUnchecked) + +-- | +createTreeWalker_ :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> root -> Maybe Word -> Maybe NodeFilter -> m () +createTreeWalker_ self root whatToShow filter + = liftDOM + (void + ((toDocument self) ^. jsf "createTreeWalker" + [toJSVal root, toJSVal whatToShow, toJSVal filter])) + +-- | +getElementsByName :: + (MonadDOM m, IsDocument self, ToJSString elementName) => + self -> elementName -> m NodeList +getElementsByName self elementName + = liftDOM + (((toDocument self) ^. jsf "getElementsByName" + [toJSVal elementName]) + >>= fromJSValUnchecked) + +-- | +getElementsByName_ :: + (MonadDOM m, IsDocument self, ToJSString elementName) => + self -> elementName -> m () +getElementsByName_ self elementName + = liftDOM + (void + ((toDocument self) ^. jsf "getElementsByName" + [toJSVal elementName])) + +-- | +hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool +hasFocus self + = liftDOM (((toDocument self) ^. jsf "hasFocus" ()) >>= valToBool) + +-- | +hasFocus_ :: (MonadDOM m, IsDocument self) => self -> m () +hasFocus_ self + = liftDOM (void ((toDocument self) ^. jsf "hasFocus" ())) + +-- | +execCommand :: + (MonadDOM m, IsDocument self, ToJSString commandId, + ToJSString value) => + self -> commandId -> Bool -> Maybe value -> m Bool +execCommand self commandId showUI value + = liftDOM + (((toDocument self) ^. jsf "execCommand" + [toJSVal commandId, toJSVal showUI, toJSVal value]) + >>= valToBool) + +-- | +execCommand_ :: + (MonadDOM m, IsDocument self, ToJSString commandId, + ToJSString value) => + self -> commandId -> Bool -> Maybe value -> m () +execCommand_ self commandId showUI value + = liftDOM + (void + ((toDocument self) ^. jsf "execCommand" + [toJSVal commandId, toJSVal showUI, toJSVal value])) + +-- | +queryCommandEnabled :: + (MonadDOM m, IsDocument self, ToJSString commandId) => + self -> commandId -> m Bool +queryCommandEnabled self commandId + = liftDOM + (((toDocument self) ^. jsf "queryCommandEnabled" + [toJSVal commandId]) + >>= valToBool) + +-- | +queryCommandEnabled_ :: + (MonadDOM m, IsDocument self, ToJSString commandId) => + self -> commandId -> m () +queryCommandEnabled_ self commandId + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandEnabled" + [toJSVal commandId])) + +-- | +queryCommandIndeterm :: + (MonadDOM m, IsDocument self, ToJSString commandId) => + self -> commandId -> m Bool +queryCommandIndeterm self commandId + = liftDOM + (((toDocument self) ^. jsf "queryCommandIndeterm" + [toJSVal commandId]) + >>= valToBool) + +-- | +queryCommandIndeterm_ :: + (MonadDOM m, IsDocument self, ToJSString commandId) => + self -> commandId -> m () +queryCommandIndeterm_ self commandId + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandIndeterm" + [toJSVal commandId])) + +-- | +queryCommandState :: + (MonadDOM m, IsDocument self, ToJSString commandId) => + self -> commandId -> m Bool +queryCommandState self commandId + = liftDOM + (((toDocument self) ^. jsf "queryCommandState" [toJSVal commandId]) + >>= valToBool) + +-- | +queryCommandState_ :: + (MonadDOM m, IsDocument self, ToJSString commandId) => + self -> commandId -> m () +queryCommandState_ self commandId + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandState" [toJSVal commandId])) + +-- | +queryCommandSupported :: + (MonadDOM m, IsDocument self, ToJSString commandId) => + self -> commandId -> m Bool +queryCommandSupported self commandId + = liftDOM + (((toDocument self) ^. jsf "queryCommandSupported" + [toJSVal commandId]) + >>= valToBool) + +-- | +queryCommandSupported_ :: + (MonadDOM m, IsDocument self, ToJSString commandId) => + self -> commandId -> m () +queryCommandSupported_ self commandId + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandSupported" + [toJSVal commandId])) + +-- | +queryCommandValue :: + (MonadDOM m, IsDocument self, ToJSString commandId, + FromJSString result) => + self -> commandId -> m result +queryCommandValue self commandId + = liftDOM + (((toDocument self) ^. jsf "queryCommandValue" [toJSVal commandId]) + >>= fromJSValUnchecked) + +-- | +queryCommandValue_ :: + (MonadDOM m, IsDocument self, ToJSString commandId) => + self -> commandId -> m () +queryCommandValue_ self commandId + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandValue" [toJSVal commandId])) + +-- | +getSelection :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Selection) +getSelection self + = liftDOM + (((toDocument self) ^. jsf "getSelection" ()) >>= fromJSVal) + +-- | +getSelection_ :: (MonadDOM m, IsDocument self) => self -> m () +getSelection_ self + = liftDOM (void ((toDocument self) ^. jsf "getSelection" ())) + +-- | +getSelectionUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => self -> m Selection +getSelectionUnsafe self + = liftDOM + ((((toDocument self) ^. jsf "getSelection" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getSelectionUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Selection +getSelectionUnchecked self + = liftDOM + (((toDocument self) ^. jsf "getSelection" ()) >>= + fromJSValUnchecked) + +-- | +createExpression :: + (MonadDOM m, IsDocument self, ToJSString expression) => + self -> + Maybe expression -> Maybe XPathNSResolver -> m XPathExpression +createExpression self expression resolver + = liftDOM + (((toDocument self) ^. jsf "createExpression" + [toJSVal expression, toJSVal resolver]) + >>= fromJSValUnchecked) + +-- | +createExpression_ :: + (MonadDOM m, IsDocument self, ToJSString expression) => + self -> Maybe expression -> Maybe XPathNSResolver -> m () +createExpression_ self expression resolver + = liftDOM + (void + ((toDocument self) ^. jsf "createExpression" + [toJSVal expression, toJSVal resolver])) + +-- | +createNSResolver :: + (MonadDOM m, IsDocument self, IsNode nodeResolver) => + self -> Maybe nodeResolver -> m XPathNSResolver +createNSResolver self nodeResolver + = liftDOM + (((toDocument self) ^. jsf "createNSResolver" + [toJSVal nodeResolver]) + >>= fromJSValUnchecked) + +-- | +createNSResolver_ :: + (MonadDOM m, IsDocument self, IsNode nodeResolver) => + self -> Maybe nodeResolver -> m () +createNSResolver_ self nodeResolver + = liftDOM + (void + ((toDocument self) ^. jsf "createNSResolver" + [toJSVal nodeResolver])) + +-- | +evaluate :: + (MonadDOM m, IsDocument self, ToJSString expression, + IsNode contextNode) => + self -> + Maybe expression -> + Maybe contextNode -> + Maybe XPathNSResolver -> + Maybe Word -> Maybe XPathResult -> m XPathResult +evaluate self expression contextNode resolver type' inResult + = liftDOM + (((toDocument self) ^. jsf "evaluate" + [toJSVal expression, toJSVal contextNode, toJSVal resolver, + toJSVal type', toJSVal inResult]) + >>= fromJSValUnchecked) + +-- | +evaluate_ :: + (MonadDOM m, IsDocument self, ToJSString expression, + IsNode contextNode) => + self -> + Maybe expression -> + Maybe contextNode -> + Maybe XPathNSResolver -> Maybe Word -> Maybe XPathResult -> m () +evaluate_ self expression contextNode resolver type' inResult + = liftDOM + (void + ((toDocument self) ^. jsf "evaluate" + [toJSVal expression, toJSVal contextNode, toJSVal resolver, + toJSVal type', toJSVal inResult])) + +-- | +webkitExitFullscreen :: + (MonadDOM m, IsDocument self) => self -> m () +webkitExitFullscreen self + = liftDOM + (void ((toDocument self) ^. jsf "webkitExitFullscreen" ())) + +-- | +webkitCancelFullScreen :: + (MonadDOM m, IsDocument self) => self -> m () +webkitCancelFullScreen self + = liftDOM + (void ((toDocument self) ^. jsf "webkitCancelFullScreen" ())) + +-- | +exitPointerLock :: (MonadDOM m, IsDocument self) => self -> m () +exitPointerLock self + = liftDOM (void ((toDocument self) ^. jsf "exitPointerLock" ())) + +-- | +getOverrideStyle :: + (MonadDOM m, IsDocument self, IsElement element, + ToJSString pseudoElement) => + self -> + Maybe element -> Maybe pseudoElement -> m CSSStyleDeclaration +getOverrideStyle self element pseudoElement + = liftDOM + (((toDocument self) ^. jsf "getOverrideStyle" + [toJSVal element, toJSVal pseudoElement]) + >>= fromJSValUnchecked) + +-- | +getOverrideStyle_ :: + (MonadDOM m, IsDocument self, IsElement element, + ToJSString pseudoElement) => + self -> Maybe element -> Maybe pseudoElement -> m () +getOverrideStyle_ self element pseudoElement + = liftDOM + (void + ((toDocument self) ^. jsf "getOverrideStyle" + [toJSVal element, toJSVal pseudoElement])) + +-- | +caretRangeFromPoint :: + (MonadDOM m, IsDocument self) => + self -> Maybe Int -> Maybe Int -> m Range +caretRangeFromPoint self x y + = liftDOM + (((toDocument self) ^. jsf "caretRangeFromPoint" + [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + +-- | +caretRangeFromPoint_ :: + (MonadDOM m, IsDocument self) => + self -> Maybe Int -> Maybe Int -> m () +caretRangeFromPoint_ self x y + = liftDOM + (void + ((toDocument self) ^. jsf "caretRangeFromPoint" + [toJSVal x, toJSVal y])) + +-- | +getCSSCanvasContext :: + (MonadDOM m, IsDocument self, ToJSString contextId, + ToJSString name) => + self -> contextId -> name -> Int -> Int -> m RenderingContext +getCSSCanvasContext self contextId name width height + = liftDOM + (((toDocument self) ^. jsf "getCSSCanvasContext" + [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height]) + >>= fromJSValUnchecked) + +-- | +getCSSCanvasContext_ :: + (MonadDOM m, IsDocument self, ToJSString contextId, + ToJSString name) => + self -> contextId -> name -> Int -> Int -> m () +getCSSCanvasContext_ self contextId name width height + = liftDOM + (void + ((toDocument self) ^. jsf "getCSSCanvasContext" + [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height])) + +-- | +webkitGetNamedFlows :: + (MonadDOM m, IsDocument self) => self -> m DOMNamedFlowCollection +webkitGetNamedFlows self + = liftDOM + (((toDocument self) ^. jsf "webkitGetNamedFlows" ()) >>= + fromJSValUnchecked) + +-- | +webkitGetNamedFlows_ :: + (MonadDOM m, IsDocument self) => self -> m () +webkitGetNamedFlows_ self + = liftDOM + (void ((toDocument self) ^. jsf "webkitGetNamedFlows" ())) + +-- | +createTouch :: + (MonadDOM m, IsDocument self, IsEventTarget target) => + self -> + Maybe Window -> + Maybe target -> + Maybe Int -> + Maybe Int -> + Maybe Int -> + Maybe Int -> + Maybe Int -> + Maybe Int -> Maybe Int -> Maybe Float -> Maybe Float -> m Touch +createTouch self window target identifier pageX pageY screenX + screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce + = liftDOM + (((toDocument self) ^. jsf "createTouch" + [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX, + toJSVal pageY, toJSVal screenX, toJSVal screenY, + toJSVal webkitRadiusX, toJSVal webkitRadiusY, + toJSVal webkitRotationAngle, toJSVal webkitForce]) + >>= fromJSValUnchecked) + +-- | +createTouch_ :: + (MonadDOM m, IsDocument self, IsEventTarget target) => + self -> + Maybe Window -> + Maybe target -> + Maybe Int -> + Maybe Int -> + Maybe Int -> + Maybe Int -> + Maybe Int -> + Maybe Int -> Maybe Int -> Maybe Float -> Maybe Float -> m () +createTouch_ self window target identifier pageX pageY screenX + screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce + = liftDOM + (void + ((toDocument self) ^. jsf "createTouch" + [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX, + toJSVal pageY, toJSVal screenX, toJSVal screenY, + toJSVal webkitRadiusX, toJSVal webkitRadiusY, + toJSVal webkitRotationAngle, toJSVal webkitForce])) + +-- | +createTouchList :: + (MonadDOM m, IsDocument self) => self -> [Touch] -> m TouchList +createTouchList self touches + = liftDOM + (((toDocument self) ^. jsf "createTouchList" + [toJSVal (array touches)]) + >>= fromJSValUnchecked) + +-- | +createTouchList_ :: + (MonadDOM m, IsDocument self) => self -> [Touch] -> m () +createTouchList_ self touches + = liftDOM + (void + ((toDocument self) ^. jsf "createTouchList" + [toJSVal (array touches)])) + +-- | +getTimeline :: + (MonadDOM m, IsDocument self) => self -> m DocumentTimeline +getTimeline self + = liftDOM + (((toDocument self) ^. js "timeline") >>= fromJSValUnchecked) + +-- | +getImplementation :: + (MonadDOM m, IsDocument self) => self -> m DOMImplementation +getImplementation self + = liftDOM + (((toDocument self) ^. js "implementation") >>= fromJSValUnchecked) + +-- | +getURL :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getURL self + = liftDOM (((toDocument self) ^. js "URL") >>= fromJSValUnchecked) + +-- | +getDocumentURI :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getDocumentURI self + = liftDOM + (((toDocument self) ^. js "documentURI") >>= fromJSValUnchecked) + +-- | +getOrigin :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getOrigin self + = liftDOM + (((toDocument self) ^. js "origin") >>= fromJSValUnchecked) + +-- | +getCompatMode :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getCompatMode self + = liftDOM + (((toDocument self) ^. js "compatMode") >>= fromJSValUnchecked) + +-- | +getCharacterSet :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getCharacterSet self + = liftDOM + (((toDocument self) ^. js "characterSet") >>= fromJSValUnchecked) + +-- | +getCharset :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getCharset self + = liftDOM + (((toDocument self) ^. js "charset") >>= fromJSValUnchecked) + +-- | +getInputEncoding :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getInputEncoding self + = liftDOM + (((toDocument self) ^. js "inputEncoding") >>= fromJSValUnchecked) + +-- | +getContentType :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getContentType self + = liftDOM + (((toDocument self) ^. js "contentType") >>= fromJSValUnchecked) + +-- | +getDoctype :: + (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType) +getDoctype self + = liftDOM (((toDocument self) ^. js "doctype") >>= fromJSVal) + +-- | +getDoctypeUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => + self -> m DocumentType +getDoctypeUnsafe self + = liftDOM + ((((toDocument self) ^. js "doctype") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getDoctypeUnchecked :: + (MonadDOM m, IsDocument self) => self -> m DocumentType +getDoctypeUnchecked self + = liftDOM + (((toDocument self) ^. js "doctype") >>= fromJSValUnchecked) + +-- | +getDocumentElement :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getDocumentElement self + = liftDOM + (((toDocument self) ^. js "documentElement") >>= fromJSVal) + +-- | +getDocumentElementUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element +getDocumentElementUnsafe self + = liftDOM + ((((toDocument self) ^. js "documentElement") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getDocumentElementUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Element +getDocumentElementUnchecked self + = liftDOM + (((toDocument self) ^. js "documentElement") >>= + fromJSValUnchecked) + +-- | +getLocation :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Location) +getLocation self + = liftDOM (((toDocument self) ^. js "location") >>= fromJSVal) + +-- | +getLocationUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => self -> m Location +getLocationUnsafe self + = liftDOM + ((((toDocument self) ^. js "location") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getLocationUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Location +getLocationUnchecked self + = liftDOM + (((toDocument self) ^. js "location") >>= fromJSValUnchecked) + +-- | +setDomain :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> val -> m () +setDomain self val + = liftDOM ((toDocument self) ^. jss "domain" (toJSVal val)) + +-- | +getDomain :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getDomain self + = liftDOM + (((toDocument self) ^. js "domain") >>= fromJSValUnchecked) + +-- | +getReferrer :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getReferrer self + = liftDOM + (((toDocument self) ^. js "referrer") >>= fromJSValUnchecked) + +-- | +setCookie :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> val -> m () +setCookie self val + = liftDOM ((toDocument self) ^. jss "cookie" (toJSVal val)) + +-- | +getCookie :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getCookie self + = liftDOM + (((toDocument self) ^. js "cookie") >>= fromJSValUnchecked) + +-- | +getLastModified :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getLastModified self + = liftDOM + (((toDocument self) ^. js "lastModified") >>= fromJSValUnchecked) + +-- | +getReadyState :: + (MonadDOM m, IsDocument self) => self -> m DocumentReadyState +getReadyState self + = liftDOM + (((toDocument self) ^. js "readyState") >>= fromJSValUnchecked) + +-- | +setTitle :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> val -> m () +setTitle self val + = liftDOM ((toDocument self) ^. jss "title" (toJSVal val)) + +-- | +getTitle :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getTitle self + = liftDOM + (((toDocument self) ^. js "title") >>= fromJSValUnchecked) + +-- | +setDir :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> val -> m () +setDir self val + = liftDOM ((toDocument self) ^. jss "dir" (toJSVal val)) + +-- | +getDir :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getDir self + = liftDOM (((toDocument self) ^. js "dir") >>= fromJSValUnchecked) + +-- | +setBody :: + (MonadDOM m, IsDocument self, IsHTMLElement val) => + self -> Maybe val -> m () +setBody self val + = liftDOM ((toDocument self) ^. jss "body" (toJSVal val)) + +-- | +getBody :: + (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement) +getBody self + = liftDOM (((toDocument self) ^. js "body") >>= fromJSVal) + +-- | +getBodyUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => + self -> m HTMLElement +getBodyUnsafe self + = liftDOM + ((((toDocument self) ^. js "body") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getBodyUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLElement +getBodyUnchecked self + = liftDOM (((toDocument self) ^. js "body") >>= fromJSValUnchecked) + +-- | +getHead :: + (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement) +getHead self + = liftDOM (((toDocument self) ^. js "head") >>= fromJSVal) + +-- | +getHeadUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => + self -> m HTMLHeadElement +getHeadUnsafe self + = liftDOM + ((((toDocument self) ^. js "head") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getHeadUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLHeadElement +getHeadUnchecked self + = liftDOM (((toDocument self) ^. js "head") >>= fromJSValUnchecked) + +-- | +getImages :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getImages self + = liftDOM + (((toDocument self) ^. js "images") >>= fromJSValUnchecked) + +-- | +getEmbeds :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getEmbeds self + = liftDOM + (((toDocument self) ^. js "embeds") >>= fromJSValUnchecked) + +-- | +getPlugins :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getPlugins self + = liftDOM + (((toDocument self) ^. js "plugins") >>= fromJSValUnchecked) + +-- | +getLinks :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getLinks self + = liftDOM + (((toDocument self) ^. js "links") >>= fromJSValUnchecked) + +-- | +getForms :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getForms self + = liftDOM + (((toDocument self) ^. js "forms") >>= fromJSValUnchecked) + +-- | +getScripts :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getScripts self + = liftDOM + (((toDocument self) ^. js "scripts") >>= fromJSValUnchecked) + +-- | +getCurrentScript :: + (MonadDOM m, IsDocument self) => + self -> m (Maybe HTMLScriptElement) +getCurrentScript self + = liftDOM (((toDocument self) ^. js "currentScript") >>= fromJSVal) + +-- | +getCurrentScriptUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => + self -> m HTMLScriptElement +getCurrentScriptUnsafe self + = liftDOM + ((((toDocument self) ^. js "currentScript") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getCurrentScriptUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLScriptElement +getCurrentScriptUnchecked self + = liftDOM + (((toDocument self) ^. js "currentScript") >>= fromJSValUnchecked) + +-- | +getDefaultView :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Window) +getDefaultView self + = liftDOM (((toDocument self) ^. js "defaultView") >>= fromJSVal) + +-- | +getDefaultViewUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => self -> m Window +getDefaultViewUnsafe self + = liftDOM + ((((toDocument self) ^. js "defaultView") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getDefaultViewUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Window +getDefaultViewUnchecked self + = liftDOM + (((toDocument self) ^. js "defaultView") >>= fromJSValUnchecked) + +-- | +setDesignMode :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> val -> m () +setDesignMode self val + = liftDOM ((toDocument self) ^. jss "designMode" (toJSVal val)) + +-- | +getDesignMode :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getDesignMode self + = liftDOM + (((toDocument self) ^. js "designMode") >>= fromJSValUnchecked) + +-- | +readyStateChange :: + (IsDocument self, IsEventTarget self) => EventName self Event +readyStateChange = unsafeEventName (toJSString "readystatechange") + +-- | +getStyleSheets :: + (MonadDOM m, IsDocument self) => self -> m StyleSheetList +getStyleSheets self + = liftDOM + (((toDocument self) ^. js "styleSheets") >>= fromJSValUnchecked) + +-- | +getScrollingElement :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getScrollingElement self + = liftDOM + (((toDocument self) ^. js "scrollingElement") >>= fromJSVal) + +-- | +getScrollingElementUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element +getScrollingElementUnsafe self + = liftDOM + ((((toDocument self) ^. js "scrollingElement") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getScrollingElementUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Element +getScrollingElementUnchecked self + = liftDOM + (((toDocument self) ^. js "scrollingElement") >>= + fromJSValUnchecked) + +-- | +getWebkitFullscreenEnabled :: + (MonadDOM m, IsDocument self) => self -> m Bool +getWebkitFullscreenEnabled self + = liftDOM + (((toDocument self) ^. js "webkitFullscreenEnabled") >>= valToBool) + +-- | +getWebkitFullscreenElement :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getWebkitFullscreenElement self + = liftDOM + (((toDocument self) ^. js "webkitFullscreenElement") >>= fromJSVal) + +-- | +getWebkitFullscreenElementUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack) => self -> m Element +getWebkitFullscreenElementUnsafe self + = liftDOM + ((((toDocument self) ^. js "webkitFullscreenElement") >>= + fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getWebkitFullscreenElementUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Element +getWebkitFullscreenElementUnchecked self + = liftDOM + (((toDocument self) ^. js "webkitFullscreenElement") >>= + fromJSValUnchecked) + +-- | +getWebkitIsFullScreen :: + (MonadDOM m, IsDocument self) => self -> m Bool +getWebkitIsFullScreen self + = liftDOM + (((toDocument self) ^. js "webkitIsFullScreen") >>= valToBool) + +-- | +getWebkitFullScreenKeyboardInputAllowed :: + (MonadDOM m, IsDocument self) => self -> m Bool +getWebkitFullScreenKeyboardInputAllowed self + = liftDOM + (((toDocument self) ^. js "webkitFullScreenKeyboardInputAllowed") + >>= valToBool) + +-- | +getWebkitCurrentFullScreenElement :: + (MonadDOM m, IsDocument self) => self -> m Element +getWebkitCurrentFullScreenElement self + = liftDOM + (((toDocument self) ^. js "webkitCurrentFullScreenElement") >>= + fromJSValUnchecked) + +-- | +webKitFullscreenChange :: + (IsDocument self, IsEventTarget self) => EventName self Event +webKitFullscreenChange + = unsafeEventName (toJSString "webkitfullscreenchange") + +-- | +webKitFullscreenError :: + (IsDocument self, IsEventTarget self) => EventName self Event +webKitFullscreenError + = unsafeEventName (toJSString "webkitfullscreenerror") + +-- | +pointerlockchange :: + (IsDocument self, IsEventTarget self) => EventName self Event +pointerlockchange + = unsafeEventName (toJSString "pointerlockchange") + +-- | +pointerlockerror :: + (IsDocument self, IsEventTarget self) => EventName self Event +pointerlockerror = unsafeEventName (toJSString "pointerlockerror") + +-- | +getFonts :: (MonadDOM m, IsDocument self) => self -> m FontFaceSet +getFonts self + = liftDOM + (((toDocument self) ^. js "fonts") >>= fromJSValUnchecked) + +-- | +getHidden :: (MonadDOM m, IsDocument self) => self -> m Bool +getHidden self + = liftDOM (((toDocument self) ^. js "hidden") >>= valToBool) + +-- | +getVisibilityState :: + (MonadDOM m, IsDocument self) => self -> m VisibilityState +getVisibilityState self + = liftDOM + (((toDocument self) ^. js "visibilityState") >>= + fromJSValUnchecked) + +-- | +visibilitychange :: + (IsDocument self, IsEventTarget self) => EventName self Event +visibilitychange = unsafeEventName (toJSString "visibilitychange") + +-- | +getApplets :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getApplets self + = liftDOM + (((toDocument self) ^. js "applets") >>= fromJSValUnchecked) + +-- | +getAnchors :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getAnchors self + = liftDOM + (((toDocument self) ^. js "anchors") >>= fromJSValUnchecked) + +-- | +getPreferredStylesheetSet :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getPreferredStylesheetSet self + = liftDOM + (((toDocument self) ^. js "preferredStylesheetSet") >>= fromJSVal) + +-- | +getPreferredStylesheetSetUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack, FromJSString result) => + self -> m result +getPreferredStylesheetSetUnsafe self + = liftDOM + ((((toDocument self) ^. js "preferredStylesheetSet") >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getPreferredStylesheetSetUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getPreferredStylesheetSetUnchecked self + = liftDOM + (((toDocument self) ^. js "preferredStylesheetSet") >>= + fromJSValUnchecked) + +-- | +setSelectedStylesheetSet :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> Maybe val -> m () +setSelectedStylesheetSet self val + = liftDOM + ((toDocument self) ^. jss "selectedStylesheetSet" (toJSVal val)) + +-- | +getSelectedStylesheetSet :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getSelectedStylesheetSet self + = liftDOM + (((toDocument self) ^. js "selectedStylesheetSet") >>= fromJSVal) + +-- | +getSelectedStylesheetSetUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack, FromJSString result) => + self -> m result +getSelectedStylesheetSetUnsafe self + = liftDOM + ((((toDocument self) ^. js "selectedStylesheetSet") >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getSelectedStylesheetSetUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getSelectedStylesheetSetUnchecked self + = liftDOM + (((toDocument self) ^. js "selectedStylesheetSet") >>= + fromJSValUnchecked) + +-- | +getXmlEncoding :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getXmlEncoding self + = liftDOM (((toDocument self) ^. js "xmlEncoding") >>= fromJSVal) + +-- | +getXmlEncodingUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack, FromJSString result) => + self -> m result +getXmlEncodingUnsafe self + = liftDOM + ((((toDocument self) ^. js "xmlEncoding") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getXmlEncodingUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getXmlEncodingUnchecked self + = liftDOM + (((toDocument self) ^. js "xmlEncoding") >>= fromJSValUnchecked) + +-- | +setXmlVersion :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> Maybe val -> m () +setXmlVersion self val + = liftDOM ((toDocument self) ^. jss "xmlVersion" (toJSVal val)) + +-- | +getXmlVersion :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getXmlVersion self + = liftDOM (((toDocument self) ^. js "xmlVersion") >>= fromJSVal) + +-- | +getXmlVersionUnsafe :: + (MonadDOM m, IsDocument self, HasCallStack, FromJSString result) => + self -> m result +getXmlVersionUnsafe self + = liftDOM + ((((toDocument self) ^. js "xmlVersion") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getXmlVersionUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getXmlVersionUnchecked self + = liftDOM + (((toDocument self) ^. js "xmlVersion") >>= fromJSValUnchecked) + +-- | +setXmlStandalone :: + (MonadDOM m, IsDocument self) => self -> Bool -> m () +setXmlStandalone self val + = liftDOM ((toDocument self) ^. jss "xmlStandalone" (toJSVal val)) + +-- | +getXmlStandalone :: (MonadDOM m, IsDocument self) => self -> m Bool +getXmlStandalone self + = liftDOM (((toDocument self) ^. js "xmlStandalone") >>= valToBool) + +-- | +selectStart :: + (IsDocument self, IsEventTarget self) => EventName self Event +selectStart = unsafeEventName (toJSString "selectstart") + +-- | +selectionchange :: + (IsDocument self, IsEventTarget self) => + EventName self onselectionchange +selectionchange = unsafeEventName (toJSString "selectionchange") -- | getRootElement :: diff --git a/src/JSDOM/Generated/DocumentAndElementEventHandlers.hs b/src/JSDOM/Generated/DocumentAndElementEventHandlers.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/DocumentAndElementEventHandlers.hs @@ -0,0 +1,66 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.DocumentAndElementEventHandlers + (copy, cut, paste, beforeCopy, beforeCut, beforeinput, beforePaste, + DocumentAndElementEventHandlers(..), + gTypeDocumentAndElementEventHandlers, + IsDocumentAndElementEventHandlers, + toDocumentAndElementEventHandlers) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +copy :: + (IsDocumentAndElementEventHandlers self, IsEventTarget self) => + EventName self ClipboardEvent +copy = unsafeEventName (toJSString "copy") + +-- | +cut :: + (IsDocumentAndElementEventHandlers self, IsEventTarget self) => + EventName self ClipboardEvent +cut = unsafeEventName (toJSString "cut") + +-- | +paste :: + (IsDocumentAndElementEventHandlers self, IsEventTarget self) => + EventName self ClipboardEvent +paste = unsafeEventName (toJSString "paste") + +-- | +beforeCopy :: + (IsDocumentAndElementEventHandlers self, IsEventTarget self) => + EventName self ClipboardEvent +beforeCopy = unsafeEventName (toJSString "beforecopy") + +-- | +beforeCut :: + (IsDocumentAndElementEventHandlers self, IsEventTarget self) => + EventName self ClipboardEvent +beforeCut = unsafeEventName (toJSString "beforecut") + +-- | +beforeinput :: + (IsDocumentAndElementEventHandlers self, IsEventTarget self) => + EventName self onbeforeinput +beforeinput = unsafeEventName (toJSString "beforeinput") + +-- | +beforePaste :: + (IsDocumentAndElementEventHandlers self, IsEventTarget self) => + EventName self ClipboardEvent +beforePaste = unsafeEventName (toJSString "beforepaste") diff --git a/src/JSDOM/Generated/DocumentFragment.hs b/src/JSDOM/Generated/DocumentFragment.hs --- a/src/JSDOM/Generated/DocumentFragment.hs +++ b/src/JSDOM/Generated/DocumentFragment.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DocumentOrShadowRoot.hs b/src/JSDOM/Generated/DocumentOrShadowRoot.hs --- a/src/JSDOM/Generated/DocumentOrShadowRoot.hs +++ b/src/JSDOM/Generated/DocumentOrShadowRoot.hs @@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DocumentTimeline.hs b/src/JSDOM/Generated/DocumentTimeline.hs --- a/src/JSDOM/Generated/DocumentTimeline.hs +++ b/src/JSDOM/Generated/DocumentTimeline.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DocumentType.hs b/src/JSDOM/Generated/DocumentType.hs --- a/src/JSDOM/Generated/DocumentType.hs +++ b/src/JSDOM/Generated/DocumentType.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/DynamicsCompressorNode.hs b/src/JSDOM/Generated/DynamicsCompressorNode.hs --- a/src/JSDOM/Generated/DynamicsCompressorNode.hs +++ b/src/JSDOM/Generated/DynamicsCompressorNode.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/EXTBlendMinMax.hs b/src/JSDOM/Generated/EXTBlendMinMax.hs --- a/src/JSDOM/Generated/EXTBlendMinMax.hs +++ b/src/JSDOM/Generated/EXTBlendMinMax.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/EXTTextureFilterAnisotropic.hs b/src/JSDOM/Generated/EXTTextureFilterAnisotropic.hs --- a/src/JSDOM/Generated/EXTTextureFilterAnisotropic.hs +++ b/src/JSDOM/Generated/EXTTextureFilterAnisotropic.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/EXTsRGB.hs b/src/JSDOM/Generated/EXTsRGB.hs --- a/src/JSDOM/Generated/EXTsRGB.hs +++ b/src/JSDOM/Generated/EXTsRGB.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Element.hs b/src/JSDOM/Generated/Element.hs --- a/src/JSDOM/Generated/Element.hs +++ b/src/JSDOM/Generated/Element.hs @@ -3,1203 +3,1059 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Element - (getAttribute, getAttribute_, getAttributeUnsafe, - getAttributeUnchecked, setAttribute, removeAttribute, - getAttributeNode, getAttributeNode_, getAttributeNodeUnsafe, - getAttributeNodeUnchecked, setAttributeNode, setAttributeNode_, - setAttributeNodeUnsafe, setAttributeNodeUnchecked, - removeAttributeNode, removeAttributeNode_, getElementsByTagName, - getElementsByTagName_, hasAttributes, hasAttributes_, - getAttributeNS, getAttributeNS_, getAttributeNSUnsafe, - getAttributeNSUnchecked, setAttributeNS, removeAttributeNS, - getElementsByTagNameNS, getElementsByTagNameNS_, - getAttributeNodeNS, getAttributeNodeNS_, getAttributeNodeNSUnsafe, - getAttributeNodeNSUnchecked, setAttributeNodeNS, - setAttributeNodeNS_, setAttributeNodeNSUnsafe, - setAttributeNodeNSUnchecked, hasAttribute, hasAttribute_, - hasAttributeNS, hasAttributeNS_, scrollIntoView, - scrollIntoViewIfNeeded, scrollOpt, scroll, scrollToOpt, scrollTo, - scrollByOpt, scrollBy, scrollByLines, scrollByPages, - getAttributeNames, getAttributeNames_, getElementsByClassName, - getElementsByClassName_, matches, matches_, closest, closest_, - closestUnsafe, closestUnchecked, webkitMatchesSelector, - webkitMatchesSelector_, getClientRects, getClientRects_, - getBoundingClientRect, getBoundingClientRect_, - webkitRequestFullScreen, webkitRequestFullscreen, - insertAdjacentElement, insertAdjacentElement_, - insertAdjacentElementUnsafe, insertAdjacentElementUnchecked, - insertAdjacentHTML, insertAdjacentText, requestPointerLock, - webkitGetRegionFlowRanges, webkitGetRegionFlowRanges_, - attachShadow, attachShadow_, getTagName, getTagNameUnsafe, - getTagNameUnchecked, getAttributes, getStyle, setId, getId, - getNamespaceURI, getNamespaceURIUnsafe, getNamespaceURIUnchecked, - getPrefix, getPrefixUnsafe, getPrefixUnchecked, getLocalName, - getOffsetLeft, getOffsetTop, getOffsetWidth, getOffsetHeight, - getClientLeft, getClientTop, getClientWidth, getClientHeight, - setScrollLeft, getScrollLeft, setScrollTop, getScrollTop, - getScrollWidth, getScrollHeight, getOffsetParent, setInnerHTML, - getInnerHTML, getInnerHTMLUnsafe, getInnerHTMLUnchecked, - setOuterHTML, getOuterHTML, getOuterHTMLUnsafe, - getOuterHTMLUnchecked, setClassName, getClassName, getClassList, - getWebkitRegionOverset, getShadowRoot, setSlot, getSlot, - beforeCopy, beforeCut, beforeinput, beforePaste, copy, cut, paste, - selectStart, webKitFullscreenChange, webKitFullscreenError, - animationEnd, animationIteration, animationStart, transitionEnd, - webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart, - webKitTransitionEnd, gestureChange, gestureEnd, gestureStart, - focusin, focusout, beforeload, webKitNeedKey, - webKitPresentationModeChanged, - webKitCurrentPlaybackTargetIsWirelessChanged, - webKitPlaybackTargetAvailabilityChanged, Element(..), gTypeElement, - IsElement, toElement) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import JSDOM.Types -import Control.Applicative ((<$>)) -import Control.Monad (void) -import Control.Lens.Operators ((^.)) -import JSDOM.EventTargetClosures (EventName, unsafeEventName) -import JSDOM.Enums - --- | -getAttribute :: - (MonadDOM m, IsElement self, ToJSString name, - FromJSString result) => - self -> name -> m (Maybe result) -getAttribute self name - = liftDOM - (((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>= - fromJSVal) - --- | -getAttribute_ :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m () -getAttribute_ self name - = liftDOM - (void ((toElement self) ^. jsf "getAttribute" [toJSVal name])) - --- | -getAttributeUnsafe :: - (MonadDOM m, IsElement self, ToJSString name, HasCallStack, - FromJSString result) => - self -> name -> m result -getAttributeUnsafe self name - = liftDOM - ((((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>= - fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getAttributeUnchecked :: - (MonadDOM m, IsElement self, ToJSString name, - FromJSString result) => - self -> name -> m result -getAttributeUnchecked self name - = liftDOM - (((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>= - fromJSValUnchecked) - --- | -setAttribute :: - (MonadDOM m, IsElement self, ToJSString name, ToJSString value) => - self -> name -> value -> m () -setAttribute self name value - = liftDOM - (void - ((toElement self) ^. jsf "setAttribute" - [toJSVal name, toJSVal value])) - --- | -removeAttribute :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m () -removeAttribute self name - = liftDOM - (void ((toElement self) ^. jsf "removeAttribute" [toJSVal name])) - --- | -getAttributeNode :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m (Maybe Attr) -getAttributeNode self name - = liftDOM - (((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>= - fromJSVal) - --- | -getAttributeNode_ :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m () -getAttributeNode_ self name - = liftDOM - (void ((toElement self) ^. jsf "getAttributeNode" [toJSVal name])) - --- | -getAttributeNodeUnsafe :: - (MonadDOM m, IsElement self, ToJSString name, HasCallStack) => - self -> name -> m Attr -getAttributeNodeUnsafe self name - = liftDOM - ((((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>= - fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getAttributeNodeUnchecked :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m Attr -getAttributeNodeUnchecked self name - = liftDOM - (((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>= - fromJSValUnchecked) - --- | -setAttributeNode :: - (MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr) -setAttributeNode self newAttr - = liftDOM - (((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>= - fromJSVal) - --- | -setAttributeNode_ :: - (MonadDOM m, IsElement self) => self -> Attr -> m () -setAttributeNode_ self newAttr - = liftDOM - (void - ((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr])) - --- | -setAttributeNodeUnsafe :: - (MonadDOM m, IsElement self, HasCallStack) => - self -> Attr -> m Attr -setAttributeNodeUnsafe self newAttr - = liftDOM - ((((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) - >>= fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -setAttributeNodeUnchecked :: - (MonadDOM m, IsElement self) => self -> Attr -> m Attr -setAttributeNodeUnchecked self newAttr - = liftDOM - (((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>= - fromJSValUnchecked) - --- | -removeAttributeNode :: - (MonadDOM m, IsElement self) => self -> Attr -> m Attr -removeAttributeNode self oldAttr - = liftDOM - (((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr]) - >>= fromJSValUnchecked) - --- | -removeAttributeNode_ :: - (MonadDOM m, IsElement self) => self -> Attr -> m () -removeAttributeNode_ self oldAttr - = liftDOM - (void - ((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr])) - --- | -getElementsByTagName :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m HTMLCollection -getElementsByTagName self name - = liftDOM - (((toElement self) ^. jsf "getElementsByTagName" [toJSVal name]) - >>= fromJSValUnchecked) - --- | -getElementsByTagName_ :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m () -getElementsByTagName_ self name - = liftDOM - (void - ((toElement self) ^. jsf "getElementsByTagName" [toJSVal name])) - --- | -hasAttributes :: (MonadDOM m, IsElement self) => self -> m Bool -hasAttributes self - = liftDOM - (((toElement self) ^. jsf "hasAttributes" ()) >>= valToBool) - --- | -hasAttributes_ :: (MonadDOM m, IsElement self) => self -> m () -hasAttributes_ self - = liftDOM (void ((toElement self) ^. jsf "hasAttributes" ())) - --- | -getAttributeNS :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName, FromJSString result) => - self -> Maybe namespaceURI -> localName -> m (Maybe result) -getAttributeNS self namespaceURI localName - = liftDOM - (((toElement self) ^. jsf "getAttributeNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= fromJSVal) - --- | -getAttributeNS_ :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m () -getAttributeNS_ self namespaceURI localName - = liftDOM - (void - ((toElement self) ^. jsf "getAttributeNS" - [toJSVal namespaceURI, toJSVal localName])) - --- | -getAttributeNSUnsafe :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName, HasCallStack, FromJSString result) => - self -> Maybe namespaceURI -> localName -> m result -getAttributeNSUnsafe self namespaceURI localName - = liftDOM - ((((toElement self) ^. jsf "getAttributeNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getAttributeNSUnchecked :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName, FromJSString result) => - self -> Maybe namespaceURI -> localName -> m result -getAttributeNSUnchecked self namespaceURI localName - = liftDOM - (((toElement self) ^. jsf "getAttributeNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= fromJSValUnchecked) - --- | -setAttributeNS :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString qualifiedName, ToJSString value) => - self -> Maybe namespaceURI -> qualifiedName -> value -> m () -setAttributeNS self namespaceURI qualifiedName value - = liftDOM - (void - ((toElement self) ^. jsf "setAttributeNS" - [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal value])) - --- | -removeAttributeNS :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m () -removeAttributeNS self namespaceURI localName - = liftDOM - (void - ((toElement self) ^. jsf "removeAttributeNS" - [toJSVal namespaceURI, toJSVal localName])) - --- | -getElementsByTagNameNS :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m HTMLCollection -getElementsByTagNameNS self namespaceURI localName - = liftDOM - (((toElement self) ^. jsf "getElementsByTagNameNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= fromJSValUnchecked) - --- | -getElementsByTagNameNS_ :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m () -getElementsByTagNameNS_ self namespaceURI localName - = liftDOM - (void - ((toElement self) ^. jsf "getElementsByTagNameNS" - [toJSVal namespaceURI, toJSVal localName])) - --- | -getAttributeNodeNS :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m (Maybe Attr) -getAttributeNodeNS self namespaceURI localName - = liftDOM - (((toElement self) ^. jsf "getAttributeNodeNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= fromJSVal) - --- | -getAttributeNodeNS_ :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m () -getAttributeNodeNS_ self namespaceURI localName - = liftDOM - (void - ((toElement self) ^. jsf "getAttributeNodeNS" - [toJSVal namespaceURI, toJSVal localName])) - --- | -getAttributeNodeNSUnsafe :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName, HasCallStack) => - self -> Maybe namespaceURI -> localName -> m Attr -getAttributeNodeNSUnsafe self namespaceURI localName - = liftDOM - ((((toElement self) ^. jsf "getAttributeNodeNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getAttributeNodeNSUnchecked :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m Attr -getAttributeNodeNSUnchecked self namespaceURI localName - = liftDOM - (((toElement self) ^. jsf "getAttributeNodeNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= fromJSValUnchecked) - --- | -setAttributeNodeNS :: - (MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr) -setAttributeNodeNS self newAttr - = liftDOM - (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr]) - >>= fromJSVal) - --- | -setAttributeNodeNS_ :: - (MonadDOM m, IsElement self) => self -> Attr -> m () -setAttributeNodeNS_ self newAttr - = liftDOM - (void - ((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr])) - --- | -setAttributeNodeNSUnsafe :: - (MonadDOM m, IsElement self, HasCallStack) => - self -> Attr -> m Attr -setAttributeNodeNSUnsafe self newAttr - = liftDOM - ((((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr]) - >>= fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -setAttributeNodeNSUnchecked :: - (MonadDOM m, IsElement self) => self -> Attr -> m Attr -setAttributeNodeNSUnchecked self newAttr - = liftDOM - (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr]) - >>= fromJSValUnchecked) - --- | -hasAttribute :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m Bool -hasAttribute self name - = liftDOM - (((toElement self) ^. jsf "hasAttribute" [toJSVal name]) >>= - valToBool) - --- | -hasAttribute_ :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m () -hasAttribute_ self name - = liftDOM - (void ((toElement self) ^. jsf "hasAttribute" [toJSVal name])) - --- | -hasAttributeNS :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m Bool -hasAttributeNS self namespaceURI localName - = liftDOM - (((toElement self) ^. jsf "hasAttributeNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= valToBool) - --- | -hasAttributeNS_ :: - (MonadDOM m, IsElement self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m () -hasAttributeNS_ self namespaceURI localName - = liftDOM - (void - ((toElement self) ^. jsf "hasAttributeNS" - [toJSVal namespaceURI, toJSVal localName])) - --- | -scrollIntoView :: - (MonadDOM m, IsElement self) => self -> Bool -> m () -scrollIntoView self alignWithTop - = liftDOM - (void - ((toElement self) ^. jsf "scrollIntoView" [toJSVal alignWithTop])) - --- | -scrollIntoViewIfNeeded :: - (MonadDOM m, IsElement self) => self -> Bool -> m () -scrollIntoViewIfNeeded self centerIfNeeded - = liftDOM - (void - ((toElement self) ^. jsf "scrollIntoViewIfNeeded" - [toJSVal centerIfNeeded])) - --- | -scrollOpt :: - (MonadDOM m, IsElement self) => - self -> Maybe ScrollToOptions -> m () -scrollOpt self options - = liftDOM - (void ((toElement self) ^. jsf "scroll" [toJSVal options])) - --- | -scroll :: - (MonadDOM m, IsElement self) => self -> Double -> Double -> m () -scroll self x y - = liftDOM - (void ((toElement self) ^. jsf "scroll" [toJSVal x, toJSVal y])) - --- | -scrollToOpt :: - (MonadDOM m, IsElement self) => - self -> Maybe ScrollToOptions -> m () -scrollToOpt self options - = liftDOM - (void ((toElement self) ^. jsf "scrollTo" [toJSVal options])) - --- | -scrollTo :: - (MonadDOM m, IsElement self) => self -> Double -> Double -> m () -scrollTo self x y - = liftDOM - (void ((toElement self) ^. jsf "scrollTo" [toJSVal x, toJSVal y])) - --- | -scrollByOpt :: - (MonadDOM m, IsElement self) => - self -> Maybe ScrollToOptions -> m () -scrollByOpt self option - = liftDOM - (void ((toElement self) ^. jsf "scrollBy" [toJSVal option])) - --- | -scrollBy :: - (MonadDOM m, IsElement self) => self -> Double -> Double -> m () -scrollBy self x y - = liftDOM - (void ((toElement self) ^. jsf "scrollBy" [toJSVal x, toJSVal y])) - --- | -scrollByLines :: - (MonadDOM m, IsElement self) => self -> Maybe Int -> m () -scrollByLines self lines - = liftDOM - (void ((toElement self) ^. jsf "scrollByLines" [toJSVal lines])) - --- | -scrollByPages :: - (MonadDOM m, IsElement self) => self -> Maybe Int -> m () -scrollByPages self pages - = liftDOM - (void ((toElement self) ^. jsf "scrollByPages" [toJSVal pages])) - --- | -getAttributeNames :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m [result] -getAttributeNames self - = liftDOM - (((toElement self) ^. jsf "getAttributeNames" ()) >>= - fromJSArrayUnchecked) - --- | -getAttributeNames_ :: (MonadDOM m, IsElement self) => self -> m () -getAttributeNames_ self - = liftDOM (void ((toElement self) ^. jsf "getAttributeNames" ())) - --- | -getElementsByClassName :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m HTMLCollection -getElementsByClassName self name - = liftDOM - (((toElement self) ^. jsf "getElementsByClassName" [toJSVal name]) - >>= fromJSValUnchecked) - --- | -getElementsByClassName_ :: - (MonadDOM m, IsElement self, ToJSString name) => - self -> name -> m () -getElementsByClassName_ self name - = liftDOM - (void - ((toElement self) ^. jsf "getElementsByClassName" [toJSVal name])) - --- | -matches :: - (MonadDOM m, IsElement self, ToJSString selectors) => - self -> selectors -> m Bool -matches self selectors - = liftDOM - (((toElement self) ^. jsf "matches" [toJSVal selectors]) >>= - valToBool) - --- | -matches_ :: - (MonadDOM m, IsElement self, ToJSString selectors) => - self -> selectors -> m () -matches_ self selectors - = liftDOM - (void ((toElement self) ^. jsf "matches" [toJSVal selectors])) - --- | -closest :: - (MonadDOM m, IsElement self, ToJSString selectors) => - self -> selectors -> m (Maybe Element) -closest self selectors - = liftDOM - (((toElement self) ^. jsf "closest" [toJSVal selectors]) >>= - fromJSVal) - --- | -closest_ :: - (MonadDOM m, IsElement self, ToJSString selectors) => - self -> selectors -> m () -closest_ self selectors - = liftDOM - (void ((toElement self) ^. jsf "closest" [toJSVal selectors])) - --- | -closestUnsafe :: - (MonadDOM m, IsElement self, ToJSString selectors, HasCallStack) => - self -> selectors -> m Element -closestUnsafe self selectors - = liftDOM - ((((toElement self) ^. jsf "closest" [toJSVal selectors]) >>= - fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -closestUnchecked :: - (MonadDOM m, IsElement self, ToJSString selectors) => - self -> selectors -> m Element -closestUnchecked self selectors - = liftDOM - (((toElement self) ^. jsf "closest" [toJSVal selectors]) >>= - fromJSValUnchecked) - --- | -webkitMatchesSelector :: - (MonadDOM m, IsElement self, ToJSString selectors) => - self -> selectors -> m Bool -webkitMatchesSelector self selectors - = liftDOM - (((toElement self) ^. jsf "webkitMatchesSelector" - [toJSVal selectors]) - >>= valToBool) - --- | -webkitMatchesSelector_ :: - (MonadDOM m, IsElement self, ToJSString selectors) => - self -> selectors -> m () -webkitMatchesSelector_ self selectors - = liftDOM - (void - ((toElement self) ^. jsf "webkitMatchesSelector" - [toJSVal selectors])) - --- | -getClientRects :: - (MonadDOM m, IsElement self) => self -> m ClientRectList -getClientRects self - = liftDOM - (((toElement self) ^. jsf "getClientRects" ()) >>= - fromJSValUnchecked) - --- | -getClientRects_ :: (MonadDOM m, IsElement self) => self -> m () -getClientRects_ self - = liftDOM (void ((toElement self) ^. jsf "getClientRects" ())) - --- | -getBoundingClientRect :: - (MonadDOM m, IsElement self) => self -> m ClientRect -getBoundingClientRect self - = liftDOM - (((toElement self) ^. jsf "getBoundingClientRect" ()) >>= - fromJSValUnchecked) - --- | -getBoundingClientRect_ :: - (MonadDOM m, IsElement self) => self -> m () -getBoundingClientRect_ self - = liftDOM - (void ((toElement self) ^. jsf "getBoundingClientRect" ())) - --- | -webkitRequestFullScreen :: - (MonadDOM m, IsElement self) => self -> m () -webkitRequestFullScreen self - = liftDOM - (void ((toElement self) ^. jsf "webkitRequestFullScreen" ())) - --- | -webkitRequestFullscreen :: - (MonadDOM m, IsElement self) => self -> m () -webkitRequestFullscreen self - = liftDOM - (void ((toElement self) ^. jsf "webkitRequestFullscreen" ())) - --- | -insertAdjacentElement :: - (MonadDOM m, IsElement self, ToJSString where', - IsElement element) => - self -> where' -> element -> m (Maybe Element) -insertAdjacentElement self where' element - = liftDOM - (((toElement self) ^. jsf "insertAdjacentElement" - [toJSVal where', toJSVal element]) - >>= fromJSVal) - --- | -insertAdjacentElement_ :: - (MonadDOM m, IsElement self, ToJSString where', - IsElement element) => - self -> where' -> element -> m () -insertAdjacentElement_ self where' element - = liftDOM - (void - ((toElement self) ^. jsf "insertAdjacentElement" - [toJSVal where', toJSVal element])) - --- | -insertAdjacentElementUnsafe :: - (MonadDOM m, IsElement self, ToJSString where', IsElement element, - HasCallStack) => - self -> where' -> element -> m Element -insertAdjacentElementUnsafe self where' element - = liftDOM - ((((toElement self) ^. jsf "insertAdjacentElement" - [toJSVal where', toJSVal element]) - >>= fromJSVal) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -insertAdjacentElementUnchecked :: - (MonadDOM m, IsElement self, ToJSString where', - IsElement element) => - self -> where' -> element -> m Element -insertAdjacentElementUnchecked self where' element - = liftDOM - (((toElement self) ^. jsf "insertAdjacentElement" - [toJSVal where', toJSVal element]) - >>= fromJSValUnchecked) - --- | -insertAdjacentHTML :: - (MonadDOM m, IsElement self, ToJSString where', ToJSString html) => - self -> where' -> html -> m () -insertAdjacentHTML self where' html - = liftDOM - (void - ((toElement self) ^. jsf "insertAdjacentHTML" - [toJSVal where', toJSVal html])) - --- | -insertAdjacentText :: - (MonadDOM m, IsElement self, ToJSString where', ToJSString text) => - self -> where' -> text -> m () -insertAdjacentText self where' text - = liftDOM - (void - ((toElement self) ^. jsf "insertAdjacentText" - [toJSVal where', toJSVal text])) - --- | -requestPointerLock :: (MonadDOM m, IsElement self) => self -> m () -requestPointerLock self - = liftDOM (void ((toElement self) ^. jsf "requestPointerLock" ())) - --- | -webkitGetRegionFlowRanges :: - (MonadDOM m, IsElement self) => self -> m [Range] -webkitGetRegionFlowRanges self - = liftDOM - (((toElement self) ^. jsf "webkitGetRegionFlowRanges" ()) >>= - fromJSArrayUnchecked) - --- | -webkitGetRegionFlowRanges_ :: - (MonadDOM m, IsElement self) => self -> m () -webkitGetRegionFlowRanges_ self - = liftDOM - (void ((toElement self) ^. jsf "webkitGetRegionFlowRanges" ())) - --- | -attachShadow :: - (MonadDOM m, IsElement self) => - self -> ShadowRootInit -> m ShadowRoot -attachShadow self init - = liftDOM - (((toElement self) ^. jsf "attachShadow" [toJSVal init]) >>= - fromJSValUnchecked) - --- | -attachShadow_ :: - (MonadDOM m, IsElement self) => self -> ShadowRootInit -> m () -attachShadow_ self init - = liftDOM - (void ((toElement self) ^. jsf "attachShadow" [toJSVal init])) - --- | -getTagName :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m (Maybe result) -getTagName self - = liftDOM (((toElement self) ^. js "tagName") >>= fromJSVal) - --- | -getTagNameUnsafe :: - (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => - self -> m result -getTagNameUnsafe self - = liftDOM - ((((toElement self) ^. js "tagName") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getTagNameUnchecked :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getTagNameUnchecked self - = liftDOM - (((toElement self) ^. js "tagName") >>= fromJSValUnchecked) - --- | -getAttributes :: - (MonadDOM m, IsElement self) => self -> m NamedNodeMap -getAttributes self - = liftDOM - (((toElement self) ^. js "attributes") >>= fromJSValUnchecked) - --- | -getStyle :: - (MonadDOM m, IsElement self) => self -> m CSSStyleDeclaration -getStyle self - = liftDOM (((toElement self) ^. js "style") >>= fromJSValUnchecked) - --- | -setId :: - (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () -setId self val - = liftDOM ((toElement self) ^. jss "id" (toJSVal val)) - --- | -getId :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getId self - = liftDOM (((toElement self) ^. js "id") >>= fromJSValUnchecked) - --- | -getNamespaceURI :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m (Maybe result) -getNamespaceURI self - = liftDOM (((toElement self) ^. js "namespaceURI") >>= fromJSVal) - --- | -getNamespaceURIUnsafe :: - (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => - self -> m result -getNamespaceURIUnsafe self - = liftDOM - ((((toElement self) ^. js "namespaceURI") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getNamespaceURIUnchecked :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getNamespaceURIUnchecked self - = liftDOM - (((toElement self) ^. js "namespaceURI") >>= fromJSValUnchecked) - --- | -getPrefix :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m (Maybe result) -getPrefix self - = liftDOM (((toElement self) ^. js "prefix") >>= fromJSVal) - --- | -getPrefixUnsafe :: - (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => - self -> m result -getPrefixUnsafe self - = liftDOM - ((((toElement self) ^. js "prefix") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getPrefixUnchecked :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getPrefixUnchecked self - = liftDOM - (((toElement self) ^. js "prefix") >>= fromJSValUnchecked) - --- | -getLocalName :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getLocalName self - = liftDOM - (((toElement self) ^. js "localName") >>= fromJSValUnchecked) - --- | -getOffsetLeft :: (MonadDOM m, IsElement self) => self -> m Double -getOffsetLeft self - = liftDOM (((toElement self) ^. js "offsetLeft") >>= valToNumber) - --- | -getOffsetTop :: (MonadDOM m, IsElement self) => self -> m Double -getOffsetTop self - = liftDOM (((toElement self) ^. js "offsetTop") >>= valToNumber) - --- | -getOffsetWidth :: (MonadDOM m, IsElement self) => self -> m Double -getOffsetWidth self - = liftDOM (((toElement self) ^. js "offsetWidth") >>= valToNumber) - --- | -getOffsetHeight :: (MonadDOM m, IsElement self) => self -> m Double -getOffsetHeight self - = liftDOM (((toElement self) ^. js "offsetHeight") >>= valToNumber) - --- | -getClientLeft :: (MonadDOM m, IsElement self) => self -> m Double -getClientLeft self - = liftDOM (((toElement self) ^. js "clientLeft") >>= valToNumber) - --- | -getClientTop :: (MonadDOM m, IsElement self) => self -> m Double -getClientTop self - = liftDOM (((toElement self) ^. js "clientTop") >>= valToNumber) - --- | -getClientWidth :: (MonadDOM m, IsElement self) => self -> m Double -getClientWidth self - = liftDOM (((toElement self) ^. js "clientWidth") >>= valToNumber) - --- | -getClientHeight :: (MonadDOM m, IsElement self) => self -> m Double -getClientHeight self - = liftDOM (((toElement self) ^. js "clientHeight") >>= valToNumber) - --- | -setScrollLeft :: - (MonadDOM m, IsElement self) => self -> Int -> m () -setScrollLeft self val - = liftDOM ((toElement self) ^. jss "scrollLeft" (toJSVal val)) - --- | -getScrollLeft :: (MonadDOM m, IsElement self) => self -> m Int -getScrollLeft self - = liftDOM - (round <$> (((toElement self) ^. js "scrollLeft") >>= valToNumber)) - --- | -setScrollTop :: (MonadDOM m, IsElement self) => self -> Int -> m () -setScrollTop self val - = liftDOM ((toElement self) ^. jss "scrollTop" (toJSVal val)) - --- | -getScrollTop :: (MonadDOM m, IsElement self) => self -> m Int -getScrollTop self - = liftDOM - (round <$> (((toElement self) ^. js "scrollTop") >>= valToNumber)) - --- | -getScrollWidth :: (MonadDOM m, IsElement self) => self -> m Int -getScrollWidth self - = liftDOM - (round <$> - (((toElement self) ^. js "scrollWidth") >>= valToNumber)) - --- | -getScrollHeight :: (MonadDOM m, IsElement self) => self -> m Int -getScrollHeight self - = liftDOM - (round <$> - (((toElement self) ^. js "scrollHeight") >>= valToNumber)) - --- | -getOffsetParent :: - (MonadDOM m, IsElement self) => self -> m Element -getOffsetParent self - = liftDOM - (((toElement self) ^. js "offsetParent") >>= fromJSValUnchecked) - --- | -setInnerHTML :: - (MonadDOM m, IsElement self, ToJSString val) => - self -> Maybe val -> m () -setInnerHTML self val - = liftDOM ((toElement self) ^. jss "innerHTML" (toJSVal val)) - --- | -getInnerHTML :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m (Maybe result) -getInnerHTML self - = liftDOM - (((toElement self) ^. js "innerHTML") >>= fromMaybeJSString) - --- | -getInnerHTMLUnsafe :: - (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => - self -> m result -getInnerHTMLUnsafe self - = liftDOM - ((((toElement self) ^. js "innerHTML") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getInnerHTMLUnchecked :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getInnerHTMLUnchecked self - = liftDOM - (((toElement self) ^. js "innerHTML") >>= fromJSValUnchecked) - --- | -setOuterHTML :: - (MonadDOM m, IsElement self, ToJSString val) => - self -> Maybe val -> m () -setOuterHTML self val - = liftDOM ((toElement self) ^. jss "outerHTML" (toJSVal val)) - --- | -getOuterHTML :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m (Maybe result) -getOuterHTML self - = liftDOM - (((toElement self) ^. js "outerHTML") >>= fromMaybeJSString) - --- | -getOuterHTMLUnsafe :: - (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => - self -> m result -getOuterHTMLUnsafe self - = liftDOM - ((((toElement self) ^. js "outerHTML") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getOuterHTMLUnchecked :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getOuterHTMLUnchecked self - = liftDOM - (((toElement self) ^. js "outerHTML") >>= fromJSValUnchecked) - --- | -setClassName :: - (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () -setClassName self val - = liftDOM ((toElement self) ^. jss "className" (toJSVal val)) - --- | -getClassName :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getClassName self - = liftDOM - (((toElement self) ^. js "className") >>= fromJSValUnchecked) - --- | -getClassList :: - (MonadDOM m, IsElement self) => self -> m DOMTokenList -getClassList self - = liftDOM - (((toElement self) ^. js "classList") >>= fromJSValUnchecked) - --- | -getWebkitRegionOverset :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getWebkitRegionOverset self - = liftDOM - (((toElement self) ^. js "webkitRegionOverset") >>= - fromJSValUnchecked) - --- | -getShadowRoot :: - (MonadDOM m, IsElement self) => self -> m ShadowRoot -getShadowRoot self - = liftDOM - (((toElement self) ^. js "shadowRoot") >>= fromJSValUnchecked) - --- | -setSlot :: - (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () -setSlot self val - = liftDOM ((toElement self) ^. jss "slot" (toJSVal val)) - --- | -getSlot :: - (MonadDOM m, IsElement self, FromJSString result) => - self -> m result -getSlot self - = liftDOM (((toElement self) ^. js "slot") >>= fromJSValUnchecked) - --- | -beforeCopy :: - (IsElement self, IsEventTarget self) => - EventName self ClipboardEvent -beforeCopy = unsafeEventName (toJSString "beforecopy") - --- | -beforeCut :: - (IsElement self, IsEventTarget self) => - EventName self ClipboardEvent -beforeCut = unsafeEventName (toJSString "beforecut") - --- | -beforeinput :: - (IsElement self, IsEventTarget self) => - EventName self onbeforeinput -beforeinput = unsafeEventName (toJSString "beforeinput") - --- | -beforePaste :: - (IsElement self, IsEventTarget self) => - EventName self ClipboardEvent -beforePaste = unsafeEventName (toJSString "beforepaste") - --- | -copy :: - (IsElement self, IsEventTarget self) => - EventName self ClipboardEvent -copy = unsafeEventName (toJSString "copy") - --- | -cut :: - (IsElement self, IsEventTarget self) => - EventName self ClipboardEvent -cut = unsafeEventName (toJSString "cut") - --- | -paste :: - (IsElement self, IsEventTarget self) => - EventName self ClipboardEvent -paste = unsafeEventName (toJSString "paste") - --- | -selectStart :: - (IsElement self, IsEventTarget self) => EventName self Event -selectStart = unsafeEventName (toJSString "selectstart") - --- | -webKitFullscreenChange :: - (IsElement self, IsEventTarget self) => EventName self Event -webKitFullscreenChange - = unsafeEventName (toJSString "webkitfullscreenchange") - --- | -webKitFullscreenError :: - (IsElement self, IsEventTarget self) => EventName self Event -webKitFullscreenError - = unsafeEventName (toJSString "webkitfullscreenerror") - --- | -animationEnd :: - (IsElement self, IsEventTarget self) => - EventName self AnimationEvent -animationEnd = unsafeEventName (toJSString "animationend") - --- | -animationIteration :: - (IsElement self, IsEventTarget self) => - EventName self AnimationEvent -animationIteration - = unsafeEventName (toJSString "animationiteration") - --- | -animationStart :: - (IsElement self, IsEventTarget self) => - EventName self AnimationEvent -animationStart = unsafeEventName (toJSString "animationstart") - --- | -transitionEnd :: - (IsElement self, IsEventTarget self) => - EventName self TransitionEvent -transitionEnd = unsafeEventName (toJSString "transitionend") - --- | -webKitAnimationEnd :: - (IsElement self, IsEventTarget self) => - EventName self AnimationEvent -webKitAnimationEnd - = unsafeEventName (toJSString "webkitanimationend") - --- | -webKitAnimationIteration :: - (IsElement self, IsEventTarget self) => - EventName self AnimationEvent -webKitAnimationIteration - = unsafeEventName (toJSString "webkitanimationiteration") - --- | -webKitAnimationStart :: - (IsElement self, IsEventTarget self) => - EventName self AnimationEvent -webKitAnimationStart - = unsafeEventName (toJSString "webkitanimationstart") - --- | -webKitTransitionEnd :: - (IsElement self, IsEventTarget self) => - EventName self TransitionEvent -webKitTransitionEnd - = unsafeEventName (toJSString "webkittransitionend") - --- | -gestureChange :: - (IsElement self, IsEventTarget self) => EventName self UIEvent -gestureChange = unsafeEventName (toJSString "gesturechange") - --- | -gestureEnd :: - (IsElement self, IsEventTarget self) => EventName self UIEvent -gestureEnd = unsafeEventName (toJSString "gestureend") - --- | -gestureStart :: - (IsElement self, IsEventTarget self) => EventName self UIEvent -gestureStart = unsafeEventName (toJSString "gesturestart") + (hasAttributes, hasAttributes_, getAttributeNames, + getAttributeNames_, getAttribute, getAttribute_, + getAttributeUnsafe, getAttributeUnchecked, getAttributeNS, + getAttributeNS_, getAttributeNSUnsafe, getAttributeNSUnchecked, + setAttribute, setAttributeNS, removeAttribute, removeAttributeNS, + hasAttribute, hasAttribute_, hasAttributeNS, hasAttributeNS_, + getAttributeNode, getAttributeNode_, getAttributeNodeUnsafe, + getAttributeNodeUnchecked, getAttributeNodeNS, getAttributeNodeNS_, + getAttributeNodeNSUnsafe, getAttributeNodeNSUnchecked, + setAttributeNode, setAttributeNode_, setAttributeNodeUnsafe, + setAttributeNodeUnchecked, setAttributeNodeNS, setAttributeNodeNS_, + setAttributeNodeNSUnsafe, setAttributeNodeNSUnchecked, + removeAttributeNode, removeAttributeNode_, attachShadow, + attachShadow_, closest, closest_, closestUnsafe, closestUnchecked, + matches, matches_, webkitMatchesSelector, webkitMatchesSelector_, + getElementsByTagName, getElementsByTagName_, + getElementsByTagNameNS, getElementsByTagNameNS_, + getElementsByClassName, getElementsByClassName_, + insertAdjacentElement, insertAdjacentElement_, + insertAdjacentElementUnsafe, insertAdjacentElementUnchecked, + insertAdjacentText, getClientRects, getClientRects_, + getBoundingClientRect, getBoundingClientRect_, scrollIntoView, + scrollOpt, scroll, scrollToOpt, scrollTo, scrollByOpt, scrollBy, + insertAdjacentHTML, webkitRequestFullScreen, + webkitRequestFullscreen, requestPointerLock, + webkitGetRegionFlowRanges, webkitGetRegionFlowRanges_, + scrollIntoViewIfNeeded, getNamespaceURI, getNamespaceURIUnsafe, + getNamespaceURIUnchecked, getPrefix, getPrefixUnsafe, + getPrefixUnchecked, getLocalName, getTagName, setId, getId, + setClassName, getClassName, getClassList, setSlot, getSlot, + getAttributes, getShadowRoot, getShadowRootUnsafe, + getShadowRootUnchecked, setScrollTop, getScrollTop, setScrollLeft, + getScrollLeft, getScrollWidth, getScrollHeight, getClientTop, + getClientLeft, getClientWidth, getClientHeight, setInnerHTML, + getInnerHTML, setOuterHTML, getOuterHTML, getWebkitRegionOverset, + selectStart, gestureChange, gestureEnd, gestureStart, + webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart, + webKitTransitionEnd, webKitFullscreenChange, webKitFullscreenError, + focusin, focusout, beforeload, webKitNeedKey, + webKitPresentationModeChanged, + webKitCurrentPlaybackTargetIsWirelessChanged, + webKitPlaybackTargetAvailabilityChanged, Element(..), gTypeElement, + IsElement, toElement) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +hasAttributes :: (MonadDOM m, IsElement self) => self -> m Bool +hasAttributes self + = liftDOM + (((toElement self) ^. jsf "hasAttributes" ()) >>= valToBool) + +-- | +hasAttributes_ :: (MonadDOM m, IsElement self) => self -> m () +hasAttributes_ self + = liftDOM (void ((toElement self) ^. jsf "hasAttributes" ())) + +-- | +getAttributeNames :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m [result] +getAttributeNames self + = liftDOM + (((toElement self) ^. jsf "getAttributeNames" ()) >>= + fromJSArrayUnchecked) + +-- | +getAttributeNames_ :: (MonadDOM m, IsElement self) => self -> m () +getAttributeNames_ self + = liftDOM (void ((toElement self) ^. jsf "getAttributeNames" ())) + +-- | +getAttribute :: + (MonadDOM m, IsElement self, ToJSString qualifiedName, + FromJSString result) => + self -> qualifiedName -> m (Maybe result) +getAttribute self qualifiedName + = liftDOM + (((toElement self) ^. jsf "getAttribute" [toJSVal qualifiedName]) + >>= fromJSVal) + +-- | +getAttribute_ :: + (MonadDOM m, IsElement self, ToJSString qualifiedName) => + self -> qualifiedName -> m () +getAttribute_ self qualifiedName + = liftDOM + (void + ((toElement self) ^. jsf "getAttribute" [toJSVal qualifiedName])) + +-- | +getAttributeUnsafe :: + (MonadDOM m, IsElement self, ToJSString qualifiedName, + HasCallStack, FromJSString result) => + self -> qualifiedName -> m result +getAttributeUnsafe self qualifiedName + = liftDOM + ((((toElement self) ^. jsf "getAttribute" [toJSVal qualifiedName]) + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getAttributeUnchecked :: + (MonadDOM m, IsElement self, ToJSString qualifiedName, + FromJSString result) => + self -> qualifiedName -> m result +getAttributeUnchecked self qualifiedName + = liftDOM + (((toElement self) ^. jsf "getAttribute" [toJSVal qualifiedName]) + >>= fromJSValUnchecked) + +-- | +getAttributeNS :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName, FromJSString result) => + self -> Maybe namespaceURI -> localName -> m (Maybe result) +getAttributeNS self namespaceURI localName + = liftDOM + (((toElement self) ^. jsf "getAttributeNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSVal) + +-- | +getAttributeNS_ :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +getAttributeNS_ self namespaceURI localName + = liftDOM + (void + ((toElement self) ^. jsf "getAttributeNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getAttributeNSUnsafe :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName, HasCallStack, FromJSString result) => + self -> Maybe namespaceURI -> localName -> m result +getAttributeNSUnsafe self namespaceURI localName + = liftDOM + ((((toElement self) ^. jsf "getAttributeNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getAttributeNSUnchecked :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName, FromJSString result) => + self -> Maybe namespaceURI -> localName -> m result +getAttributeNSUnchecked self namespaceURI localName + = liftDOM + (((toElement self) ^. jsf "getAttributeNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) + +-- | +setAttribute :: + (MonadDOM m, IsElement self, ToJSString qualifiedName, + ToJSString value) => + self -> qualifiedName -> value -> m () +setAttribute self qualifiedName value + = liftDOM + (void + ((toElement self) ^. jsf "setAttribute" + [toJSVal qualifiedName, toJSVal value])) + +-- | +setAttributeNS :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString qualifiedName, ToJSString value) => + self -> Maybe namespaceURI -> qualifiedName -> value -> m () +setAttributeNS self namespaceURI qualifiedName value + = liftDOM + (void + ((toElement self) ^. jsf "setAttributeNS" + [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal value])) + +-- | +removeAttribute :: + (MonadDOM m, IsElement self, ToJSString qualifiedName) => + self -> qualifiedName -> m () +removeAttribute self qualifiedName + = liftDOM + (void + ((toElement self) ^. jsf "removeAttribute" + [toJSVal qualifiedName])) + +-- | +removeAttributeNS :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +removeAttributeNS self namespaceURI localName + = liftDOM + (void + ((toElement self) ^. jsf "removeAttributeNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +hasAttribute :: + (MonadDOM m, IsElement self, ToJSString qualifiedName) => + self -> qualifiedName -> m Bool +hasAttribute self qualifiedName + = liftDOM + (((toElement self) ^. jsf "hasAttribute" [toJSVal qualifiedName]) + >>= valToBool) + +-- | +hasAttribute_ :: + (MonadDOM m, IsElement self, ToJSString qualifiedName) => + self -> qualifiedName -> m () +hasAttribute_ self qualifiedName + = liftDOM + (void + ((toElement self) ^. jsf "hasAttribute" [toJSVal qualifiedName])) + +-- | +hasAttributeNS :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m Bool +hasAttributeNS self namespaceURI localName + = liftDOM + (((toElement self) ^. jsf "hasAttributeNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= valToBool) + +-- | +hasAttributeNS_ :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +hasAttributeNS_ self namespaceURI localName + = liftDOM + (void + ((toElement self) ^. jsf "hasAttributeNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getAttributeNode :: + (MonadDOM m, IsElement self, ToJSString qualifiedName) => + self -> qualifiedName -> m (Maybe Attr) +getAttributeNode self qualifiedName + = liftDOM + (((toElement self) ^. jsf "getAttributeNode" + [toJSVal qualifiedName]) + >>= fromJSVal) + +-- | +getAttributeNode_ :: + (MonadDOM m, IsElement self, ToJSString qualifiedName) => + self -> qualifiedName -> m () +getAttributeNode_ self qualifiedName + = liftDOM + (void + ((toElement self) ^. jsf "getAttributeNode" + [toJSVal qualifiedName])) + +-- | +getAttributeNodeUnsafe :: + (MonadDOM m, IsElement self, ToJSString qualifiedName, + HasCallStack) => + self -> qualifiedName -> m Attr +getAttributeNodeUnsafe self qualifiedName + = liftDOM + ((((toElement self) ^. jsf "getAttributeNode" + [toJSVal qualifiedName]) + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getAttributeNodeUnchecked :: + (MonadDOM m, IsElement self, ToJSString qualifiedName) => + self -> qualifiedName -> m Attr +getAttributeNodeUnchecked self qualifiedName + = liftDOM + (((toElement self) ^. jsf "getAttributeNode" + [toJSVal qualifiedName]) + >>= fromJSValUnchecked) + +-- | +getAttributeNodeNS :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m (Maybe Attr) +getAttributeNodeNS self namespaceURI localName + = liftDOM + (((toElement self) ^. jsf "getAttributeNodeNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSVal) + +-- | +getAttributeNodeNS_ :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +getAttributeNodeNS_ self namespaceURI localName + = liftDOM + (void + ((toElement self) ^. jsf "getAttributeNodeNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getAttributeNodeNSUnsafe :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName, HasCallStack) => + self -> Maybe namespaceURI -> localName -> m Attr +getAttributeNodeNSUnsafe self namespaceURI localName + = liftDOM + ((((toElement self) ^. jsf "getAttributeNodeNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getAttributeNodeNSUnchecked :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m Attr +getAttributeNodeNSUnchecked self namespaceURI localName + = liftDOM + (((toElement self) ^. jsf "getAttributeNodeNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) + +-- | +setAttributeNode :: + (MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr) +setAttributeNode self attr + = liftDOM + (((toElement self) ^. jsf "setAttributeNode" [toJSVal attr]) >>= + fromJSVal) + +-- | +setAttributeNode_ :: + (MonadDOM m, IsElement self) => self -> Attr -> m () +setAttributeNode_ self attr + = liftDOM + (void ((toElement self) ^. jsf "setAttributeNode" [toJSVal attr])) + +-- | +setAttributeNodeUnsafe :: + (MonadDOM m, IsElement self, HasCallStack) => + self -> Attr -> m Attr +setAttributeNodeUnsafe self attr + = liftDOM + ((((toElement self) ^. jsf "setAttributeNode" [toJSVal attr]) >>= + fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +setAttributeNodeUnchecked :: + (MonadDOM m, IsElement self) => self -> Attr -> m Attr +setAttributeNodeUnchecked self attr + = liftDOM + (((toElement self) ^. jsf "setAttributeNode" [toJSVal attr]) >>= + fromJSValUnchecked) + +-- | +setAttributeNodeNS :: + (MonadDOM m, IsElement self) => self -> Attr -> m (Maybe Attr) +setAttributeNodeNS self attr + = liftDOM + (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal attr]) >>= + fromJSVal) + +-- | +setAttributeNodeNS_ :: + (MonadDOM m, IsElement self) => self -> Attr -> m () +setAttributeNodeNS_ self attr + = liftDOM + (void + ((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal attr])) + +-- | +setAttributeNodeNSUnsafe :: + (MonadDOM m, IsElement self, HasCallStack) => + self -> Attr -> m Attr +setAttributeNodeNSUnsafe self attr + = liftDOM + ((((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal attr]) >>= + fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +setAttributeNodeNSUnchecked :: + (MonadDOM m, IsElement self) => self -> Attr -> m Attr +setAttributeNodeNSUnchecked self attr + = liftDOM + (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal attr]) >>= + fromJSValUnchecked) + +-- | +removeAttributeNode :: + (MonadDOM m, IsElement self) => self -> Attr -> m Attr +removeAttributeNode self attr + = liftDOM + (((toElement self) ^. jsf "removeAttributeNode" [toJSVal attr]) >>= + fromJSValUnchecked) + +-- | +removeAttributeNode_ :: + (MonadDOM m, IsElement self) => self -> Attr -> m () +removeAttributeNode_ self attr + = liftDOM + (void + ((toElement self) ^. jsf "removeAttributeNode" [toJSVal attr])) + +-- | +attachShadow :: + (MonadDOM m, IsElement self) => + self -> ShadowRootInit -> m ShadowRoot +attachShadow self init + = liftDOM + (((toElement self) ^. jsf "attachShadow" [toJSVal init]) >>= + fromJSValUnchecked) + +-- | +attachShadow_ :: + (MonadDOM m, IsElement self) => self -> ShadowRootInit -> m () +attachShadow_ self init + = liftDOM + (void ((toElement self) ^. jsf "attachShadow" [toJSVal init])) + +-- | +closest :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m (Maybe Element) +closest self selectors + = liftDOM + (((toElement self) ^. jsf "closest" [toJSVal selectors]) >>= + fromJSVal) + +-- | +closest_ :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +closest_ self selectors + = liftDOM + (void ((toElement self) ^. jsf "closest" [toJSVal selectors])) + +-- | +closestUnsafe :: + (MonadDOM m, IsElement self, ToJSString selectors, HasCallStack) => + self -> selectors -> m Element +closestUnsafe self selectors + = liftDOM + ((((toElement self) ^. jsf "closest" [toJSVal selectors]) >>= + fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +closestUnchecked :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m Element +closestUnchecked self selectors + = liftDOM + (((toElement self) ^. jsf "closest" [toJSVal selectors]) >>= + fromJSValUnchecked) + +-- | +matches :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m Bool +matches self selectors + = liftDOM + (((toElement self) ^. jsf "matches" [toJSVal selectors]) >>= + valToBool) + +-- | +matches_ :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +matches_ self selectors + = liftDOM + (void ((toElement self) ^. jsf "matches" [toJSVal selectors])) + +-- | +webkitMatchesSelector :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m Bool +webkitMatchesSelector self selectors + = liftDOM + (((toElement self) ^. jsf "webkitMatchesSelector" + [toJSVal selectors]) + >>= valToBool) + +-- | +webkitMatchesSelector_ :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +webkitMatchesSelector_ self selectors + = liftDOM + (void + ((toElement self) ^. jsf "webkitMatchesSelector" + [toJSVal selectors])) + +-- | +getElementsByTagName :: + (MonadDOM m, IsElement self, ToJSString qualifiedName) => + self -> qualifiedName -> m HTMLCollection +getElementsByTagName self qualifiedName + = liftDOM + (((toElement self) ^. jsf "getElementsByTagName" + [toJSVal qualifiedName]) + >>= fromJSValUnchecked) + +-- | +getElementsByTagName_ :: + (MonadDOM m, IsElement self, ToJSString qualifiedName) => + self -> qualifiedName -> m () +getElementsByTagName_ self qualifiedName + = liftDOM + (void + ((toElement self) ^. jsf "getElementsByTagName" + [toJSVal qualifiedName])) + +-- | +getElementsByTagNameNS :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m HTMLCollection +getElementsByTagNameNS self namespaceURI localName + = liftDOM + (((toElement self) ^. jsf "getElementsByTagNameNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) + +-- | +getElementsByTagNameNS_ :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +getElementsByTagNameNS_ self namespaceURI localName + = liftDOM + (void + ((toElement self) ^. jsf "getElementsByTagNameNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getElementsByClassName :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m HTMLCollection +getElementsByClassName self name + = liftDOM + (((toElement self) ^. jsf "getElementsByClassName" [toJSVal name]) + >>= fromJSValUnchecked) + +-- | +getElementsByClassName_ :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m () +getElementsByClassName_ self name + = liftDOM + (void + ((toElement self) ^. jsf "getElementsByClassName" [toJSVal name])) + +-- | +insertAdjacentElement :: + (MonadDOM m, IsElement self, ToJSString where', + IsElement element) => + self -> where' -> element -> m (Maybe Element) +insertAdjacentElement self where' element + = liftDOM + (((toElement self) ^. jsf "insertAdjacentElement" + [toJSVal where', toJSVal element]) + >>= fromJSVal) + +-- | +insertAdjacentElement_ :: + (MonadDOM m, IsElement self, ToJSString where', + IsElement element) => + self -> where' -> element -> m () +insertAdjacentElement_ self where' element + = liftDOM + (void + ((toElement self) ^. jsf "insertAdjacentElement" + [toJSVal where', toJSVal element])) + +-- | +insertAdjacentElementUnsafe :: + (MonadDOM m, IsElement self, ToJSString where', IsElement element, + HasCallStack) => + self -> where' -> element -> m Element +insertAdjacentElementUnsafe self where' element + = liftDOM + ((((toElement self) ^. jsf "insertAdjacentElement" + [toJSVal where', toJSVal element]) + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +insertAdjacentElementUnchecked :: + (MonadDOM m, IsElement self, ToJSString where', + IsElement element) => + self -> where' -> element -> m Element +insertAdjacentElementUnchecked self where' element + = liftDOM + (((toElement self) ^. jsf "insertAdjacentElement" + [toJSVal where', toJSVal element]) + >>= fromJSValUnchecked) + +-- | +insertAdjacentText :: + (MonadDOM m, IsElement self, ToJSString where', + ToJSString data') => + self -> where' -> data' -> m () +insertAdjacentText self where' data' + = liftDOM + (void + ((toElement self) ^. jsf "insertAdjacentText" + [toJSVal where', toJSVal data'])) + +-- | +getClientRects :: + (MonadDOM m, IsElement self) => self -> m [DOMRect] +getClientRects self + = liftDOM + (((toElement self) ^. jsf "getClientRects" ()) >>= + fromJSArrayUnchecked) + +-- | +getClientRects_ :: (MonadDOM m, IsElement self) => self -> m () +getClientRects_ self + = liftDOM (void ((toElement self) ^. jsf "getClientRects" ())) + +-- | +getBoundingClientRect :: + (MonadDOM m, IsElement self) => self -> m DOMRect +getBoundingClientRect self + = liftDOM + (((toElement self) ^. jsf "getBoundingClientRect" ()) >>= + fromJSValUnchecked) + +-- | +getBoundingClientRect_ :: + (MonadDOM m, IsElement self) => self -> m () +getBoundingClientRect_ self + = liftDOM + (void ((toElement self) ^. jsf "getBoundingClientRect" ())) + +-- | +scrollIntoView :: + (MonadDOM m, IsElement self) => self -> Bool -> m () +scrollIntoView self alignWithTop + = liftDOM + (void + ((toElement self) ^. jsf "scrollIntoView" [toJSVal alignWithTop])) + +-- | +scrollOpt :: + (MonadDOM m, IsElement self) => + self -> Maybe ScrollToOptions -> m () +scrollOpt self options + = liftDOM + (void ((toElement self) ^. jsf "scroll" [toJSVal options])) + +-- | +scroll :: + (MonadDOM m, IsElement self) => self -> Double -> Double -> m () +scroll self x y + = liftDOM + (void ((toElement self) ^. jsf "scroll" [toJSVal x, toJSVal y])) + +-- | +scrollToOpt :: + (MonadDOM m, IsElement self) => + self -> Maybe ScrollToOptions -> m () +scrollToOpt self options + = liftDOM + (void ((toElement self) ^. jsf "scrollTo" [toJSVal options])) + +-- | +scrollTo :: + (MonadDOM m, IsElement self) => self -> Double -> Double -> m () +scrollTo self x y + = liftDOM + (void ((toElement self) ^. jsf "scrollTo" [toJSVal x, toJSVal y])) + +-- | +scrollByOpt :: + (MonadDOM m, IsElement self) => + self -> Maybe ScrollToOptions -> m () +scrollByOpt self option + = liftDOM + (void ((toElement self) ^. jsf "scrollBy" [toJSVal option])) + +-- | +scrollBy :: + (MonadDOM m, IsElement self) => self -> Double -> Double -> m () +scrollBy self x y + = liftDOM + (void ((toElement self) ^. jsf "scrollBy" [toJSVal x, toJSVal y])) + +-- | +insertAdjacentHTML :: + (MonadDOM m, IsElement self, ToJSString position, + ToJSString text) => + self -> position -> text -> m () +insertAdjacentHTML self position text + = liftDOM + (void + ((toElement self) ^. jsf "insertAdjacentHTML" + [toJSVal position, toJSVal text])) + +-- | +webkitRequestFullScreen :: + (MonadDOM m, IsElement self) => self -> m () +webkitRequestFullScreen self + = liftDOM + (void ((toElement self) ^. jsf "webkitRequestFullScreen" ())) + +-- | +webkitRequestFullscreen :: + (MonadDOM m, IsElement self) => self -> m () +webkitRequestFullscreen self + = liftDOM + (void ((toElement self) ^. jsf "webkitRequestFullscreen" ())) + +-- | +requestPointerLock :: (MonadDOM m, IsElement self) => self -> m () +requestPointerLock self + = liftDOM (void ((toElement self) ^. jsf "requestPointerLock" ())) + +-- | +webkitGetRegionFlowRanges :: + (MonadDOM m, IsElement self) => self -> m (Maybe [Range]) +webkitGetRegionFlowRanges self + = liftDOM + (((toElement self) ^. jsf "webkitGetRegionFlowRanges" ()) >>= + maybeNullOrUndefined' fromJSArrayUnchecked) + +-- | +webkitGetRegionFlowRanges_ :: + (MonadDOM m, IsElement self) => self -> m () +webkitGetRegionFlowRanges_ self + = liftDOM + (void ((toElement self) ^. jsf "webkitGetRegionFlowRanges" ())) + +-- | +scrollIntoViewIfNeeded :: + (MonadDOM m, IsElement self) => self -> Bool -> m () +scrollIntoViewIfNeeded self centerIfNeeded + = liftDOM + (void + ((toElement self) ^. jsf "scrollIntoViewIfNeeded" + [toJSVal centerIfNeeded])) + +-- | +getNamespaceURI :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m (Maybe result) +getNamespaceURI self + = liftDOM (((toElement self) ^. js "namespaceURI") >>= fromJSVal) + +-- | +getNamespaceURIUnsafe :: + (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => + self -> m result +getNamespaceURIUnsafe self + = liftDOM + ((((toElement self) ^. js "namespaceURI") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getNamespaceURIUnchecked :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getNamespaceURIUnchecked self + = liftDOM + (((toElement self) ^. js "namespaceURI") >>= fromJSValUnchecked) + +-- | +getPrefix :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m (Maybe result) +getPrefix self + = liftDOM (((toElement self) ^. js "prefix") >>= fromJSVal) + +-- | +getPrefixUnsafe :: + (MonadDOM m, IsElement self, HasCallStack, FromJSString result) => + self -> m result +getPrefixUnsafe self + = liftDOM + ((((toElement self) ^. js "prefix") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getPrefixUnchecked :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getPrefixUnchecked self + = liftDOM + (((toElement self) ^. js "prefix") >>= fromJSValUnchecked) + +-- | +getLocalName :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getLocalName self + = liftDOM + (((toElement self) ^. js "localName") >>= fromJSValUnchecked) + +-- | +getTagName :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getTagName self + = liftDOM + (((toElement self) ^. js "tagName") >>= fromJSValUnchecked) + +-- | +setId :: + (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () +setId self val + = liftDOM ((toElement self) ^. jss "id" (toJSVal val)) + +-- | +getId :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getId self + = liftDOM (((toElement self) ^. js "id") >>= fromJSValUnchecked) + +-- | +setClassName :: + (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () +setClassName self val + = liftDOM ((toElement self) ^. jss "className" (toJSVal val)) + +-- | +getClassName :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getClassName self + = liftDOM + (((toElement self) ^. js "className") >>= fromJSValUnchecked) + +-- | +getClassList :: + (MonadDOM m, IsElement self) => self -> m DOMTokenList +getClassList self + = liftDOM + (((toElement self) ^. js "classList") >>= fromJSValUnchecked) + +-- | +setSlot :: + (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () +setSlot self val + = liftDOM ((toElement self) ^. jss "slot" (toJSVal val)) + +-- | +getSlot :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getSlot self + = liftDOM (((toElement self) ^. js "slot") >>= fromJSValUnchecked) + +-- | +getAttributes :: + (MonadDOM m, IsElement self) => self -> m NamedNodeMap +getAttributes self + = liftDOM + (((toElement self) ^. js "attributes") >>= fromJSValUnchecked) + +-- | +getShadowRoot :: + (MonadDOM m, IsElement self) => self -> m (Maybe ShadowRoot) +getShadowRoot self + = liftDOM (((toElement self) ^. js "shadowRoot") >>= fromJSVal) + +-- | +getShadowRootUnsafe :: + (MonadDOM m, IsElement self, HasCallStack) => self -> m ShadowRoot +getShadowRootUnsafe self + = liftDOM + ((((toElement self) ^. js "shadowRoot") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getShadowRootUnchecked :: + (MonadDOM m, IsElement self) => self -> m ShadowRoot +getShadowRootUnchecked self + = liftDOM + (((toElement self) ^. js "shadowRoot") >>= fromJSValUnchecked) + +-- | +setScrollTop :: (MonadDOM m, IsElement self) => self -> Int -> m () +setScrollTop self val + = liftDOM ((toElement self) ^. jss "scrollTop" (toJSVal val)) + +-- | +getScrollTop :: (MonadDOM m, IsElement self) => self -> m Int +getScrollTop self + = liftDOM + (round <$> (((toElement self) ^. js "scrollTop") >>= valToNumber)) + +-- | +setScrollLeft :: + (MonadDOM m, IsElement self) => self -> Int -> m () +setScrollLeft self val + = liftDOM ((toElement self) ^. jss "scrollLeft" (toJSVal val)) + +-- | +getScrollLeft :: (MonadDOM m, IsElement self) => self -> m Int +getScrollLeft self + = liftDOM + (round <$> (((toElement self) ^. js "scrollLeft") >>= valToNumber)) + +-- | +getScrollWidth :: (MonadDOM m, IsElement self) => self -> m Int +getScrollWidth self + = liftDOM + (round <$> + (((toElement self) ^. js "scrollWidth") >>= valToNumber)) + +-- | +getScrollHeight :: (MonadDOM m, IsElement self) => self -> m Int +getScrollHeight self + = liftDOM + (round <$> + (((toElement self) ^. js "scrollHeight") >>= valToNumber)) + +-- | +getClientTop :: (MonadDOM m, IsElement self) => self -> m Double +getClientTop self + = liftDOM (((toElement self) ^. js "clientTop") >>= valToNumber) + +-- | +getClientLeft :: (MonadDOM m, IsElement self) => self -> m Double +getClientLeft self + = liftDOM (((toElement self) ^. js "clientLeft") >>= valToNumber) + +-- | +getClientWidth :: (MonadDOM m, IsElement self) => self -> m Double +getClientWidth self + = liftDOM (((toElement self) ^. js "clientWidth") >>= valToNumber) + +-- | +getClientHeight :: (MonadDOM m, IsElement self) => self -> m Double +getClientHeight self + = liftDOM (((toElement self) ^. js "clientHeight") >>= valToNumber) + +-- | +setInnerHTML :: + (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () +setInnerHTML self val + = liftDOM ((toElement self) ^. jss "innerHTML" (toJSVal val)) + +-- | +getInnerHTML :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getInnerHTML self + = liftDOM + (((toElement self) ^. js "innerHTML") >>= fromJSValUnchecked) + +-- | +setOuterHTML :: + (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () +setOuterHTML self val + = liftDOM ((toElement self) ^. jss "outerHTML" (toJSVal val)) + +-- | +getOuterHTML :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getOuterHTML self + = liftDOM + (((toElement self) ^. js "outerHTML") >>= fromJSValUnchecked) + +-- | +getWebkitRegionOverset :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getWebkitRegionOverset self + = liftDOM + (((toElement self) ^. js "webkitRegionOverset") >>= + fromJSValUnchecked) + +-- | +selectStart :: + (IsElement self, IsEventTarget self) => EventName self Event +selectStart = unsafeEventName (toJSString "selectstart") + +-- | +gestureChange :: + (IsElement self, IsEventTarget self) => EventName self UIEvent +gestureChange = unsafeEventName (toJSString "gesturechange") + +-- | +gestureEnd :: + (IsElement self, IsEventTarget self) => EventName self UIEvent +gestureEnd = unsafeEventName (toJSString "gestureend") + +-- | +gestureStart :: + (IsElement self, IsEventTarget self) => EventName self UIEvent +gestureStart = unsafeEventName (toJSString "gesturestart") + +-- | +webKitAnimationEnd :: + (IsElement self, IsEventTarget self) => + EventName self AnimationEvent +webKitAnimationEnd + = unsafeEventName (toJSString "webkitanimationend") + +-- | +webKitAnimationIteration :: + (IsElement self, IsEventTarget self) => + EventName self AnimationEvent +webKitAnimationIteration + = unsafeEventName (toJSString "webkitanimationiteration") + +-- | +webKitAnimationStart :: + (IsElement self, IsEventTarget self) => + EventName self AnimationEvent +webKitAnimationStart + = unsafeEventName (toJSString "webkitanimationstart") + +-- | +webKitTransitionEnd :: + (IsElement self, IsEventTarget self) => + EventName self TransitionEvent +webKitTransitionEnd + = unsafeEventName (toJSString "webkittransitionend") + +-- | +webKitFullscreenChange :: + (IsElement self, IsEventTarget self) => EventName self Event +webKitFullscreenChange + = unsafeEventName (toJSString "webkitfullscreenchange") + +-- | +webKitFullscreenError :: + (IsElement self, IsEventTarget self) => EventName self Event +webKitFullscreenError + = unsafeEventName (toJSString "webkitfullscreenerror") -- | focusin :: diff --git a/src/JSDOM/Generated/ElementCSSInlineStyle.hs b/src/JSDOM/Generated/ElementCSSInlineStyle.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/ElementCSSInlineStyle.hs @@ -0,0 +1,30 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.ElementCSSInlineStyle + (getStyle, ElementCSSInlineStyle(..), gTypeElementCSSInlineStyle, + IsElementCSSInlineStyle, toElementCSSInlineStyle) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getStyle :: + (MonadDOM m, IsElementCSSInlineStyle self) => + self -> m CSSStyleDeclaration +getStyle self + = liftDOM + (((toElementCSSInlineStyle self) ^. js "style") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Enums.hs b/src/JSDOM/Generated/Enums.hs --- a/src/JSDOM/Generated/Enums.hs +++ b/src/JSDOM/Generated/Enums.hs @@ -16,2457 +16,4893 @@ FontFaceSetLoadStatus(..), js_FontFaceSetLoadStatusLoading, js_FontFaceSetLoadStatusLoaded, VisibilityState(..), js_VisibilityStateHidden, js_VisibilityStateVisible, - js_VisibilityStatePrerender, ShadowRootMode(..), - js_ShadowRootModeUserAgent, js_ShadowRootModeClosed, - js_ShadowRootModeOpen, BlobLineEndings(..), - js_BlobLineEndingsTransparent, js_BlobLineEndingsNative, - ImageSmoothingQuality(..), js_ImageSmoothingQualityLow, - js_ImageSmoothingQualityMedium, js_ImageSmoothingQualityHigh, - CanvasWindingRule(..), js_CanvasWindingRuleNonzero, - js_CanvasWindingRuleEvenodd, WebGLPowerPreference(..), - js_WebGLPowerPreferenceDefault, js_WebGLPowerPreferenceLowPower, - js_WebGLPowerPreferenceHighPerformance, VideoPresentationMode(..), - js_VideoPresentationModeFullscreen, - js_VideoPresentationModePictureInPicture, - js_VideoPresentationModeInline, TextTrackMode(..), - js_TextTrackModeDisabled, js_TextTrackModeHidden, - js_TextTrackModeShowing, TextTrackKind(..), - js_TextTrackKindSubtitles, js_TextTrackKindCaptions, - js_TextTrackKindDescriptions, js_TextTrackKindChapters, - js_TextTrackKindMetadata, js_TextTrackKindForced, - ApplePayLineItemType(..), js_ApplePayLineItemTypePending, - js_ApplePayLineItemTypeFinal, ApplePayPaymentMethodType(..), - js_ApplePayPaymentMethodTypeDebit, - js_ApplePayPaymentMethodTypeCredit, - js_ApplePayPaymentMethodTypePrepaid, - js_ApplePayPaymentMethodTypeStore, - ApplePayPaymentPassActivationState(..), - js_ApplePayPaymentPassActivationStateActivated, - js_ApplePayPaymentPassActivationStateRequiresActivation, - js_ApplePayPaymentPassActivationStateActivating, - js_ApplePayPaymentPassActivationStateSuspended, - js_ApplePayPaymentPassActivationStateDeactivated, - ApplePayMerchantCapability(..), - js_ApplePayMerchantCapabilitySupports3DS, - js_ApplePayMerchantCapabilitySupportsEMV, - js_ApplePayMerchantCapabilitySupportsCredit, - js_ApplePayMerchantCapabilitySupportsDebit, - ApplePayContactField(..), js_ApplePayContactFieldEmail, - js_ApplePayContactFieldName, js_ApplePayContactFieldPhone, - js_ApplePayContactFieldPostalAddress, ApplePayShippingType(..), - js_ApplePayShippingTypeShipping, js_ApplePayShippingTypeDelivery, - js_ApplePayShippingTypeStorePickup, - js_ApplePayShippingTypeServicePickup, MediaKeyMessageType(..), - js_MediaKeyMessageTypeLicenseRequest, - js_MediaKeyMessageTypeLicenseRenewal, - js_MediaKeyMessageTypeLicenseRelease, - js_MediaKeyMessageTypeIndividualizationRequest, - MediaKeySessionType(..), js_MediaKeySessionTypeTemporary, - js_MediaKeySessionTypePersistentUsageRecord, - js_MediaKeySessionTypePersistentLicense, MediaKeysRequirement(..), - js_MediaKeysRequirementRequired, js_MediaKeysRequirementOptional, - js_MediaKeysRequirementNotAllowed, MediaKeyStatus(..), - js_MediaKeyStatusUsable, js_MediaKeyStatusExpired, - js_MediaKeyStatusReleased, js_MediaKeyStatusOutputRestricted, - js_MediaKeyStatusOutputDownscaled, js_MediaKeyStatusStatusPending, - js_MediaKeyStatusInternalError, RequestType(..), js_RequestType, - js_RequestTypeAudio, js_RequestTypeFont, js_RequestTypeImage, - js_RequestTypeScript, js_RequestTypeStyle, js_RequestTypeTrack, - js_RequestTypeVideo, RequestDestination(..), js_RequestDestination, - js_RequestDestinationDocument, js_RequestDestinationSharedworker, - js_RequestDestinationSubresource, js_RequestDestinationUnknown, - js_RequestDestinationWorker, RequestMode(..), - js_RequestModeNavigate, js_RequestModeSameOrigin, - js_RequestModeNoCors, js_RequestModeCors, RequestCredentials(..), - js_RequestCredentialsOmit, js_RequestCredentialsSameOrigin, - js_RequestCredentialsInclude, RequestCache(..), - js_RequestCacheDefault, js_RequestCacheNoStore, - js_RequestCacheReload, js_RequestCacheNoCache, - js_RequestCacheForceCache, js_RequestCacheOnlyIfCached, - RequestRedirect(..), js_RequestRedirectFollow, - js_RequestRedirectError, js_RequestRedirectManual, - ReferrerPolicy(..), js_ReferrerPolicy, js_ReferrerPolicyNoReferrer, - js_ReferrerPolicyNoReferrerWhenDowngrade, js_ReferrerPolicyOrigin, - js_ReferrerPolicyOriginWhenCrossOrigin, js_ReferrerPolicyUnsafeUrl, - ResponseType(..), js_ResponseTypeBasic, js_ResponseTypeCors, - js_ResponseTypeDefault, js_ResponseTypeError, - js_ResponseTypeOpaque, js_ResponseTypeOpaqueredirect, - IDBCursorDirection(..), js_IDBCursorDirectionNext, - js_IDBCursorDirectionNextunique, js_IDBCursorDirectionPrev, - js_IDBCursorDirectionPrevunique, IDBRequestReadyState(..), - js_IDBRequestReadyStatePending, js_IDBRequestReadyStateDone, - IDBTransactionMode(..), js_IDBTransactionModeReadonly, - js_IDBTransactionModeReadwrite, js_IDBTransactionModeVersionchange, - DeviceType(..), js_DeviceTypeNone, js_DeviceTypeAirplay, - js_DeviceTypeTvout, MediaSessionKind(..), - js_MediaSessionKindContent, js_MediaSessionKindTransient, - js_MediaSessionKindTransientSolo, js_MediaSessionKindAmbient, - EndOfStreamError(..), js_EndOfStreamErrorNetwork, - js_EndOfStreamErrorDecode, AppendMode(..), js_AppendModeSegments, - js_AppendModeSequence, MediaDeviceKind(..), - js_MediaDeviceKindAudioinput, js_MediaDeviceKindAudiooutput, - js_MediaDeviceKindVideoinput, MediaStreamTrackState(..), - js_MediaStreamTrackStateNew, js_MediaStreamTrackStateLive, - js_MediaStreamTrackStateEnded, RTCIceTransportPolicy(..), - js_RTCIceTransportPolicyRelay, js_RTCIceTransportPolicyAll, - RTCBundlePolicy(..), js_RTCBundlePolicyBalanced, - js_RTCBundlePolicyMaxCompat, js_RTCBundlePolicyMaxBundle, - RTCRtpTransceiverDirection(..), - js_RTCRtpTransceiverDirectionSendrecv, - js_RTCRtpTransceiverDirectionSendonly, - js_RTCRtpTransceiverDirectionRecvonly, - js_RTCRtpTransceiverDirectionInactive, RTCSdpType(..), - js_RTCSdpTypeOffer, js_RTCSdpTypePranswer, js_RTCSdpTypeAnswer, - js_RTCSdpTypeRollback, NotificationDirection(..), - js_NotificationDirectionAuto, js_NotificationDirectionLtr, - js_NotificationDirectionRtl, AudioContextState(..), - js_AudioContextStateSuspended, js_AudioContextStateRunning, - js_AudioContextStateInterrupted, js_AudioContextStateClosed, - BiquadFilterType(..), js_BiquadFilterTypeLowpass, - js_BiquadFilterTypeHighpass, js_BiquadFilterTypeBandpass, - js_BiquadFilterTypeLowshelf, js_BiquadFilterTypeHighshelf, - js_BiquadFilterTypePeaking, js_BiquadFilterTypeNotch, - js_BiquadFilterTypeAllpass, OscillatorType(..), - js_OscillatorTypeSine, js_OscillatorTypeSquare, - js_OscillatorTypeSawtooth, js_OscillatorTypeTriangle, - js_OscillatorTypeCustom, PanningModelType(..), - js_PanningModelTypeEqualpower, js_PanningModelTypeHRTF, - DistanceModelType(..), js_DistanceModelTypeLinear, - js_DistanceModelTypeInverse, js_DistanceModelTypeExponential, - OverSampleType(..), js_OverSampleTypeNone, js_OverSampleType2x, - js_OverSampleType4x, XMLHttpRequestResponseType(..), - js_XMLHttpRequestResponseType, - js_XMLHttpRequestResponseTypeArraybuffer, - js_XMLHttpRequestResponseTypeBlob, - js_XMLHttpRequestResponseTypeDocument, - js_XMLHttpRequestResponseTypeJson, - js_XMLHttpRequestResponseTypeText) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import JSDOM.Types -import Control.Applicative ((<$>)) -import Control.Monad (void) -import Control.Lens.Operators ((^.)) - -data KeyType = KeyTypePublic - | KeyTypePrivate - | KeyTypeSecret - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal KeyType where - toJSVal KeyTypePublic = toJSVal js_KeyTypePublic - toJSVal KeyTypePrivate = toJSVal js_KeyTypePrivate - toJSVal KeyTypeSecret = toJSVal js_KeyTypeSecret - -instance FromJSVal KeyType where - fromJSVal x - = x `strictEqual` js_KeyTypePublic >>= - \ r -> - case r of - True -> return (Just KeyTypePublic) - False - -> x `strictEqual` js_KeyTypePrivate >>= - \ r -> - case r of - True -> return (Just KeyTypePrivate) - False - -> x `strictEqual` js_KeyTypeSecret >>= - \ r -> - case r of - True -> return (Just KeyTypeSecret) - False -> return Nothing -js_KeyTypePublic = "public" -js_KeyTypePrivate = "private" -js_KeyTypeSecret = "secret" - -data CryptoKeyUsage = CryptoKeyUsageEncrypt - | CryptoKeyUsageDecrypt - | CryptoKeyUsageSign - | CryptoKeyUsageVerify - | CryptoKeyUsageDeriveKey - | CryptoKeyUsageDeriveBits - | CryptoKeyUsageWrapKey - | CryptoKeyUsageUnwrapKey - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal CryptoKeyUsage where - toJSVal CryptoKeyUsageEncrypt = toJSVal js_CryptoKeyUsageEncrypt - toJSVal CryptoKeyUsageDecrypt = toJSVal js_CryptoKeyUsageDecrypt - toJSVal CryptoKeyUsageSign = toJSVal js_CryptoKeyUsageSign - toJSVal CryptoKeyUsageVerify = toJSVal js_CryptoKeyUsageVerify - toJSVal CryptoKeyUsageDeriveKey - = toJSVal js_CryptoKeyUsageDeriveKey - toJSVal CryptoKeyUsageDeriveBits - = toJSVal js_CryptoKeyUsageDeriveBits - toJSVal CryptoKeyUsageWrapKey = toJSVal js_CryptoKeyUsageWrapKey - toJSVal CryptoKeyUsageUnwrapKey - = toJSVal js_CryptoKeyUsageUnwrapKey - -instance FromJSVal CryptoKeyUsage where - fromJSVal x - = x `strictEqual` js_CryptoKeyUsageEncrypt >>= - \ r -> - case r of - True -> return (Just CryptoKeyUsageEncrypt) - False - -> x `strictEqual` js_CryptoKeyUsageDecrypt >>= - \ r -> - case r of - True -> return (Just CryptoKeyUsageDecrypt) - False - -> x `strictEqual` js_CryptoKeyUsageSign >>= - \ r -> - case r of - True -> return (Just CryptoKeyUsageSign) - False - -> x `strictEqual` js_CryptoKeyUsageVerify >>= - \ r -> - case r of - True - -> return (Just CryptoKeyUsageVerify) - False - -> x `strictEqual` - js_CryptoKeyUsageDeriveKey - >>= - \ r -> - case r of - True - -> return - (Just - CryptoKeyUsageDeriveKey) - False - -> x `strictEqual` - js_CryptoKeyUsageDeriveBits - >>= - \ r -> - case r of - True - -> return - (Just - CryptoKeyUsageDeriveBits) - False - -> x `strictEqual` - js_CryptoKeyUsageWrapKey - >>= - \ r -> - case r - of - True - -> return - (Just - CryptoKeyUsageWrapKey) - False - -> x `strictEqual` - js_CryptoKeyUsageUnwrapKey - >>= - \ r - -> - case - r - of - True - -> return - (Just - CryptoKeyUsageUnwrapKey) - False - -> return - Nothing -js_CryptoKeyUsageEncrypt = "encrypt" -js_CryptoKeyUsageDecrypt = "decrypt" -js_CryptoKeyUsageSign = "sign" -js_CryptoKeyUsageVerify = "verify" -js_CryptoKeyUsageDeriveKey = "deriveKey" -js_CryptoKeyUsageDeriveBits = "deriveBits" -js_CryptoKeyUsageWrapKey = "wrapKey" -js_CryptoKeyUsageUnwrapKey = "unwrapKey" - -data KeyFormat = KeyFormatRaw - | KeyFormatSpki - | KeyFormatPkcs8 - | KeyFormatJwk - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal KeyFormat where - toJSVal KeyFormatRaw = toJSVal js_KeyFormatRaw - toJSVal KeyFormatSpki = toJSVal js_KeyFormatSpki - toJSVal KeyFormatPkcs8 = toJSVal js_KeyFormatPkcs8 - toJSVal KeyFormatJwk = toJSVal js_KeyFormatJwk - -instance FromJSVal KeyFormat where - fromJSVal x - = x `strictEqual` js_KeyFormatRaw >>= - \ r -> - case r of - True -> return (Just KeyFormatRaw) - False - -> x `strictEqual` js_KeyFormatSpki >>= - \ r -> - case r of - True -> return (Just KeyFormatSpki) - False - -> x `strictEqual` js_KeyFormatPkcs8 >>= - \ r -> - case r of - True -> return (Just KeyFormatPkcs8) - False - -> x `strictEqual` js_KeyFormatJwk >>= - \ r -> - case r of - True -> return (Just KeyFormatJwk) - False -> return Nothing -js_KeyFormatRaw = "raw" -js_KeyFormatSpki = "spki" -js_KeyFormatPkcs8 = "pkcs8" -js_KeyFormatJwk = "jwk" - -data FontFaceLoadStatus = FontFaceLoadStatusUnloaded - | FontFaceLoadStatusLoading - | FontFaceLoadStatusLoaded - | FontFaceLoadStatusError - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal FontFaceLoadStatus where - toJSVal FontFaceLoadStatusUnloaded - = toJSVal js_FontFaceLoadStatusUnloaded - toJSVal FontFaceLoadStatusLoading - = toJSVal js_FontFaceLoadStatusLoading - toJSVal FontFaceLoadStatusLoaded - = toJSVal js_FontFaceLoadStatusLoaded - toJSVal FontFaceLoadStatusError - = toJSVal js_FontFaceLoadStatusError - -instance FromJSVal FontFaceLoadStatus where - fromJSVal x - = x `strictEqual` js_FontFaceLoadStatusUnloaded >>= - \ r -> - case r of - True -> return (Just FontFaceLoadStatusUnloaded) - False - -> x `strictEqual` js_FontFaceLoadStatusLoading >>= - \ r -> - case r of - True -> return (Just FontFaceLoadStatusLoading) - False - -> x `strictEqual` js_FontFaceLoadStatusLoaded >>= - \ r -> - case r of - True -> return (Just FontFaceLoadStatusLoaded) - False - -> x `strictEqual` js_FontFaceLoadStatusError >>= - \ r -> - case r of - True - -> return - (Just FontFaceLoadStatusError) - False -> return Nothing -js_FontFaceLoadStatusUnloaded = "unloaded" -js_FontFaceLoadStatusLoading = "loading" -js_FontFaceLoadStatusLoaded = "loaded" -js_FontFaceLoadStatusError = "error" - -data FontFaceSetLoadStatus = FontFaceSetLoadStatusLoading - | FontFaceSetLoadStatusLoaded - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal FontFaceSetLoadStatus where - toJSVal FontFaceSetLoadStatusLoading - = toJSVal js_FontFaceSetLoadStatusLoading - toJSVal FontFaceSetLoadStatusLoaded - = toJSVal js_FontFaceSetLoadStatusLoaded - -instance FromJSVal FontFaceSetLoadStatus where - fromJSVal x - = x `strictEqual` js_FontFaceSetLoadStatusLoading >>= - \ r -> - case r of - True -> return (Just FontFaceSetLoadStatusLoading) - False - -> x `strictEqual` js_FontFaceSetLoadStatusLoaded >>= - \ r -> - case r of - True -> return (Just FontFaceSetLoadStatusLoaded) - False -> return Nothing -js_FontFaceSetLoadStatusLoading = "loading" -js_FontFaceSetLoadStatusLoaded = "loaded" - -data VisibilityState = VisibilityStateHidden - | VisibilityStateVisible - | VisibilityStatePrerender - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal VisibilityState where - toJSVal VisibilityStateHidden = toJSVal js_VisibilityStateHidden - toJSVal VisibilityStateVisible = toJSVal js_VisibilityStateVisible - toJSVal VisibilityStatePrerender - = toJSVal js_VisibilityStatePrerender - -instance FromJSVal VisibilityState where - fromJSVal x - = x `strictEqual` js_VisibilityStateHidden >>= - \ r -> - case r of - True -> return (Just VisibilityStateHidden) - False - -> x `strictEqual` js_VisibilityStateVisible >>= - \ r -> - case r of - True -> return (Just VisibilityStateVisible) - False - -> x `strictEqual` js_VisibilityStatePrerender >>= - \ r -> - case r of - True -> return (Just VisibilityStatePrerender) - False -> return Nothing -js_VisibilityStateHidden = "hidden" -js_VisibilityStateVisible = "visible" -js_VisibilityStatePrerender = "prerender" - -data ShadowRootMode = ShadowRootModeUserAgent - | ShadowRootModeClosed - | ShadowRootModeOpen - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ShadowRootMode where - toJSVal ShadowRootModeUserAgent - = toJSVal js_ShadowRootModeUserAgent - toJSVal ShadowRootModeClosed = toJSVal js_ShadowRootModeClosed - toJSVal ShadowRootModeOpen = toJSVal js_ShadowRootModeOpen - -instance FromJSVal ShadowRootMode where - fromJSVal x - = x `strictEqual` js_ShadowRootModeUserAgent >>= - \ r -> - case r of - True -> return (Just ShadowRootModeUserAgent) - False - -> x `strictEqual` js_ShadowRootModeClosed >>= - \ r -> - case r of - True -> return (Just ShadowRootModeClosed) - False - -> x `strictEqual` js_ShadowRootModeOpen >>= - \ r -> - case r of - True -> return (Just ShadowRootModeOpen) - False -> return Nothing -js_ShadowRootModeUserAgent = "user-agent" -js_ShadowRootModeClosed = "closed" -js_ShadowRootModeOpen = "open" - -data BlobLineEndings = BlobLineEndingsTransparent - | BlobLineEndingsNative - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal BlobLineEndings where - toJSVal BlobLineEndingsTransparent - = toJSVal js_BlobLineEndingsTransparent - toJSVal BlobLineEndingsNative = toJSVal js_BlobLineEndingsNative - -instance FromJSVal BlobLineEndings where - fromJSVal x - = x `strictEqual` js_BlobLineEndingsTransparent >>= - \ r -> - case r of - True -> return (Just BlobLineEndingsTransparent) - False - -> x `strictEqual` js_BlobLineEndingsNative >>= - \ r -> - case r of - True -> return (Just BlobLineEndingsNative) - False -> return Nothing -js_BlobLineEndingsTransparent = "transparent" -js_BlobLineEndingsNative = "native" - -data ImageSmoothingQuality = ImageSmoothingQualityLow - | ImageSmoothingQualityMedium - | ImageSmoothingQualityHigh - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ImageSmoothingQuality where - toJSVal ImageSmoothingQualityLow - = toJSVal js_ImageSmoothingQualityLow - toJSVal ImageSmoothingQualityMedium - = toJSVal js_ImageSmoothingQualityMedium - toJSVal ImageSmoothingQualityHigh - = toJSVal js_ImageSmoothingQualityHigh - -instance FromJSVal ImageSmoothingQuality where - fromJSVal x - = x `strictEqual` js_ImageSmoothingQualityLow >>= - \ r -> - case r of - True -> return (Just ImageSmoothingQualityLow) - False - -> x `strictEqual` js_ImageSmoothingQualityMedium >>= - \ r -> - case r of - True -> return (Just ImageSmoothingQualityMedium) - False - -> x `strictEqual` js_ImageSmoothingQualityHigh >>= - \ r -> - case r of - True -> return (Just ImageSmoothingQualityHigh) - False -> return Nothing -js_ImageSmoothingQualityLow = "low" -js_ImageSmoothingQualityMedium = "medium" -js_ImageSmoothingQualityHigh = "high" - -data CanvasWindingRule = CanvasWindingRuleNonzero - | CanvasWindingRuleEvenodd - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal CanvasWindingRule where - toJSVal CanvasWindingRuleNonzero - = toJSVal js_CanvasWindingRuleNonzero - toJSVal CanvasWindingRuleEvenodd - = toJSVal js_CanvasWindingRuleEvenodd - -instance FromJSVal CanvasWindingRule where - fromJSVal x - = x `strictEqual` js_CanvasWindingRuleNonzero >>= - \ r -> - case r of - True -> return (Just CanvasWindingRuleNonzero) - False - -> x `strictEqual` js_CanvasWindingRuleEvenodd >>= - \ r -> - case r of - True -> return (Just CanvasWindingRuleEvenodd) - False -> return Nothing -js_CanvasWindingRuleNonzero = "nonzero" -js_CanvasWindingRuleEvenodd = "evenodd" - -data WebGLPowerPreference = WebGLPowerPreferenceDefault - | WebGLPowerPreferenceLowPower - | WebGLPowerPreferenceHighPerformance - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal WebGLPowerPreference where - toJSVal WebGLPowerPreferenceDefault - = toJSVal js_WebGLPowerPreferenceDefault - toJSVal WebGLPowerPreferenceLowPower - = toJSVal js_WebGLPowerPreferenceLowPower - toJSVal WebGLPowerPreferenceHighPerformance - = toJSVal js_WebGLPowerPreferenceHighPerformance - -instance FromJSVal WebGLPowerPreference where - fromJSVal x - = x `strictEqual` js_WebGLPowerPreferenceDefault >>= - \ r -> - case r of - True -> return (Just WebGLPowerPreferenceDefault) - False - -> x `strictEqual` js_WebGLPowerPreferenceLowPower >>= - \ r -> - case r of - True -> return (Just WebGLPowerPreferenceLowPower) - False - -> x `strictEqual` js_WebGLPowerPreferenceHighPerformance >>= - \ r -> - case r of - True - -> return (Just WebGLPowerPreferenceHighPerformance) - False -> return Nothing -js_WebGLPowerPreferenceDefault = "default" -js_WebGLPowerPreferenceLowPower = "low-power" -js_WebGLPowerPreferenceHighPerformance = "high-performance" - -data VideoPresentationMode = VideoPresentationModeFullscreen - | VideoPresentationModePictureInPicture - | VideoPresentationModeInline - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal VideoPresentationMode where - toJSVal VideoPresentationModeFullscreen - = toJSVal js_VideoPresentationModeFullscreen - toJSVal VideoPresentationModePictureInPicture - = toJSVal js_VideoPresentationModePictureInPicture - toJSVal VideoPresentationModeInline - = toJSVal js_VideoPresentationModeInline - -instance FromJSVal VideoPresentationMode where - fromJSVal x - = x `strictEqual` js_VideoPresentationModeFullscreen >>= - \ r -> - case r of - True -> return (Just VideoPresentationModeFullscreen) - False - -> x `strictEqual` js_VideoPresentationModePictureInPicture >>= - \ r -> - case r of - True -> return (Just VideoPresentationModePictureInPicture) - False - -> x `strictEqual` js_VideoPresentationModeInline >>= - \ r -> - case r of - True -> return (Just VideoPresentationModeInline) - False -> return Nothing -js_VideoPresentationModeFullscreen = "fullscreen" -js_VideoPresentationModePictureInPicture = "picture-in-picture" -js_VideoPresentationModeInline = "inline" - -data TextTrackMode = TextTrackModeDisabled - | TextTrackModeHidden - | TextTrackModeShowing - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal TextTrackMode where - toJSVal TextTrackModeDisabled = toJSVal js_TextTrackModeDisabled - toJSVal TextTrackModeHidden = toJSVal js_TextTrackModeHidden - toJSVal TextTrackModeShowing = toJSVal js_TextTrackModeShowing - -instance FromJSVal TextTrackMode where - fromJSVal x - = x `strictEqual` js_TextTrackModeDisabled >>= - \ r -> - case r of - True -> return (Just TextTrackModeDisabled) - False - -> x `strictEqual` js_TextTrackModeHidden >>= - \ r -> - case r of - True -> return (Just TextTrackModeHidden) - False - -> x `strictEqual` js_TextTrackModeShowing >>= - \ r -> - case r of - True -> return (Just TextTrackModeShowing) - False -> return Nothing -js_TextTrackModeDisabled = "disabled" -js_TextTrackModeHidden = "hidden" -js_TextTrackModeShowing = "showing" - -data TextTrackKind = TextTrackKindSubtitles - | TextTrackKindCaptions - | TextTrackKindDescriptions - | TextTrackKindChapters - | TextTrackKindMetadata - | TextTrackKindForced - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal TextTrackKind where - toJSVal TextTrackKindSubtitles = toJSVal js_TextTrackKindSubtitles - toJSVal TextTrackKindCaptions = toJSVal js_TextTrackKindCaptions - toJSVal TextTrackKindDescriptions - = toJSVal js_TextTrackKindDescriptions - toJSVal TextTrackKindChapters = toJSVal js_TextTrackKindChapters - toJSVal TextTrackKindMetadata = toJSVal js_TextTrackKindMetadata - toJSVal TextTrackKindForced = toJSVal js_TextTrackKindForced - -instance FromJSVal TextTrackKind where - fromJSVal x - = x `strictEqual` js_TextTrackKindSubtitles >>= - \ r -> - case r of - True -> return (Just TextTrackKindSubtitles) - False - -> x `strictEqual` js_TextTrackKindCaptions >>= - \ r -> - case r of - True -> return (Just TextTrackKindCaptions) - False - -> x `strictEqual` js_TextTrackKindDescriptions >>= - \ r -> - case r of - True -> return (Just TextTrackKindDescriptions) - False - -> x `strictEqual` js_TextTrackKindChapters >>= - \ r -> - case r of - True - -> return (Just TextTrackKindChapters) - False - -> x `strictEqual` - js_TextTrackKindMetadata - >>= - \ r -> - case r of - True - -> return - (Just - TextTrackKindMetadata) - False - -> x `strictEqual` - js_TextTrackKindForced - >>= - \ r -> - case r of - True - -> return - (Just - TextTrackKindForced) - False - -> return - Nothing -js_TextTrackKindSubtitles = "subtitles" -js_TextTrackKindCaptions = "captions" -js_TextTrackKindDescriptions = "descriptions" -js_TextTrackKindChapters = "chapters" -js_TextTrackKindMetadata = "metadata" -js_TextTrackKindForced = "forced" - -data ApplePayLineItemType = ApplePayLineItemTypePending - | ApplePayLineItemTypeFinal - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ApplePayLineItemType where - toJSVal ApplePayLineItemTypePending - = toJSVal js_ApplePayLineItemTypePending - toJSVal ApplePayLineItemTypeFinal - = toJSVal js_ApplePayLineItemTypeFinal - -instance FromJSVal ApplePayLineItemType where - fromJSVal x - = x `strictEqual` js_ApplePayLineItemTypePending >>= - \ r -> - case r of - True -> return (Just ApplePayLineItemTypePending) - False - -> x `strictEqual` js_ApplePayLineItemTypeFinal >>= - \ r -> - case r of - True -> return (Just ApplePayLineItemTypeFinal) - False -> return Nothing -js_ApplePayLineItemTypePending = "pending" -js_ApplePayLineItemTypeFinal = "final" - -data ApplePayPaymentMethodType = ApplePayPaymentMethodTypeDebit - | ApplePayPaymentMethodTypeCredit - | ApplePayPaymentMethodTypePrepaid - | ApplePayPaymentMethodTypeStore - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ApplePayPaymentMethodType where - toJSVal ApplePayPaymentMethodTypeDebit - = toJSVal js_ApplePayPaymentMethodTypeDebit - toJSVal ApplePayPaymentMethodTypeCredit - = toJSVal js_ApplePayPaymentMethodTypeCredit - toJSVal ApplePayPaymentMethodTypePrepaid - = toJSVal js_ApplePayPaymentMethodTypePrepaid - toJSVal ApplePayPaymentMethodTypeStore - = toJSVal js_ApplePayPaymentMethodTypeStore - -instance FromJSVal ApplePayPaymentMethodType where - fromJSVal x - = x `strictEqual` js_ApplePayPaymentMethodTypeDebit >>= - \ r -> - case r of - True -> return (Just ApplePayPaymentMethodTypeDebit) - False - -> x `strictEqual` js_ApplePayPaymentMethodTypeCredit >>= - \ r -> - case r of - True -> return (Just ApplePayPaymentMethodTypeCredit) - False - -> x `strictEqual` js_ApplePayPaymentMethodTypePrepaid >>= - \ r -> - case r of - True -> return (Just ApplePayPaymentMethodTypePrepaid) - False - -> x `strictEqual` js_ApplePayPaymentMethodTypeStore - >>= - \ r -> - case r of - True - -> return - (Just - ApplePayPaymentMethodTypeStore) - False -> return Nothing -js_ApplePayPaymentMethodTypeDebit = "debit" -js_ApplePayPaymentMethodTypeCredit = "credit" -js_ApplePayPaymentMethodTypePrepaid = "prepaid" -js_ApplePayPaymentMethodTypeStore = "store" - -data ApplePayPaymentPassActivationState = ApplePayPaymentPassActivationStateActivated - | ApplePayPaymentPassActivationStateRequiresActivation - | ApplePayPaymentPassActivationStateActivating - | ApplePayPaymentPassActivationStateSuspended - | ApplePayPaymentPassActivationStateDeactivated - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ApplePayPaymentPassActivationState where - toJSVal ApplePayPaymentPassActivationStateActivated - = toJSVal js_ApplePayPaymentPassActivationStateActivated - toJSVal ApplePayPaymentPassActivationStateRequiresActivation - = toJSVal js_ApplePayPaymentPassActivationStateRequiresActivation - toJSVal ApplePayPaymentPassActivationStateActivating - = toJSVal js_ApplePayPaymentPassActivationStateActivating - toJSVal ApplePayPaymentPassActivationStateSuspended - = toJSVal js_ApplePayPaymentPassActivationStateSuspended - toJSVal ApplePayPaymentPassActivationStateDeactivated - = toJSVal js_ApplePayPaymentPassActivationStateDeactivated - -instance FromJSVal ApplePayPaymentPassActivationState where - fromJSVal x - = x `strictEqual` js_ApplePayPaymentPassActivationStateActivated - >>= - \ r -> - case r of - True -> return (Just ApplePayPaymentPassActivationStateActivated) - False - -> x `strictEqual` - js_ApplePayPaymentPassActivationStateRequiresActivation - >>= - \ r -> - case r of - True - -> return - (Just ApplePayPaymentPassActivationStateRequiresActivation) - False - -> x `strictEqual` - js_ApplePayPaymentPassActivationStateActivating - >>= - \ r -> - case r of - True - -> return - (Just - ApplePayPaymentPassActivationStateActivating) - False - -> x `strictEqual` - js_ApplePayPaymentPassActivationStateSuspended - >>= - \ r -> - case r of - True - -> return - (Just - ApplePayPaymentPassActivationStateSuspended) - False - -> x `strictEqual` - js_ApplePayPaymentPassActivationStateDeactivated - >>= - \ r -> - case r of - True - -> return - (Just - ApplePayPaymentPassActivationStateDeactivated) - False -> return Nothing -js_ApplePayPaymentPassActivationStateActivated = "activated" -js_ApplePayPaymentPassActivationStateRequiresActivation - = "requiresActivation" -js_ApplePayPaymentPassActivationStateActivating = "activating" -js_ApplePayPaymentPassActivationStateSuspended = "suspended" -js_ApplePayPaymentPassActivationStateDeactivated = "deactivated" - -data ApplePayMerchantCapability = ApplePayMerchantCapabilitySupports3DS - | ApplePayMerchantCapabilitySupportsEMV - | ApplePayMerchantCapabilitySupportsCredit - | ApplePayMerchantCapabilitySupportsDebit - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ApplePayMerchantCapability where - toJSVal ApplePayMerchantCapabilitySupports3DS - = toJSVal js_ApplePayMerchantCapabilitySupports3DS - toJSVal ApplePayMerchantCapabilitySupportsEMV - = toJSVal js_ApplePayMerchantCapabilitySupportsEMV - toJSVal ApplePayMerchantCapabilitySupportsCredit - = toJSVal js_ApplePayMerchantCapabilitySupportsCredit - toJSVal ApplePayMerchantCapabilitySupportsDebit - = toJSVal js_ApplePayMerchantCapabilitySupportsDebit - -instance FromJSVal ApplePayMerchantCapability where - fromJSVal x - = x `strictEqual` js_ApplePayMerchantCapabilitySupports3DS >>= - \ r -> - case r of - True -> return (Just ApplePayMerchantCapabilitySupports3DS) - False - -> x `strictEqual` js_ApplePayMerchantCapabilitySupportsEMV >>= - \ r -> - case r of - True -> return (Just ApplePayMerchantCapabilitySupportsEMV) - False - -> x `strictEqual` js_ApplePayMerchantCapabilitySupportsCredit - >>= - \ r -> - case r of - True - -> return - (Just ApplePayMerchantCapabilitySupportsCredit) - False - -> x `strictEqual` - js_ApplePayMerchantCapabilitySupportsDebit - >>= - \ r -> - case r of - True - -> return - (Just - ApplePayMerchantCapabilitySupportsDebit) - False -> return Nothing -js_ApplePayMerchantCapabilitySupports3DS = "supports3DS" -js_ApplePayMerchantCapabilitySupportsEMV = "supportsEMV" -js_ApplePayMerchantCapabilitySupportsCredit = "supportsCredit" -js_ApplePayMerchantCapabilitySupportsDebit = "supportsDebit" - -data ApplePayContactField = ApplePayContactFieldEmail - | ApplePayContactFieldName - | ApplePayContactFieldPhone - | ApplePayContactFieldPostalAddress - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ApplePayContactField where - toJSVal ApplePayContactFieldEmail - = toJSVal js_ApplePayContactFieldEmail - toJSVal ApplePayContactFieldName - = toJSVal js_ApplePayContactFieldName - toJSVal ApplePayContactFieldPhone - = toJSVal js_ApplePayContactFieldPhone - toJSVal ApplePayContactFieldPostalAddress - = toJSVal js_ApplePayContactFieldPostalAddress - -instance FromJSVal ApplePayContactField where - fromJSVal x - = x `strictEqual` js_ApplePayContactFieldEmail >>= - \ r -> - case r of - True -> return (Just ApplePayContactFieldEmail) - False - -> x `strictEqual` js_ApplePayContactFieldName >>= - \ r -> - case r of - True -> return (Just ApplePayContactFieldName) - False - -> x `strictEqual` js_ApplePayContactFieldPhone >>= - \ r -> - case r of - True -> return (Just ApplePayContactFieldPhone) - False - -> x `strictEqual` - js_ApplePayContactFieldPostalAddress - >>= - \ r -> - case r of - True - -> return - (Just - ApplePayContactFieldPostalAddress) - False -> return Nothing -js_ApplePayContactFieldEmail = "email" -js_ApplePayContactFieldName = "name" -js_ApplePayContactFieldPhone = "phone" -js_ApplePayContactFieldPostalAddress = "postalAddress" - -data ApplePayShippingType = ApplePayShippingTypeShipping - | ApplePayShippingTypeDelivery - | ApplePayShippingTypeStorePickup - | ApplePayShippingTypeServicePickup - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ApplePayShippingType where - toJSVal ApplePayShippingTypeShipping - = toJSVal js_ApplePayShippingTypeShipping - toJSVal ApplePayShippingTypeDelivery - = toJSVal js_ApplePayShippingTypeDelivery - toJSVal ApplePayShippingTypeStorePickup - = toJSVal js_ApplePayShippingTypeStorePickup - toJSVal ApplePayShippingTypeServicePickup - = toJSVal js_ApplePayShippingTypeServicePickup - -instance FromJSVal ApplePayShippingType where - fromJSVal x - = x `strictEqual` js_ApplePayShippingTypeShipping >>= - \ r -> - case r of - True -> return (Just ApplePayShippingTypeShipping) - False - -> x `strictEqual` js_ApplePayShippingTypeDelivery >>= - \ r -> - case r of - True -> return (Just ApplePayShippingTypeDelivery) - False - -> x `strictEqual` js_ApplePayShippingTypeStorePickup >>= - \ r -> - case r of - True -> return (Just ApplePayShippingTypeStorePickup) - False - -> x `strictEqual` - js_ApplePayShippingTypeServicePickup - >>= - \ r -> - case r of - True - -> return - (Just - ApplePayShippingTypeServicePickup) - False -> return Nothing -js_ApplePayShippingTypeShipping = "shipping" -js_ApplePayShippingTypeDelivery = "delivery" -js_ApplePayShippingTypeStorePickup = "storePickup" -js_ApplePayShippingTypeServicePickup = "servicePickup" - -data MediaKeyMessageType = MediaKeyMessageTypeLicenseRequest - | MediaKeyMessageTypeLicenseRenewal - | MediaKeyMessageTypeLicenseRelease - | MediaKeyMessageTypeIndividualizationRequest - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal MediaKeyMessageType where - toJSVal MediaKeyMessageTypeLicenseRequest - = toJSVal js_MediaKeyMessageTypeLicenseRequest - toJSVal MediaKeyMessageTypeLicenseRenewal - = toJSVal js_MediaKeyMessageTypeLicenseRenewal - toJSVal MediaKeyMessageTypeLicenseRelease - = toJSVal js_MediaKeyMessageTypeLicenseRelease - toJSVal MediaKeyMessageTypeIndividualizationRequest - = toJSVal js_MediaKeyMessageTypeIndividualizationRequest - -instance FromJSVal MediaKeyMessageType where - fromJSVal x - = x `strictEqual` js_MediaKeyMessageTypeLicenseRequest >>= - \ r -> - case r of - True -> return (Just MediaKeyMessageTypeLicenseRequest) - False - -> x `strictEqual` js_MediaKeyMessageTypeLicenseRenewal >>= - \ r -> - case r of - True -> return (Just MediaKeyMessageTypeLicenseRenewal) - False - -> x `strictEqual` js_MediaKeyMessageTypeLicenseRelease >>= - \ r -> - case r of - True - -> return (Just MediaKeyMessageTypeLicenseRelease) - False - -> x `strictEqual` - js_MediaKeyMessageTypeIndividualizationRequest - >>= - \ r -> - case r of - True - -> return - (Just - MediaKeyMessageTypeIndividualizationRequest) - False -> return Nothing -js_MediaKeyMessageTypeLicenseRequest = "license-request" -js_MediaKeyMessageTypeLicenseRenewal = "license-renewal" -js_MediaKeyMessageTypeLicenseRelease = "license-release" -js_MediaKeyMessageTypeIndividualizationRequest - = "individualization-request" - -data MediaKeySessionType = MediaKeySessionTypeTemporary - | MediaKeySessionTypePersistentUsageRecord - | MediaKeySessionTypePersistentLicense - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal MediaKeySessionType where - toJSVal MediaKeySessionTypeTemporary - = toJSVal js_MediaKeySessionTypeTemporary - toJSVal MediaKeySessionTypePersistentUsageRecord - = toJSVal js_MediaKeySessionTypePersistentUsageRecord - toJSVal MediaKeySessionTypePersistentLicense - = toJSVal js_MediaKeySessionTypePersistentLicense - -instance FromJSVal MediaKeySessionType where - fromJSVal x - = x `strictEqual` js_MediaKeySessionTypeTemporary >>= - \ r -> - case r of - True -> return (Just MediaKeySessionTypeTemporary) - False - -> x `strictEqual` js_MediaKeySessionTypePersistentUsageRecord >>= - \ r -> - case r of - True -> return (Just MediaKeySessionTypePersistentUsageRecord) - False - -> x `strictEqual` js_MediaKeySessionTypePersistentLicense >>= - \ r -> - case r of - True - -> return - (Just MediaKeySessionTypePersistentLicense) - False -> return Nothing -js_MediaKeySessionTypeTemporary = "temporary" -js_MediaKeySessionTypePersistentUsageRecord - = "persistent-usage-record" -js_MediaKeySessionTypePersistentLicense = "persistent-license" - -data MediaKeysRequirement = MediaKeysRequirementRequired - | MediaKeysRequirementOptional - | MediaKeysRequirementNotAllowed - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal MediaKeysRequirement where - toJSVal MediaKeysRequirementRequired - = toJSVal js_MediaKeysRequirementRequired - toJSVal MediaKeysRequirementOptional - = toJSVal js_MediaKeysRequirementOptional - toJSVal MediaKeysRequirementNotAllowed - = toJSVal js_MediaKeysRequirementNotAllowed - -instance FromJSVal MediaKeysRequirement where - fromJSVal x - = x `strictEqual` js_MediaKeysRequirementRequired >>= - \ r -> - case r of - True -> return (Just MediaKeysRequirementRequired) - False - -> x `strictEqual` js_MediaKeysRequirementOptional >>= - \ r -> - case r of - True -> return (Just MediaKeysRequirementOptional) - False - -> x `strictEqual` js_MediaKeysRequirementNotAllowed >>= - \ r -> - case r of - True -> return (Just MediaKeysRequirementNotAllowed) - False -> return Nothing -js_MediaKeysRequirementRequired = "required" -js_MediaKeysRequirementOptional = "optional" -js_MediaKeysRequirementNotAllowed = "not-allowed" - -data MediaKeyStatus = MediaKeyStatusUsable - | MediaKeyStatusExpired - | MediaKeyStatusReleased - | MediaKeyStatusOutputRestricted - | MediaKeyStatusOutputDownscaled - | MediaKeyStatusStatusPending - | MediaKeyStatusInternalError - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal MediaKeyStatus where - toJSVal MediaKeyStatusUsable = toJSVal js_MediaKeyStatusUsable - toJSVal MediaKeyStatusExpired = toJSVal js_MediaKeyStatusExpired - toJSVal MediaKeyStatusReleased = toJSVal js_MediaKeyStatusReleased - toJSVal MediaKeyStatusOutputRestricted - = toJSVal js_MediaKeyStatusOutputRestricted - toJSVal MediaKeyStatusOutputDownscaled - = toJSVal js_MediaKeyStatusOutputDownscaled - toJSVal MediaKeyStatusStatusPending - = toJSVal js_MediaKeyStatusStatusPending - toJSVal MediaKeyStatusInternalError - = toJSVal js_MediaKeyStatusInternalError - -instance FromJSVal MediaKeyStatus where - fromJSVal x - = x `strictEqual` js_MediaKeyStatusUsable >>= - \ r -> - case r of - True -> return (Just MediaKeyStatusUsable) - False - -> x `strictEqual` js_MediaKeyStatusExpired >>= - \ r -> - case r of - True -> return (Just MediaKeyStatusExpired) - False - -> x `strictEqual` js_MediaKeyStatusReleased >>= - \ r -> - case r of - True -> return (Just MediaKeyStatusReleased) - False - -> x `strictEqual` js_MediaKeyStatusOutputRestricted - >>= - \ r -> - case r of - True - -> return - (Just - MediaKeyStatusOutputRestricted) - False - -> x `strictEqual` - js_MediaKeyStatusOutputDownscaled - >>= - \ r -> - case r of - True - -> return - (Just - MediaKeyStatusOutputDownscaled) - False - -> x `strictEqual` - js_MediaKeyStatusStatusPending - >>= - \ r -> - case r of - True - -> return - (Just - MediaKeyStatusStatusPending) - False - -> x `strictEqual` - js_MediaKeyStatusInternalError - >>= - \ r -> - case r - of - True - -> return - (Just - MediaKeyStatusInternalError) - False - -> return - Nothing -js_MediaKeyStatusUsable = "usable" -js_MediaKeyStatusExpired = "expired" -js_MediaKeyStatusReleased = "released" -js_MediaKeyStatusOutputRestricted = "output-restricted" -js_MediaKeyStatusOutputDownscaled = "output-downscaled" -js_MediaKeyStatusStatusPending = "status-pending" -js_MediaKeyStatusInternalError = "internal-error" - -data RequestType = RequestType - | RequestTypeAudio - | RequestTypeFont - | RequestTypeImage - | RequestTypeScript - | RequestTypeStyle - | RequestTypeTrack - | RequestTypeVideo - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RequestType where - toJSVal RequestType = toJSVal js_RequestType - toJSVal RequestTypeAudio = toJSVal js_RequestTypeAudio - toJSVal RequestTypeFont = toJSVal js_RequestTypeFont - toJSVal RequestTypeImage = toJSVal js_RequestTypeImage - toJSVal RequestTypeScript = toJSVal js_RequestTypeScript - toJSVal RequestTypeStyle = toJSVal js_RequestTypeStyle - toJSVal RequestTypeTrack = toJSVal js_RequestTypeTrack - toJSVal RequestTypeVideo = toJSVal js_RequestTypeVideo - -instance FromJSVal RequestType where - fromJSVal x - = x `strictEqual` js_RequestType >>= - \ r -> - case r of - True -> return (Just RequestType) - False - -> x `strictEqual` js_RequestTypeAudio >>= - \ r -> - case r of - True -> return (Just RequestTypeAudio) - False - -> x `strictEqual` js_RequestTypeFont >>= - \ r -> - case r of - True -> return (Just RequestTypeFont) - False - -> x `strictEqual` js_RequestTypeImage >>= - \ r -> - case r of - True -> return (Just RequestTypeImage) - False - -> x `strictEqual` js_RequestTypeScript - >>= - \ r -> - case r of - True - -> return - (Just - RequestTypeScript) - False - -> x `strictEqual` - js_RequestTypeStyle - >>= - \ r -> - case r of - True - -> return - (Just - RequestTypeStyle) - False - -> x `strictEqual` - js_RequestTypeTrack - >>= - \ r -> - case r - of - True - -> return - (Just - RequestTypeTrack) - False - -> x `strictEqual` - js_RequestTypeVideo - >>= - \ r - -> - case - r - of - True - -> return - (Just - RequestTypeVideo) - False - -> return - Nothing -js_RequestType = "" -js_RequestTypeAudio = "audio" -js_RequestTypeFont = "font" -js_RequestTypeImage = "image" -js_RequestTypeScript = "script" -js_RequestTypeStyle = "style" -js_RequestTypeTrack = "track" -js_RequestTypeVideo = "video" - -data RequestDestination = RequestDestination - | RequestDestinationDocument - | RequestDestinationSharedworker - | RequestDestinationSubresource - | RequestDestinationUnknown - | RequestDestinationWorker - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RequestDestination where - toJSVal RequestDestination = toJSVal js_RequestDestination - toJSVal RequestDestinationDocument - = toJSVal js_RequestDestinationDocument - toJSVal RequestDestinationSharedworker - = toJSVal js_RequestDestinationSharedworker - toJSVal RequestDestinationSubresource - = toJSVal js_RequestDestinationSubresource - toJSVal RequestDestinationUnknown - = toJSVal js_RequestDestinationUnknown - toJSVal RequestDestinationWorker - = toJSVal js_RequestDestinationWorker - -instance FromJSVal RequestDestination where - fromJSVal x - = x `strictEqual` js_RequestDestination >>= - \ r -> - case r of - True -> return (Just RequestDestination) - False - -> x `strictEqual` js_RequestDestinationDocument >>= - \ r -> - case r of - True -> return (Just RequestDestinationDocument) - False - -> x `strictEqual` js_RequestDestinationSharedworker >>= - \ r -> - case r of - True -> return (Just RequestDestinationSharedworker) - False - -> x `strictEqual` js_RequestDestinationSubresource - >>= - \ r -> - case r of - True - -> return - (Just - RequestDestinationSubresource) - False - -> x `strictEqual` - js_RequestDestinationUnknown - >>= - \ r -> - case r of - True - -> return - (Just - RequestDestinationUnknown) - False - -> x `strictEqual` - js_RequestDestinationWorker - >>= - \ r -> - case r of - True - -> return - (Just - RequestDestinationWorker) - False - -> return - Nothing -js_RequestDestination = "" -js_RequestDestinationDocument = "document" -js_RequestDestinationSharedworker = "sharedworker" -js_RequestDestinationSubresource = "subresource" -js_RequestDestinationUnknown = "unknown" -js_RequestDestinationWorker = "worker" - -data RequestMode = RequestModeNavigate - | RequestModeSameOrigin - | RequestModeNoCors - | RequestModeCors - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RequestMode where - toJSVal RequestModeNavigate = toJSVal js_RequestModeNavigate - toJSVal RequestModeSameOrigin = toJSVal js_RequestModeSameOrigin - toJSVal RequestModeNoCors = toJSVal js_RequestModeNoCors - toJSVal RequestModeCors = toJSVal js_RequestModeCors - -instance FromJSVal RequestMode where - fromJSVal x - = x `strictEqual` js_RequestModeNavigate >>= - \ r -> - case r of - True -> return (Just RequestModeNavigate) - False - -> x `strictEqual` js_RequestModeSameOrigin >>= - \ r -> - case r of - True -> return (Just RequestModeSameOrigin) - False - -> x `strictEqual` js_RequestModeNoCors >>= - \ r -> - case r of - True -> return (Just RequestModeNoCors) - False - -> x `strictEqual` js_RequestModeCors >>= - \ r -> - case r of - True -> return (Just RequestModeCors) - False -> return Nothing -js_RequestModeNavigate = "navigate" -js_RequestModeSameOrigin = "same-origin" -js_RequestModeNoCors = "no-cors" -js_RequestModeCors = "cors" - -data RequestCredentials = RequestCredentialsOmit - | RequestCredentialsSameOrigin - | RequestCredentialsInclude - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RequestCredentials where - toJSVal RequestCredentialsOmit = toJSVal js_RequestCredentialsOmit - toJSVal RequestCredentialsSameOrigin - = toJSVal js_RequestCredentialsSameOrigin - toJSVal RequestCredentialsInclude - = toJSVal js_RequestCredentialsInclude - -instance FromJSVal RequestCredentials where - fromJSVal x - = x `strictEqual` js_RequestCredentialsOmit >>= - \ r -> - case r of - True -> return (Just RequestCredentialsOmit) - False - -> x `strictEqual` js_RequestCredentialsSameOrigin >>= - \ r -> - case r of - True -> return (Just RequestCredentialsSameOrigin) - False - -> x `strictEqual` js_RequestCredentialsInclude >>= - \ r -> - case r of - True -> return (Just RequestCredentialsInclude) - False -> return Nothing -js_RequestCredentialsOmit = "omit" -js_RequestCredentialsSameOrigin = "same-origin" -js_RequestCredentialsInclude = "include" - -data RequestCache = RequestCacheDefault - | RequestCacheNoStore - | RequestCacheReload - | RequestCacheNoCache - | RequestCacheForceCache - | RequestCacheOnlyIfCached - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RequestCache where - toJSVal RequestCacheDefault = toJSVal js_RequestCacheDefault - toJSVal RequestCacheNoStore = toJSVal js_RequestCacheNoStore - toJSVal RequestCacheReload = toJSVal js_RequestCacheReload - toJSVal RequestCacheNoCache = toJSVal js_RequestCacheNoCache - toJSVal RequestCacheForceCache = toJSVal js_RequestCacheForceCache - toJSVal RequestCacheOnlyIfCached - = toJSVal js_RequestCacheOnlyIfCached - -instance FromJSVal RequestCache where - fromJSVal x - = x `strictEqual` js_RequestCacheDefault >>= - \ r -> - case r of - True -> return (Just RequestCacheDefault) - False - -> x `strictEqual` js_RequestCacheNoStore >>= - \ r -> - case r of - True -> return (Just RequestCacheNoStore) - False - -> x `strictEqual` js_RequestCacheReload >>= - \ r -> - case r of - True -> return (Just RequestCacheReload) - False - -> x `strictEqual` js_RequestCacheNoCache >>= - \ r -> - case r of - True -> return (Just RequestCacheNoCache) - False - -> x `strictEqual` - js_RequestCacheForceCache - >>= - \ r -> - case r of - True - -> return - (Just - RequestCacheForceCache) - False - -> x `strictEqual` - js_RequestCacheOnlyIfCached - >>= - \ r -> - case r of - True - -> return - (Just - RequestCacheOnlyIfCached) - False - -> return - Nothing -js_RequestCacheDefault = "default" -js_RequestCacheNoStore = "no-store" -js_RequestCacheReload = "reload" -js_RequestCacheNoCache = "no-cache" -js_RequestCacheForceCache = "force-cache" -js_RequestCacheOnlyIfCached = "only-if-cached" - -data RequestRedirect = RequestRedirectFollow - | RequestRedirectError - | RequestRedirectManual - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RequestRedirect where - toJSVal RequestRedirectFollow = toJSVal js_RequestRedirectFollow - toJSVal RequestRedirectError = toJSVal js_RequestRedirectError - toJSVal RequestRedirectManual = toJSVal js_RequestRedirectManual - -instance FromJSVal RequestRedirect where - fromJSVal x - = x `strictEqual` js_RequestRedirectFollow >>= - \ r -> - case r of - True -> return (Just RequestRedirectFollow) - False - -> x `strictEqual` js_RequestRedirectError >>= - \ r -> - case r of - True -> return (Just RequestRedirectError) - False - -> x `strictEqual` js_RequestRedirectManual >>= - \ r -> - case r of - True -> return (Just RequestRedirectManual) - False -> return Nothing -js_RequestRedirectFollow = "follow" -js_RequestRedirectError = "error" -js_RequestRedirectManual = "manual" - -data ReferrerPolicy = ReferrerPolicy - | ReferrerPolicyNoReferrer - | ReferrerPolicyNoReferrerWhenDowngrade - | ReferrerPolicyOrigin - | ReferrerPolicyOriginWhenCrossOrigin - | ReferrerPolicyUnsafeUrl - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ReferrerPolicy where - toJSVal ReferrerPolicy = toJSVal js_ReferrerPolicy - toJSVal ReferrerPolicyNoReferrer - = toJSVal js_ReferrerPolicyNoReferrer - toJSVal ReferrerPolicyNoReferrerWhenDowngrade - = toJSVal js_ReferrerPolicyNoReferrerWhenDowngrade - toJSVal ReferrerPolicyOrigin = toJSVal js_ReferrerPolicyOrigin - toJSVal ReferrerPolicyOriginWhenCrossOrigin - = toJSVal js_ReferrerPolicyOriginWhenCrossOrigin - toJSVal ReferrerPolicyUnsafeUrl - = toJSVal js_ReferrerPolicyUnsafeUrl - -instance FromJSVal ReferrerPolicy where - fromJSVal x - = x `strictEqual` js_ReferrerPolicy >>= - \ r -> - case r of - True -> return (Just ReferrerPolicy) - False - -> x `strictEqual` js_ReferrerPolicyNoReferrer >>= - \ r -> - case r of - True -> return (Just ReferrerPolicyNoReferrer) - False - -> x `strictEqual` js_ReferrerPolicyNoReferrerWhenDowngrade >>= - \ r -> - case r of - True - -> return - (Just ReferrerPolicyNoReferrerWhenDowngrade) - False - -> x `strictEqual` js_ReferrerPolicyOrigin >>= - \ r -> - case r of - True - -> return (Just ReferrerPolicyOrigin) - False - -> x `strictEqual` - js_ReferrerPolicyOriginWhenCrossOrigin - >>= - \ r -> - case r of - True - -> return - (Just - ReferrerPolicyOriginWhenCrossOrigin) - False - -> x `strictEqual` - js_ReferrerPolicyUnsafeUrl - >>= - \ r -> - case r of - True - -> return - (Just - ReferrerPolicyUnsafeUrl) - False - -> return - Nothing -js_ReferrerPolicy = "" -js_ReferrerPolicyNoReferrer = "no-referrer" -js_ReferrerPolicyNoReferrerWhenDowngrade - = "no-referrer-when-downgrade" -js_ReferrerPolicyOrigin = "origin" -js_ReferrerPolicyOriginWhenCrossOrigin = "origin-when-cross-origin" -js_ReferrerPolicyUnsafeUrl = "unsafe-url" - -data ResponseType = ResponseTypeBasic - | ResponseTypeCors - | ResponseTypeDefault - | ResponseTypeError - | ResponseTypeOpaque - | ResponseTypeOpaqueredirect - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal ResponseType where - toJSVal ResponseTypeBasic = toJSVal js_ResponseTypeBasic - toJSVal ResponseTypeCors = toJSVal js_ResponseTypeCors - toJSVal ResponseTypeDefault = toJSVal js_ResponseTypeDefault - toJSVal ResponseTypeError = toJSVal js_ResponseTypeError - toJSVal ResponseTypeOpaque = toJSVal js_ResponseTypeOpaque - toJSVal ResponseTypeOpaqueredirect - = toJSVal js_ResponseTypeOpaqueredirect - -instance FromJSVal ResponseType where - fromJSVal x - = x `strictEqual` js_ResponseTypeBasic >>= - \ r -> - case r of - True -> return (Just ResponseTypeBasic) - False - -> x `strictEqual` js_ResponseTypeCors >>= - \ r -> - case r of - True -> return (Just ResponseTypeCors) - False - -> x `strictEqual` js_ResponseTypeDefault >>= - \ r -> - case r of - True -> return (Just ResponseTypeDefault) - False - -> x `strictEqual` js_ResponseTypeError >>= - \ r -> - case r of - True -> return (Just ResponseTypeError) - False - -> x `strictEqual` - js_ResponseTypeOpaque - >>= - \ r -> - case r of - True - -> return - (Just - ResponseTypeOpaque) - False - -> x `strictEqual` - js_ResponseTypeOpaqueredirect - >>= - \ r -> - case r of - True - -> return - (Just - ResponseTypeOpaqueredirect) - False - -> return - Nothing -js_ResponseTypeBasic = "basic" -js_ResponseTypeCors = "cors" -js_ResponseTypeDefault = "default" -js_ResponseTypeError = "error" -js_ResponseTypeOpaque = "opaque" -js_ResponseTypeOpaqueredirect = "opaqueredirect" - -data IDBCursorDirection = IDBCursorDirectionNext - | IDBCursorDirectionNextunique - | IDBCursorDirectionPrev - | IDBCursorDirectionPrevunique - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal IDBCursorDirection where - toJSVal IDBCursorDirectionNext = toJSVal js_IDBCursorDirectionNext - toJSVal IDBCursorDirectionNextunique - = toJSVal js_IDBCursorDirectionNextunique - toJSVal IDBCursorDirectionPrev = toJSVal js_IDBCursorDirectionPrev - toJSVal IDBCursorDirectionPrevunique - = toJSVal js_IDBCursorDirectionPrevunique - -instance FromJSVal IDBCursorDirection where - fromJSVal x - = x `strictEqual` js_IDBCursorDirectionNext >>= - \ r -> - case r of - True -> return (Just IDBCursorDirectionNext) - False - -> x `strictEqual` js_IDBCursorDirectionNextunique >>= - \ r -> - case r of - True -> return (Just IDBCursorDirectionNextunique) - False - -> x `strictEqual` js_IDBCursorDirectionPrev >>= - \ r -> - case r of - True -> return (Just IDBCursorDirectionPrev) - False - -> x `strictEqual` js_IDBCursorDirectionPrevunique - >>= - \ r -> - case r of - True - -> return - (Just - IDBCursorDirectionPrevunique) - False -> return Nothing -js_IDBCursorDirectionNext = "next" -js_IDBCursorDirectionNextunique = "nextunique" -js_IDBCursorDirectionPrev = "prev" -js_IDBCursorDirectionPrevunique = "prevunique" - -data IDBRequestReadyState = IDBRequestReadyStatePending - | IDBRequestReadyStateDone - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal IDBRequestReadyState where - toJSVal IDBRequestReadyStatePending - = toJSVal js_IDBRequestReadyStatePending - toJSVal IDBRequestReadyStateDone - = toJSVal js_IDBRequestReadyStateDone - -instance FromJSVal IDBRequestReadyState where - fromJSVal x - = x `strictEqual` js_IDBRequestReadyStatePending >>= - \ r -> - case r of - True -> return (Just IDBRequestReadyStatePending) - False - -> x `strictEqual` js_IDBRequestReadyStateDone >>= - \ r -> - case r of - True -> return (Just IDBRequestReadyStateDone) - False -> return Nothing -js_IDBRequestReadyStatePending = "pending" -js_IDBRequestReadyStateDone = "done" - -data IDBTransactionMode = IDBTransactionModeReadonly - | IDBTransactionModeReadwrite - | IDBTransactionModeVersionchange - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal IDBTransactionMode where - toJSVal IDBTransactionModeReadonly - = toJSVal js_IDBTransactionModeReadonly - toJSVal IDBTransactionModeReadwrite - = toJSVal js_IDBTransactionModeReadwrite - toJSVal IDBTransactionModeVersionchange - = toJSVal js_IDBTransactionModeVersionchange - -instance FromJSVal IDBTransactionMode where - fromJSVal x - = x `strictEqual` js_IDBTransactionModeReadonly >>= - \ r -> - case r of - True -> return (Just IDBTransactionModeReadonly) - False - -> x `strictEqual` js_IDBTransactionModeReadwrite >>= - \ r -> - case r of - True -> return (Just IDBTransactionModeReadwrite) - False - -> x `strictEqual` js_IDBTransactionModeVersionchange >>= - \ r -> - case r of - True -> return (Just IDBTransactionModeVersionchange) - False -> return Nothing -js_IDBTransactionModeReadonly = "readonly" -js_IDBTransactionModeReadwrite = "readwrite" -js_IDBTransactionModeVersionchange = "versionchange" - -data DeviceType = DeviceTypeNone - | DeviceTypeAirplay - | DeviceTypeTvout - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal DeviceType where - toJSVal DeviceTypeNone = toJSVal js_DeviceTypeNone - toJSVal DeviceTypeAirplay = toJSVal js_DeviceTypeAirplay - toJSVal DeviceTypeTvout = toJSVal js_DeviceTypeTvout - -instance FromJSVal DeviceType where - fromJSVal x - = x `strictEqual` js_DeviceTypeNone >>= - \ r -> - case r of - True -> return (Just DeviceTypeNone) - False - -> x `strictEqual` js_DeviceTypeAirplay >>= - \ r -> - case r of - True -> return (Just DeviceTypeAirplay) - False - -> x `strictEqual` js_DeviceTypeTvout >>= - \ r -> - case r of - True -> return (Just DeviceTypeTvout) - False -> return Nothing -js_DeviceTypeNone = "none" -js_DeviceTypeAirplay = "airplay" -js_DeviceTypeTvout = "tvout" - -data MediaSessionKind = MediaSessionKindContent - | MediaSessionKindTransient - | MediaSessionKindTransientSolo - | MediaSessionKindAmbient - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal MediaSessionKind where - toJSVal MediaSessionKindContent - = toJSVal js_MediaSessionKindContent - toJSVal MediaSessionKindTransient - = toJSVal js_MediaSessionKindTransient - toJSVal MediaSessionKindTransientSolo - = toJSVal js_MediaSessionKindTransientSolo - toJSVal MediaSessionKindAmbient - = toJSVal js_MediaSessionKindAmbient - -instance FromJSVal MediaSessionKind where - fromJSVal x - = x `strictEqual` js_MediaSessionKindContent >>= - \ r -> - case r of - True -> return (Just MediaSessionKindContent) - False - -> x `strictEqual` js_MediaSessionKindTransient >>= - \ r -> - case r of - True -> return (Just MediaSessionKindTransient) - False - -> x `strictEqual` js_MediaSessionKindTransientSolo >>= - \ r -> - case r of - True -> return (Just MediaSessionKindTransientSolo) - False - -> x `strictEqual` js_MediaSessionKindAmbient >>= - \ r -> - case r of - True - -> return - (Just MediaSessionKindAmbient) - False -> return Nothing -js_MediaSessionKindContent = "content" -js_MediaSessionKindTransient = "transient" -js_MediaSessionKindTransientSolo = "transient-solo" -js_MediaSessionKindAmbient = "ambient" - -data EndOfStreamError = EndOfStreamErrorNetwork - | EndOfStreamErrorDecode - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal EndOfStreamError where - toJSVal EndOfStreamErrorNetwork - = toJSVal js_EndOfStreamErrorNetwork - toJSVal EndOfStreamErrorDecode = toJSVal js_EndOfStreamErrorDecode - -instance FromJSVal EndOfStreamError where - fromJSVal x - = x `strictEqual` js_EndOfStreamErrorNetwork >>= - \ r -> - case r of - True -> return (Just EndOfStreamErrorNetwork) - False - -> x `strictEqual` js_EndOfStreamErrorDecode >>= - \ r -> - case r of - True -> return (Just EndOfStreamErrorDecode) - False -> return Nothing -js_EndOfStreamErrorNetwork = "network" -js_EndOfStreamErrorDecode = "decode" - -data AppendMode = AppendModeSegments - | AppendModeSequence - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal AppendMode where - toJSVal AppendModeSegments = toJSVal js_AppendModeSegments - toJSVal AppendModeSequence = toJSVal js_AppendModeSequence - -instance FromJSVal AppendMode where - fromJSVal x - = x `strictEqual` js_AppendModeSegments >>= - \ r -> - case r of - True -> return (Just AppendModeSegments) - False - -> x `strictEqual` js_AppendModeSequence >>= - \ r -> - case r of - True -> return (Just AppendModeSequence) - False -> return Nothing -js_AppendModeSegments = "segments" -js_AppendModeSequence = "sequence" - -data MediaDeviceKind = MediaDeviceKindAudioinput - | MediaDeviceKindAudiooutput - | MediaDeviceKindVideoinput - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal MediaDeviceKind where - toJSVal MediaDeviceKindAudioinput - = toJSVal js_MediaDeviceKindAudioinput - toJSVal MediaDeviceKindAudiooutput - = toJSVal js_MediaDeviceKindAudiooutput - toJSVal MediaDeviceKindVideoinput - = toJSVal js_MediaDeviceKindVideoinput - -instance FromJSVal MediaDeviceKind where - fromJSVal x - = x `strictEqual` js_MediaDeviceKindAudioinput >>= - \ r -> - case r of - True -> return (Just MediaDeviceKindAudioinput) - False - -> x `strictEqual` js_MediaDeviceKindAudiooutput >>= - \ r -> - case r of - True -> return (Just MediaDeviceKindAudiooutput) - False - -> x `strictEqual` js_MediaDeviceKindVideoinput >>= - \ r -> - case r of - True -> return (Just MediaDeviceKindVideoinput) - False -> return Nothing -js_MediaDeviceKindAudioinput = "audioinput" -js_MediaDeviceKindAudiooutput = "audiooutput" -js_MediaDeviceKindVideoinput = "videoinput" - -data MediaStreamTrackState = MediaStreamTrackStateNew - | MediaStreamTrackStateLive - | MediaStreamTrackStateEnded - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal MediaStreamTrackState where - toJSVal MediaStreamTrackStateNew - = toJSVal js_MediaStreamTrackStateNew - toJSVal MediaStreamTrackStateLive - = toJSVal js_MediaStreamTrackStateLive - toJSVal MediaStreamTrackStateEnded - = toJSVal js_MediaStreamTrackStateEnded - -instance FromJSVal MediaStreamTrackState where - fromJSVal x - = x `strictEqual` js_MediaStreamTrackStateNew >>= - \ r -> - case r of - True -> return (Just MediaStreamTrackStateNew) - False - -> x `strictEqual` js_MediaStreamTrackStateLive >>= - \ r -> - case r of - True -> return (Just MediaStreamTrackStateLive) - False - -> x `strictEqual` js_MediaStreamTrackStateEnded >>= - \ r -> - case r of - True -> return (Just MediaStreamTrackStateEnded) - False -> return Nothing -js_MediaStreamTrackStateNew = "new" -js_MediaStreamTrackStateLive = "live" -js_MediaStreamTrackStateEnded = "ended" - -data RTCIceTransportPolicy = RTCIceTransportPolicyRelay - | RTCIceTransportPolicyAll - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RTCIceTransportPolicy where - toJSVal RTCIceTransportPolicyRelay - = toJSVal js_RTCIceTransportPolicyRelay - toJSVal RTCIceTransportPolicyAll - = toJSVal js_RTCIceTransportPolicyAll - -instance FromJSVal RTCIceTransportPolicy where - fromJSVal x - = x `strictEqual` js_RTCIceTransportPolicyRelay >>= - \ r -> - case r of - True -> return (Just RTCIceTransportPolicyRelay) - False - -> x `strictEqual` js_RTCIceTransportPolicyAll >>= - \ r -> - case r of - True -> return (Just RTCIceTransportPolicyAll) - False -> return Nothing -js_RTCIceTransportPolicyRelay = "relay" -js_RTCIceTransportPolicyAll = "all" - -data RTCBundlePolicy = RTCBundlePolicyBalanced - | RTCBundlePolicyMaxCompat - | RTCBundlePolicyMaxBundle - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RTCBundlePolicy where - toJSVal RTCBundlePolicyBalanced - = toJSVal js_RTCBundlePolicyBalanced - toJSVal RTCBundlePolicyMaxCompat - = toJSVal js_RTCBundlePolicyMaxCompat - toJSVal RTCBundlePolicyMaxBundle - = toJSVal js_RTCBundlePolicyMaxBundle - -instance FromJSVal RTCBundlePolicy where - fromJSVal x - = x `strictEqual` js_RTCBundlePolicyBalanced >>= - \ r -> - case r of - True -> return (Just RTCBundlePolicyBalanced) - False - -> x `strictEqual` js_RTCBundlePolicyMaxCompat >>= - \ r -> - case r of - True -> return (Just RTCBundlePolicyMaxCompat) - False - -> x `strictEqual` js_RTCBundlePolicyMaxBundle >>= - \ r -> - case r of - True -> return (Just RTCBundlePolicyMaxBundle) - False -> return Nothing -js_RTCBundlePolicyBalanced = "balanced" -js_RTCBundlePolicyMaxCompat = "max-compat" -js_RTCBundlePolicyMaxBundle = "max-bundle" - -data RTCRtpTransceiverDirection = RTCRtpTransceiverDirectionSendrecv - | RTCRtpTransceiverDirectionSendonly - | RTCRtpTransceiverDirectionRecvonly - | RTCRtpTransceiverDirectionInactive - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RTCRtpTransceiverDirection where - toJSVal RTCRtpTransceiverDirectionSendrecv - = toJSVal js_RTCRtpTransceiverDirectionSendrecv - toJSVal RTCRtpTransceiverDirectionSendonly - = toJSVal js_RTCRtpTransceiverDirectionSendonly - toJSVal RTCRtpTransceiverDirectionRecvonly - = toJSVal js_RTCRtpTransceiverDirectionRecvonly - toJSVal RTCRtpTransceiverDirectionInactive - = toJSVal js_RTCRtpTransceiverDirectionInactive - -instance FromJSVal RTCRtpTransceiverDirection where - fromJSVal x - = x `strictEqual` js_RTCRtpTransceiverDirectionSendrecv >>= - \ r -> - case r of - True -> return (Just RTCRtpTransceiverDirectionSendrecv) - False - -> x `strictEqual` js_RTCRtpTransceiverDirectionSendonly >>= - \ r -> - case r of - True -> return (Just RTCRtpTransceiverDirectionSendonly) - False - -> x `strictEqual` js_RTCRtpTransceiverDirectionRecvonly >>= - \ r -> - case r of - True - -> return (Just RTCRtpTransceiverDirectionRecvonly) - False - -> x `strictEqual` - js_RTCRtpTransceiverDirectionInactive - >>= - \ r -> - case r of - True - -> return - (Just - RTCRtpTransceiverDirectionInactive) - False -> return Nothing -js_RTCRtpTransceiverDirectionSendrecv = "sendrecv" -js_RTCRtpTransceiverDirectionSendonly = "sendonly" -js_RTCRtpTransceiverDirectionRecvonly = "recvonly" -js_RTCRtpTransceiverDirectionInactive = "inactive" - -data RTCSdpType = RTCSdpTypeOffer - | RTCSdpTypePranswer - | RTCSdpTypeAnswer - | RTCSdpTypeRollback - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal RTCSdpType where - toJSVal RTCSdpTypeOffer = toJSVal js_RTCSdpTypeOffer - toJSVal RTCSdpTypePranswer = toJSVal js_RTCSdpTypePranswer - toJSVal RTCSdpTypeAnswer = toJSVal js_RTCSdpTypeAnswer - toJSVal RTCSdpTypeRollback = toJSVal js_RTCSdpTypeRollback - -instance FromJSVal RTCSdpType where - fromJSVal x - = x `strictEqual` js_RTCSdpTypeOffer >>= - \ r -> - case r of - True -> return (Just RTCSdpTypeOffer) - False - -> x `strictEqual` js_RTCSdpTypePranswer >>= - \ r -> - case r of - True -> return (Just RTCSdpTypePranswer) - False - -> x `strictEqual` js_RTCSdpTypeAnswer >>= - \ r -> - case r of - True -> return (Just RTCSdpTypeAnswer) - False - -> x `strictEqual` js_RTCSdpTypeRollback >>= - \ r -> - case r of - True -> return (Just RTCSdpTypeRollback) - False -> return Nothing -js_RTCSdpTypeOffer = "offer" -js_RTCSdpTypePranswer = "pranswer" -js_RTCSdpTypeAnswer = "answer" -js_RTCSdpTypeRollback = "rollback" - -data NotificationDirection = NotificationDirectionAuto - | NotificationDirectionLtr - | NotificationDirectionRtl - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal NotificationDirection where - toJSVal NotificationDirectionAuto - = toJSVal js_NotificationDirectionAuto - toJSVal NotificationDirectionLtr - = toJSVal js_NotificationDirectionLtr - toJSVal NotificationDirectionRtl - = toJSVal js_NotificationDirectionRtl - -instance FromJSVal NotificationDirection where - fromJSVal x - = x `strictEqual` js_NotificationDirectionAuto >>= - \ r -> - case r of - True -> return (Just NotificationDirectionAuto) - False - -> x `strictEqual` js_NotificationDirectionLtr >>= - \ r -> - case r of - True -> return (Just NotificationDirectionLtr) - False - -> x `strictEqual` js_NotificationDirectionRtl >>= - \ r -> - case r of - True -> return (Just NotificationDirectionRtl) - False -> return Nothing -js_NotificationDirectionAuto = "auto" -js_NotificationDirectionLtr = "ltr" -js_NotificationDirectionRtl = "rtl" - -data AudioContextState = AudioContextStateSuspended - | AudioContextStateRunning - | AudioContextStateInterrupted - | AudioContextStateClosed - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal AudioContextState where - toJSVal AudioContextStateSuspended - = toJSVal js_AudioContextStateSuspended - toJSVal AudioContextStateRunning - = toJSVal js_AudioContextStateRunning - toJSVal AudioContextStateInterrupted - = toJSVal js_AudioContextStateInterrupted - toJSVal AudioContextStateClosed - = toJSVal js_AudioContextStateClosed - -instance FromJSVal AudioContextState where - fromJSVal x - = x `strictEqual` js_AudioContextStateSuspended >>= - \ r -> - case r of - True -> return (Just AudioContextStateSuspended) - False - -> x `strictEqual` js_AudioContextStateRunning >>= - \ r -> - case r of - True -> return (Just AudioContextStateRunning) - False - -> x `strictEqual` js_AudioContextStateInterrupted >>= - \ r -> - case r of - True -> return (Just AudioContextStateInterrupted) - False - -> x `strictEqual` js_AudioContextStateClosed >>= - \ r -> - case r of - True - -> return - (Just AudioContextStateClosed) - False -> return Nothing -js_AudioContextStateSuspended = "suspended" -js_AudioContextStateRunning = "running" -js_AudioContextStateInterrupted = "interrupted" -js_AudioContextStateClosed = "closed" - -data BiquadFilterType = BiquadFilterTypeLowpass - | BiquadFilterTypeHighpass - | BiquadFilterTypeBandpass - | BiquadFilterTypeLowshelf - | BiquadFilterTypeHighshelf - | BiquadFilterTypePeaking - | BiquadFilterTypeNotch - | BiquadFilterTypeAllpass - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal BiquadFilterType where - toJSVal BiquadFilterTypeLowpass - = toJSVal js_BiquadFilterTypeLowpass - toJSVal BiquadFilterTypeHighpass - = toJSVal js_BiquadFilterTypeHighpass - toJSVal BiquadFilterTypeBandpass - = toJSVal js_BiquadFilterTypeBandpass - toJSVal BiquadFilterTypeLowshelf - = toJSVal js_BiquadFilterTypeLowshelf - toJSVal BiquadFilterTypeHighshelf - = toJSVal js_BiquadFilterTypeHighshelf - toJSVal BiquadFilterTypePeaking - = toJSVal js_BiquadFilterTypePeaking - toJSVal BiquadFilterTypeNotch = toJSVal js_BiquadFilterTypeNotch - toJSVal BiquadFilterTypeAllpass - = toJSVal js_BiquadFilterTypeAllpass - -instance FromJSVal BiquadFilterType where - fromJSVal x - = x `strictEqual` js_BiquadFilterTypeLowpass >>= - \ r -> - case r of - True -> return (Just BiquadFilterTypeLowpass) - False - -> x `strictEqual` js_BiquadFilterTypeHighpass >>= - \ r -> - case r of - True -> return (Just BiquadFilterTypeHighpass) - False - -> x `strictEqual` js_BiquadFilterTypeBandpass >>= - \ r -> - case r of - True -> return (Just BiquadFilterTypeBandpass) - False - -> x `strictEqual` js_BiquadFilterTypeLowshelf >>= - \ r -> - case r of - True - -> return - (Just BiquadFilterTypeLowshelf) - False - -> x `strictEqual` - js_BiquadFilterTypeHighshelf - >>= - \ r -> - case r of - True - -> return - (Just - BiquadFilterTypeHighshelf) - False - -> x `strictEqual` - js_BiquadFilterTypePeaking - >>= - \ r -> - case r of - True - -> return - (Just - BiquadFilterTypePeaking) - False - -> x `strictEqual` - js_BiquadFilterTypeNotch - >>= - \ r -> - case r - of - True - -> return - (Just - BiquadFilterTypeNotch) - False - -> x `strictEqual` - js_BiquadFilterTypeAllpass - >>= - \ r - -> - case - r - of - True - -> return - (Just - BiquadFilterTypeAllpass) - False - -> return - Nothing -js_BiquadFilterTypeLowpass = "lowpass" -js_BiquadFilterTypeHighpass = "highpass" -js_BiquadFilterTypeBandpass = "bandpass" -js_BiquadFilterTypeLowshelf = "lowshelf" -js_BiquadFilterTypeHighshelf = "highshelf" -js_BiquadFilterTypePeaking = "peaking" -js_BiquadFilterTypeNotch = "notch" -js_BiquadFilterTypeAllpass = "allpass" - -data OscillatorType = OscillatorTypeSine - | OscillatorTypeSquare - | OscillatorTypeSawtooth - | OscillatorTypeTriangle - | OscillatorTypeCustom - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal OscillatorType where - toJSVal OscillatorTypeSine = toJSVal js_OscillatorTypeSine - toJSVal OscillatorTypeSquare = toJSVal js_OscillatorTypeSquare - toJSVal OscillatorTypeSawtooth = toJSVal js_OscillatorTypeSawtooth - toJSVal OscillatorTypeTriangle = toJSVal js_OscillatorTypeTriangle - toJSVal OscillatorTypeCustom = toJSVal js_OscillatorTypeCustom - -instance FromJSVal OscillatorType where - fromJSVal x - = x `strictEqual` js_OscillatorTypeSine >>= - \ r -> - case r of - True -> return (Just OscillatorTypeSine) - False - -> x `strictEqual` js_OscillatorTypeSquare >>= - \ r -> - case r of - True -> return (Just OscillatorTypeSquare) - False - -> x `strictEqual` js_OscillatorTypeSawtooth >>= - \ r -> - case r of - True -> return (Just OscillatorTypeSawtooth) - False - -> x `strictEqual` js_OscillatorTypeTriangle >>= - \ r -> - case r of - True - -> return (Just OscillatorTypeTriangle) - False - -> x `strictEqual` - js_OscillatorTypeCustom - >>= - \ r -> - case r of - True - -> return - (Just - OscillatorTypeCustom) - False -> return Nothing -js_OscillatorTypeSine = "sine" -js_OscillatorTypeSquare = "square" -js_OscillatorTypeSawtooth = "sawtooth" -js_OscillatorTypeTriangle = "triangle" -js_OscillatorTypeCustom = "custom" - -data PanningModelType = PanningModelTypeEqualpower - | PanningModelTypeHRTF - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal PanningModelType where - toJSVal PanningModelTypeEqualpower - = toJSVal js_PanningModelTypeEqualpower - toJSVal PanningModelTypeHRTF = toJSVal js_PanningModelTypeHRTF - -instance FromJSVal PanningModelType where - fromJSVal x - = x `strictEqual` js_PanningModelTypeEqualpower >>= - \ r -> - case r of - True -> return (Just PanningModelTypeEqualpower) - False - -> x `strictEqual` js_PanningModelTypeHRTF >>= - \ r -> - case r of - True -> return (Just PanningModelTypeHRTF) - False -> return Nothing -js_PanningModelTypeEqualpower = "equalpower" -js_PanningModelTypeHRTF = "HRTF" - -data DistanceModelType = DistanceModelTypeLinear - | DistanceModelTypeInverse - | DistanceModelTypeExponential - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal DistanceModelType where - toJSVal DistanceModelTypeLinear - = toJSVal js_DistanceModelTypeLinear - toJSVal DistanceModelTypeInverse - = toJSVal js_DistanceModelTypeInverse - toJSVal DistanceModelTypeExponential - = toJSVal js_DistanceModelTypeExponential - -instance FromJSVal DistanceModelType where - fromJSVal x - = x `strictEqual` js_DistanceModelTypeLinear >>= - \ r -> - case r of - True -> return (Just DistanceModelTypeLinear) - False - -> x `strictEqual` js_DistanceModelTypeInverse >>= - \ r -> - case r of - True -> return (Just DistanceModelTypeInverse) - False - -> x `strictEqual` js_DistanceModelTypeExponential >>= - \ r -> - case r of - True -> return (Just DistanceModelTypeExponential) - False -> return Nothing -js_DistanceModelTypeLinear = "linear" -js_DistanceModelTypeInverse = "inverse" -js_DistanceModelTypeExponential = "exponential" - -data OverSampleType = OverSampleTypeNone - | OverSampleType2x - | OverSampleType4x - deriving (Show, Read, Eq, Ord, Typeable) - -instance ToJSVal OverSampleType where - toJSVal OverSampleTypeNone = toJSVal js_OverSampleTypeNone - toJSVal OverSampleType2x = toJSVal js_OverSampleType2x - toJSVal OverSampleType4x = toJSVal js_OverSampleType4x - -instance FromJSVal OverSampleType where - fromJSVal x - = x `strictEqual` js_OverSampleTypeNone >>= - \ r -> - case r of - True -> return (Just OverSampleTypeNone) - False - -> x `strictEqual` js_OverSampleType2x >>= - \ r -> - case r of - True -> return (Just OverSampleType2x) - False - -> x `strictEqual` js_OverSampleType4x >>= - \ r -> - case r of - True -> return (Just OverSampleType4x) - False -> return Nothing -js_OverSampleTypeNone = "none" -js_OverSampleType2x = "2x" -js_OverSampleType4x = "4x" + js_VisibilityStatePrerender, DocumentReadyState(..), + js_DocumentReadyStateLoading, js_DocumentReadyStateInteractive, + js_DocumentReadyStateComplete, ShadowRootMode(..), + js_ShadowRootModeUserAgent, js_ShadowRootModeClosed, + js_ShadowRootModeOpen, BlobLineEndings(..), + js_BlobLineEndingsTransparent, js_BlobLineEndingsNative, + ImageSmoothingQuality(..), js_ImageSmoothingQualityLow, + js_ImageSmoothingQualityMedium, js_ImageSmoothingQualityHigh, + CanvasWindingRule(..), js_CanvasWindingRuleNonzero, + js_CanvasWindingRuleEvenodd, WebGLPowerPreference(..), + js_WebGLPowerPreferenceDefault, js_WebGLPowerPreferenceLowPower, + js_WebGLPowerPreferenceHighPerformance, WebGPUCompareFunction(..), + js_WebGPUCompareFunctionNever, js_WebGPUCompareFunctionLess, + js_WebGPUCompareFunctionEqual, js_WebGPUCompareFunctionLessequal, + js_WebGPUCompareFunctionGreater, js_WebGPUCompareFunctionNotequal, + js_WebGPUCompareFunctionGreaterequal, + js_WebGPUCompareFunctionAlways, WebGPUPixelFormat(..), + js_WebGPUPixelFormatBGRA8Unorm, WebGPULoadAction(..), + js_WebGPULoadActionDontcare, js_WebGPULoadActionLoad, + js_WebGPULoadActionClear, WebGPUStoreAction(..), + js_WebGPUStoreActionDontcare, js_WebGPUStoreActionStore, + js_WebGPUStoreActionMultisampleresolve, WebGPUPrimitiveType(..), + js_WebGPUPrimitiveTypePoint, js_WebGPUPrimitiveTypeLine, + js_WebGPUPrimitiveTypeLinestrip, js_WebGPUPrimitiveTypeTriangle, + js_WebGPUPrimitiveTypeTrianglestrip, WebGPUFunctionType(..), + js_WebGPUFunctionTypeFragment, js_WebGPUFunctionTypeVertex, + WebGPUStencilOperation(..), js_WebGPUStencilOperationKeep, + js_WebGPUStencilOperationZero, js_WebGPUStencilOperationReplace, + js_WebGPUStencilOperationIncrementclamp, + js_WebGPUStencilOperationDecrementclamp, + js_WebGPUStencilOperationInvert, + js_WebGPUStencilOperationIncrementwrap, + js_WebGPUStencilOperationDecrementwrap, WebGPUStatus(..), + js_WebGPUStatusNotenqueued, js_WebGPUStatusEnqueued, + js_WebGPUStatusCommitted, js_WebGPUStatusScheduled, + js_WebGPUStatusCompleted, js_WebGPUStatusError, + WebGPUSamplerAddressMode(..), + js_WebGPUSamplerAddressModeClamptoedge, + js_WebGPUSamplerAddressModeMirrorclamptoedge, + js_WebGPUSamplerAddressModeRepeat, + js_WebGPUSamplerAddressModeMirrorrepeat, + js_WebGPUSamplerAddressModeClamptozero, + WebGPUSamplerMinMagFilter(..), js_WebGPUSamplerMinMagFilterNearest, + js_WebGPUSamplerMinMagFilterLinear, WebGPUSamplerMipFilter(..), + js_WebGPUSamplerMipFilterNotmipmapped, + js_WebGPUSamplerMipFilterNearest, js_WebGPUSamplerMipFilterLinear, + WebGPUCullMode(..), js_WebGPUCullModeNone, js_WebGPUCullModeFront, + js_WebGPUCullModeBack, WebGPUIndexType(..), + js_WebGPUIndexTypeUint16, js_WebGPUIndexTypeUint32, + WebGPUVisibilityResultMode(..), + js_WebGPUVisibilityResultModeDisabled, + js_WebGPUVisibilityResultModeBoolean, + js_WebGPUVisibilityResultModeCounting, WebGPUWinding(..), + js_WebGPUWindingClockwise, js_WebGPUWindingCounterclockwise, + WebGPUDepthClipMode(..), js_WebGPUDepthClipModeClip, + js_WebGPUDepthClipModeClamp, WebGPUTriangleFillMode(..), + js_WebGPUTriangleFillModeFill, js_WebGPUTriangleFillModeLines, + WebGPUCPUCacheMode(..), js_WebGPUCPUCacheModeDefaultcache, + js_WebGPUCPUCacheModeWritecombined, WebGPUStorageMode(..), + js_WebGPUStorageModeShared, js_WebGPUStorageModeManaged, + js_WebGPUStorageModePrivate, WebGPUResourceOptions(..), + js_WebGPUResourceOptionsCpucachemodedefaultcache, + js_WebGPUResourceOptionsCpucachemodewritecombined, + js_WebGPUResourceOptionsStoragemodeshared, + js_WebGPUResourceOptionsStoragemodemanaged, + js_WebGPUResourceOptionsStoragemodeprivate, + js_WebGPUResourceOptionsOptioncpucachemodedefaultcache, + js_WebGPUResourceOptionsOptioncpucachemodewritecombined, + WebGPUTextureUsage(..), js_WebGPUTextureUsageUnknown, + js_WebGPUTextureUsageShaderread, js_WebGPUTextureUsageShaderwrite, + js_WebGPUTextureUsageRendertarget, + js_WebGPUTextureUsagePixelformatview, WebGPUBlendOperation(..), + js_WebGPUBlendOperationAdd, js_WebGPUBlendOperationSubtract, + js_WebGPUBlendOperationReversesubtract, js_WebGPUBlendOperationMin, + js_WebGPUBlendOperationMax, WebGPUBlendFactor(..), + js_WebGPUBlendFactorZero, js_WebGPUBlendFactorOne, + js_WebGPUBlendFactorSourcecolor, + js_WebGPUBlendFactorOneminussourcecolor, + js_WebGPUBlendFactorSourcealpha, + js_WebGPUBlendFactorOneminussourcealpha, + js_WebGPUBlendFactorDestinationcolor, + js_WebGPUBlendFactorOneminusdestinationcolor, + js_WebGPUBlendFactorDestinationalpha, + js_WebGPUBlendFactorOneminusdestinationalpha, + js_WebGPUBlendFactorSourcealphasaturated, + js_WebGPUBlendFactorBlendcolor, + js_WebGPUBlendFactorOneminusblendcolor, + js_WebGPUBlendFactorBlendalpha, + js_WebGPUBlendFactorOneminusblendalpha, WebGPUColorWriteMask(..), + js_WebGPUColorWriteMaskNone, js_WebGPUColorWriteMaskRed, + js_WebGPUColorWriteMaskGreen, js_WebGPUColorWriteMaskBlue, + js_WebGPUColorWriteMaskAlpha, js_WebGPUColorWriteMaskAll, + WebGPUMultisampleDepthResolveFilter(..), + js_WebGPUMultisampleDepthResolveFilterSample0, + js_WebGPUMultisampleDepthResolveFilterMin, + js_WebGPUMultisampleDepthResolveFilterMax, WebGPUFeatureSet(..), + js_WebGPUFeatureSetLevel1, js_WebGPUFeatureSetLevel2, + VideoPresentationMode(..), js_VideoPresentationModeFullscreen, + js_VideoPresentationModePictureInPicture, + js_VideoPresentationModeInline, TextTrackMode(..), + js_TextTrackModeDisabled, js_TextTrackModeHidden, + js_TextTrackModeShowing, TextTrackKind(..), + js_TextTrackKindSubtitles, js_TextTrackKindCaptions, + js_TextTrackKindDescriptions, js_TextTrackKindChapters, + js_TextTrackKindMetadata, js_TextTrackKindForced, + ApplePayErrorCode(..), js_ApplePayErrorCodeUnknown, + js_ApplePayErrorCodeShippingContactInvalid, + js_ApplePayErrorCodeBillingContactInvalid, + js_ApplePayErrorCodeAddressUnservicable, + ApplePayErrorContactField(..), + js_ApplePayErrorContactFieldPhoneNumber, + js_ApplePayErrorContactFieldEmailAddress, + js_ApplePayErrorContactFieldName, + js_ApplePayErrorContactFieldPostalAddress, + js_ApplePayErrorContactFieldAddressLines, + js_ApplePayErrorContactFieldLocality, + js_ApplePayErrorContactFieldPostalCode, + js_ApplePayErrorContactFieldAdministrativeArea, + js_ApplePayErrorContactFieldCountry, ApplePayLineItemType(..), + js_ApplePayLineItemTypePending, js_ApplePayLineItemTypeFinal, + ApplePayPaymentMethodType(..), js_ApplePayPaymentMethodTypeDebit, + js_ApplePayPaymentMethodTypeCredit, + js_ApplePayPaymentMethodTypePrepaid, + js_ApplePayPaymentMethodTypeStore, + ApplePayPaymentPassActivationState(..), + js_ApplePayPaymentPassActivationStateActivated, + js_ApplePayPaymentPassActivationStateRequiresActivation, + js_ApplePayPaymentPassActivationStateActivating, + js_ApplePayPaymentPassActivationStateSuspended, + js_ApplePayPaymentPassActivationStateDeactivated, + ApplePayMerchantCapability(..), + js_ApplePayMerchantCapabilitySupports3DS, + js_ApplePayMerchantCapabilitySupportsEMV, + js_ApplePayMerchantCapabilitySupportsCredit, + js_ApplePayMerchantCapabilitySupportsDebit, + ApplePayContactField(..), js_ApplePayContactFieldEmail, + js_ApplePayContactFieldName, js_ApplePayContactFieldPhone, + js_ApplePayContactFieldPostalAddress, ApplePayShippingType(..), + js_ApplePayShippingTypeShipping, js_ApplePayShippingTypeDelivery, + js_ApplePayShippingTypeStorePickup, + js_ApplePayShippingTypeServicePickup, MediaKeyMessageType(..), + js_MediaKeyMessageTypeLicenseRequest, + js_MediaKeyMessageTypeLicenseRenewal, + js_MediaKeyMessageTypeLicenseRelease, + js_MediaKeyMessageTypeIndividualizationRequest, + MediaKeySessionType(..), js_MediaKeySessionTypeTemporary, + js_MediaKeySessionTypePersistentUsageRecord, + js_MediaKeySessionTypePersistentLicense, MediaKeysRequirement(..), + js_MediaKeysRequirementRequired, js_MediaKeysRequirementOptional, + js_MediaKeysRequirementNotAllowed, MediaKeyStatus(..), + js_MediaKeyStatusUsable, js_MediaKeyStatusExpired, + js_MediaKeyStatusReleased, js_MediaKeyStatusOutputRestricted, + js_MediaKeyStatusOutputDownscaled, js_MediaKeyStatusStatusPending, + js_MediaKeyStatusInternalError, RequestType(..), js_RequestType, + js_RequestTypeAudio, js_RequestTypeFont, js_RequestTypeImage, + js_RequestTypeScript, js_RequestTypeStyle, js_RequestTypeTrack, + js_RequestTypeVideo, RequestDestination(..), js_RequestDestination, + js_RequestDestinationDocument, js_RequestDestinationSharedworker, + js_RequestDestinationSubresource, js_RequestDestinationUnknown, + js_RequestDestinationWorker, RequestMode(..), + js_RequestModeNavigate, js_RequestModeSameOrigin, + js_RequestModeNoCors, js_RequestModeCors, RequestCredentials(..), + js_RequestCredentialsOmit, js_RequestCredentialsSameOrigin, + js_RequestCredentialsInclude, RequestCache(..), + js_RequestCacheDefault, js_RequestCacheNoStore, + js_RequestCacheReload, js_RequestCacheNoCache, + js_RequestCacheForceCache, js_RequestCacheOnlyIfCached, + RequestRedirect(..), js_RequestRedirectFollow, + js_RequestRedirectError, js_RequestRedirectManual, + ReferrerPolicy(..), js_ReferrerPolicy, js_ReferrerPolicyNoReferrer, + js_ReferrerPolicyNoReferrerWhenDowngrade, js_ReferrerPolicyOrigin, + js_ReferrerPolicyOriginWhenCrossOrigin, js_ReferrerPolicyUnsafeUrl, + ResponseType(..), js_ResponseTypeBasic, js_ResponseTypeCors, + js_ResponseTypeDefault, js_ResponseTypeError, + js_ResponseTypeOpaque, js_ResponseTypeOpaqueredirect, + IDBCursorDirection(..), js_IDBCursorDirectionNext, + js_IDBCursorDirectionNextunique, js_IDBCursorDirectionPrev, + js_IDBCursorDirectionPrevunique, IDBRequestReadyState(..), + js_IDBRequestReadyStatePending, js_IDBRequestReadyStateDone, + IDBTransactionMode(..), js_IDBTransactionModeReadonly, + js_IDBTransactionModeReadwrite, js_IDBTransactionModeVersionchange, + DeviceType(..), js_DeviceTypeNone, js_DeviceTypeAirplay, + js_DeviceTypeTvout, MediaSessionKind(..), + js_MediaSessionKindContent, js_MediaSessionKindTransient, + js_MediaSessionKindTransientSolo, js_MediaSessionKindAmbient, + EndOfStreamError(..), js_EndOfStreamErrorNetwork, + js_EndOfStreamErrorDecode, ReadyState(..), js_ReadyStateClosed, + js_ReadyStateOpen, js_ReadyStateEnded, AppendMode(..), + js_AppendModeSegments, js_AppendModeSequence, MediaDeviceKind(..), + js_MediaDeviceKindAudioinput, js_MediaDeviceKindAudiooutput, + js_MediaDeviceKindVideoinput, MediaStreamTrackState(..), + js_MediaStreamTrackStateLive, js_MediaStreamTrackStateEnded, + RTCIceTransportPolicy(..), js_RTCIceTransportPolicyRelay, + js_RTCIceTransportPolicyAll, RTCBundlePolicy(..), + js_RTCBundlePolicyBalanced, js_RTCBundlePolicyMaxCompat, + js_RTCBundlePolicyMaxBundle, RTCDataChannelState(..), + js_RTCDataChannelStateConnecting, js_RTCDataChannelStateOpen, + js_RTCDataChannelStateClosing, js_RTCDataChannelStateClosed, + RTCIceConnectionState(..), js_RTCIceConnectionStateNew, + js_RTCIceConnectionStateChecking, + js_RTCIceConnectionStateConnected, + js_RTCIceConnectionStateCompleted, js_RTCIceConnectionStateFailed, + js_RTCIceConnectionStateDisconnected, + js_RTCIceConnectionStateClosed, RTCIceGatheringState(..), + js_RTCIceGatheringStateNew, js_RTCIceGatheringStateGathering, + js_RTCIceGatheringStateComplete, RTCIceTransportState(..), + js_RTCIceTransportStateNew, js_RTCIceTransportStateChecking, + js_RTCIceTransportStateConnected, js_RTCIceTransportStateCompleted, + js_RTCIceTransportStateFailed, js_RTCIceTransportStateDisconnected, + js_RTCIceTransportStateClosed, RTCPeerConnectionState(..), + js_RTCPeerConnectionStateNew, js_RTCPeerConnectionStateConnecting, + js_RTCPeerConnectionStateConnected, + js_RTCPeerConnectionStateDisconnected, + js_RTCPeerConnectionStateFailed, js_RTCPeerConnectionStateClosed, + RTCDegradationPreference(..), + js_RTCDegradationPreferenceMaintainFramerate, + js_RTCDegradationPreferenceMaintainResolution, + js_RTCDegradationPreferenceBalanced, RTCDtxStatus(..), + js_RTCDtxStatusDisabled, js_RTCDtxStatusEnabled, + RTCPriorityType(..), js_RTCPriorityTypeVeryLow, + js_RTCPriorityTypeLow, js_RTCPriorityTypeMedium, + js_RTCPriorityTypeHigh, RTCRtpTransceiverDirection(..), + js_RTCRtpTransceiverDirectionSendrecv, + js_RTCRtpTransceiverDirectionSendonly, + js_RTCRtpTransceiverDirectionRecvonly, + js_RTCRtpTransceiverDirectionInactive, RTCSdpType(..), + js_RTCSdpTypeOffer, js_RTCSdpTypePranswer, js_RTCSdpTypeAnswer, + js_RTCSdpTypeRollback, RTCSignalingState(..), + js_RTCSignalingStateStable, js_RTCSignalingStateHaveLocalOffer, + js_RTCSignalingStateHaveRemoteOffer, + js_RTCSignalingStateHaveLocalPranswer, + js_RTCSignalingStateHaveRemotePranswer, RTCStatsType(..), + js_RTCStatsTypeCodec, js_RTCStatsTypeInboundRtp, + js_RTCStatsTypeOutboundRtp, js_RTCStatsTypePeerConnection, + js_RTCStatsTypeDataChannel, js_RTCStatsTypeTrack, + js_RTCStatsTypeTransport, js_RTCStatsTypeCandidatePair, + js_RTCStatsTypeLocalCandidate, js_RTCStatsTypeRemoteCandidate, + js_RTCStatsTypeCertificate, NotificationDirection(..), + js_NotificationDirectionAuto, js_NotificationDirectionLtr, + js_NotificationDirectionRtl, AudioContextState(..), + js_AudioContextStateSuspended, js_AudioContextStateRunning, + js_AudioContextStateInterrupted, js_AudioContextStateClosed, + BiquadFilterType(..), js_BiquadFilterTypeLowpass, + js_BiquadFilterTypeHighpass, js_BiquadFilterTypeBandpass, + js_BiquadFilterTypeLowshelf, js_BiquadFilterTypeHighshelf, + js_BiquadFilterTypePeaking, js_BiquadFilterTypeNotch, + js_BiquadFilterTypeAllpass, OscillatorType(..), + js_OscillatorTypeSine, js_OscillatorTypeSquare, + js_OscillatorTypeSawtooth, js_OscillatorTypeTriangle, + js_OscillatorTypeCustom, PanningModelType(..), + js_PanningModelTypeEqualpower, js_PanningModelTypeHRTF, + DistanceModelType(..), js_DistanceModelTypeLinear, + js_DistanceModelTypeInverse, js_DistanceModelTypeExponential, + OverSampleType(..), js_OverSampleTypeNone, js_OverSampleType2x, + js_OverSampleType4x, ScrollRestoration(..), + js_ScrollRestorationAuto, js_ScrollRestorationManual, + XMLHttpRequestResponseType(..), js_XMLHttpRequestResponseType, + js_XMLHttpRequestResponseTypeArraybuffer, + js_XMLHttpRequestResponseTypeBlob, + js_XMLHttpRequestResponseTypeDocument, + js_XMLHttpRequestResponseTypeJson, + js_XMLHttpRequestResponseTypeText) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) + +data KeyType = KeyTypePublic + | KeyTypePrivate + | KeyTypeSecret + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal KeyType where + toJSVal KeyTypePublic = toJSVal js_KeyTypePublic + toJSVal KeyTypePrivate = toJSVal js_KeyTypePrivate + toJSVal KeyTypeSecret = toJSVal js_KeyTypeSecret + +instance FromJSVal KeyType where + fromJSVal x + = x `strictEqual` js_KeyTypePublic >>= + \ r -> + case r of + True -> return (Just KeyTypePublic) + False + -> x `strictEqual` js_KeyTypePrivate >>= + \ r -> + case r of + True -> return (Just KeyTypePrivate) + False + -> x `strictEqual` js_KeyTypeSecret >>= + \ r -> + case r of + True -> return (Just KeyTypeSecret) + False -> return Nothing +js_KeyTypePublic = "public" +js_KeyTypePrivate = "private" +js_KeyTypeSecret = "secret" + +data CryptoKeyUsage = CryptoKeyUsageEncrypt + | CryptoKeyUsageDecrypt + | CryptoKeyUsageSign + | CryptoKeyUsageVerify + | CryptoKeyUsageDeriveKey + | CryptoKeyUsageDeriveBits + | CryptoKeyUsageWrapKey + | CryptoKeyUsageUnwrapKey + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal CryptoKeyUsage where + toJSVal CryptoKeyUsageEncrypt = toJSVal js_CryptoKeyUsageEncrypt + toJSVal CryptoKeyUsageDecrypt = toJSVal js_CryptoKeyUsageDecrypt + toJSVal CryptoKeyUsageSign = toJSVal js_CryptoKeyUsageSign + toJSVal CryptoKeyUsageVerify = toJSVal js_CryptoKeyUsageVerify + toJSVal CryptoKeyUsageDeriveKey + = toJSVal js_CryptoKeyUsageDeriveKey + toJSVal CryptoKeyUsageDeriveBits + = toJSVal js_CryptoKeyUsageDeriveBits + toJSVal CryptoKeyUsageWrapKey = toJSVal js_CryptoKeyUsageWrapKey + toJSVal CryptoKeyUsageUnwrapKey + = toJSVal js_CryptoKeyUsageUnwrapKey + +instance FromJSVal CryptoKeyUsage where + fromJSVal x + = x `strictEqual` js_CryptoKeyUsageEncrypt >>= + \ r -> + case r of + True -> return (Just CryptoKeyUsageEncrypt) + False + -> x `strictEqual` js_CryptoKeyUsageDecrypt >>= + \ r -> + case r of + True -> return (Just CryptoKeyUsageDecrypt) + False + -> x `strictEqual` js_CryptoKeyUsageSign >>= + \ r -> + case r of + True -> return (Just CryptoKeyUsageSign) + False + -> x `strictEqual` js_CryptoKeyUsageVerify >>= + \ r -> + case r of + True + -> return (Just CryptoKeyUsageVerify) + False + -> x `strictEqual` + js_CryptoKeyUsageDeriveKey + >>= + \ r -> + case r of + True + -> return + (Just + CryptoKeyUsageDeriveKey) + False + -> x `strictEqual` + js_CryptoKeyUsageDeriveBits + >>= + \ r -> + case r of + True + -> return + (Just + CryptoKeyUsageDeriveBits) + False + -> x `strictEqual` + js_CryptoKeyUsageWrapKey + >>= + \ r -> + case r + of + True + -> return + (Just + CryptoKeyUsageWrapKey) + False + -> x `strictEqual` + js_CryptoKeyUsageUnwrapKey + >>= + \ r + -> + case + r + of + True + -> return + (Just + CryptoKeyUsageUnwrapKey) + False + -> return + Nothing +js_CryptoKeyUsageEncrypt = "encrypt" +js_CryptoKeyUsageDecrypt = "decrypt" +js_CryptoKeyUsageSign = "sign" +js_CryptoKeyUsageVerify = "verify" +js_CryptoKeyUsageDeriveKey = "deriveKey" +js_CryptoKeyUsageDeriveBits = "deriveBits" +js_CryptoKeyUsageWrapKey = "wrapKey" +js_CryptoKeyUsageUnwrapKey = "unwrapKey" + +data KeyFormat = KeyFormatRaw + | KeyFormatSpki + | KeyFormatPkcs8 + | KeyFormatJwk + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal KeyFormat where + toJSVal KeyFormatRaw = toJSVal js_KeyFormatRaw + toJSVal KeyFormatSpki = toJSVal js_KeyFormatSpki + toJSVal KeyFormatPkcs8 = toJSVal js_KeyFormatPkcs8 + toJSVal KeyFormatJwk = toJSVal js_KeyFormatJwk + +instance FromJSVal KeyFormat where + fromJSVal x + = x `strictEqual` js_KeyFormatRaw >>= + \ r -> + case r of + True -> return (Just KeyFormatRaw) + False + -> x `strictEqual` js_KeyFormatSpki >>= + \ r -> + case r of + True -> return (Just KeyFormatSpki) + False + -> x `strictEqual` js_KeyFormatPkcs8 >>= + \ r -> + case r of + True -> return (Just KeyFormatPkcs8) + False + -> x `strictEqual` js_KeyFormatJwk >>= + \ r -> + case r of + True -> return (Just KeyFormatJwk) + False -> return Nothing +js_KeyFormatRaw = "raw" +js_KeyFormatSpki = "spki" +js_KeyFormatPkcs8 = "pkcs8" +js_KeyFormatJwk = "jwk" + +data FontFaceLoadStatus = FontFaceLoadStatusUnloaded + | FontFaceLoadStatusLoading + | FontFaceLoadStatusLoaded + | FontFaceLoadStatusError + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal FontFaceLoadStatus where + toJSVal FontFaceLoadStatusUnloaded + = toJSVal js_FontFaceLoadStatusUnloaded + toJSVal FontFaceLoadStatusLoading + = toJSVal js_FontFaceLoadStatusLoading + toJSVal FontFaceLoadStatusLoaded + = toJSVal js_FontFaceLoadStatusLoaded + toJSVal FontFaceLoadStatusError + = toJSVal js_FontFaceLoadStatusError + +instance FromJSVal FontFaceLoadStatus where + fromJSVal x + = x `strictEqual` js_FontFaceLoadStatusUnloaded >>= + \ r -> + case r of + True -> return (Just FontFaceLoadStatusUnloaded) + False + -> x `strictEqual` js_FontFaceLoadStatusLoading >>= + \ r -> + case r of + True -> return (Just FontFaceLoadStatusLoading) + False + -> x `strictEqual` js_FontFaceLoadStatusLoaded >>= + \ r -> + case r of + True -> return (Just FontFaceLoadStatusLoaded) + False + -> x `strictEqual` js_FontFaceLoadStatusError >>= + \ r -> + case r of + True + -> return + (Just FontFaceLoadStatusError) + False -> return Nothing +js_FontFaceLoadStatusUnloaded = "unloaded" +js_FontFaceLoadStatusLoading = "loading" +js_FontFaceLoadStatusLoaded = "loaded" +js_FontFaceLoadStatusError = "error" + +data FontFaceSetLoadStatus = FontFaceSetLoadStatusLoading + | FontFaceSetLoadStatusLoaded + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal FontFaceSetLoadStatus where + toJSVal FontFaceSetLoadStatusLoading + = toJSVal js_FontFaceSetLoadStatusLoading + toJSVal FontFaceSetLoadStatusLoaded + = toJSVal js_FontFaceSetLoadStatusLoaded + +instance FromJSVal FontFaceSetLoadStatus where + fromJSVal x + = x `strictEqual` js_FontFaceSetLoadStatusLoading >>= + \ r -> + case r of + True -> return (Just FontFaceSetLoadStatusLoading) + False + -> x `strictEqual` js_FontFaceSetLoadStatusLoaded >>= + \ r -> + case r of + True -> return (Just FontFaceSetLoadStatusLoaded) + False -> return Nothing +js_FontFaceSetLoadStatusLoading = "loading" +js_FontFaceSetLoadStatusLoaded = "loaded" + +data VisibilityState = VisibilityStateHidden + | VisibilityStateVisible + | VisibilityStatePrerender + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal VisibilityState where + toJSVal VisibilityStateHidden = toJSVal js_VisibilityStateHidden + toJSVal VisibilityStateVisible = toJSVal js_VisibilityStateVisible + toJSVal VisibilityStatePrerender + = toJSVal js_VisibilityStatePrerender + +instance FromJSVal VisibilityState where + fromJSVal x + = x `strictEqual` js_VisibilityStateHidden >>= + \ r -> + case r of + True -> return (Just VisibilityStateHidden) + False + -> x `strictEqual` js_VisibilityStateVisible >>= + \ r -> + case r of + True -> return (Just VisibilityStateVisible) + False + -> x `strictEqual` js_VisibilityStatePrerender >>= + \ r -> + case r of + True -> return (Just VisibilityStatePrerender) + False -> return Nothing +js_VisibilityStateHidden = "hidden" +js_VisibilityStateVisible = "visible" +js_VisibilityStatePrerender = "prerender" + +data DocumentReadyState = DocumentReadyStateLoading + | DocumentReadyStateInteractive + | DocumentReadyStateComplete + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal DocumentReadyState where + toJSVal DocumentReadyStateLoading + = toJSVal js_DocumentReadyStateLoading + toJSVal DocumentReadyStateInteractive + = toJSVal js_DocumentReadyStateInteractive + toJSVal DocumentReadyStateComplete + = toJSVal js_DocumentReadyStateComplete + +instance FromJSVal DocumentReadyState where + fromJSVal x + = x `strictEqual` js_DocumentReadyStateLoading >>= + \ r -> + case r of + True -> return (Just DocumentReadyStateLoading) + False + -> x `strictEqual` js_DocumentReadyStateInteractive >>= + \ r -> + case r of + True -> return (Just DocumentReadyStateInteractive) + False + -> x `strictEqual` js_DocumentReadyStateComplete >>= + \ r -> + case r of + True -> return (Just DocumentReadyStateComplete) + False -> return Nothing +js_DocumentReadyStateLoading = "loading" +js_DocumentReadyStateInteractive = "interactive" +js_DocumentReadyStateComplete = "complete" + +data ShadowRootMode = ShadowRootModeUserAgent + | ShadowRootModeClosed + | ShadowRootModeOpen + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ShadowRootMode where + toJSVal ShadowRootModeUserAgent + = toJSVal js_ShadowRootModeUserAgent + toJSVal ShadowRootModeClosed = toJSVal js_ShadowRootModeClosed + toJSVal ShadowRootModeOpen = toJSVal js_ShadowRootModeOpen + +instance FromJSVal ShadowRootMode where + fromJSVal x + = x `strictEqual` js_ShadowRootModeUserAgent >>= + \ r -> + case r of + True -> return (Just ShadowRootModeUserAgent) + False + -> x `strictEqual` js_ShadowRootModeClosed >>= + \ r -> + case r of + True -> return (Just ShadowRootModeClosed) + False + -> x `strictEqual` js_ShadowRootModeOpen >>= + \ r -> + case r of + True -> return (Just ShadowRootModeOpen) + False -> return Nothing +js_ShadowRootModeUserAgent = "user-agent" +js_ShadowRootModeClosed = "closed" +js_ShadowRootModeOpen = "open" + +data BlobLineEndings = BlobLineEndingsTransparent + | BlobLineEndingsNative + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal BlobLineEndings where + toJSVal BlobLineEndingsTransparent + = toJSVal js_BlobLineEndingsTransparent + toJSVal BlobLineEndingsNative = toJSVal js_BlobLineEndingsNative + +instance FromJSVal BlobLineEndings where + fromJSVal x + = x `strictEqual` js_BlobLineEndingsTransparent >>= + \ r -> + case r of + True -> return (Just BlobLineEndingsTransparent) + False + -> x `strictEqual` js_BlobLineEndingsNative >>= + \ r -> + case r of + True -> return (Just BlobLineEndingsNative) + False -> return Nothing +js_BlobLineEndingsTransparent = "transparent" +js_BlobLineEndingsNative = "native" + +data ImageSmoothingQuality = ImageSmoothingQualityLow + | ImageSmoothingQualityMedium + | ImageSmoothingQualityHigh + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ImageSmoothingQuality where + toJSVal ImageSmoothingQualityLow + = toJSVal js_ImageSmoothingQualityLow + toJSVal ImageSmoothingQualityMedium + = toJSVal js_ImageSmoothingQualityMedium + toJSVal ImageSmoothingQualityHigh + = toJSVal js_ImageSmoothingQualityHigh + +instance FromJSVal ImageSmoothingQuality where + fromJSVal x + = x `strictEqual` js_ImageSmoothingQualityLow >>= + \ r -> + case r of + True -> return (Just ImageSmoothingQualityLow) + False + -> x `strictEqual` js_ImageSmoothingQualityMedium >>= + \ r -> + case r of + True -> return (Just ImageSmoothingQualityMedium) + False + -> x `strictEqual` js_ImageSmoothingQualityHigh >>= + \ r -> + case r of + True -> return (Just ImageSmoothingQualityHigh) + False -> return Nothing +js_ImageSmoothingQualityLow = "low" +js_ImageSmoothingQualityMedium = "medium" +js_ImageSmoothingQualityHigh = "high" + +data CanvasWindingRule = CanvasWindingRuleNonzero + | CanvasWindingRuleEvenodd + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal CanvasWindingRule where + toJSVal CanvasWindingRuleNonzero + = toJSVal js_CanvasWindingRuleNonzero + toJSVal CanvasWindingRuleEvenodd + = toJSVal js_CanvasWindingRuleEvenodd + +instance FromJSVal CanvasWindingRule where + fromJSVal x + = x `strictEqual` js_CanvasWindingRuleNonzero >>= + \ r -> + case r of + True -> return (Just CanvasWindingRuleNonzero) + False + -> x `strictEqual` js_CanvasWindingRuleEvenodd >>= + \ r -> + case r of + True -> return (Just CanvasWindingRuleEvenodd) + False -> return Nothing +js_CanvasWindingRuleNonzero = "nonzero" +js_CanvasWindingRuleEvenodd = "evenodd" + +data WebGLPowerPreference = WebGLPowerPreferenceDefault + | WebGLPowerPreferenceLowPower + | WebGLPowerPreferenceHighPerformance + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGLPowerPreference where + toJSVal WebGLPowerPreferenceDefault + = toJSVal js_WebGLPowerPreferenceDefault + toJSVal WebGLPowerPreferenceLowPower + = toJSVal js_WebGLPowerPreferenceLowPower + toJSVal WebGLPowerPreferenceHighPerformance + = toJSVal js_WebGLPowerPreferenceHighPerformance + +instance FromJSVal WebGLPowerPreference where + fromJSVal x + = x `strictEqual` js_WebGLPowerPreferenceDefault >>= + \ r -> + case r of + True -> return (Just WebGLPowerPreferenceDefault) + False + -> x `strictEqual` js_WebGLPowerPreferenceLowPower >>= + \ r -> + case r of + True -> return (Just WebGLPowerPreferenceLowPower) + False + -> x `strictEqual` js_WebGLPowerPreferenceHighPerformance >>= + \ r -> + case r of + True + -> return (Just WebGLPowerPreferenceHighPerformance) + False -> return Nothing +js_WebGLPowerPreferenceDefault = "default" +js_WebGLPowerPreferenceLowPower = "low-power" +js_WebGLPowerPreferenceHighPerformance = "high-performance" + +data WebGPUCompareFunction = WebGPUCompareFunctionNever + | WebGPUCompareFunctionLess + | WebGPUCompareFunctionEqual + | WebGPUCompareFunctionLessequal + | WebGPUCompareFunctionGreater + | WebGPUCompareFunctionNotequal + | WebGPUCompareFunctionGreaterequal + | WebGPUCompareFunctionAlways + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUCompareFunction where + toJSVal WebGPUCompareFunctionNever + = toJSVal js_WebGPUCompareFunctionNever + toJSVal WebGPUCompareFunctionLess + = toJSVal js_WebGPUCompareFunctionLess + toJSVal WebGPUCompareFunctionEqual + = toJSVal js_WebGPUCompareFunctionEqual + toJSVal WebGPUCompareFunctionLessequal + = toJSVal js_WebGPUCompareFunctionLessequal + toJSVal WebGPUCompareFunctionGreater + = toJSVal js_WebGPUCompareFunctionGreater + toJSVal WebGPUCompareFunctionNotequal + = toJSVal js_WebGPUCompareFunctionNotequal + toJSVal WebGPUCompareFunctionGreaterequal + = toJSVal js_WebGPUCompareFunctionGreaterequal + toJSVal WebGPUCompareFunctionAlways + = toJSVal js_WebGPUCompareFunctionAlways + +instance FromJSVal WebGPUCompareFunction where + fromJSVal x + = x `strictEqual` js_WebGPUCompareFunctionNever >>= + \ r -> + case r of + True -> return (Just WebGPUCompareFunctionNever) + False + -> x `strictEqual` js_WebGPUCompareFunctionLess >>= + \ r -> + case r of + True -> return (Just WebGPUCompareFunctionLess) + False + -> x `strictEqual` js_WebGPUCompareFunctionEqual >>= + \ r -> + case r of + True -> return (Just WebGPUCompareFunctionEqual) + False + -> x `strictEqual` js_WebGPUCompareFunctionLessequal + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUCompareFunctionLessequal) + False + -> x `strictEqual` + js_WebGPUCompareFunctionGreater + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUCompareFunctionGreater) + False + -> x `strictEqual` + js_WebGPUCompareFunctionNotequal + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUCompareFunctionNotequal) + False + -> x `strictEqual` + js_WebGPUCompareFunctionGreaterequal + >>= + \ r -> + case r + of + True + -> return + (Just + WebGPUCompareFunctionGreaterequal) + False + -> x `strictEqual` + js_WebGPUCompareFunctionAlways + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUCompareFunctionAlways) + False + -> return + Nothing +js_WebGPUCompareFunctionNever = "never" +js_WebGPUCompareFunctionLess = "less" +js_WebGPUCompareFunctionEqual = "equal" +js_WebGPUCompareFunctionLessequal = "lessequal" +js_WebGPUCompareFunctionGreater = "greater" +js_WebGPUCompareFunctionNotequal = "notequal" +js_WebGPUCompareFunctionGreaterequal = "greaterequal" +js_WebGPUCompareFunctionAlways = "always" + +data WebGPUPixelFormat = WebGPUPixelFormatBGRA8Unorm + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUPixelFormat where + toJSVal WebGPUPixelFormatBGRA8Unorm + = toJSVal js_WebGPUPixelFormatBGRA8Unorm + +instance FromJSVal WebGPUPixelFormat where + fromJSVal x + = x `strictEqual` js_WebGPUPixelFormatBGRA8Unorm >>= + \ r -> + case r of + True -> return (Just WebGPUPixelFormatBGRA8Unorm) + False -> return Nothing +js_WebGPUPixelFormatBGRA8Unorm = "BGRA8Unorm" + +data WebGPULoadAction = WebGPULoadActionDontcare + | WebGPULoadActionLoad + | WebGPULoadActionClear + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPULoadAction where + toJSVal WebGPULoadActionDontcare + = toJSVal js_WebGPULoadActionDontcare + toJSVal WebGPULoadActionLoad = toJSVal js_WebGPULoadActionLoad + toJSVal WebGPULoadActionClear = toJSVal js_WebGPULoadActionClear + +instance FromJSVal WebGPULoadAction where + fromJSVal x + = x `strictEqual` js_WebGPULoadActionDontcare >>= + \ r -> + case r of + True -> return (Just WebGPULoadActionDontcare) + False + -> x `strictEqual` js_WebGPULoadActionLoad >>= + \ r -> + case r of + True -> return (Just WebGPULoadActionLoad) + False + -> x `strictEqual` js_WebGPULoadActionClear >>= + \ r -> + case r of + True -> return (Just WebGPULoadActionClear) + False -> return Nothing +js_WebGPULoadActionDontcare = "dontcare" +js_WebGPULoadActionLoad = "load" +js_WebGPULoadActionClear = "clear" + +data WebGPUStoreAction = WebGPUStoreActionDontcare + | WebGPUStoreActionStore + | WebGPUStoreActionMultisampleresolve + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUStoreAction where + toJSVal WebGPUStoreActionDontcare + = toJSVal js_WebGPUStoreActionDontcare + toJSVal WebGPUStoreActionStore = toJSVal js_WebGPUStoreActionStore + toJSVal WebGPUStoreActionMultisampleresolve + = toJSVal js_WebGPUStoreActionMultisampleresolve + +instance FromJSVal WebGPUStoreAction where + fromJSVal x + = x `strictEqual` js_WebGPUStoreActionDontcare >>= + \ r -> + case r of + True -> return (Just WebGPUStoreActionDontcare) + False + -> x `strictEqual` js_WebGPUStoreActionStore >>= + \ r -> + case r of + True -> return (Just WebGPUStoreActionStore) + False + -> x `strictEqual` js_WebGPUStoreActionMultisampleresolve >>= + \ r -> + case r of + True + -> return (Just WebGPUStoreActionMultisampleresolve) + False -> return Nothing +js_WebGPUStoreActionDontcare = "dontcare" +js_WebGPUStoreActionStore = "store" +js_WebGPUStoreActionMultisampleresolve = "multisampleresolve" + +data WebGPUPrimitiveType = WebGPUPrimitiveTypePoint + | WebGPUPrimitiveTypeLine + | WebGPUPrimitiveTypeLinestrip + | WebGPUPrimitiveTypeTriangle + | WebGPUPrimitiveTypeTrianglestrip + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUPrimitiveType where + toJSVal WebGPUPrimitiveTypePoint + = toJSVal js_WebGPUPrimitiveTypePoint + toJSVal WebGPUPrimitiveTypeLine + = toJSVal js_WebGPUPrimitiveTypeLine + toJSVal WebGPUPrimitiveTypeLinestrip + = toJSVal js_WebGPUPrimitiveTypeLinestrip + toJSVal WebGPUPrimitiveTypeTriangle + = toJSVal js_WebGPUPrimitiveTypeTriangle + toJSVal WebGPUPrimitiveTypeTrianglestrip + = toJSVal js_WebGPUPrimitiveTypeTrianglestrip + +instance FromJSVal WebGPUPrimitiveType where + fromJSVal x + = x `strictEqual` js_WebGPUPrimitiveTypePoint >>= + \ r -> + case r of + True -> return (Just WebGPUPrimitiveTypePoint) + False + -> x `strictEqual` js_WebGPUPrimitiveTypeLine >>= + \ r -> + case r of + True -> return (Just WebGPUPrimitiveTypeLine) + False + -> x `strictEqual` js_WebGPUPrimitiveTypeLinestrip >>= + \ r -> + case r of + True -> return (Just WebGPUPrimitiveTypeLinestrip) + False + -> x `strictEqual` js_WebGPUPrimitiveTypeTriangle + >>= + \ r -> + case r of + True + -> return + (Just WebGPUPrimitiveTypeTriangle) + False + -> x `strictEqual` + js_WebGPUPrimitiveTypeTrianglestrip + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUPrimitiveTypeTrianglestrip) + False -> return Nothing +js_WebGPUPrimitiveTypePoint = "point" +js_WebGPUPrimitiveTypeLine = "line" +js_WebGPUPrimitiveTypeLinestrip = "linestrip" +js_WebGPUPrimitiveTypeTriangle = "triangle" +js_WebGPUPrimitiveTypeTrianglestrip = "trianglestrip" + +data WebGPUFunctionType = WebGPUFunctionTypeFragment + | WebGPUFunctionTypeVertex + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUFunctionType where + toJSVal WebGPUFunctionTypeFragment + = toJSVal js_WebGPUFunctionTypeFragment + toJSVal WebGPUFunctionTypeVertex + = toJSVal js_WebGPUFunctionTypeVertex + +instance FromJSVal WebGPUFunctionType where + fromJSVal x + = x `strictEqual` js_WebGPUFunctionTypeFragment >>= + \ r -> + case r of + True -> return (Just WebGPUFunctionTypeFragment) + False + -> x `strictEqual` js_WebGPUFunctionTypeVertex >>= + \ r -> + case r of + True -> return (Just WebGPUFunctionTypeVertex) + False -> return Nothing +js_WebGPUFunctionTypeFragment = "fragment" +js_WebGPUFunctionTypeVertex = "vertex" + +data WebGPUStencilOperation = WebGPUStencilOperationKeep + | WebGPUStencilOperationZero + | WebGPUStencilOperationReplace + | WebGPUStencilOperationIncrementclamp + | WebGPUStencilOperationDecrementclamp + | WebGPUStencilOperationInvert + | WebGPUStencilOperationIncrementwrap + | WebGPUStencilOperationDecrementwrap + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUStencilOperation where + toJSVal WebGPUStencilOperationKeep + = toJSVal js_WebGPUStencilOperationKeep + toJSVal WebGPUStencilOperationZero + = toJSVal js_WebGPUStencilOperationZero + toJSVal WebGPUStencilOperationReplace + = toJSVal js_WebGPUStencilOperationReplace + toJSVal WebGPUStencilOperationIncrementclamp + = toJSVal js_WebGPUStencilOperationIncrementclamp + toJSVal WebGPUStencilOperationDecrementclamp + = toJSVal js_WebGPUStencilOperationDecrementclamp + toJSVal WebGPUStencilOperationInvert + = toJSVal js_WebGPUStencilOperationInvert + toJSVal WebGPUStencilOperationIncrementwrap + = toJSVal js_WebGPUStencilOperationIncrementwrap + toJSVal WebGPUStencilOperationDecrementwrap + = toJSVal js_WebGPUStencilOperationDecrementwrap + +instance FromJSVal WebGPUStencilOperation where + fromJSVal x + = x `strictEqual` js_WebGPUStencilOperationKeep >>= + \ r -> + case r of + True -> return (Just WebGPUStencilOperationKeep) + False + -> x `strictEqual` js_WebGPUStencilOperationZero >>= + \ r -> + case r of + True -> return (Just WebGPUStencilOperationZero) + False + -> x `strictEqual` js_WebGPUStencilOperationReplace >>= + \ r -> + case r of + True -> return (Just WebGPUStencilOperationReplace) + False + -> x `strictEqual` + js_WebGPUStencilOperationIncrementclamp + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUStencilOperationIncrementclamp) + False + -> x `strictEqual` + js_WebGPUStencilOperationDecrementclamp + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUStencilOperationDecrementclamp) + False + -> x `strictEqual` + js_WebGPUStencilOperationInvert + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUStencilOperationInvert) + False + -> x `strictEqual` + js_WebGPUStencilOperationIncrementwrap + >>= + \ r -> + case r + of + True + -> return + (Just + WebGPUStencilOperationIncrementwrap) + False + -> x `strictEqual` + js_WebGPUStencilOperationDecrementwrap + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUStencilOperationDecrementwrap) + False + -> return + Nothing +js_WebGPUStencilOperationKeep = "keep" +js_WebGPUStencilOperationZero = "zero" +js_WebGPUStencilOperationReplace = "replace" +js_WebGPUStencilOperationIncrementclamp = "incrementclamp" +js_WebGPUStencilOperationDecrementclamp = "decrementclamp" +js_WebGPUStencilOperationInvert = "invert" +js_WebGPUStencilOperationIncrementwrap = "incrementwrap" +js_WebGPUStencilOperationDecrementwrap = "decrementwrap" + +data WebGPUStatus = WebGPUStatusNotenqueued + | WebGPUStatusEnqueued + | WebGPUStatusCommitted + | WebGPUStatusScheduled + | WebGPUStatusCompleted + | WebGPUStatusError + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUStatus where + toJSVal WebGPUStatusNotenqueued + = toJSVal js_WebGPUStatusNotenqueued + toJSVal WebGPUStatusEnqueued = toJSVal js_WebGPUStatusEnqueued + toJSVal WebGPUStatusCommitted = toJSVal js_WebGPUStatusCommitted + toJSVal WebGPUStatusScheduled = toJSVal js_WebGPUStatusScheduled + toJSVal WebGPUStatusCompleted = toJSVal js_WebGPUStatusCompleted + toJSVal WebGPUStatusError = toJSVal js_WebGPUStatusError + +instance FromJSVal WebGPUStatus where + fromJSVal x + = x `strictEqual` js_WebGPUStatusNotenqueued >>= + \ r -> + case r of + True -> return (Just WebGPUStatusNotenqueued) + False + -> x `strictEqual` js_WebGPUStatusEnqueued >>= + \ r -> + case r of + True -> return (Just WebGPUStatusEnqueued) + False + -> x `strictEqual` js_WebGPUStatusCommitted >>= + \ r -> + case r of + True -> return (Just WebGPUStatusCommitted) + False + -> x `strictEqual` js_WebGPUStatusScheduled >>= + \ r -> + case r of + True + -> return (Just WebGPUStatusScheduled) + False + -> x `strictEqual` + js_WebGPUStatusCompleted + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUStatusCompleted) + False + -> x `strictEqual` + js_WebGPUStatusError + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUStatusError) + False + -> return + Nothing +js_WebGPUStatusNotenqueued = "notenqueued" +js_WebGPUStatusEnqueued = "enqueued" +js_WebGPUStatusCommitted = "committed" +js_WebGPUStatusScheduled = "scheduled" +js_WebGPUStatusCompleted = "completed" +js_WebGPUStatusError = "error" + +data WebGPUSamplerAddressMode = WebGPUSamplerAddressModeClamptoedge + | WebGPUSamplerAddressModeMirrorclamptoedge + | WebGPUSamplerAddressModeRepeat + | WebGPUSamplerAddressModeMirrorrepeat + | WebGPUSamplerAddressModeClamptozero + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUSamplerAddressMode where + toJSVal WebGPUSamplerAddressModeClamptoedge + = toJSVal js_WebGPUSamplerAddressModeClamptoedge + toJSVal WebGPUSamplerAddressModeMirrorclamptoedge + = toJSVal js_WebGPUSamplerAddressModeMirrorclamptoedge + toJSVal WebGPUSamplerAddressModeRepeat + = toJSVal js_WebGPUSamplerAddressModeRepeat + toJSVal WebGPUSamplerAddressModeMirrorrepeat + = toJSVal js_WebGPUSamplerAddressModeMirrorrepeat + toJSVal WebGPUSamplerAddressModeClamptozero + = toJSVal js_WebGPUSamplerAddressModeClamptozero + +instance FromJSVal WebGPUSamplerAddressMode where + fromJSVal x + = x `strictEqual` js_WebGPUSamplerAddressModeClamptoedge >>= + \ r -> + case r of + True -> return (Just WebGPUSamplerAddressModeClamptoedge) + False + -> x `strictEqual` js_WebGPUSamplerAddressModeMirrorclamptoedge >>= + \ r -> + case r of + True -> return (Just WebGPUSamplerAddressModeMirrorclamptoedge) + False + -> x `strictEqual` js_WebGPUSamplerAddressModeRepeat >>= + \ r -> + case r of + True -> return (Just WebGPUSamplerAddressModeRepeat) + False + -> x `strictEqual` + js_WebGPUSamplerAddressModeMirrorrepeat + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUSamplerAddressModeMirrorrepeat) + False + -> x `strictEqual` + js_WebGPUSamplerAddressModeClamptozero + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUSamplerAddressModeClamptozero) + False -> return Nothing +js_WebGPUSamplerAddressModeClamptoedge = "clamptoedge" +js_WebGPUSamplerAddressModeMirrorclamptoedge = "mirrorclamptoedge" +js_WebGPUSamplerAddressModeRepeat = "repeat" +js_WebGPUSamplerAddressModeMirrorrepeat = "mirrorrepeat" +js_WebGPUSamplerAddressModeClamptozero = "clamptozero" + +data WebGPUSamplerMinMagFilter = WebGPUSamplerMinMagFilterNearest + | WebGPUSamplerMinMagFilterLinear + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUSamplerMinMagFilter where + toJSVal WebGPUSamplerMinMagFilterNearest + = toJSVal js_WebGPUSamplerMinMagFilterNearest + toJSVal WebGPUSamplerMinMagFilterLinear + = toJSVal js_WebGPUSamplerMinMagFilterLinear + +instance FromJSVal WebGPUSamplerMinMagFilter where + fromJSVal x + = x `strictEqual` js_WebGPUSamplerMinMagFilterNearest >>= + \ r -> + case r of + True -> return (Just WebGPUSamplerMinMagFilterNearest) + False + -> x `strictEqual` js_WebGPUSamplerMinMagFilterLinear >>= + \ r -> + case r of + True -> return (Just WebGPUSamplerMinMagFilterLinear) + False -> return Nothing +js_WebGPUSamplerMinMagFilterNearest = "nearest" +js_WebGPUSamplerMinMagFilterLinear = "linear" + +data WebGPUSamplerMipFilter = WebGPUSamplerMipFilterNotmipmapped + | WebGPUSamplerMipFilterNearest + | WebGPUSamplerMipFilterLinear + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUSamplerMipFilter where + toJSVal WebGPUSamplerMipFilterNotmipmapped + = toJSVal js_WebGPUSamplerMipFilterNotmipmapped + toJSVal WebGPUSamplerMipFilterNearest + = toJSVal js_WebGPUSamplerMipFilterNearest + toJSVal WebGPUSamplerMipFilterLinear + = toJSVal js_WebGPUSamplerMipFilterLinear + +instance FromJSVal WebGPUSamplerMipFilter where + fromJSVal x + = x `strictEqual` js_WebGPUSamplerMipFilterNotmipmapped >>= + \ r -> + case r of + True -> return (Just WebGPUSamplerMipFilterNotmipmapped) + False + -> x `strictEqual` js_WebGPUSamplerMipFilterNearest >>= + \ r -> + case r of + True -> return (Just WebGPUSamplerMipFilterNearest) + False + -> x `strictEqual` js_WebGPUSamplerMipFilterLinear >>= + \ r -> + case r of + True -> return (Just WebGPUSamplerMipFilterLinear) + False -> return Nothing +js_WebGPUSamplerMipFilterNotmipmapped = "notmipmapped" +js_WebGPUSamplerMipFilterNearest = "nearest" +js_WebGPUSamplerMipFilterLinear = "linear" + +data WebGPUCullMode = WebGPUCullModeNone + | WebGPUCullModeFront + | WebGPUCullModeBack + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUCullMode where + toJSVal WebGPUCullModeNone = toJSVal js_WebGPUCullModeNone + toJSVal WebGPUCullModeFront = toJSVal js_WebGPUCullModeFront + toJSVal WebGPUCullModeBack = toJSVal js_WebGPUCullModeBack + +instance FromJSVal WebGPUCullMode where + fromJSVal x + = x `strictEqual` js_WebGPUCullModeNone >>= + \ r -> + case r of + True -> return (Just WebGPUCullModeNone) + False + -> x `strictEqual` js_WebGPUCullModeFront >>= + \ r -> + case r of + True -> return (Just WebGPUCullModeFront) + False + -> x `strictEqual` js_WebGPUCullModeBack >>= + \ r -> + case r of + True -> return (Just WebGPUCullModeBack) + False -> return Nothing +js_WebGPUCullModeNone = "none" +js_WebGPUCullModeFront = "front" +js_WebGPUCullModeBack = "back" + +data WebGPUIndexType = WebGPUIndexTypeUint16 + | WebGPUIndexTypeUint32 + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUIndexType where + toJSVal WebGPUIndexTypeUint16 = toJSVal js_WebGPUIndexTypeUint16 + toJSVal WebGPUIndexTypeUint32 = toJSVal js_WebGPUIndexTypeUint32 + +instance FromJSVal WebGPUIndexType where + fromJSVal x + = x `strictEqual` js_WebGPUIndexTypeUint16 >>= + \ r -> + case r of + True -> return (Just WebGPUIndexTypeUint16) + False + -> x `strictEqual` js_WebGPUIndexTypeUint32 >>= + \ r -> + case r of + True -> return (Just WebGPUIndexTypeUint32) + False -> return Nothing +js_WebGPUIndexTypeUint16 = "uint16" +js_WebGPUIndexTypeUint32 = "uint32" + +data WebGPUVisibilityResultMode = WebGPUVisibilityResultModeDisabled + | WebGPUVisibilityResultModeBoolean + | WebGPUVisibilityResultModeCounting + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUVisibilityResultMode where + toJSVal WebGPUVisibilityResultModeDisabled + = toJSVal js_WebGPUVisibilityResultModeDisabled + toJSVal WebGPUVisibilityResultModeBoolean + = toJSVal js_WebGPUVisibilityResultModeBoolean + toJSVal WebGPUVisibilityResultModeCounting + = toJSVal js_WebGPUVisibilityResultModeCounting + +instance FromJSVal WebGPUVisibilityResultMode where + fromJSVal x + = x `strictEqual` js_WebGPUVisibilityResultModeDisabled >>= + \ r -> + case r of + True -> return (Just WebGPUVisibilityResultModeDisabled) + False + -> x `strictEqual` js_WebGPUVisibilityResultModeBoolean >>= + \ r -> + case r of + True -> return (Just WebGPUVisibilityResultModeBoolean) + False + -> x `strictEqual` js_WebGPUVisibilityResultModeCounting >>= + \ r -> + case r of + True + -> return (Just WebGPUVisibilityResultModeCounting) + False -> return Nothing +js_WebGPUVisibilityResultModeDisabled = "disabled" +js_WebGPUVisibilityResultModeBoolean = "boolean" +js_WebGPUVisibilityResultModeCounting = "counting" + +data WebGPUWinding = WebGPUWindingClockwise + | WebGPUWindingCounterclockwise + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUWinding where + toJSVal WebGPUWindingClockwise = toJSVal js_WebGPUWindingClockwise + toJSVal WebGPUWindingCounterclockwise + = toJSVal js_WebGPUWindingCounterclockwise + +instance FromJSVal WebGPUWinding where + fromJSVal x + = x `strictEqual` js_WebGPUWindingClockwise >>= + \ r -> + case r of + True -> return (Just WebGPUWindingClockwise) + False + -> x `strictEqual` js_WebGPUWindingCounterclockwise >>= + \ r -> + case r of + True -> return (Just WebGPUWindingCounterclockwise) + False -> return Nothing +js_WebGPUWindingClockwise = "clockwise" +js_WebGPUWindingCounterclockwise = "counterclockwise" + +data WebGPUDepthClipMode = WebGPUDepthClipModeClip + | WebGPUDepthClipModeClamp + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUDepthClipMode where + toJSVal WebGPUDepthClipModeClip + = toJSVal js_WebGPUDepthClipModeClip + toJSVal WebGPUDepthClipModeClamp + = toJSVal js_WebGPUDepthClipModeClamp + +instance FromJSVal WebGPUDepthClipMode where + fromJSVal x + = x `strictEqual` js_WebGPUDepthClipModeClip >>= + \ r -> + case r of + True -> return (Just WebGPUDepthClipModeClip) + False + -> x `strictEqual` js_WebGPUDepthClipModeClamp >>= + \ r -> + case r of + True -> return (Just WebGPUDepthClipModeClamp) + False -> return Nothing +js_WebGPUDepthClipModeClip = "clip" +js_WebGPUDepthClipModeClamp = "clamp" + +data WebGPUTriangleFillMode = WebGPUTriangleFillModeFill + | WebGPUTriangleFillModeLines + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUTriangleFillMode where + toJSVal WebGPUTriangleFillModeFill + = toJSVal js_WebGPUTriangleFillModeFill + toJSVal WebGPUTriangleFillModeLines + = toJSVal js_WebGPUTriangleFillModeLines + +instance FromJSVal WebGPUTriangleFillMode where + fromJSVal x + = x `strictEqual` js_WebGPUTriangleFillModeFill >>= + \ r -> + case r of + True -> return (Just WebGPUTriangleFillModeFill) + False + -> x `strictEqual` js_WebGPUTriangleFillModeLines >>= + \ r -> + case r of + True -> return (Just WebGPUTriangleFillModeLines) + False -> return Nothing +js_WebGPUTriangleFillModeFill = "fill" +js_WebGPUTriangleFillModeLines = "lines" + +data WebGPUCPUCacheMode = WebGPUCPUCacheModeDefaultcache + | WebGPUCPUCacheModeWritecombined + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUCPUCacheMode where + toJSVal WebGPUCPUCacheModeDefaultcache + = toJSVal js_WebGPUCPUCacheModeDefaultcache + toJSVal WebGPUCPUCacheModeWritecombined + = toJSVal js_WebGPUCPUCacheModeWritecombined + +instance FromJSVal WebGPUCPUCacheMode where + fromJSVal x + = x `strictEqual` js_WebGPUCPUCacheModeDefaultcache >>= + \ r -> + case r of + True -> return (Just WebGPUCPUCacheModeDefaultcache) + False + -> x `strictEqual` js_WebGPUCPUCacheModeWritecombined >>= + \ r -> + case r of + True -> return (Just WebGPUCPUCacheModeWritecombined) + False -> return Nothing +js_WebGPUCPUCacheModeDefaultcache = "defaultcache" +js_WebGPUCPUCacheModeWritecombined = "writecombined" + +data WebGPUStorageMode = WebGPUStorageModeShared + | WebGPUStorageModeManaged + | WebGPUStorageModePrivate + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUStorageMode where + toJSVal WebGPUStorageModeShared + = toJSVal js_WebGPUStorageModeShared + toJSVal WebGPUStorageModeManaged + = toJSVal js_WebGPUStorageModeManaged + toJSVal WebGPUStorageModePrivate + = toJSVal js_WebGPUStorageModePrivate + +instance FromJSVal WebGPUStorageMode where + fromJSVal x + = x `strictEqual` js_WebGPUStorageModeShared >>= + \ r -> + case r of + True -> return (Just WebGPUStorageModeShared) + False + -> x `strictEqual` js_WebGPUStorageModeManaged >>= + \ r -> + case r of + True -> return (Just WebGPUStorageModeManaged) + False + -> x `strictEqual` js_WebGPUStorageModePrivate >>= + \ r -> + case r of + True -> return (Just WebGPUStorageModePrivate) + False -> return Nothing +js_WebGPUStorageModeShared = "shared" +js_WebGPUStorageModeManaged = "managed" +js_WebGPUStorageModePrivate = "private" + +data WebGPUResourceOptions = WebGPUResourceOptionsCpucachemodedefaultcache + | WebGPUResourceOptionsCpucachemodewritecombined + | WebGPUResourceOptionsStoragemodeshared + | WebGPUResourceOptionsStoragemodemanaged + | WebGPUResourceOptionsStoragemodeprivate + | WebGPUResourceOptionsOptioncpucachemodedefaultcache + | WebGPUResourceOptionsOptioncpucachemodewritecombined + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUResourceOptions where + toJSVal WebGPUResourceOptionsCpucachemodedefaultcache + = toJSVal js_WebGPUResourceOptionsCpucachemodedefaultcache + toJSVal WebGPUResourceOptionsCpucachemodewritecombined + = toJSVal js_WebGPUResourceOptionsCpucachemodewritecombined + toJSVal WebGPUResourceOptionsStoragemodeshared + = toJSVal js_WebGPUResourceOptionsStoragemodeshared + toJSVal WebGPUResourceOptionsStoragemodemanaged + = toJSVal js_WebGPUResourceOptionsStoragemodemanaged + toJSVal WebGPUResourceOptionsStoragemodeprivate + = toJSVal js_WebGPUResourceOptionsStoragemodeprivate + toJSVal WebGPUResourceOptionsOptioncpucachemodedefaultcache + = toJSVal js_WebGPUResourceOptionsOptioncpucachemodedefaultcache + toJSVal WebGPUResourceOptionsOptioncpucachemodewritecombined + = toJSVal js_WebGPUResourceOptionsOptioncpucachemodewritecombined + +instance FromJSVal WebGPUResourceOptions where + fromJSVal x + = x `strictEqual` js_WebGPUResourceOptionsCpucachemodedefaultcache + >>= + \ r -> + case r of + True -> return (Just WebGPUResourceOptionsCpucachemodedefaultcache) + False + -> x `strictEqual` + js_WebGPUResourceOptionsCpucachemodewritecombined + >>= + \ r -> + case r of + True + -> return (Just WebGPUResourceOptionsCpucachemodewritecombined) + False + -> x `strictEqual` js_WebGPUResourceOptionsStoragemodeshared >>= + \ r -> + case r of + True + -> return + (Just WebGPUResourceOptionsStoragemodeshared) + False + -> x `strictEqual` + js_WebGPUResourceOptionsStoragemodemanaged + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUResourceOptionsStoragemodemanaged) + False + -> x `strictEqual` + js_WebGPUResourceOptionsStoragemodeprivate + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUResourceOptionsStoragemodeprivate) + False + -> x `strictEqual` + js_WebGPUResourceOptionsOptioncpucachemodedefaultcache + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUResourceOptionsOptioncpucachemodedefaultcache) + False + -> x `strictEqual` + js_WebGPUResourceOptionsOptioncpucachemodewritecombined + >>= + \ r -> + case r + of + True + -> return + (Just + WebGPUResourceOptionsOptioncpucachemodewritecombined) + False + -> return + Nothing +js_WebGPUResourceOptionsCpucachemodedefaultcache + = "cpucachemodedefaultcache" +js_WebGPUResourceOptionsCpucachemodewritecombined + = "cpucachemodewritecombined" +js_WebGPUResourceOptionsStoragemodeshared = "storagemodeshared" +js_WebGPUResourceOptionsStoragemodemanaged = "storagemodemanaged" +js_WebGPUResourceOptionsStoragemodeprivate = "storagemodeprivate" +js_WebGPUResourceOptionsOptioncpucachemodedefaultcache + = "optioncpucachemodedefaultcache" +js_WebGPUResourceOptionsOptioncpucachemodewritecombined + = "optioncpucachemodewritecombined" + +data WebGPUTextureUsage = WebGPUTextureUsageUnknown + | WebGPUTextureUsageShaderread + | WebGPUTextureUsageShaderwrite + | WebGPUTextureUsageRendertarget + | WebGPUTextureUsagePixelformatview + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUTextureUsage where + toJSVal WebGPUTextureUsageUnknown + = toJSVal js_WebGPUTextureUsageUnknown + toJSVal WebGPUTextureUsageShaderread + = toJSVal js_WebGPUTextureUsageShaderread + toJSVal WebGPUTextureUsageShaderwrite + = toJSVal js_WebGPUTextureUsageShaderwrite + toJSVal WebGPUTextureUsageRendertarget + = toJSVal js_WebGPUTextureUsageRendertarget + toJSVal WebGPUTextureUsagePixelformatview + = toJSVal js_WebGPUTextureUsagePixelformatview + +instance FromJSVal WebGPUTextureUsage where + fromJSVal x + = x `strictEqual` js_WebGPUTextureUsageUnknown >>= + \ r -> + case r of + True -> return (Just WebGPUTextureUsageUnknown) + False + -> x `strictEqual` js_WebGPUTextureUsageShaderread >>= + \ r -> + case r of + True -> return (Just WebGPUTextureUsageShaderread) + False + -> x `strictEqual` js_WebGPUTextureUsageShaderwrite >>= + \ r -> + case r of + True -> return (Just WebGPUTextureUsageShaderwrite) + False + -> x `strictEqual` js_WebGPUTextureUsageRendertarget + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUTextureUsageRendertarget) + False + -> x `strictEqual` + js_WebGPUTextureUsagePixelformatview + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUTextureUsagePixelformatview) + False -> return Nothing +js_WebGPUTextureUsageUnknown = "unknown" +js_WebGPUTextureUsageShaderread = "shaderread" +js_WebGPUTextureUsageShaderwrite = "shaderwrite" +js_WebGPUTextureUsageRendertarget = "rendertarget" +js_WebGPUTextureUsagePixelformatview = "pixelformatview" + +data WebGPUBlendOperation = WebGPUBlendOperationAdd + | WebGPUBlendOperationSubtract + | WebGPUBlendOperationReversesubtract + | WebGPUBlendOperationMin + | WebGPUBlendOperationMax + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUBlendOperation where + toJSVal WebGPUBlendOperationAdd + = toJSVal js_WebGPUBlendOperationAdd + toJSVal WebGPUBlendOperationSubtract + = toJSVal js_WebGPUBlendOperationSubtract + toJSVal WebGPUBlendOperationReversesubtract + = toJSVal js_WebGPUBlendOperationReversesubtract + toJSVal WebGPUBlendOperationMin + = toJSVal js_WebGPUBlendOperationMin + toJSVal WebGPUBlendOperationMax + = toJSVal js_WebGPUBlendOperationMax + +instance FromJSVal WebGPUBlendOperation where + fromJSVal x + = x `strictEqual` js_WebGPUBlendOperationAdd >>= + \ r -> + case r of + True -> return (Just WebGPUBlendOperationAdd) + False + -> x `strictEqual` js_WebGPUBlendOperationSubtract >>= + \ r -> + case r of + True -> return (Just WebGPUBlendOperationSubtract) + False + -> x `strictEqual` js_WebGPUBlendOperationReversesubtract >>= + \ r -> + case r of + True + -> return (Just WebGPUBlendOperationReversesubtract) + False + -> x `strictEqual` js_WebGPUBlendOperationMin >>= + \ r -> + case r of + True + -> return + (Just WebGPUBlendOperationMin) + False + -> x `strictEqual` + js_WebGPUBlendOperationMax + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUBlendOperationMax) + False -> return Nothing +js_WebGPUBlendOperationAdd = "add" +js_WebGPUBlendOperationSubtract = "subtract" +js_WebGPUBlendOperationReversesubtract = "reversesubtract" +js_WebGPUBlendOperationMin = "min" +js_WebGPUBlendOperationMax = "max" + +data WebGPUBlendFactor = WebGPUBlendFactorZero + | WebGPUBlendFactorOne + | WebGPUBlendFactorSourcecolor + | WebGPUBlendFactorOneminussourcecolor + | WebGPUBlendFactorSourcealpha + | WebGPUBlendFactorOneminussourcealpha + | WebGPUBlendFactorDestinationcolor + | WebGPUBlendFactorOneminusdestinationcolor + | WebGPUBlendFactorDestinationalpha + | WebGPUBlendFactorOneminusdestinationalpha + | WebGPUBlendFactorSourcealphasaturated + | WebGPUBlendFactorBlendcolor + | WebGPUBlendFactorOneminusblendcolor + | WebGPUBlendFactorBlendalpha + | WebGPUBlendFactorOneminusblendalpha + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUBlendFactor where + toJSVal WebGPUBlendFactorZero = toJSVal js_WebGPUBlendFactorZero + toJSVal WebGPUBlendFactorOne = toJSVal js_WebGPUBlendFactorOne + toJSVal WebGPUBlendFactorSourcecolor + = toJSVal js_WebGPUBlendFactorSourcecolor + toJSVal WebGPUBlendFactorOneminussourcecolor + = toJSVal js_WebGPUBlendFactorOneminussourcecolor + toJSVal WebGPUBlendFactorSourcealpha + = toJSVal js_WebGPUBlendFactorSourcealpha + toJSVal WebGPUBlendFactorOneminussourcealpha + = toJSVal js_WebGPUBlendFactorOneminussourcealpha + toJSVal WebGPUBlendFactorDestinationcolor + = toJSVal js_WebGPUBlendFactorDestinationcolor + toJSVal WebGPUBlendFactorOneminusdestinationcolor + = toJSVal js_WebGPUBlendFactorOneminusdestinationcolor + toJSVal WebGPUBlendFactorDestinationalpha + = toJSVal js_WebGPUBlendFactorDestinationalpha + toJSVal WebGPUBlendFactorOneminusdestinationalpha + = toJSVal js_WebGPUBlendFactorOneminusdestinationalpha + toJSVal WebGPUBlendFactorSourcealphasaturated + = toJSVal js_WebGPUBlendFactorSourcealphasaturated + toJSVal WebGPUBlendFactorBlendcolor + = toJSVal js_WebGPUBlendFactorBlendcolor + toJSVal WebGPUBlendFactorOneminusblendcolor + = toJSVal js_WebGPUBlendFactorOneminusblendcolor + toJSVal WebGPUBlendFactorBlendalpha + = toJSVal js_WebGPUBlendFactorBlendalpha + toJSVal WebGPUBlendFactorOneminusblendalpha + = toJSVal js_WebGPUBlendFactorOneminusblendalpha + +instance FromJSVal WebGPUBlendFactor where + fromJSVal x + = x `strictEqual` js_WebGPUBlendFactorZero >>= + \ r -> + case r of + True -> return (Just WebGPUBlendFactorZero) + False + -> x `strictEqual` js_WebGPUBlendFactorOne >>= + \ r -> + case r of + True -> return (Just WebGPUBlendFactorOne) + False + -> x `strictEqual` js_WebGPUBlendFactorSourcecolor >>= + \ r -> + case r of + True -> return (Just WebGPUBlendFactorSourcecolor) + False + -> x `strictEqual` + js_WebGPUBlendFactorOneminussourcecolor + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUBlendFactorOneminussourcecolor) + False + -> x `strictEqual` + js_WebGPUBlendFactorSourcealpha + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUBlendFactorSourcealpha) + False + -> x `strictEqual` + js_WebGPUBlendFactorOneminussourcealpha + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUBlendFactorOneminussourcealpha) + False + -> x `strictEqual` + js_WebGPUBlendFactorDestinationcolor + >>= + \ r -> + case r + of + True + -> return + (Just + WebGPUBlendFactorDestinationcolor) + False + -> x `strictEqual` + js_WebGPUBlendFactorOneminusdestinationcolor + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUBlendFactorOneminusdestinationcolor) + False + -> x `strictEqual` + js_WebGPUBlendFactorDestinationalpha + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUBlendFactorDestinationalpha) + False + -> x `strictEqual` + js_WebGPUBlendFactorOneminusdestinationalpha + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUBlendFactorOneminusdestinationalpha) + False + -> x `strictEqual` + js_WebGPUBlendFactorSourcealphasaturated + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUBlendFactorSourcealphasaturated) + False + -> x `strictEqual` + js_WebGPUBlendFactorBlendcolor + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUBlendFactorBlendcolor) + False + -> x `strictEqual` + js_WebGPUBlendFactorOneminusblendcolor + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUBlendFactorOneminusblendcolor) + False + -> x `strictEqual` + js_WebGPUBlendFactorBlendalpha + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUBlendFactorBlendalpha) + False + -> x `strictEqual` + js_WebGPUBlendFactorOneminusblendalpha + >>= + \ r + -> + case + r + of + True + -> return + (Just + WebGPUBlendFactorOneminusblendalpha) + False + -> return + Nothing +js_WebGPUBlendFactorZero = "zero" +js_WebGPUBlendFactorOne = "one" +js_WebGPUBlendFactorSourcecolor = "sourcecolor" +js_WebGPUBlendFactorOneminussourcecolor = "oneminussourcecolor" +js_WebGPUBlendFactorSourcealpha = "sourcealpha" +js_WebGPUBlendFactorOneminussourcealpha = "oneminussourcealpha" +js_WebGPUBlendFactorDestinationcolor = "destinationcolor" +js_WebGPUBlendFactorOneminusdestinationcolor + = "oneminusdestinationcolor" +js_WebGPUBlendFactorDestinationalpha = "destinationalpha" +js_WebGPUBlendFactorOneminusdestinationalpha + = "oneminusdestinationalpha" +js_WebGPUBlendFactorSourcealphasaturated = "sourcealphasaturated" +js_WebGPUBlendFactorBlendcolor = "blendcolor" +js_WebGPUBlendFactorOneminusblendcolor = "oneminusblendcolor" +js_WebGPUBlendFactorBlendalpha = "blendalpha" +js_WebGPUBlendFactorOneminusblendalpha = "oneminusblendalpha" + +data WebGPUColorWriteMask = WebGPUColorWriteMaskNone + | WebGPUColorWriteMaskRed + | WebGPUColorWriteMaskGreen + | WebGPUColorWriteMaskBlue + | WebGPUColorWriteMaskAlpha + | WebGPUColorWriteMaskAll + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUColorWriteMask where + toJSVal WebGPUColorWriteMaskNone + = toJSVal js_WebGPUColorWriteMaskNone + toJSVal WebGPUColorWriteMaskRed + = toJSVal js_WebGPUColorWriteMaskRed + toJSVal WebGPUColorWriteMaskGreen + = toJSVal js_WebGPUColorWriteMaskGreen + toJSVal WebGPUColorWriteMaskBlue + = toJSVal js_WebGPUColorWriteMaskBlue + toJSVal WebGPUColorWriteMaskAlpha + = toJSVal js_WebGPUColorWriteMaskAlpha + toJSVal WebGPUColorWriteMaskAll + = toJSVal js_WebGPUColorWriteMaskAll + +instance FromJSVal WebGPUColorWriteMask where + fromJSVal x + = x `strictEqual` js_WebGPUColorWriteMaskNone >>= + \ r -> + case r of + True -> return (Just WebGPUColorWriteMaskNone) + False + -> x `strictEqual` js_WebGPUColorWriteMaskRed >>= + \ r -> + case r of + True -> return (Just WebGPUColorWriteMaskRed) + False + -> x `strictEqual` js_WebGPUColorWriteMaskGreen >>= + \ r -> + case r of + True -> return (Just WebGPUColorWriteMaskGreen) + False + -> x `strictEqual` js_WebGPUColorWriteMaskBlue >>= + \ r -> + case r of + True + -> return + (Just WebGPUColorWriteMaskBlue) + False + -> x `strictEqual` + js_WebGPUColorWriteMaskAlpha + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUColorWriteMaskAlpha) + False + -> x `strictEqual` + js_WebGPUColorWriteMaskAll + >>= + \ r -> + case r of + True + -> return + (Just + WebGPUColorWriteMaskAll) + False + -> return + Nothing +js_WebGPUColorWriteMaskNone = "none" +js_WebGPUColorWriteMaskRed = "red" +js_WebGPUColorWriteMaskGreen = "green" +js_WebGPUColorWriteMaskBlue = "blue" +js_WebGPUColorWriteMaskAlpha = "alpha" +js_WebGPUColorWriteMaskAll = "all" + +data WebGPUMultisampleDepthResolveFilter = WebGPUMultisampleDepthResolveFilterSample0 + | WebGPUMultisampleDepthResolveFilterMin + | WebGPUMultisampleDepthResolveFilterMax + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUMultisampleDepthResolveFilter where + toJSVal WebGPUMultisampleDepthResolveFilterSample0 + = toJSVal js_WebGPUMultisampleDepthResolveFilterSample0 + toJSVal WebGPUMultisampleDepthResolveFilterMin + = toJSVal js_WebGPUMultisampleDepthResolveFilterMin + toJSVal WebGPUMultisampleDepthResolveFilterMax + = toJSVal js_WebGPUMultisampleDepthResolveFilterMax + +instance FromJSVal WebGPUMultisampleDepthResolveFilter where + fromJSVal x + = x `strictEqual` js_WebGPUMultisampleDepthResolveFilterSample0 >>= + \ r -> + case r of + True -> return (Just WebGPUMultisampleDepthResolveFilterSample0) + False + -> x `strictEqual` js_WebGPUMultisampleDepthResolveFilterMin >>= + \ r -> + case r of + True -> return (Just WebGPUMultisampleDepthResolveFilterMin) + False + -> x `strictEqual` js_WebGPUMultisampleDepthResolveFilterMax >>= + \ r -> + case r of + True + -> return + (Just WebGPUMultisampleDepthResolveFilterMax) + False -> return Nothing +js_WebGPUMultisampleDepthResolveFilterSample0 = "sample0" +js_WebGPUMultisampleDepthResolveFilterMin = "min" +js_WebGPUMultisampleDepthResolveFilterMax = "max" + +data WebGPUFeatureSet = WebGPUFeatureSetLevel1 + | WebGPUFeatureSetLevel2 + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal WebGPUFeatureSet where + toJSVal WebGPUFeatureSetLevel1 = toJSVal js_WebGPUFeatureSetLevel1 + toJSVal WebGPUFeatureSetLevel2 = toJSVal js_WebGPUFeatureSetLevel2 + +instance FromJSVal WebGPUFeatureSet where + fromJSVal x + = x `strictEqual` js_WebGPUFeatureSetLevel1 >>= + \ r -> + case r of + True -> return (Just WebGPUFeatureSetLevel1) + False + -> x `strictEqual` js_WebGPUFeatureSetLevel2 >>= + \ r -> + case r of + True -> return (Just WebGPUFeatureSetLevel2) + False -> return Nothing +js_WebGPUFeatureSetLevel1 = "level1" +js_WebGPUFeatureSetLevel2 = "level2" + +data VideoPresentationMode = VideoPresentationModeFullscreen + | VideoPresentationModePictureInPicture + | VideoPresentationModeInline + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal VideoPresentationMode where + toJSVal VideoPresentationModeFullscreen + = toJSVal js_VideoPresentationModeFullscreen + toJSVal VideoPresentationModePictureInPicture + = toJSVal js_VideoPresentationModePictureInPicture + toJSVal VideoPresentationModeInline + = toJSVal js_VideoPresentationModeInline + +instance FromJSVal VideoPresentationMode where + fromJSVal x + = x `strictEqual` js_VideoPresentationModeFullscreen >>= + \ r -> + case r of + True -> return (Just VideoPresentationModeFullscreen) + False + -> x `strictEqual` js_VideoPresentationModePictureInPicture >>= + \ r -> + case r of + True -> return (Just VideoPresentationModePictureInPicture) + False + -> x `strictEqual` js_VideoPresentationModeInline >>= + \ r -> + case r of + True -> return (Just VideoPresentationModeInline) + False -> return Nothing +js_VideoPresentationModeFullscreen = "fullscreen" +js_VideoPresentationModePictureInPicture = "picture-in-picture" +js_VideoPresentationModeInline = "inline" + +data TextTrackMode = TextTrackModeDisabled + | TextTrackModeHidden + | TextTrackModeShowing + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal TextTrackMode where + toJSVal TextTrackModeDisabled = toJSVal js_TextTrackModeDisabled + toJSVal TextTrackModeHidden = toJSVal js_TextTrackModeHidden + toJSVal TextTrackModeShowing = toJSVal js_TextTrackModeShowing + +instance FromJSVal TextTrackMode where + fromJSVal x + = x `strictEqual` js_TextTrackModeDisabled >>= + \ r -> + case r of + True -> return (Just TextTrackModeDisabled) + False + -> x `strictEqual` js_TextTrackModeHidden >>= + \ r -> + case r of + True -> return (Just TextTrackModeHidden) + False + -> x `strictEqual` js_TextTrackModeShowing >>= + \ r -> + case r of + True -> return (Just TextTrackModeShowing) + False -> return Nothing +js_TextTrackModeDisabled = "disabled" +js_TextTrackModeHidden = "hidden" +js_TextTrackModeShowing = "showing" + +data TextTrackKind = TextTrackKindSubtitles + | TextTrackKindCaptions + | TextTrackKindDescriptions + | TextTrackKindChapters + | TextTrackKindMetadata + | TextTrackKindForced + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal TextTrackKind where + toJSVal TextTrackKindSubtitles = toJSVal js_TextTrackKindSubtitles + toJSVal TextTrackKindCaptions = toJSVal js_TextTrackKindCaptions + toJSVal TextTrackKindDescriptions + = toJSVal js_TextTrackKindDescriptions + toJSVal TextTrackKindChapters = toJSVal js_TextTrackKindChapters + toJSVal TextTrackKindMetadata = toJSVal js_TextTrackKindMetadata + toJSVal TextTrackKindForced = toJSVal js_TextTrackKindForced + +instance FromJSVal TextTrackKind where + fromJSVal x + = x `strictEqual` js_TextTrackKindSubtitles >>= + \ r -> + case r of + True -> return (Just TextTrackKindSubtitles) + False + -> x `strictEqual` js_TextTrackKindCaptions >>= + \ r -> + case r of + True -> return (Just TextTrackKindCaptions) + False + -> x `strictEqual` js_TextTrackKindDescriptions >>= + \ r -> + case r of + True -> return (Just TextTrackKindDescriptions) + False + -> x `strictEqual` js_TextTrackKindChapters >>= + \ r -> + case r of + True + -> return (Just TextTrackKindChapters) + False + -> x `strictEqual` + js_TextTrackKindMetadata + >>= + \ r -> + case r of + True + -> return + (Just + TextTrackKindMetadata) + False + -> x `strictEqual` + js_TextTrackKindForced + >>= + \ r -> + case r of + True + -> return + (Just + TextTrackKindForced) + False + -> return + Nothing +js_TextTrackKindSubtitles = "subtitles" +js_TextTrackKindCaptions = "captions" +js_TextTrackKindDescriptions = "descriptions" +js_TextTrackKindChapters = "chapters" +js_TextTrackKindMetadata = "metadata" +js_TextTrackKindForced = "forced" + +data ApplePayErrorCode = ApplePayErrorCodeUnknown + | ApplePayErrorCodeShippingContactInvalid + | ApplePayErrorCodeBillingContactInvalid + | ApplePayErrorCodeAddressUnservicable + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ApplePayErrorCode where + toJSVal ApplePayErrorCodeUnknown + = toJSVal js_ApplePayErrorCodeUnknown + toJSVal ApplePayErrorCodeShippingContactInvalid + = toJSVal js_ApplePayErrorCodeShippingContactInvalid + toJSVal ApplePayErrorCodeBillingContactInvalid + = toJSVal js_ApplePayErrorCodeBillingContactInvalid + toJSVal ApplePayErrorCodeAddressUnservicable + = toJSVal js_ApplePayErrorCodeAddressUnservicable + +instance FromJSVal ApplePayErrorCode where + fromJSVal x + = x `strictEqual` js_ApplePayErrorCodeUnknown >>= + \ r -> + case r of + True -> return (Just ApplePayErrorCodeUnknown) + False + -> x `strictEqual` js_ApplePayErrorCodeShippingContactInvalid >>= + \ r -> + case r of + True -> return (Just ApplePayErrorCodeShippingContactInvalid) + False + -> x `strictEqual` js_ApplePayErrorCodeBillingContactInvalid >>= + \ r -> + case r of + True + -> return + (Just ApplePayErrorCodeBillingContactInvalid) + False + -> x `strictEqual` + js_ApplePayErrorCodeAddressUnservicable + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayErrorCodeAddressUnservicable) + False -> return Nothing +js_ApplePayErrorCodeUnknown = "unknown" +js_ApplePayErrorCodeShippingContactInvalid + = "shippingContactInvalid" +js_ApplePayErrorCodeBillingContactInvalid = "billingContactInvalid" +js_ApplePayErrorCodeAddressUnservicable = "addressUnservicable" + +data ApplePayErrorContactField = ApplePayErrorContactFieldPhoneNumber + | ApplePayErrorContactFieldEmailAddress + | ApplePayErrorContactFieldName + | ApplePayErrorContactFieldPostalAddress + | ApplePayErrorContactFieldAddressLines + | ApplePayErrorContactFieldLocality + | ApplePayErrorContactFieldPostalCode + | ApplePayErrorContactFieldAdministrativeArea + | ApplePayErrorContactFieldCountry + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ApplePayErrorContactField where + toJSVal ApplePayErrorContactFieldPhoneNumber + = toJSVal js_ApplePayErrorContactFieldPhoneNumber + toJSVal ApplePayErrorContactFieldEmailAddress + = toJSVal js_ApplePayErrorContactFieldEmailAddress + toJSVal ApplePayErrorContactFieldName + = toJSVal js_ApplePayErrorContactFieldName + toJSVal ApplePayErrorContactFieldPostalAddress + = toJSVal js_ApplePayErrorContactFieldPostalAddress + toJSVal ApplePayErrorContactFieldAddressLines + = toJSVal js_ApplePayErrorContactFieldAddressLines + toJSVal ApplePayErrorContactFieldLocality + = toJSVal js_ApplePayErrorContactFieldLocality + toJSVal ApplePayErrorContactFieldPostalCode + = toJSVal js_ApplePayErrorContactFieldPostalCode + toJSVal ApplePayErrorContactFieldAdministrativeArea + = toJSVal js_ApplePayErrorContactFieldAdministrativeArea + toJSVal ApplePayErrorContactFieldCountry + = toJSVal js_ApplePayErrorContactFieldCountry + +instance FromJSVal ApplePayErrorContactField where + fromJSVal x + = x `strictEqual` js_ApplePayErrorContactFieldPhoneNumber >>= + \ r -> + case r of + True -> return (Just ApplePayErrorContactFieldPhoneNumber) + False + -> x `strictEqual` js_ApplePayErrorContactFieldEmailAddress >>= + \ r -> + case r of + True -> return (Just ApplePayErrorContactFieldEmailAddress) + False + -> x `strictEqual` js_ApplePayErrorContactFieldName >>= + \ r -> + case r of + True -> return (Just ApplePayErrorContactFieldName) + False + -> x `strictEqual` + js_ApplePayErrorContactFieldPostalAddress + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayErrorContactFieldPostalAddress) + False + -> x `strictEqual` + js_ApplePayErrorContactFieldAddressLines + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayErrorContactFieldAddressLines) + False + -> x `strictEqual` + js_ApplePayErrorContactFieldLocality + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayErrorContactFieldLocality) + False + -> x `strictEqual` + js_ApplePayErrorContactFieldPostalCode + >>= + \ r -> + case r + of + True + -> return + (Just + ApplePayErrorContactFieldPostalCode) + False + -> x `strictEqual` + js_ApplePayErrorContactFieldAdministrativeArea + >>= + \ r + -> + case + r + of + True + -> return + (Just + ApplePayErrorContactFieldAdministrativeArea) + False + -> x `strictEqual` + js_ApplePayErrorContactFieldCountry + >>= + \ r + -> + case + r + of + True + -> return + (Just + ApplePayErrorContactFieldCountry) + False + -> return + Nothing +js_ApplePayErrorContactFieldPhoneNumber = "phoneNumber" +js_ApplePayErrorContactFieldEmailAddress = "emailAddress" +js_ApplePayErrorContactFieldName = "name" +js_ApplePayErrorContactFieldPostalAddress = "postalAddress" +js_ApplePayErrorContactFieldAddressLines = "addressLines" +js_ApplePayErrorContactFieldLocality = "locality" +js_ApplePayErrorContactFieldPostalCode = "postalCode" +js_ApplePayErrorContactFieldAdministrativeArea + = "administrativeArea" +js_ApplePayErrorContactFieldCountry = "country" + +data ApplePayLineItemType = ApplePayLineItemTypePending + | ApplePayLineItemTypeFinal + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ApplePayLineItemType where + toJSVal ApplePayLineItemTypePending + = toJSVal js_ApplePayLineItemTypePending + toJSVal ApplePayLineItemTypeFinal + = toJSVal js_ApplePayLineItemTypeFinal + +instance FromJSVal ApplePayLineItemType where + fromJSVal x + = x `strictEqual` js_ApplePayLineItemTypePending >>= + \ r -> + case r of + True -> return (Just ApplePayLineItemTypePending) + False + -> x `strictEqual` js_ApplePayLineItemTypeFinal >>= + \ r -> + case r of + True -> return (Just ApplePayLineItemTypeFinal) + False -> return Nothing +js_ApplePayLineItemTypePending = "pending" +js_ApplePayLineItemTypeFinal = "final" + +data ApplePayPaymentMethodType = ApplePayPaymentMethodTypeDebit + | ApplePayPaymentMethodTypeCredit + | ApplePayPaymentMethodTypePrepaid + | ApplePayPaymentMethodTypeStore + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ApplePayPaymentMethodType where + toJSVal ApplePayPaymentMethodTypeDebit + = toJSVal js_ApplePayPaymentMethodTypeDebit + toJSVal ApplePayPaymentMethodTypeCredit + = toJSVal js_ApplePayPaymentMethodTypeCredit + toJSVal ApplePayPaymentMethodTypePrepaid + = toJSVal js_ApplePayPaymentMethodTypePrepaid + toJSVal ApplePayPaymentMethodTypeStore + = toJSVal js_ApplePayPaymentMethodTypeStore + +instance FromJSVal ApplePayPaymentMethodType where + fromJSVal x + = x `strictEqual` js_ApplePayPaymentMethodTypeDebit >>= + \ r -> + case r of + True -> return (Just ApplePayPaymentMethodTypeDebit) + False + -> x `strictEqual` js_ApplePayPaymentMethodTypeCredit >>= + \ r -> + case r of + True -> return (Just ApplePayPaymentMethodTypeCredit) + False + -> x `strictEqual` js_ApplePayPaymentMethodTypePrepaid >>= + \ r -> + case r of + True -> return (Just ApplePayPaymentMethodTypePrepaid) + False + -> x `strictEqual` js_ApplePayPaymentMethodTypeStore + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayPaymentMethodTypeStore) + False -> return Nothing +js_ApplePayPaymentMethodTypeDebit = "debit" +js_ApplePayPaymentMethodTypeCredit = "credit" +js_ApplePayPaymentMethodTypePrepaid = "prepaid" +js_ApplePayPaymentMethodTypeStore = "store" + +data ApplePayPaymentPassActivationState = ApplePayPaymentPassActivationStateActivated + | ApplePayPaymentPassActivationStateRequiresActivation + | ApplePayPaymentPassActivationStateActivating + | ApplePayPaymentPassActivationStateSuspended + | ApplePayPaymentPassActivationStateDeactivated + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ApplePayPaymentPassActivationState where + toJSVal ApplePayPaymentPassActivationStateActivated + = toJSVal js_ApplePayPaymentPassActivationStateActivated + toJSVal ApplePayPaymentPassActivationStateRequiresActivation + = toJSVal js_ApplePayPaymentPassActivationStateRequiresActivation + toJSVal ApplePayPaymentPassActivationStateActivating + = toJSVal js_ApplePayPaymentPassActivationStateActivating + toJSVal ApplePayPaymentPassActivationStateSuspended + = toJSVal js_ApplePayPaymentPassActivationStateSuspended + toJSVal ApplePayPaymentPassActivationStateDeactivated + = toJSVal js_ApplePayPaymentPassActivationStateDeactivated + +instance FromJSVal ApplePayPaymentPassActivationState where + fromJSVal x + = x `strictEqual` js_ApplePayPaymentPassActivationStateActivated + >>= + \ r -> + case r of + True -> return (Just ApplePayPaymentPassActivationStateActivated) + False + -> x `strictEqual` + js_ApplePayPaymentPassActivationStateRequiresActivation + >>= + \ r -> + case r of + True + -> return + (Just ApplePayPaymentPassActivationStateRequiresActivation) + False + -> x `strictEqual` + js_ApplePayPaymentPassActivationStateActivating + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayPaymentPassActivationStateActivating) + False + -> x `strictEqual` + js_ApplePayPaymentPassActivationStateSuspended + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayPaymentPassActivationStateSuspended) + False + -> x `strictEqual` + js_ApplePayPaymentPassActivationStateDeactivated + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayPaymentPassActivationStateDeactivated) + False -> return Nothing +js_ApplePayPaymentPassActivationStateActivated = "activated" +js_ApplePayPaymentPassActivationStateRequiresActivation + = "requiresActivation" +js_ApplePayPaymentPassActivationStateActivating = "activating" +js_ApplePayPaymentPassActivationStateSuspended = "suspended" +js_ApplePayPaymentPassActivationStateDeactivated = "deactivated" + +data ApplePayMerchantCapability = ApplePayMerchantCapabilitySupports3DS + | ApplePayMerchantCapabilitySupportsEMV + | ApplePayMerchantCapabilitySupportsCredit + | ApplePayMerchantCapabilitySupportsDebit + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ApplePayMerchantCapability where + toJSVal ApplePayMerchantCapabilitySupports3DS + = toJSVal js_ApplePayMerchantCapabilitySupports3DS + toJSVal ApplePayMerchantCapabilitySupportsEMV + = toJSVal js_ApplePayMerchantCapabilitySupportsEMV + toJSVal ApplePayMerchantCapabilitySupportsCredit + = toJSVal js_ApplePayMerchantCapabilitySupportsCredit + toJSVal ApplePayMerchantCapabilitySupportsDebit + = toJSVal js_ApplePayMerchantCapabilitySupportsDebit + +instance FromJSVal ApplePayMerchantCapability where + fromJSVal x + = x `strictEqual` js_ApplePayMerchantCapabilitySupports3DS >>= + \ r -> + case r of + True -> return (Just ApplePayMerchantCapabilitySupports3DS) + False + -> x `strictEqual` js_ApplePayMerchantCapabilitySupportsEMV >>= + \ r -> + case r of + True -> return (Just ApplePayMerchantCapabilitySupportsEMV) + False + -> x `strictEqual` js_ApplePayMerchantCapabilitySupportsCredit + >>= + \ r -> + case r of + True + -> return + (Just ApplePayMerchantCapabilitySupportsCredit) + False + -> x `strictEqual` + js_ApplePayMerchantCapabilitySupportsDebit + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayMerchantCapabilitySupportsDebit) + False -> return Nothing +js_ApplePayMerchantCapabilitySupports3DS = "supports3DS" +js_ApplePayMerchantCapabilitySupportsEMV = "supportsEMV" +js_ApplePayMerchantCapabilitySupportsCredit = "supportsCredit" +js_ApplePayMerchantCapabilitySupportsDebit = "supportsDebit" + +data ApplePayContactField = ApplePayContactFieldEmail + | ApplePayContactFieldName + | ApplePayContactFieldPhone + | ApplePayContactFieldPostalAddress + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ApplePayContactField where + toJSVal ApplePayContactFieldEmail + = toJSVal js_ApplePayContactFieldEmail + toJSVal ApplePayContactFieldName + = toJSVal js_ApplePayContactFieldName + toJSVal ApplePayContactFieldPhone + = toJSVal js_ApplePayContactFieldPhone + toJSVal ApplePayContactFieldPostalAddress + = toJSVal js_ApplePayContactFieldPostalAddress + +instance FromJSVal ApplePayContactField where + fromJSVal x + = x `strictEqual` js_ApplePayContactFieldEmail >>= + \ r -> + case r of + True -> return (Just ApplePayContactFieldEmail) + False + -> x `strictEqual` js_ApplePayContactFieldName >>= + \ r -> + case r of + True -> return (Just ApplePayContactFieldName) + False + -> x `strictEqual` js_ApplePayContactFieldPhone >>= + \ r -> + case r of + True -> return (Just ApplePayContactFieldPhone) + False + -> x `strictEqual` + js_ApplePayContactFieldPostalAddress + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayContactFieldPostalAddress) + False -> return Nothing +js_ApplePayContactFieldEmail = "email" +js_ApplePayContactFieldName = "name" +js_ApplePayContactFieldPhone = "phone" +js_ApplePayContactFieldPostalAddress = "postalAddress" + +data ApplePayShippingType = ApplePayShippingTypeShipping + | ApplePayShippingTypeDelivery + | ApplePayShippingTypeStorePickup + | ApplePayShippingTypeServicePickup + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ApplePayShippingType where + toJSVal ApplePayShippingTypeShipping + = toJSVal js_ApplePayShippingTypeShipping + toJSVal ApplePayShippingTypeDelivery + = toJSVal js_ApplePayShippingTypeDelivery + toJSVal ApplePayShippingTypeStorePickup + = toJSVal js_ApplePayShippingTypeStorePickup + toJSVal ApplePayShippingTypeServicePickup + = toJSVal js_ApplePayShippingTypeServicePickup + +instance FromJSVal ApplePayShippingType where + fromJSVal x + = x `strictEqual` js_ApplePayShippingTypeShipping >>= + \ r -> + case r of + True -> return (Just ApplePayShippingTypeShipping) + False + -> x `strictEqual` js_ApplePayShippingTypeDelivery >>= + \ r -> + case r of + True -> return (Just ApplePayShippingTypeDelivery) + False + -> x `strictEqual` js_ApplePayShippingTypeStorePickup >>= + \ r -> + case r of + True -> return (Just ApplePayShippingTypeStorePickup) + False + -> x `strictEqual` + js_ApplePayShippingTypeServicePickup + >>= + \ r -> + case r of + True + -> return + (Just + ApplePayShippingTypeServicePickup) + False -> return Nothing +js_ApplePayShippingTypeShipping = "shipping" +js_ApplePayShippingTypeDelivery = "delivery" +js_ApplePayShippingTypeStorePickup = "storePickup" +js_ApplePayShippingTypeServicePickup = "servicePickup" + +data MediaKeyMessageType = MediaKeyMessageTypeLicenseRequest + | MediaKeyMessageTypeLicenseRenewal + | MediaKeyMessageTypeLicenseRelease + | MediaKeyMessageTypeIndividualizationRequest + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal MediaKeyMessageType where + toJSVal MediaKeyMessageTypeLicenseRequest + = toJSVal js_MediaKeyMessageTypeLicenseRequest + toJSVal MediaKeyMessageTypeLicenseRenewal + = toJSVal js_MediaKeyMessageTypeLicenseRenewal + toJSVal MediaKeyMessageTypeLicenseRelease + = toJSVal js_MediaKeyMessageTypeLicenseRelease + toJSVal MediaKeyMessageTypeIndividualizationRequest + = toJSVal js_MediaKeyMessageTypeIndividualizationRequest + +instance FromJSVal MediaKeyMessageType where + fromJSVal x + = x `strictEqual` js_MediaKeyMessageTypeLicenseRequest >>= + \ r -> + case r of + True -> return (Just MediaKeyMessageTypeLicenseRequest) + False + -> x `strictEqual` js_MediaKeyMessageTypeLicenseRenewal >>= + \ r -> + case r of + True -> return (Just MediaKeyMessageTypeLicenseRenewal) + False + -> x `strictEqual` js_MediaKeyMessageTypeLicenseRelease >>= + \ r -> + case r of + True + -> return (Just MediaKeyMessageTypeLicenseRelease) + False + -> x `strictEqual` + js_MediaKeyMessageTypeIndividualizationRequest + >>= + \ r -> + case r of + True + -> return + (Just + MediaKeyMessageTypeIndividualizationRequest) + False -> return Nothing +js_MediaKeyMessageTypeLicenseRequest = "license-request" +js_MediaKeyMessageTypeLicenseRenewal = "license-renewal" +js_MediaKeyMessageTypeLicenseRelease = "license-release" +js_MediaKeyMessageTypeIndividualizationRequest + = "individualization-request" + +data MediaKeySessionType = MediaKeySessionTypeTemporary + | MediaKeySessionTypePersistentUsageRecord + | MediaKeySessionTypePersistentLicense + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal MediaKeySessionType where + toJSVal MediaKeySessionTypeTemporary + = toJSVal js_MediaKeySessionTypeTemporary + toJSVal MediaKeySessionTypePersistentUsageRecord + = toJSVal js_MediaKeySessionTypePersistentUsageRecord + toJSVal MediaKeySessionTypePersistentLicense + = toJSVal js_MediaKeySessionTypePersistentLicense + +instance FromJSVal MediaKeySessionType where + fromJSVal x + = x `strictEqual` js_MediaKeySessionTypeTemporary >>= + \ r -> + case r of + True -> return (Just MediaKeySessionTypeTemporary) + False + -> x `strictEqual` js_MediaKeySessionTypePersistentUsageRecord >>= + \ r -> + case r of + True -> return (Just MediaKeySessionTypePersistentUsageRecord) + False + -> x `strictEqual` js_MediaKeySessionTypePersistentLicense >>= + \ r -> + case r of + True + -> return + (Just MediaKeySessionTypePersistentLicense) + False -> return Nothing +js_MediaKeySessionTypeTemporary = "temporary" +js_MediaKeySessionTypePersistentUsageRecord + = "persistent-usage-record" +js_MediaKeySessionTypePersistentLicense = "persistent-license" + +data MediaKeysRequirement = MediaKeysRequirementRequired + | MediaKeysRequirementOptional + | MediaKeysRequirementNotAllowed + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal MediaKeysRequirement where + toJSVal MediaKeysRequirementRequired + = toJSVal js_MediaKeysRequirementRequired + toJSVal MediaKeysRequirementOptional + = toJSVal js_MediaKeysRequirementOptional + toJSVal MediaKeysRequirementNotAllowed + = toJSVal js_MediaKeysRequirementNotAllowed + +instance FromJSVal MediaKeysRequirement where + fromJSVal x + = x `strictEqual` js_MediaKeysRequirementRequired >>= + \ r -> + case r of + True -> return (Just MediaKeysRequirementRequired) + False + -> x `strictEqual` js_MediaKeysRequirementOptional >>= + \ r -> + case r of + True -> return (Just MediaKeysRequirementOptional) + False + -> x `strictEqual` js_MediaKeysRequirementNotAllowed >>= + \ r -> + case r of + True -> return (Just MediaKeysRequirementNotAllowed) + False -> return Nothing +js_MediaKeysRequirementRequired = "required" +js_MediaKeysRequirementOptional = "optional" +js_MediaKeysRequirementNotAllowed = "not-allowed" + +data MediaKeyStatus = MediaKeyStatusUsable + | MediaKeyStatusExpired + | MediaKeyStatusReleased + | MediaKeyStatusOutputRestricted + | MediaKeyStatusOutputDownscaled + | MediaKeyStatusStatusPending + | MediaKeyStatusInternalError + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal MediaKeyStatus where + toJSVal MediaKeyStatusUsable = toJSVal js_MediaKeyStatusUsable + toJSVal MediaKeyStatusExpired = toJSVal js_MediaKeyStatusExpired + toJSVal MediaKeyStatusReleased = toJSVal js_MediaKeyStatusReleased + toJSVal MediaKeyStatusOutputRestricted + = toJSVal js_MediaKeyStatusOutputRestricted + toJSVal MediaKeyStatusOutputDownscaled + = toJSVal js_MediaKeyStatusOutputDownscaled + toJSVal MediaKeyStatusStatusPending + = toJSVal js_MediaKeyStatusStatusPending + toJSVal MediaKeyStatusInternalError + = toJSVal js_MediaKeyStatusInternalError + +instance FromJSVal MediaKeyStatus where + fromJSVal x + = x `strictEqual` js_MediaKeyStatusUsable >>= + \ r -> + case r of + True -> return (Just MediaKeyStatusUsable) + False + -> x `strictEqual` js_MediaKeyStatusExpired >>= + \ r -> + case r of + True -> return (Just MediaKeyStatusExpired) + False + -> x `strictEqual` js_MediaKeyStatusReleased >>= + \ r -> + case r of + True -> return (Just MediaKeyStatusReleased) + False + -> x `strictEqual` js_MediaKeyStatusOutputRestricted + >>= + \ r -> + case r of + True + -> return + (Just + MediaKeyStatusOutputRestricted) + False + -> x `strictEqual` + js_MediaKeyStatusOutputDownscaled + >>= + \ r -> + case r of + True + -> return + (Just + MediaKeyStatusOutputDownscaled) + False + -> x `strictEqual` + js_MediaKeyStatusStatusPending + >>= + \ r -> + case r of + True + -> return + (Just + MediaKeyStatusStatusPending) + False + -> x `strictEqual` + js_MediaKeyStatusInternalError + >>= + \ r -> + case r + of + True + -> return + (Just + MediaKeyStatusInternalError) + False + -> return + Nothing +js_MediaKeyStatusUsable = "usable" +js_MediaKeyStatusExpired = "expired" +js_MediaKeyStatusReleased = "released" +js_MediaKeyStatusOutputRestricted = "output-restricted" +js_MediaKeyStatusOutputDownscaled = "output-downscaled" +js_MediaKeyStatusStatusPending = "status-pending" +js_MediaKeyStatusInternalError = "internal-error" + +data RequestType = RequestType + | RequestTypeAudio + | RequestTypeFont + | RequestTypeImage + | RequestTypeScript + | RequestTypeStyle + | RequestTypeTrack + | RequestTypeVideo + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RequestType where + toJSVal RequestType = toJSVal js_RequestType + toJSVal RequestTypeAudio = toJSVal js_RequestTypeAudio + toJSVal RequestTypeFont = toJSVal js_RequestTypeFont + toJSVal RequestTypeImage = toJSVal js_RequestTypeImage + toJSVal RequestTypeScript = toJSVal js_RequestTypeScript + toJSVal RequestTypeStyle = toJSVal js_RequestTypeStyle + toJSVal RequestTypeTrack = toJSVal js_RequestTypeTrack + toJSVal RequestTypeVideo = toJSVal js_RequestTypeVideo + +instance FromJSVal RequestType where + fromJSVal x + = x `strictEqual` js_RequestType >>= + \ r -> + case r of + True -> return (Just RequestType) + False + -> x `strictEqual` js_RequestTypeAudio >>= + \ r -> + case r of + True -> return (Just RequestTypeAudio) + False + -> x `strictEqual` js_RequestTypeFont >>= + \ r -> + case r of + True -> return (Just RequestTypeFont) + False + -> x `strictEqual` js_RequestTypeImage >>= + \ r -> + case r of + True -> return (Just RequestTypeImage) + False + -> x `strictEqual` js_RequestTypeScript + >>= + \ r -> + case r of + True + -> return + (Just + RequestTypeScript) + False + -> x `strictEqual` + js_RequestTypeStyle + >>= + \ r -> + case r of + True + -> return + (Just + RequestTypeStyle) + False + -> x `strictEqual` + js_RequestTypeTrack + >>= + \ r -> + case r + of + True + -> return + (Just + RequestTypeTrack) + False + -> x `strictEqual` + js_RequestTypeVideo + >>= + \ r + -> + case + r + of + True + -> return + (Just + RequestTypeVideo) + False + -> return + Nothing +js_RequestType = "" +js_RequestTypeAudio = "audio" +js_RequestTypeFont = "font" +js_RequestTypeImage = "image" +js_RequestTypeScript = "script" +js_RequestTypeStyle = "style" +js_RequestTypeTrack = "track" +js_RequestTypeVideo = "video" + +data RequestDestination = RequestDestination + | RequestDestinationDocument + | RequestDestinationSharedworker + | RequestDestinationSubresource + | RequestDestinationUnknown + | RequestDestinationWorker + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RequestDestination where + toJSVal RequestDestination = toJSVal js_RequestDestination + toJSVal RequestDestinationDocument + = toJSVal js_RequestDestinationDocument + toJSVal RequestDestinationSharedworker + = toJSVal js_RequestDestinationSharedworker + toJSVal RequestDestinationSubresource + = toJSVal js_RequestDestinationSubresource + toJSVal RequestDestinationUnknown + = toJSVal js_RequestDestinationUnknown + toJSVal RequestDestinationWorker + = toJSVal js_RequestDestinationWorker + +instance FromJSVal RequestDestination where + fromJSVal x + = x `strictEqual` js_RequestDestination >>= + \ r -> + case r of + True -> return (Just RequestDestination) + False + -> x `strictEqual` js_RequestDestinationDocument >>= + \ r -> + case r of + True -> return (Just RequestDestinationDocument) + False + -> x `strictEqual` js_RequestDestinationSharedworker >>= + \ r -> + case r of + True -> return (Just RequestDestinationSharedworker) + False + -> x `strictEqual` js_RequestDestinationSubresource + >>= + \ r -> + case r of + True + -> return + (Just + RequestDestinationSubresource) + False + -> x `strictEqual` + js_RequestDestinationUnknown + >>= + \ r -> + case r of + True + -> return + (Just + RequestDestinationUnknown) + False + -> x `strictEqual` + js_RequestDestinationWorker + >>= + \ r -> + case r of + True + -> return + (Just + RequestDestinationWorker) + False + -> return + Nothing +js_RequestDestination = "" +js_RequestDestinationDocument = "document" +js_RequestDestinationSharedworker = "sharedworker" +js_RequestDestinationSubresource = "subresource" +js_RequestDestinationUnknown = "unknown" +js_RequestDestinationWorker = "worker" + +data RequestMode = RequestModeNavigate + | RequestModeSameOrigin + | RequestModeNoCors + | RequestModeCors + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RequestMode where + toJSVal RequestModeNavigate = toJSVal js_RequestModeNavigate + toJSVal RequestModeSameOrigin = toJSVal js_RequestModeSameOrigin + toJSVal RequestModeNoCors = toJSVal js_RequestModeNoCors + toJSVal RequestModeCors = toJSVal js_RequestModeCors + +instance FromJSVal RequestMode where + fromJSVal x + = x `strictEqual` js_RequestModeNavigate >>= + \ r -> + case r of + True -> return (Just RequestModeNavigate) + False + -> x `strictEqual` js_RequestModeSameOrigin >>= + \ r -> + case r of + True -> return (Just RequestModeSameOrigin) + False + -> x `strictEqual` js_RequestModeNoCors >>= + \ r -> + case r of + True -> return (Just RequestModeNoCors) + False + -> x `strictEqual` js_RequestModeCors >>= + \ r -> + case r of + True -> return (Just RequestModeCors) + False -> return Nothing +js_RequestModeNavigate = "navigate" +js_RequestModeSameOrigin = "same-origin" +js_RequestModeNoCors = "no-cors" +js_RequestModeCors = "cors" + +data RequestCredentials = RequestCredentialsOmit + | RequestCredentialsSameOrigin + | RequestCredentialsInclude + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RequestCredentials where + toJSVal RequestCredentialsOmit = toJSVal js_RequestCredentialsOmit + toJSVal RequestCredentialsSameOrigin + = toJSVal js_RequestCredentialsSameOrigin + toJSVal RequestCredentialsInclude + = toJSVal js_RequestCredentialsInclude + +instance FromJSVal RequestCredentials where + fromJSVal x + = x `strictEqual` js_RequestCredentialsOmit >>= + \ r -> + case r of + True -> return (Just RequestCredentialsOmit) + False + -> x `strictEqual` js_RequestCredentialsSameOrigin >>= + \ r -> + case r of + True -> return (Just RequestCredentialsSameOrigin) + False + -> x `strictEqual` js_RequestCredentialsInclude >>= + \ r -> + case r of + True -> return (Just RequestCredentialsInclude) + False -> return Nothing +js_RequestCredentialsOmit = "omit" +js_RequestCredentialsSameOrigin = "same-origin" +js_RequestCredentialsInclude = "include" + +data RequestCache = RequestCacheDefault + | RequestCacheNoStore + | RequestCacheReload + | RequestCacheNoCache + | RequestCacheForceCache + | RequestCacheOnlyIfCached + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RequestCache where + toJSVal RequestCacheDefault = toJSVal js_RequestCacheDefault + toJSVal RequestCacheNoStore = toJSVal js_RequestCacheNoStore + toJSVal RequestCacheReload = toJSVal js_RequestCacheReload + toJSVal RequestCacheNoCache = toJSVal js_RequestCacheNoCache + toJSVal RequestCacheForceCache = toJSVal js_RequestCacheForceCache + toJSVal RequestCacheOnlyIfCached + = toJSVal js_RequestCacheOnlyIfCached + +instance FromJSVal RequestCache where + fromJSVal x + = x `strictEqual` js_RequestCacheDefault >>= + \ r -> + case r of + True -> return (Just RequestCacheDefault) + False + -> x `strictEqual` js_RequestCacheNoStore >>= + \ r -> + case r of + True -> return (Just RequestCacheNoStore) + False + -> x `strictEqual` js_RequestCacheReload >>= + \ r -> + case r of + True -> return (Just RequestCacheReload) + False + -> x `strictEqual` js_RequestCacheNoCache >>= + \ r -> + case r of + True -> return (Just RequestCacheNoCache) + False + -> x `strictEqual` + js_RequestCacheForceCache + >>= + \ r -> + case r of + True + -> return + (Just + RequestCacheForceCache) + False + -> x `strictEqual` + js_RequestCacheOnlyIfCached + >>= + \ r -> + case r of + True + -> return + (Just + RequestCacheOnlyIfCached) + False + -> return + Nothing +js_RequestCacheDefault = "default" +js_RequestCacheNoStore = "no-store" +js_RequestCacheReload = "reload" +js_RequestCacheNoCache = "no-cache" +js_RequestCacheForceCache = "force-cache" +js_RequestCacheOnlyIfCached = "only-if-cached" + +data RequestRedirect = RequestRedirectFollow + | RequestRedirectError + | RequestRedirectManual + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RequestRedirect where + toJSVal RequestRedirectFollow = toJSVal js_RequestRedirectFollow + toJSVal RequestRedirectError = toJSVal js_RequestRedirectError + toJSVal RequestRedirectManual = toJSVal js_RequestRedirectManual + +instance FromJSVal RequestRedirect where + fromJSVal x + = x `strictEqual` js_RequestRedirectFollow >>= + \ r -> + case r of + True -> return (Just RequestRedirectFollow) + False + -> x `strictEqual` js_RequestRedirectError >>= + \ r -> + case r of + True -> return (Just RequestRedirectError) + False + -> x `strictEqual` js_RequestRedirectManual >>= + \ r -> + case r of + True -> return (Just RequestRedirectManual) + False -> return Nothing +js_RequestRedirectFollow = "follow" +js_RequestRedirectError = "error" +js_RequestRedirectManual = "manual" + +data ReferrerPolicy = ReferrerPolicy + | ReferrerPolicyNoReferrer + | ReferrerPolicyNoReferrerWhenDowngrade + | ReferrerPolicyOrigin + | ReferrerPolicyOriginWhenCrossOrigin + | ReferrerPolicyUnsafeUrl + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ReferrerPolicy where + toJSVal ReferrerPolicy = toJSVal js_ReferrerPolicy + toJSVal ReferrerPolicyNoReferrer + = toJSVal js_ReferrerPolicyNoReferrer + toJSVal ReferrerPolicyNoReferrerWhenDowngrade + = toJSVal js_ReferrerPolicyNoReferrerWhenDowngrade + toJSVal ReferrerPolicyOrigin = toJSVal js_ReferrerPolicyOrigin + toJSVal ReferrerPolicyOriginWhenCrossOrigin + = toJSVal js_ReferrerPolicyOriginWhenCrossOrigin + toJSVal ReferrerPolicyUnsafeUrl + = toJSVal js_ReferrerPolicyUnsafeUrl + +instance FromJSVal ReferrerPolicy where + fromJSVal x + = x `strictEqual` js_ReferrerPolicy >>= + \ r -> + case r of + True -> return (Just ReferrerPolicy) + False + -> x `strictEqual` js_ReferrerPolicyNoReferrer >>= + \ r -> + case r of + True -> return (Just ReferrerPolicyNoReferrer) + False + -> x `strictEqual` js_ReferrerPolicyNoReferrerWhenDowngrade >>= + \ r -> + case r of + True + -> return + (Just ReferrerPolicyNoReferrerWhenDowngrade) + False + -> x `strictEqual` js_ReferrerPolicyOrigin >>= + \ r -> + case r of + True + -> return (Just ReferrerPolicyOrigin) + False + -> x `strictEqual` + js_ReferrerPolicyOriginWhenCrossOrigin + >>= + \ r -> + case r of + True + -> return + (Just + ReferrerPolicyOriginWhenCrossOrigin) + False + -> x `strictEqual` + js_ReferrerPolicyUnsafeUrl + >>= + \ r -> + case r of + True + -> return + (Just + ReferrerPolicyUnsafeUrl) + False + -> return + Nothing +js_ReferrerPolicy = "" +js_ReferrerPolicyNoReferrer = "no-referrer" +js_ReferrerPolicyNoReferrerWhenDowngrade + = "no-referrer-when-downgrade" +js_ReferrerPolicyOrigin = "origin" +js_ReferrerPolicyOriginWhenCrossOrigin = "origin-when-cross-origin" +js_ReferrerPolicyUnsafeUrl = "unsafe-url" + +data ResponseType = ResponseTypeBasic + | ResponseTypeCors + | ResponseTypeDefault + | ResponseTypeError + | ResponseTypeOpaque + | ResponseTypeOpaqueredirect + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ResponseType where + toJSVal ResponseTypeBasic = toJSVal js_ResponseTypeBasic + toJSVal ResponseTypeCors = toJSVal js_ResponseTypeCors + toJSVal ResponseTypeDefault = toJSVal js_ResponseTypeDefault + toJSVal ResponseTypeError = toJSVal js_ResponseTypeError + toJSVal ResponseTypeOpaque = toJSVal js_ResponseTypeOpaque + toJSVal ResponseTypeOpaqueredirect + = toJSVal js_ResponseTypeOpaqueredirect + +instance FromJSVal ResponseType where + fromJSVal x + = x `strictEqual` js_ResponseTypeBasic >>= + \ r -> + case r of + True -> return (Just ResponseTypeBasic) + False + -> x `strictEqual` js_ResponseTypeCors >>= + \ r -> + case r of + True -> return (Just ResponseTypeCors) + False + -> x `strictEqual` js_ResponseTypeDefault >>= + \ r -> + case r of + True -> return (Just ResponseTypeDefault) + False + -> x `strictEqual` js_ResponseTypeError >>= + \ r -> + case r of + True -> return (Just ResponseTypeError) + False + -> x `strictEqual` + js_ResponseTypeOpaque + >>= + \ r -> + case r of + True + -> return + (Just + ResponseTypeOpaque) + False + -> x `strictEqual` + js_ResponseTypeOpaqueredirect + >>= + \ r -> + case r of + True + -> return + (Just + ResponseTypeOpaqueredirect) + False + -> return + Nothing +js_ResponseTypeBasic = "basic" +js_ResponseTypeCors = "cors" +js_ResponseTypeDefault = "default" +js_ResponseTypeError = "error" +js_ResponseTypeOpaque = "opaque" +js_ResponseTypeOpaqueredirect = "opaqueredirect" + +data IDBCursorDirection = IDBCursorDirectionNext + | IDBCursorDirectionNextunique + | IDBCursorDirectionPrev + | IDBCursorDirectionPrevunique + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal IDBCursorDirection where + toJSVal IDBCursorDirectionNext = toJSVal js_IDBCursorDirectionNext + toJSVal IDBCursorDirectionNextunique + = toJSVal js_IDBCursorDirectionNextunique + toJSVal IDBCursorDirectionPrev = toJSVal js_IDBCursorDirectionPrev + toJSVal IDBCursorDirectionPrevunique + = toJSVal js_IDBCursorDirectionPrevunique + +instance FromJSVal IDBCursorDirection where + fromJSVal x + = x `strictEqual` js_IDBCursorDirectionNext >>= + \ r -> + case r of + True -> return (Just IDBCursorDirectionNext) + False + -> x `strictEqual` js_IDBCursorDirectionNextunique >>= + \ r -> + case r of + True -> return (Just IDBCursorDirectionNextunique) + False + -> x `strictEqual` js_IDBCursorDirectionPrev >>= + \ r -> + case r of + True -> return (Just IDBCursorDirectionPrev) + False + -> x `strictEqual` js_IDBCursorDirectionPrevunique + >>= + \ r -> + case r of + True + -> return + (Just + IDBCursorDirectionPrevunique) + False -> return Nothing +js_IDBCursorDirectionNext = "next" +js_IDBCursorDirectionNextunique = "nextunique" +js_IDBCursorDirectionPrev = "prev" +js_IDBCursorDirectionPrevunique = "prevunique" + +data IDBRequestReadyState = IDBRequestReadyStatePending + | IDBRequestReadyStateDone + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal IDBRequestReadyState where + toJSVal IDBRequestReadyStatePending + = toJSVal js_IDBRequestReadyStatePending + toJSVal IDBRequestReadyStateDone + = toJSVal js_IDBRequestReadyStateDone + +instance FromJSVal IDBRequestReadyState where + fromJSVal x + = x `strictEqual` js_IDBRequestReadyStatePending >>= + \ r -> + case r of + True -> return (Just IDBRequestReadyStatePending) + False + -> x `strictEqual` js_IDBRequestReadyStateDone >>= + \ r -> + case r of + True -> return (Just IDBRequestReadyStateDone) + False -> return Nothing +js_IDBRequestReadyStatePending = "pending" +js_IDBRequestReadyStateDone = "done" + +data IDBTransactionMode = IDBTransactionModeReadonly + | IDBTransactionModeReadwrite + | IDBTransactionModeVersionchange + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal IDBTransactionMode where + toJSVal IDBTransactionModeReadonly + = toJSVal js_IDBTransactionModeReadonly + toJSVal IDBTransactionModeReadwrite + = toJSVal js_IDBTransactionModeReadwrite + toJSVal IDBTransactionModeVersionchange + = toJSVal js_IDBTransactionModeVersionchange + +instance FromJSVal IDBTransactionMode where + fromJSVal x + = x `strictEqual` js_IDBTransactionModeReadonly >>= + \ r -> + case r of + True -> return (Just IDBTransactionModeReadonly) + False + -> x `strictEqual` js_IDBTransactionModeReadwrite >>= + \ r -> + case r of + True -> return (Just IDBTransactionModeReadwrite) + False + -> x `strictEqual` js_IDBTransactionModeVersionchange >>= + \ r -> + case r of + True -> return (Just IDBTransactionModeVersionchange) + False -> return Nothing +js_IDBTransactionModeReadonly = "readonly" +js_IDBTransactionModeReadwrite = "readwrite" +js_IDBTransactionModeVersionchange = "versionchange" + +data DeviceType = DeviceTypeNone + | DeviceTypeAirplay + | DeviceTypeTvout + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal DeviceType where + toJSVal DeviceTypeNone = toJSVal js_DeviceTypeNone + toJSVal DeviceTypeAirplay = toJSVal js_DeviceTypeAirplay + toJSVal DeviceTypeTvout = toJSVal js_DeviceTypeTvout + +instance FromJSVal DeviceType where + fromJSVal x + = x `strictEqual` js_DeviceTypeNone >>= + \ r -> + case r of + True -> return (Just DeviceTypeNone) + False + -> x `strictEqual` js_DeviceTypeAirplay >>= + \ r -> + case r of + True -> return (Just DeviceTypeAirplay) + False + -> x `strictEqual` js_DeviceTypeTvout >>= + \ r -> + case r of + True -> return (Just DeviceTypeTvout) + False -> return Nothing +js_DeviceTypeNone = "none" +js_DeviceTypeAirplay = "airplay" +js_DeviceTypeTvout = "tvout" + +data MediaSessionKind = MediaSessionKindContent + | MediaSessionKindTransient + | MediaSessionKindTransientSolo + | MediaSessionKindAmbient + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal MediaSessionKind where + toJSVal MediaSessionKindContent + = toJSVal js_MediaSessionKindContent + toJSVal MediaSessionKindTransient + = toJSVal js_MediaSessionKindTransient + toJSVal MediaSessionKindTransientSolo + = toJSVal js_MediaSessionKindTransientSolo + toJSVal MediaSessionKindAmbient + = toJSVal js_MediaSessionKindAmbient + +instance FromJSVal MediaSessionKind where + fromJSVal x + = x `strictEqual` js_MediaSessionKindContent >>= + \ r -> + case r of + True -> return (Just MediaSessionKindContent) + False + -> x `strictEqual` js_MediaSessionKindTransient >>= + \ r -> + case r of + True -> return (Just MediaSessionKindTransient) + False + -> x `strictEqual` js_MediaSessionKindTransientSolo >>= + \ r -> + case r of + True -> return (Just MediaSessionKindTransientSolo) + False + -> x `strictEqual` js_MediaSessionKindAmbient >>= + \ r -> + case r of + True + -> return + (Just MediaSessionKindAmbient) + False -> return Nothing +js_MediaSessionKindContent = "content" +js_MediaSessionKindTransient = "transient" +js_MediaSessionKindTransientSolo = "transient-solo" +js_MediaSessionKindAmbient = "ambient" + +data EndOfStreamError = EndOfStreamErrorNetwork + | EndOfStreamErrorDecode + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal EndOfStreamError where + toJSVal EndOfStreamErrorNetwork + = toJSVal js_EndOfStreamErrorNetwork + toJSVal EndOfStreamErrorDecode = toJSVal js_EndOfStreamErrorDecode + +instance FromJSVal EndOfStreamError where + fromJSVal x + = x `strictEqual` js_EndOfStreamErrorNetwork >>= + \ r -> + case r of + True -> return (Just EndOfStreamErrorNetwork) + False + -> x `strictEqual` js_EndOfStreamErrorDecode >>= + \ r -> + case r of + True -> return (Just EndOfStreamErrorDecode) + False -> return Nothing +js_EndOfStreamErrorNetwork = "network" +js_EndOfStreamErrorDecode = "decode" + +data ReadyState = ReadyStateClosed + | ReadyStateOpen + | ReadyStateEnded + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ReadyState where + toJSVal ReadyStateClosed = toJSVal js_ReadyStateClosed + toJSVal ReadyStateOpen = toJSVal js_ReadyStateOpen + toJSVal ReadyStateEnded = toJSVal js_ReadyStateEnded + +instance FromJSVal ReadyState where + fromJSVal x + = x `strictEqual` js_ReadyStateClosed >>= + \ r -> + case r of + True -> return (Just ReadyStateClosed) + False + -> x `strictEqual` js_ReadyStateOpen >>= + \ r -> + case r of + True -> return (Just ReadyStateOpen) + False + -> x `strictEqual` js_ReadyStateEnded >>= + \ r -> + case r of + True -> return (Just ReadyStateEnded) + False -> return Nothing +js_ReadyStateClosed = "closed" +js_ReadyStateOpen = "open" +js_ReadyStateEnded = "ended" + +data AppendMode = AppendModeSegments + | AppendModeSequence + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal AppendMode where + toJSVal AppendModeSegments = toJSVal js_AppendModeSegments + toJSVal AppendModeSequence = toJSVal js_AppendModeSequence + +instance FromJSVal AppendMode where + fromJSVal x + = x `strictEqual` js_AppendModeSegments >>= + \ r -> + case r of + True -> return (Just AppendModeSegments) + False + -> x `strictEqual` js_AppendModeSequence >>= + \ r -> + case r of + True -> return (Just AppendModeSequence) + False -> return Nothing +js_AppendModeSegments = "segments" +js_AppendModeSequence = "sequence" + +data MediaDeviceKind = MediaDeviceKindAudioinput + | MediaDeviceKindAudiooutput + | MediaDeviceKindVideoinput + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal MediaDeviceKind where + toJSVal MediaDeviceKindAudioinput + = toJSVal js_MediaDeviceKindAudioinput + toJSVal MediaDeviceKindAudiooutput + = toJSVal js_MediaDeviceKindAudiooutput + toJSVal MediaDeviceKindVideoinput + = toJSVal js_MediaDeviceKindVideoinput + +instance FromJSVal MediaDeviceKind where + fromJSVal x + = x `strictEqual` js_MediaDeviceKindAudioinput >>= + \ r -> + case r of + True -> return (Just MediaDeviceKindAudioinput) + False + -> x `strictEqual` js_MediaDeviceKindAudiooutput >>= + \ r -> + case r of + True -> return (Just MediaDeviceKindAudiooutput) + False + -> x `strictEqual` js_MediaDeviceKindVideoinput >>= + \ r -> + case r of + True -> return (Just MediaDeviceKindVideoinput) + False -> return Nothing +js_MediaDeviceKindAudioinput = "audioinput" +js_MediaDeviceKindAudiooutput = "audiooutput" +js_MediaDeviceKindVideoinput = "videoinput" + +data MediaStreamTrackState = MediaStreamTrackStateLive + | MediaStreamTrackStateEnded + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal MediaStreamTrackState where + toJSVal MediaStreamTrackStateLive + = toJSVal js_MediaStreamTrackStateLive + toJSVal MediaStreamTrackStateEnded + = toJSVal js_MediaStreamTrackStateEnded + +instance FromJSVal MediaStreamTrackState where + fromJSVal x + = x `strictEqual` js_MediaStreamTrackStateLive >>= + \ r -> + case r of + True -> return (Just MediaStreamTrackStateLive) + False + -> x `strictEqual` js_MediaStreamTrackStateEnded >>= + \ r -> + case r of + True -> return (Just MediaStreamTrackStateEnded) + False -> return Nothing +js_MediaStreamTrackStateLive = "live" +js_MediaStreamTrackStateEnded = "ended" + +data RTCIceTransportPolicy = RTCIceTransportPolicyRelay + | RTCIceTransportPolicyAll + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCIceTransportPolicy where + toJSVal RTCIceTransportPolicyRelay + = toJSVal js_RTCIceTransportPolicyRelay + toJSVal RTCIceTransportPolicyAll + = toJSVal js_RTCIceTransportPolicyAll + +instance FromJSVal RTCIceTransportPolicy where + fromJSVal x + = x `strictEqual` js_RTCIceTransportPolicyRelay >>= + \ r -> + case r of + True -> return (Just RTCIceTransportPolicyRelay) + False + -> x `strictEqual` js_RTCIceTransportPolicyAll >>= + \ r -> + case r of + True -> return (Just RTCIceTransportPolicyAll) + False -> return Nothing +js_RTCIceTransportPolicyRelay = "relay" +js_RTCIceTransportPolicyAll = "all" + +data RTCBundlePolicy = RTCBundlePolicyBalanced + | RTCBundlePolicyMaxCompat + | RTCBundlePolicyMaxBundle + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCBundlePolicy where + toJSVal RTCBundlePolicyBalanced + = toJSVal js_RTCBundlePolicyBalanced + toJSVal RTCBundlePolicyMaxCompat + = toJSVal js_RTCBundlePolicyMaxCompat + toJSVal RTCBundlePolicyMaxBundle + = toJSVal js_RTCBundlePolicyMaxBundle + +instance FromJSVal RTCBundlePolicy where + fromJSVal x + = x `strictEqual` js_RTCBundlePolicyBalanced >>= + \ r -> + case r of + True -> return (Just RTCBundlePolicyBalanced) + False + -> x `strictEqual` js_RTCBundlePolicyMaxCompat >>= + \ r -> + case r of + True -> return (Just RTCBundlePolicyMaxCompat) + False + -> x `strictEqual` js_RTCBundlePolicyMaxBundle >>= + \ r -> + case r of + True -> return (Just RTCBundlePolicyMaxBundle) + False -> return Nothing +js_RTCBundlePolicyBalanced = "balanced" +js_RTCBundlePolicyMaxCompat = "max-compat" +js_RTCBundlePolicyMaxBundle = "max-bundle" + +data RTCDataChannelState = RTCDataChannelStateConnecting + | RTCDataChannelStateOpen + | RTCDataChannelStateClosing + | RTCDataChannelStateClosed + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCDataChannelState where + toJSVal RTCDataChannelStateConnecting + = toJSVal js_RTCDataChannelStateConnecting + toJSVal RTCDataChannelStateOpen + = toJSVal js_RTCDataChannelStateOpen + toJSVal RTCDataChannelStateClosing + = toJSVal js_RTCDataChannelStateClosing + toJSVal RTCDataChannelStateClosed + = toJSVal js_RTCDataChannelStateClosed + +instance FromJSVal RTCDataChannelState where + fromJSVal x + = x `strictEqual` js_RTCDataChannelStateConnecting >>= + \ r -> + case r of + True -> return (Just RTCDataChannelStateConnecting) + False + -> x `strictEqual` js_RTCDataChannelStateOpen >>= + \ r -> + case r of + True -> return (Just RTCDataChannelStateOpen) + False + -> x `strictEqual` js_RTCDataChannelStateClosing >>= + \ r -> + case r of + True -> return (Just RTCDataChannelStateClosing) + False + -> x `strictEqual` js_RTCDataChannelStateClosed >>= + \ r -> + case r of + True + -> return + (Just RTCDataChannelStateClosed) + False -> return Nothing +js_RTCDataChannelStateConnecting = "connecting" +js_RTCDataChannelStateOpen = "open" +js_RTCDataChannelStateClosing = "closing" +js_RTCDataChannelStateClosed = "closed" + +data RTCIceConnectionState = RTCIceConnectionStateNew + | RTCIceConnectionStateChecking + | RTCIceConnectionStateConnected + | RTCIceConnectionStateCompleted + | RTCIceConnectionStateFailed + | RTCIceConnectionStateDisconnected + | RTCIceConnectionStateClosed + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCIceConnectionState where + toJSVal RTCIceConnectionStateNew + = toJSVal js_RTCIceConnectionStateNew + toJSVal RTCIceConnectionStateChecking + = toJSVal js_RTCIceConnectionStateChecking + toJSVal RTCIceConnectionStateConnected + = toJSVal js_RTCIceConnectionStateConnected + toJSVal RTCIceConnectionStateCompleted + = toJSVal js_RTCIceConnectionStateCompleted + toJSVal RTCIceConnectionStateFailed + = toJSVal js_RTCIceConnectionStateFailed + toJSVal RTCIceConnectionStateDisconnected + = toJSVal js_RTCIceConnectionStateDisconnected + toJSVal RTCIceConnectionStateClosed + = toJSVal js_RTCIceConnectionStateClosed + +instance FromJSVal RTCIceConnectionState where + fromJSVal x + = x `strictEqual` js_RTCIceConnectionStateNew >>= + \ r -> + case r of + True -> return (Just RTCIceConnectionStateNew) + False + -> x `strictEqual` js_RTCIceConnectionStateChecking >>= + \ r -> + case r of + True -> return (Just RTCIceConnectionStateChecking) + False + -> x `strictEqual` js_RTCIceConnectionStateConnected >>= + \ r -> + case r of + True -> return (Just RTCIceConnectionStateConnected) + False + -> x `strictEqual` js_RTCIceConnectionStateCompleted + >>= + \ r -> + case r of + True + -> return + (Just + RTCIceConnectionStateCompleted) + False + -> x `strictEqual` + js_RTCIceConnectionStateFailed + >>= + \ r -> + case r of + True + -> return + (Just + RTCIceConnectionStateFailed) + False + -> x `strictEqual` + js_RTCIceConnectionStateDisconnected + >>= + \ r -> + case r of + True + -> return + (Just + RTCIceConnectionStateDisconnected) + False + -> x `strictEqual` + js_RTCIceConnectionStateClosed + >>= + \ r -> + case r + of + True + -> return + (Just + RTCIceConnectionStateClosed) + False + -> return + Nothing +js_RTCIceConnectionStateNew = "new" +js_RTCIceConnectionStateChecking = "checking" +js_RTCIceConnectionStateConnected = "connected" +js_RTCIceConnectionStateCompleted = "completed" +js_RTCIceConnectionStateFailed = "failed" +js_RTCIceConnectionStateDisconnected = "disconnected" +js_RTCIceConnectionStateClosed = "closed" + +data RTCIceGatheringState = RTCIceGatheringStateNew + | RTCIceGatheringStateGathering + | RTCIceGatheringStateComplete + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCIceGatheringState where + toJSVal RTCIceGatheringStateNew + = toJSVal js_RTCIceGatheringStateNew + toJSVal RTCIceGatheringStateGathering + = toJSVal js_RTCIceGatheringStateGathering + toJSVal RTCIceGatheringStateComplete + = toJSVal js_RTCIceGatheringStateComplete + +instance FromJSVal RTCIceGatheringState where + fromJSVal x + = x `strictEqual` js_RTCIceGatheringStateNew >>= + \ r -> + case r of + True -> return (Just RTCIceGatheringStateNew) + False + -> x `strictEqual` js_RTCIceGatheringStateGathering >>= + \ r -> + case r of + True -> return (Just RTCIceGatheringStateGathering) + False + -> x `strictEqual` js_RTCIceGatheringStateComplete >>= + \ r -> + case r of + True -> return (Just RTCIceGatheringStateComplete) + False -> return Nothing +js_RTCIceGatheringStateNew = "new" +js_RTCIceGatheringStateGathering = "gathering" +js_RTCIceGatheringStateComplete = "complete" + +data RTCIceTransportState = RTCIceTransportStateNew + | RTCIceTransportStateChecking + | RTCIceTransportStateConnected + | RTCIceTransportStateCompleted + | RTCIceTransportStateFailed + | RTCIceTransportStateDisconnected + | RTCIceTransportStateClosed + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCIceTransportState where + toJSVal RTCIceTransportStateNew + = toJSVal js_RTCIceTransportStateNew + toJSVal RTCIceTransportStateChecking + = toJSVal js_RTCIceTransportStateChecking + toJSVal RTCIceTransportStateConnected + = toJSVal js_RTCIceTransportStateConnected + toJSVal RTCIceTransportStateCompleted + = toJSVal js_RTCIceTransportStateCompleted + toJSVal RTCIceTransportStateFailed + = toJSVal js_RTCIceTransportStateFailed + toJSVal RTCIceTransportStateDisconnected + = toJSVal js_RTCIceTransportStateDisconnected + toJSVal RTCIceTransportStateClosed + = toJSVal js_RTCIceTransportStateClosed + +instance FromJSVal RTCIceTransportState where + fromJSVal x + = x `strictEqual` js_RTCIceTransportStateNew >>= + \ r -> + case r of + True -> return (Just RTCIceTransportStateNew) + False + -> x `strictEqual` js_RTCIceTransportStateChecking >>= + \ r -> + case r of + True -> return (Just RTCIceTransportStateChecking) + False + -> x `strictEqual` js_RTCIceTransportStateConnected >>= + \ r -> + case r of + True -> return (Just RTCIceTransportStateConnected) + False + -> x `strictEqual` js_RTCIceTransportStateCompleted + >>= + \ r -> + case r of + True + -> return + (Just + RTCIceTransportStateCompleted) + False + -> x `strictEqual` + js_RTCIceTransportStateFailed + >>= + \ r -> + case r of + True + -> return + (Just + RTCIceTransportStateFailed) + False + -> x `strictEqual` + js_RTCIceTransportStateDisconnected + >>= + \ r -> + case r of + True + -> return + (Just + RTCIceTransportStateDisconnected) + False + -> x `strictEqual` + js_RTCIceTransportStateClosed + >>= + \ r -> + case r + of + True + -> return + (Just + RTCIceTransportStateClosed) + False + -> return + Nothing +js_RTCIceTransportStateNew = "new" +js_RTCIceTransportStateChecking = "checking" +js_RTCIceTransportStateConnected = "connected" +js_RTCIceTransportStateCompleted = "completed" +js_RTCIceTransportStateFailed = "failed" +js_RTCIceTransportStateDisconnected = "disconnected" +js_RTCIceTransportStateClosed = "closed" + +data RTCPeerConnectionState = RTCPeerConnectionStateNew + | RTCPeerConnectionStateConnecting + | RTCPeerConnectionStateConnected + | RTCPeerConnectionStateDisconnected + | RTCPeerConnectionStateFailed + | RTCPeerConnectionStateClosed + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCPeerConnectionState where + toJSVal RTCPeerConnectionStateNew + = toJSVal js_RTCPeerConnectionStateNew + toJSVal RTCPeerConnectionStateConnecting + = toJSVal js_RTCPeerConnectionStateConnecting + toJSVal RTCPeerConnectionStateConnected + = toJSVal js_RTCPeerConnectionStateConnected + toJSVal RTCPeerConnectionStateDisconnected + = toJSVal js_RTCPeerConnectionStateDisconnected + toJSVal RTCPeerConnectionStateFailed + = toJSVal js_RTCPeerConnectionStateFailed + toJSVal RTCPeerConnectionStateClosed + = toJSVal js_RTCPeerConnectionStateClosed + +instance FromJSVal RTCPeerConnectionState where + fromJSVal x + = x `strictEqual` js_RTCPeerConnectionStateNew >>= + \ r -> + case r of + True -> return (Just RTCPeerConnectionStateNew) + False + -> x `strictEqual` js_RTCPeerConnectionStateConnecting >>= + \ r -> + case r of + True -> return (Just RTCPeerConnectionStateConnecting) + False + -> x `strictEqual` js_RTCPeerConnectionStateConnected >>= + \ r -> + case r of + True -> return (Just RTCPeerConnectionStateConnected) + False + -> x `strictEqual` + js_RTCPeerConnectionStateDisconnected + >>= + \ r -> + case r of + True + -> return + (Just + RTCPeerConnectionStateDisconnected) + False + -> x `strictEqual` + js_RTCPeerConnectionStateFailed + >>= + \ r -> + case r of + True + -> return + (Just + RTCPeerConnectionStateFailed) + False + -> x `strictEqual` + js_RTCPeerConnectionStateClosed + >>= + \ r -> + case r of + True + -> return + (Just + RTCPeerConnectionStateClosed) + False + -> return + Nothing +js_RTCPeerConnectionStateNew = "new" +js_RTCPeerConnectionStateConnecting = "connecting" +js_RTCPeerConnectionStateConnected = "connected" +js_RTCPeerConnectionStateDisconnected = "disconnected" +js_RTCPeerConnectionStateFailed = "failed" +js_RTCPeerConnectionStateClosed = "closed" + +data RTCDegradationPreference = RTCDegradationPreferenceMaintainFramerate + | RTCDegradationPreferenceMaintainResolution + | RTCDegradationPreferenceBalanced + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCDegradationPreference where + toJSVal RTCDegradationPreferenceMaintainFramerate + = toJSVal js_RTCDegradationPreferenceMaintainFramerate + toJSVal RTCDegradationPreferenceMaintainResolution + = toJSVal js_RTCDegradationPreferenceMaintainResolution + toJSVal RTCDegradationPreferenceBalanced + = toJSVal js_RTCDegradationPreferenceBalanced + +instance FromJSVal RTCDegradationPreference where + fromJSVal x + = x `strictEqual` js_RTCDegradationPreferenceMaintainFramerate >>= + \ r -> + case r of + True -> return (Just RTCDegradationPreferenceMaintainFramerate) + False + -> x `strictEqual` js_RTCDegradationPreferenceMaintainResolution + >>= + \ r -> + case r of + True -> return (Just RTCDegradationPreferenceMaintainResolution) + False + -> x `strictEqual` js_RTCDegradationPreferenceBalanced >>= + \ r -> + case r of + True -> return (Just RTCDegradationPreferenceBalanced) + False -> return Nothing +js_RTCDegradationPreferenceMaintainFramerate = "maintain-framerate" +js_RTCDegradationPreferenceMaintainResolution + = "maintain-resolution" +js_RTCDegradationPreferenceBalanced = "balanced" + +data RTCDtxStatus = RTCDtxStatusDisabled + | RTCDtxStatusEnabled + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCDtxStatus where + toJSVal RTCDtxStatusDisabled = toJSVal js_RTCDtxStatusDisabled + toJSVal RTCDtxStatusEnabled = toJSVal js_RTCDtxStatusEnabled + +instance FromJSVal RTCDtxStatus where + fromJSVal x + = x `strictEqual` js_RTCDtxStatusDisabled >>= + \ r -> + case r of + True -> return (Just RTCDtxStatusDisabled) + False + -> x `strictEqual` js_RTCDtxStatusEnabled >>= + \ r -> + case r of + True -> return (Just RTCDtxStatusEnabled) + False -> return Nothing +js_RTCDtxStatusDisabled = "disabled" +js_RTCDtxStatusEnabled = "enabled" + +data RTCPriorityType = RTCPriorityTypeVeryLow + | RTCPriorityTypeLow + | RTCPriorityTypeMedium + | RTCPriorityTypeHigh + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCPriorityType where + toJSVal RTCPriorityTypeVeryLow = toJSVal js_RTCPriorityTypeVeryLow + toJSVal RTCPriorityTypeLow = toJSVal js_RTCPriorityTypeLow + toJSVal RTCPriorityTypeMedium = toJSVal js_RTCPriorityTypeMedium + toJSVal RTCPriorityTypeHigh = toJSVal js_RTCPriorityTypeHigh + +instance FromJSVal RTCPriorityType where + fromJSVal x + = x `strictEqual` js_RTCPriorityTypeVeryLow >>= + \ r -> + case r of + True -> return (Just RTCPriorityTypeVeryLow) + False + -> x `strictEqual` js_RTCPriorityTypeLow >>= + \ r -> + case r of + True -> return (Just RTCPriorityTypeLow) + False + -> x `strictEqual` js_RTCPriorityTypeMedium >>= + \ r -> + case r of + True -> return (Just RTCPriorityTypeMedium) + False + -> x `strictEqual` js_RTCPriorityTypeHigh >>= + \ r -> + case r of + True -> return (Just RTCPriorityTypeHigh) + False -> return Nothing +js_RTCPriorityTypeVeryLow = "very-low" +js_RTCPriorityTypeLow = "low" +js_RTCPriorityTypeMedium = "medium" +js_RTCPriorityTypeHigh = "high" + +data RTCRtpTransceiverDirection = RTCRtpTransceiverDirectionSendrecv + | RTCRtpTransceiverDirectionSendonly + | RTCRtpTransceiverDirectionRecvonly + | RTCRtpTransceiverDirectionInactive + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCRtpTransceiverDirection where + toJSVal RTCRtpTransceiverDirectionSendrecv + = toJSVal js_RTCRtpTransceiverDirectionSendrecv + toJSVal RTCRtpTransceiverDirectionSendonly + = toJSVal js_RTCRtpTransceiverDirectionSendonly + toJSVal RTCRtpTransceiverDirectionRecvonly + = toJSVal js_RTCRtpTransceiverDirectionRecvonly + toJSVal RTCRtpTransceiverDirectionInactive + = toJSVal js_RTCRtpTransceiverDirectionInactive + +instance FromJSVal RTCRtpTransceiverDirection where + fromJSVal x + = x `strictEqual` js_RTCRtpTransceiverDirectionSendrecv >>= + \ r -> + case r of + True -> return (Just RTCRtpTransceiverDirectionSendrecv) + False + -> x `strictEqual` js_RTCRtpTransceiverDirectionSendonly >>= + \ r -> + case r of + True -> return (Just RTCRtpTransceiverDirectionSendonly) + False + -> x `strictEqual` js_RTCRtpTransceiverDirectionRecvonly >>= + \ r -> + case r of + True + -> return (Just RTCRtpTransceiverDirectionRecvonly) + False + -> x `strictEqual` + js_RTCRtpTransceiverDirectionInactive + >>= + \ r -> + case r of + True + -> return + (Just + RTCRtpTransceiverDirectionInactive) + False -> return Nothing +js_RTCRtpTransceiverDirectionSendrecv = "sendrecv" +js_RTCRtpTransceiverDirectionSendonly = "sendonly" +js_RTCRtpTransceiverDirectionRecvonly = "recvonly" +js_RTCRtpTransceiverDirectionInactive = "inactive" + +data RTCSdpType = RTCSdpTypeOffer + | RTCSdpTypePranswer + | RTCSdpTypeAnswer + | RTCSdpTypeRollback + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCSdpType where + toJSVal RTCSdpTypeOffer = toJSVal js_RTCSdpTypeOffer + toJSVal RTCSdpTypePranswer = toJSVal js_RTCSdpTypePranswer + toJSVal RTCSdpTypeAnswer = toJSVal js_RTCSdpTypeAnswer + toJSVal RTCSdpTypeRollback = toJSVal js_RTCSdpTypeRollback + +instance FromJSVal RTCSdpType where + fromJSVal x + = x `strictEqual` js_RTCSdpTypeOffer >>= + \ r -> + case r of + True -> return (Just RTCSdpTypeOffer) + False + -> x `strictEqual` js_RTCSdpTypePranswer >>= + \ r -> + case r of + True -> return (Just RTCSdpTypePranswer) + False + -> x `strictEqual` js_RTCSdpTypeAnswer >>= + \ r -> + case r of + True -> return (Just RTCSdpTypeAnswer) + False + -> x `strictEqual` js_RTCSdpTypeRollback >>= + \ r -> + case r of + True -> return (Just RTCSdpTypeRollback) + False -> return Nothing +js_RTCSdpTypeOffer = "offer" +js_RTCSdpTypePranswer = "pranswer" +js_RTCSdpTypeAnswer = "answer" +js_RTCSdpTypeRollback = "rollback" + +data RTCSignalingState = RTCSignalingStateStable + | RTCSignalingStateHaveLocalOffer + | RTCSignalingStateHaveRemoteOffer + | RTCSignalingStateHaveLocalPranswer + | RTCSignalingStateHaveRemotePranswer + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCSignalingState where + toJSVal RTCSignalingStateStable + = toJSVal js_RTCSignalingStateStable + toJSVal RTCSignalingStateHaveLocalOffer + = toJSVal js_RTCSignalingStateHaveLocalOffer + toJSVal RTCSignalingStateHaveRemoteOffer + = toJSVal js_RTCSignalingStateHaveRemoteOffer + toJSVal RTCSignalingStateHaveLocalPranswer + = toJSVal js_RTCSignalingStateHaveLocalPranswer + toJSVal RTCSignalingStateHaveRemotePranswer + = toJSVal js_RTCSignalingStateHaveRemotePranswer + +instance FromJSVal RTCSignalingState where + fromJSVal x + = x `strictEqual` js_RTCSignalingStateStable >>= + \ r -> + case r of + True -> return (Just RTCSignalingStateStable) + False + -> x `strictEqual` js_RTCSignalingStateHaveLocalOffer >>= + \ r -> + case r of + True -> return (Just RTCSignalingStateHaveLocalOffer) + False + -> x `strictEqual` js_RTCSignalingStateHaveRemoteOffer >>= + \ r -> + case r of + True -> return (Just RTCSignalingStateHaveRemoteOffer) + False + -> x `strictEqual` + js_RTCSignalingStateHaveLocalPranswer + >>= + \ r -> + case r of + True + -> return + (Just + RTCSignalingStateHaveLocalPranswer) + False + -> x `strictEqual` + js_RTCSignalingStateHaveRemotePranswer + >>= + \ r -> + case r of + True + -> return + (Just + RTCSignalingStateHaveRemotePranswer) + False -> return Nothing +js_RTCSignalingStateStable = "stable" +js_RTCSignalingStateHaveLocalOffer = "have-local-offer" +js_RTCSignalingStateHaveRemoteOffer = "have-remote-offer" +js_RTCSignalingStateHaveLocalPranswer = "have-local-pranswer" +js_RTCSignalingStateHaveRemotePranswer = "have-remote-pranswer" + +data RTCStatsType = RTCStatsTypeCodec + | RTCStatsTypeInboundRtp + | RTCStatsTypeOutboundRtp + | RTCStatsTypePeerConnection + | RTCStatsTypeDataChannel + | RTCStatsTypeTrack + | RTCStatsTypeTransport + | RTCStatsTypeCandidatePair + | RTCStatsTypeLocalCandidate + | RTCStatsTypeRemoteCandidate + | RTCStatsTypeCertificate + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal RTCStatsType where + toJSVal RTCStatsTypeCodec = toJSVal js_RTCStatsTypeCodec + toJSVal RTCStatsTypeInboundRtp = toJSVal js_RTCStatsTypeInboundRtp + toJSVal RTCStatsTypeOutboundRtp + = toJSVal js_RTCStatsTypeOutboundRtp + toJSVal RTCStatsTypePeerConnection + = toJSVal js_RTCStatsTypePeerConnection + toJSVal RTCStatsTypeDataChannel + = toJSVal js_RTCStatsTypeDataChannel + toJSVal RTCStatsTypeTrack = toJSVal js_RTCStatsTypeTrack + toJSVal RTCStatsTypeTransport = toJSVal js_RTCStatsTypeTransport + toJSVal RTCStatsTypeCandidatePair + = toJSVal js_RTCStatsTypeCandidatePair + toJSVal RTCStatsTypeLocalCandidate + = toJSVal js_RTCStatsTypeLocalCandidate + toJSVal RTCStatsTypeRemoteCandidate + = toJSVal js_RTCStatsTypeRemoteCandidate + toJSVal RTCStatsTypeCertificate + = toJSVal js_RTCStatsTypeCertificate + +instance FromJSVal RTCStatsType where + fromJSVal x + = x `strictEqual` js_RTCStatsTypeCodec >>= + \ r -> + case r of + True -> return (Just RTCStatsTypeCodec) + False + -> x `strictEqual` js_RTCStatsTypeInboundRtp >>= + \ r -> + case r of + True -> return (Just RTCStatsTypeInboundRtp) + False + -> x `strictEqual` js_RTCStatsTypeOutboundRtp >>= + \ r -> + case r of + True -> return (Just RTCStatsTypeOutboundRtp) + False + -> x `strictEqual` js_RTCStatsTypePeerConnection >>= + \ r -> + case r of + True + -> return + (Just RTCStatsTypePeerConnection) + False + -> x `strictEqual` + js_RTCStatsTypeDataChannel + >>= + \ r -> + case r of + True + -> return + (Just + RTCStatsTypeDataChannel) + False + -> x `strictEqual` + js_RTCStatsTypeTrack + >>= + \ r -> + case r of + True + -> return + (Just + RTCStatsTypeTrack) + False + -> x `strictEqual` + js_RTCStatsTypeTransport + >>= + \ r -> + case r + of + True + -> return + (Just + RTCStatsTypeTransport) + False + -> x `strictEqual` + js_RTCStatsTypeCandidatePair + >>= + \ r + -> + case + r + of + True + -> return + (Just + RTCStatsTypeCandidatePair) + False + -> x `strictEqual` + js_RTCStatsTypeLocalCandidate + >>= + \ r + -> + case + r + of + True + -> return + (Just + RTCStatsTypeLocalCandidate) + False + -> x `strictEqual` + js_RTCStatsTypeRemoteCandidate + >>= + \ r + -> + case + r + of + True + -> return + (Just + RTCStatsTypeRemoteCandidate) + False + -> x `strictEqual` + js_RTCStatsTypeCertificate + >>= + \ r + -> + case + r + of + True + -> return + (Just + RTCStatsTypeCertificate) + False + -> return + Nothing +js_RTCStatsTypeCodec = "codec" +js_RTCStatsTypeInboundRtp = "inbound-rtp" +js_RTCStatsTypeOutboundRtp = "outbound-rtp" +js_RTCStatsTypePeerConnection = "peer-connection" +js_RTCStatsTypeDataChannel = "data-channel" +js_RTCStatsTypeTrack = "track" +js_RTCStatsTypeTransport = "transport" +js_RTCStatsTypeCandidatePair = "candidate-pair" +js_RTCStatsTypeLocalCandidate = "local-candidate" +js_RTCStatsTypeRemoteCandidate = "remote-candidate" +js_RTCStatsTypeCertificate = "certificate" + +data NotificationDirection = NotificationDirectionAuto + | NotificationDirectionLtr + | NotificationDirectionRtl + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal NotificationDirection where + toJSVal NotificationDirectionAuto + = toJSVal js_NotificationDirectionAuto + toJSVal NotificationDirectionLtr + = toJSVal js_NotificationDirectionLtr + toJSVal NotificationDirectionRtl + = toJSVal js_NotificationDirectionRtl + +instance FromJSVal NotificationDirection where + fromJSVal x + = x `strictEqual` js_NotificationDirectionAuto >>= + \ r -> + case r of + True -> return (Just NotificationDirectionAuto) + False + -> x `strictEqual` js_NotificationDirectionLtr >>= + \ r -> + case r of + True -> return (Just NotificationDirectionLtr) + False + -> x `strictEqual` js_NotificationDirectionRtl >>= + \ r -> + case r of + True -> return (Just NotificationDirectionRtl) + False -> return Nothing +js_NotificationDirectionAuto = "auto" +js_NotificationDirectionLtr = "ltr" +js_NotificationDirectionRtl = "rtl" + +data AudioContextState = AudioContextStateSuspended + | AudioContextStateRunning + | AudioContextStateInterrupted + | AudioContextStateClosed + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal AudioContextState where + toJSVal AudioContextStateSuspended + = toJSVal js_AudioContextStateSuspended + toJSVal AudioContextStateRunning + = toJSVal js_AudioContextStateRunning + toJSVal AudioContextStateInterrupted + = toJSVal js_AudioContextStateInterrupted + toJSVal AudioContextStateClosed + = toJSVal js_AudioContextStateClosed + +instance FromJSVal AudioContextState where + fromJSVal x + = x `strictEqual` js_AudioContextStateSuspended >>= + \ r -> + case r of + True -> return (Just AudioContextStateSuspended) + False + -> x `strictEqual` js_AudioContextStateRunning >>= + \ r -> + case r of + True -> return (Just AudioContextStateRunning) + False + -> x `strictEqual` js_AudioContextStateInterrupted >>= + \ r -> + case r of + True -> return (Just AudioContextStateInterrupted) + False + -> x `strictEqual` js_AudioContextStateClosed >>= + \ r -> + case r of + True + -> return + (Just AudioContextStateClosed) + False -> return Nothing +js_AudioContextStateSuspended = "suspended" +js_AudioContextStateRunning = "running" +js_AudioContextStateInterrupted = "interrupted" +js_AudioContextStateClosed = "closed" + +data BiquadFilterType = BiquadFilterTypeLowpass + | BiquadFilterTypeHighpass + | BiquadFilterTypeBandpass + | BiquadFilterTypeLowshelf + | BiquadFilterTypeHighshelf + | BiquadFilterTypePeaking + | BiquadFilterTypeNotch + | BiquadFilterTypeAllpass + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal BiquadFilterType where + toJSVal BiquadFilterTypeLowpass + = toJSVal js_BiquadFilterTypeLowpass + toJSVal BiquadFilterTypeHighpass + = toJSVal js_BiquadFilterTypeHighpass + toJSVal BiquadFilterTypeBandpass + = toJSVal js_BiquadFilterTypeBandpass + toJSVal BiquadFilterTypeLowshelf + = toJSVal js_BiquadFilterTypeLowshelf + toJSVal BiquadFilterTypeHighshelf + = toJSVal js_BiquadFilterTypeHighshelf + toJSVal BiquadFilterTypePeaking + = toJSVal js_BiquadFilterTypePeaking + toJSVal BiquadFilterTypeNotch = toJSVal js_BiquadFilterTypeNotch + toJSVal BiquadFilterTypeAllpass + = toJSVal js_BiquadFilterTypeAllpass + +instance FromJSVal BiquadFilterType where + fromJSVal x + = x `strictEqual` js_BiquadFilterTypeLowpass >>= + \ r -> + case r of + True -> return (Just BiquadFilterTypeLowpass) + False + -> x `strictEqual` js_BiquadFilterTypeHighpass >>= + \ r -> + case r of + True -> return (Just BiquadFilterTypeHighpass) + False + -> x `strictEqual` js_BiquadFilterTypeBandpass >>= + \ r -> + case r of + True -> return (Just BiquadFilterTypeBandpass) + False + -> x `strictEqual` js_BiquadFilterTypeLowshelf >>= + \ r -> + case r of + True + -> return + (Just BiquadFilterTypeLowshelf) + False + -> x `strictEqual` + js_BiquadFilterTypeHighshelf + >>= + \ r -> + case r of + True + -> return + (Just + BiquadFilterTypeHighshelf) + False + -> x `strictEqual` + js_BiquadFilterTypePeaking + >>= + \ r -> + case r of + True + -> return + (Just + BiquadFilterTypePeaking) + False + -> x `strictEqual` + js_BiquadFilterTypeNotch + >>= + \ r -> + case r + of + True + -> return + (Just + BiquadFilterTypeNotch) + False + -> x `strictEqual` + js_BiquadFilterTypeAllpass + >>= + \ r + -> + case + r + of + True + -> return + (Just + BiquadFilterTypeAllpass) + False + -> return + Nothing +js_BiquadFilterTypeLowpass = "lowpass" +js_BiquadFilterTypeHighpass = "highpass" +js_BiquadFilterTypeBandpass = "bandpass" +js_BiquadFilterTypeLowshelf = "lowshelf" +js_BiquadFilterTypeHighshelf = "highshelf" +js_BiquadFilterTypePeaking = "peaking" +js_BiquadFilterTypeNotch = "notch" +js_BiquadFilterTypeAllpass = "allpass" + +data OscillatorType = OscillatorTypeSine + | OscillatorTypeSquare + | OscillatorTypeSawtooth + | OscillatorTypeTriangle + | OscillatorTypeCustom + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal OscillatorType where + toJSVal OscillatorTypeSine = toJSVal js_OscillatorTypeSine + toJSVal OscillatorTypeSquare = toJSVal js_OscillatorTypeSquare + toJSVal OscillatorTypeSawtooth = toJSVal js_OscillatorTypeSawtooth + toJSVal OscillatorTypeTriangle = toJSVal js_OscillatorTypeTriangle + toJSVal OscillatorTypeCustom = toJSVal js_OscillatorTypeCustom + +instance FromJSVal OscillatorType where + fromJSVal x + = x `strictEqual` js_OscillatorTypeSine >>= + \ r -> + case r of + True -> return (Just OscillatorTypeSine) + False + -> x `strictEqual` js_OscillatorTypeSquare >>= + \ r -> + case r of + True -> return (Just OscillatorTypeSquare) + False + -> x `strictEqual` js_OscillatorTypeSawtooth >>= + \ r -> + case r of + True -> return (Just OscillatorTypeSawtooth) + False + -> x `strictEqual` js_OscillatorTypeTriangle >>= + \ r -> + case r of + True + -> return (Just OscillatorTypeTriangle) + False + -> x `strictEqual` + js_OscillatorTypeCustom + >>= + \ r -> + case r of + True + -> return + (Just + OscillatorTypeCustom) + False -> return Nothing +js_OscillatorTypeSine = "sine" +js_OscillatorTypeSquare = "square" +js_OscillatorTypeSawtooth = "sawtooth" +js_OscillatorTypeTriangle = "triangle" +js_OscillatorTypeCustom = "custom" + +data PanningModelType = PanningModelTypeEqualpower + | PanningModelTypeHRTF + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal PanningModelType where + toJSVal PanningModelTypeEqualpower + = toJSVal js_PanningModelTypeEqualpower + toJSVal PanningModelTypeHRTF = toJSVal js_PanningModelTypeHRTF + +instance FromJSVal PanningModelType where + fromJSVal x + = x `strictEqual` js_PanningModelTypeEqualpower >>= + \ r -> + case r of + True -> return (Just PanningModelTypeEqualpower) + False + -> x `strictEqual` js_PanningModelTypeHRTF >>= + \ r -> + case r of + True -> return (Just PanningModelTypeHRTF) + False -> return Nothing +js_PanningModelTypeEqualpower = "equalpower" +js_PanningModelTypeHRTF = "HRTF" + +data DistanceModelType = DistanceModelTypeLinear + | DistanceModelTypeInverse + | DistanceModelTypeExponential + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal DistanceModelType where + toJSVal DistanceModelTypeLinear + = toJSVal js_DistanceModelTypeLinear + toJSVal DistanceModelTypeInverse + = toJSVal js_DistanceModelTypeInverse + toJSVal DistanceModelTypeExponential + = toJSVal js_DistanceModelTypeExponential + +instance FromJSVal DistanceModelType where + fromJSVal x + = x `strictEqual` js_DistanceModelTypeLinear >>= + \ r -> + case r of + True -> return (Just DistanceModelTypeLinear) + False + -> x `strictEqual` js_DistanceModelTypeInverse >>= + \ r -> + case r of + True -> return (Just DistanceModelTypeInverse) + False + -> x `strictEqual` js_DistanceModelTypeExponential >>= + \ r -> + case r of + True -> return (Just DistanceModelTypeExponential) + False -> return Nothing +js_DistanceModelTypeLinear = "linear" +js_DistanceModelTypeInverse = "inverse" +js_DistanceModelTypeExponential = "exponential" + +data OverSampleType = OverSampleTypeNone + | OverSampleType2x + | OverSampleType4x + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal OverSampleType where + toJSVal OverSampleTypeNone = toJSVal js_OverSampleTypeNone + toJSVal OverSampleType2x = toJSVal js_OverSampleType2x + toJSVal OverSampleType4x = toJSVal js_OverSampleType4x + +instance FromJSVal OverSampleType where + fromJSVal x + = x `strictEqual` js_OverSampleTypeNone >>= + \ r -> + case r of + True -> return (Just OverSampleTypeNone) + False + -> x `strictEqual` js_OverSampleType2x >>= + \ r -> + case r of + True -> return (Just OverSampleType2x) + False + -> x `strictEqual` js_OverSampleType4x >>= + \ r -> + case r of + True -> return (Just OverSampleType4x) + False -> return Nothing +js_OverSampleTypeNone = "none" +js_OverSampleType2x = "2x" +js_OverSampleType4x = "4x" + +data ScrollRestoration = ScrollRestorationAuto + | ScrollRestorationManual + deriving (Show, Read, Eq, Ord, Typeable) + +instance ToJSVal ScrollRestoration where + toJSVal ScrollRestorationAuto = toJSVal js_ScrollRestorationAuto + toJSVal ScrollRestorationManual + = toJSVal js_ScrollRestorationManual + +instance FromJSVal ScrollRestoration where + fromJSVal x + = x `strictEqual` js_ScrollRestorationAuto >>= + \ r -> + case r of + True -> return (Just ScrollRestorationAuto) + False + -> x `strictEqual` js_ScrollRestorationManual >>= + \ r -> + case r of + True -> return (Just ScrollRestorationManual) + False -> return Nothing +js_ScrollRestorationAuto = "auto" +js_ScrollRestorationManual = "manual" data XMLHttpRequestResponseType = XMLHttpRequestResponseType | XMLHttpRequestResponseTypeArraybuffer diff --git a/src/JSDOM/Generated/ErrorEvent.hs b/src/JSDOM/Generated/ErrorEvent.hs --- a/src/JSDOM/Generated/ErrorEvent.hs +++ b/src/JSDOM/Generated/ErrorEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Event.hs b/src/JSDOM/Generated/Event.hs --- a/src/JSDOM/Generated/Event.hs +++ b/src/JSDOM/Generated/Event.hs @@ -4,19 +4,21 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Event (newEvent, composedPath, composedPath_, stopPropagation, - preventDefault, initEvent, stopImmediatePropagation, pattern NONE, + stopImmediatePropagation, preventDefault, initEvent, pattern NONE, pattern CAPTURING_PHASE, pattern AT_TARGET, pattern BUBBLING_PHASE, - getType, getTarget, getCurrentTarget, getEventPhase, getBubbles, - getCancelable, getComposed, getTimeStamp, getDefaultPrevented, - getIsTrusted, getSrcElement, setReturnValue, getReturnValue, - setCancelBubble, getCancelBubble, Event(..), gTypeEvent, IsEvent, + getType, getTarget, getTargetUnsafe, getTargetUnchecked, + getCurrentTarget, getCurrentTargetUnsafe, + getCurrentTargetUnchecked, getEventPhase, setCancelBubble, + getCancelBubble, getBubbles, getCancelable, getDefaultPrevented, + getComposed, getIsTrusted, getTimeStamp, getSrcElement, + setReturnValue, getReturnValue, Event(..), gTypeEvent, IsEvent, toEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -35,7 +37,8 @@ new (jsg "Event") [toJSVal type', toJSVal eventInitDict]) -- | -composedPath :: (MonadDOM m, IsEvent self) => self -> m [Node] +composedPath :: + (MonadDOM m, IsEvent self) => self -> m [EventTarget] composedPath self = liftDOM (((toEvent self) ^. jsf "composedPath" ()) >>= @@ -51,6 +54,13 @@ stopPropagation self = liftDOM (void ((toEvent self) ^. jsf "stopPropagation" ())) +-- | +stopImmediatePropagation :: + (MonadDOM m, IsEvent self) => self -> m () +stopImmediatePropagation self + = liftDOM + (void ((toEvent self) ^. jsf "stopImmediatePropagation" ())) + -- | preventDefault :: (MonadDOM m, IsEvent self) => self -> m () preventDefault self @@ -65,13 +75,6 @@ (void ((toEvent self) ^. jsf "initEvent" [toJSVal type', toJSVal bubbles, toJSVal cancelable])) - --- | -stopImmediatePropagation :: - (MonadDOM m, IsEvent self) => self -> m () -stopImmediatePropagation self - = liftDOM - (void ((toEvent self) ^. jsf "stopImmediatePropagation" ())) pattern NONE = 0 pattern CAPTURING_PHASE = 1 pattern AT_TARGET = 2 @@ -84,15 +87,44 @@ = liftDOM (((toEvent self) ^. js "type") >>= fromJSValUnchecked) -- | -getTarget :: (MonadDOM m, IsEvent self) => self -> m EventTarget +getTarget :: + (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget) getTarget self + = liftDOM (((toEvent self) ^. js "target") >>= fromJSVal) + +-- | +getTargetUnsafe :: + (MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget +getTargetUnsafe self + = liftDOM + ((((toEvent self) ^. js "target") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getTargetUnchecked :: + (MonadDOM m, IsEvent self) => self -> m EventTarget +getTargetUnchecked self = liftDOM (((toEvent self) ^. js "target") >>= fromJSValUnchecked) -- | getCurrentTarget :: - (MonadDOM m, IsEvent self) => self -> m EventTarget + (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget) getCurrentTarget self + = liftDOM (((toEvent self) ^. js "currentTarget") >>= fromJSVal) + +-- | +getCurrentTargetUnsafe :: + (MonadDOM m, IsEvent self, HasCallStack) => self -> m EventTarget +getCurrentTargetUnsafe self = liftDOM + ((((toEvent self) ^. js "currentTarget") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getCurrentTargetUnchecked :: + (MonadDOM m, IsEvent self) => self -> m EventTarget +getCurrentTargetUnchecked self + = liftDOM (((toEvent self) ^. js "currentTarget") >>= fromJSValUnchecked) -- | @@ -101,6 +133,17 @@ = liftDOM (round <$> (((toEvent self) ^. js "eventPhase") >>= valToNumber)) +-- | +setCancelBubble :: + (MonadDOM m, IsEvent self) => self -> Bool -> m () +setCancelBubble self val + = liftDOM ((toEvent self) ^. jss "cancelBubble" (toJSVal val)) + +-- | +getCancelBubble :: (MonadDOM m, IsEvent self) => self -> m Bool +getCancelBubble self + = liftDOM (((toEvent self) ^. js "cancelBubble") >>= valToBool) + -- | getBubbles :: (MonadDOM m, IsEvent self) => self -> m Bool getBubbles self @@ -111,27 +154,27 @@ getCancelable self = liftDOM (((toEvent self) ^. js "cancelable") >>= valToBool) +-- | +getDefaultPrevented :: (MonadDOM m, IsEvent self) => self -> m Bool +getDefaultPrevented self + = liftDOM (((toEvent self) ^. js "defaultPrevented") >>= valToBool) + -- | getComposed :: (MonadDOM m, IsEvent self) => self -> m Bool getComposed self = liftDOM (((toEvent self) ^. js "composed") >>= valToBool) +-- | +getIsTrusted :: (MonadDOM m, IsEvent self) => self -> m Bool +getIsTrusted self + = liftDOM (((toEvent self) ^. js "isTrusted") >>= valToBool) + -- | getTimeStamp :: (MonadDOM m, IsEvent self) => self -> m Word getTimeStamp self = liftDOM (round <$> (((toEvent self) ^. js "timeStamp") >>= valToNumber)) --- | -getDefaultPrevented :: (MonadDOM m, IsEvent self) => self -> m Bool -getDefaultPrevented self - = liftDOM (((toEvent self) ^. js "defaultPrevented") >>= valToBool) - --- | -getIsTrusted :: (MonadDOM m, IsEvent self) => self -> m Bool -getIsTrusted self - = liftDOM (((toEvent self) ^. js "isTrusted") >>= valToBool) - -- | getSrcElement :: (MonadDOM m, IsEvent self) => self -> m EventTarget @@ -149,14 +192,3 @@ getReturnValue :: (MonadDOM m, IsEvent self) => self -> m Bool getReturnValue self = liftDOM (((toEvent self) ^. js "returnValue") >>= valToBool) - --- | -setCancelBubble :: - (MonadDOM m, IsEvent self) => self -> Bool -> m () -setCancelBubble self val - = liftDOM ((toEvent self) ^. jss "cancelBubble" (toJSVal val)) - --- | -getCancelBubble :: (MonadDOM m, IsEvent self) => self -> m Bool -getCancelBubble self - = liftDOM (((toEvent self) ^. js "cancelBubble") >>= valToBool) diff --git a/src/JSDOM/Generated/EventListener.hs b/src/JSDOM/Generated/EventListener.hs --- a/src/JSDOM/Generated/EventListener.hs +++ b/src/JSDOM/Generated/EventListener.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/EventSource.hs b/src/JSDOM/Generated/EventSource.hs --- a/src/JSDOM/Generated/EventSource.hs +++ b/src/JSDOM/Generated/EventSource.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/EventTarget.hs b/src/JSDOM/Generated/EventTarget.hs --- a/src/JSDOM/Generated/EventTarget.hs +++ b/src/JSDOM/Generated/EventTarget.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/File.hs b/src/JSDOM/Generated/File.hs --- a/src/JSDOM/Generated/File.hs +++ b/src/JSDOM/Generated/File.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/FileError.hs b/src/JSDOM/Generated/FileError.hs --- a/src/JSDOM/Generated/FileError.hs +++ b/src/JSDOM/Generated/FileError.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/FileException.hs b/src/JSDOM/Generated/FileException.hs --- a/src/JSDOM/Generated/FileException.hs +++ b/src/JSDOM/Generated/FileException.hs @@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/FileList.hs b/src/JSDOM/Generated/FileList.hs --- a/src/JSDOM/Generated/FileList.hs +++ b/src/JSDOM/Generated/FileList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/FileReader.hs b/src/JSDOM/Generated/FileReader.hs --- a/src/JSDOM/Generated/FileReader.hs +++ b/src/JSDOM/Generated/FileReader.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/FileReaderSync.hs b/src/JSDOM/Generated/FileReaderSync.hs --- a/src/JSDOM/Generated/FileReaderSync.hs +++ b/src/JSDOM/Generated/FileReaderSync.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/FocusEvent.hs b/src/JSDOM/Generated/FocusEvent.hs --- a/src/JSDOM/Generated/FocusEvent.hs +++ b/src/JSDOM/Generated/FocusEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/FontFace.hs b/src/JSDOM/Generated/FontFace.hs --- a/src/JSDOM/Generated/FontFace.hs +++ b/src/JSDOM/Generated/FontFace.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/FontFaceSet.hs b/src/JSDOM/Generated/FontFaceSet.hs --- a/src/JSDOM/Generated/FontFaceSet.hs +++ b/src/JSDOM/Generated/FontFaceSet.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/FormData.hs b/src/JSDOM/Generated/FormData.hs --- a/src/JSDOM/Generated/FormData.hs +++ b/src/JSDOM/Generated/FormData.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/GainNode.hs b/src/JSDOM/Generated/GainNode.hs --- a/src/JSDOM/Generated/GainNode.hs +++ b/src/JSDOM/Generated/GainNode.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Gamepad.hs b/src/JSDOM/Generated/Gamepad.hs --- a/src/JSDOM/Generated/Gamepad.hs +++ b/src/JSDOM/Generated/Gamepad.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/GamepadButton.hs b/src/JSDOM/Generated/GamepadButton.hs --- a/src/JSDOM/Generated/GamepadButton.hs +++ b/src/JSDOM/Generated/GamepadButton.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/GamepadEvent.hs b/src/JSDOM/Generated/GamepadEvent.hs --- a/src/JSDOM/Generated/GamepadEvent.hs +++ b/src/JSDOM/Generated/GamepadEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Geolocation.hs b/src/JSDOM/Generated/Geolocation.hs --- a/src/JSDOM/Generated/Geolocation.hs +++ b/src/JSDOM/Generated/Geolocation.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Geoposition.hs b/src/JSDOM/Generated/Geoposition.hs --- a/src/JSDOM/Generated/Geoposition.hs +++ b/src/JSDOM/Generated/Geoposition.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/GlobalCrypto.hs b/src/JSDOM/Generated/GlobalCrypto.hs --- a/src/JSDOM/Generated/GlobalCrypto.hs +++ b/src/JSDOM/Generated/GlobalCrypto.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/GlobalEventHandlers.hs b/src/JSDOM/Generated/GlobalEventHandlers.hs --- a/src/JSDOM/Generated/GlobalEventHandlers.hs +++ b/src/JSDOM/Generated/GlobalEventHandlers.hs @@ -10,12 +10,14 @@ keyDown, keyPress, keyUp, load, loadedData, loadedMetadata, loadStart, mouseDown, mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, pause, play, playing, progress, - rateChange, reset, resize, scroll, seeked, seeking, select, - stalled, submit, suspend, timeUpdate, toggle, volumeChange, - waiting, search, wheel, touchCancel, touchEnd, touchMove, - touchStart, touchForcechange, webKitMouseForcechanged, - webKitMouseForcedown, webKitMouseForcewillbegin, - webKitMouseForceup, webKitWillRevealBottom, webKitWillRevealLeft, + rateChange, rejectionhandled, reset, resize, scroll, seeked, + seeking, select, stalled, submit, suspend, timeUpdate, toggle, + unhandledrejection, volumeChange, waiting, transitionEnd, + animationEnd, animationIteration, animationStart, search, wheel, + touchCancel, touchEnd, touchMove, touchStart, touchForcechange, + webKitMouseForcechanged, webKitMouseForcedown, + webKitMouseForcewillbegin, webKitMouseForceup, + webKitWillRevealBottom, webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop, GlobalEventHandlers(..), gTypeGlobalEventHandlers, IsGlobalEventHandlers, toGlobalEventHandlers) @@ -24,7 +26,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -305,6 +307,12 @@ EventName self Event rateChange = unsafeEventName (toJSString "ratechange") +-- | +rejectionhandled :: + (IsGlobalEventHandlers self, IsEventTarget self) => + EventName self onrejectionhandled +rejectionhandled = unsafeEventName (toJSString "rejectionhandled") + -- | reset :: (IsGlobalEventHandlers self, IsEventTarget self) => @@ -371,6 +379,13 @@ EventName self ontoggle toggle = unsafeEventName (toJSString "toggle") +-- | +unhandledrejection :: + (IsGlobalEventHandlers self, IsEventTarget self) => + EventName self onunhandledrejection +unhandledrejection + = unsafeEventName (toJSString "unhandledrejection") + -- | volumeChange :: (IsGlobalEventHandlers self, IsEventTarget self) => @@ -382,6 +397,31 @@ (IsGlobalEventHandlers self, IsEventTarget self) => EventName self Event waiting = unsafeEventName (toJSString "waiting") + +-- | +transitionEnd :: + (IsGlobalEventHandlers self, IsEventTarget self) => + EventName self TransitionEvent +transitionEnd = unsafeEventName (toJSString "transitionend") + +-- | +animationEnd :: + (IsGlobalEventHandlers self, IsEventTarget self) => + EventName self AnimationEvent +animationEnd = unsafeEventName (toJSString "animationend") + +-- | +animationIteration :: + (IsGlobalEventHandlers self, IsEventTarget self) => + EventName self AnimationEvent +animationIteration + = unsafeEventName (toJSString "animationiteration") + +-- | +animationStart :: + (IsGlobalEventHandlers self, IsEventTarget self) => + EventName self AnimationEvent +animationStart = unsafeEventName (toJSString "animationstart") -- | search :: diff --git a/src/JSDOM/Generated/GlobalPerformance.hs b/src/JSDOM/Generated/GlobalPerformance.hs --- a/src/JSDOM/Generated/GlobalPerformance.hs +++ b/src/JSDOM/Generated/GlobalPerformance.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLAllCollection.hs b/src/JSDOM/Generated/HTMLAllCollection.hs --- a/src/JSDOM/Generated/HTMLAllCollection.hs +++ b/src/JSDOM/Generated/HTMLAllCollection.hs @@ -4,14 +4,14 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLAllCollection (item, item_, itemUnsafe, itemUnchecked, namedItem, namedItem_, - namedItemUnsafe, namedItemUnchecked, tags, tags_, getLength, + namedItemUnsafe, namedItemUnchecked, getLength, HTMLAllCollection(..), gTypeHTMLAllCollection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -74,20 +74,6 @@ HTMLAllCollection -> name -> m HTMLCollectionOrElement namedItemUnchecked self name = liftDOM ((self ! name) >>= fromJSValUnchecked) - --- | -tags :: - (MonadDOM m, ToJSString name) => - HTMLAllCollection -> name -> m NodeList -tags self name - = liftDOM - ((self ^. jsf "tags" [toJSVal name]) >>= fromJSValUnchecked) - --- | -tags_ :: - (MonadDOM m, ToJSString name) => HTMLAllCollection -> name -> m () -tags_ self name - = liftDOM (void (self ^. jsf "tags" [toJSVal name])) -- | getLength :: (MonadDOM m) => HTMLAllCollection -> m Word diff --git a/src/JSDOM/Generated/HTMLAnchorElement.hs b/src/JSDOM/Generated/HTMLAnchorElement.hs --- a/src/JSDOM/Generated/HTMLAnchorElement.hs +++ b/src/JSDOM/Generated/HTMLAnchorElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLAppletElement.hs b/src/JSDOM/Generated/HTMLAppletElement.hs --- a/src/JSDOM/Generated/HTMLAppletElement.hs +++ b/src/JSDOM/Generated/HTMLAppletElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLAreaElement.hs b/src/JSDOM/Generated/HTMLAreaElement.hs --- a/src/JSDOM/Generated/HTMLAreaElement.hs +++ b/src/JSDOM/Generated/HTMLAreaElement.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLAttachmentElement.hs b/src/JSDOM/Generated/HTMLAttachmentElement.hs --- a/src/JSDOM/Generated/HTMLAttachmentElement.hs +++ b/src/JSDOM/Generated/HTMLAttachmentElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLBRElement.hs b/src/JSDOM/Generated/HTMLBRElement.hs --- a/src/JSDOM/Generated/HTMLBRElement.hs +++ b/src/JSDOM/Generated/HTMLBRElement.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLBaseElement.hs b/src/JSDOM/Generated/HTMLBaseElement.hs --- a/src/JSDOM/Generated/HTMLBaseElement.hs +++ b/src/JSDOM/Generated/HTMLBaseElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLBodyElement.hs b/src/JSDOM/Generated/HTMLBodyElement.hs --- a/src/JSDOM/Generated/HTMLBodyElement.hs +++ b/src/JSDOM/Generated/HTMLBodyElement.hs @@ -3,13 +3,10 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLBodyElement - (setALink, getALink, getALinkUnsafe, getALinkUnchecked, - setBackground, getBackground, setBgColor, getBgColor, - getBgColorUnsafe, getBgColorUnchecked, setLink, getLink, - getLinkUnsafe, getLinkUnchecked, setText, getText, getTextUnsafe, - getTextUnchecked, setVLink, getVLink, getVLinkUnsafe, - getVLinkUnchecked, blur, error, focus, focusin, focusout, load, - resize, scroll, webKitMouseForcechanged, webKitMouseForcedown, + (setALink, getALink, setBackground, getBackground, setBgColor, + getBgColor, setLink, getLink, setText, getText, setVLink, getVLink, + blur, error, focus, focusin, focusout, load, resize, scroll, + webKitMouseForcechanged, webKitMouseForcedown, webKitMouseForcewillbegin, webKitMouseForceup, webKitWillRevealBottom, webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop, selectionchange, @@ -19,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -31,30 +28,13 @@ -- | setALink :: - (MonadDOM m, ToJSString val) => - HTMLBodyElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m () setALink self val = liftDOM (self ^. jss "aLink" (toJSVal val)) -- | getALink :: - (MonadDOM m, FromJSString result) => - HTMLBodyElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result getALink self - = liftDOM ((self ^. js "aLink") >>= fromMaybeJSString) - --- | -getALinkUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLBodyElement -> m result -getALinkUnsafe self - = liftDOM - (((self ^. js "aLink") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getALinkUnchecked :: - (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result -getALinkUnchecked self = liftDOM ((self ^. js "aLink") >>= fromJSValUnchecked) -- | @@ -71,112 +51,44 @@ -- | setBgColor :: - (MonadDOM m, ToJSString val) => - HTMLBodyElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m () setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val)) -- | getBgColor :: - (MonadDOM m, FromJSString result) => - HTMLBodyElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result getBgColor self - = liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString) - --- | -getBgColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLBodyElement -> m result -getBgColorUnsafe self - = liftDOM - (((self ^. js "bgColor") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getBgColorUnchecked :: - (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result -getBgColorUnchecked self = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked) -- | setLink :: - (MonadDOM m, ToJSString val) => - HTMLBodyElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m () setLink self val = liftDOM (self ^. jss "link" (toJSVal val)) -- | getLink :: - (MonadDOM m, FromJSString result) => - HTMLBodyElement -> m (Maybe result) -getLink self = liftDOM ((self ^. js "link") >>= fromMaybeJSString) - --- | -getLinkUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLBodyElement -> m result -getLinkUnsafe self - = liftDOM - (((self ^. js "link") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getLinkUnchecked :: - (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result -getLinkUnchecked self - = liftDOM ((self ^. js "link") >>= fromJSValUnchecked) + (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result +getLink self = liftDOM ((self ^. js "link") >>= fromJSValUnchecked) -- | setText :: - (MonadDOM m, ToJSString val) => - HTMLBodyElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m () setText self val = liftDOM (self ^. jss "text" (toJSVal val)) -- | getText :: - (MonadDOM m, FromJSString result) => - HTMLBodyElement -> m (Maybe result) -getText self = liftDOM ((self ^. js "text") >>= fromMaybeJSString) - --- | -getTextUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLBodyElement -> m result -getTextUnsafe self - = liftDOM - (((self ^. js "text") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getTextUnchecked :: - (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result -getTextUnchecked self - = liftDOM ((self ^. js "text") >>= fromJSValUnchecked) + (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result +getText self = liftDOM ((self ^. js "text") >>= fromJSValUnchecked) -- | setVLink :: - (MonadDOM m, ToJSString val) => - HTMLBodyElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLBodyElement -> val -> m () setVLink self val = liftDOM (self ^. jss "vLink" (toJSVal val)) -- | getVLink :: - (MonadDOM m, FromJSString result) => - HTMLBodyElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result getVLink self - = liftDOM ((self ^. js "vLink") >>= fromMaybeJSString) - --- | -getVLinkUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLBodyElement -> m result -getVLinkUnsafe self - = liftDOM - (((self ^. js "vLink") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getVLinkUnchecked :: - (MonadDOM m, FromJSString result) => HTMLBodyElement -> m result -getVLinkUnchecked self = liftDOM ((self ^. js "vLink") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLButtonElement.hs b/src/JSDOM/Generated/HTMLButtonElement.hs --- a/src/JSDOM/Generated/HTMLButtonElement.hs +++ b/src/JSDOM/Generated/HTMLButtonElement.hs @@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLCanvasElement.hs b/src/JSDOM/Generated/HTMLCanvasElement.hs --- a/src/JSDOM/Generated/HTMLCanvasElement.hs +++ b/src/JSDOM/Generated/HTMLCanvasElement.hs @@ -4,14 +4,15 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLCanvasElement (getContext, getContext_, getContextUnsafe, getContextUnchecked, - toDataURL, toDataURL_, setWidth, getWidth, setHeight, getHeight, - HTMLCanvasElement(..), gTypeHTMLCanvasElement) + toDataURL, toDataURL_, toBlob', captureStream, captureStream_, + setWidth, getWidth, setHeight, getHeight, HTMLCanvasElement(..), + gTypeHTMLCanvasElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -78,6 +79,32 @@ HTMLCanvasElement -> Maybe type' -> m () toDataURL_ self type' = liftDOM (void (self ^. jsf "toDataURL" [toJSVal type'])) + +-- | +toBlob' :: + (MonadDOM m, ToJSString type', ToJSVal quality) => + HTMLCanvasElement -> + BlobCallback -> Maybe type' -> Maybe quality -> m () +toBlob' self callback type' quality + = liftDOM + (void + (self ^. jsf "toBlob" + [toJSVal callback, toJSVal type', toJSVal quality])) + +-- | +captureStream :: + (MonadDOM m) => HTMLCanvasElement -> Maybe Double -> m MediaStream +captureStream self frameRequestRate + = liftDOM + ((self ^. jsf "captureStream" [toJSVal frameRequestRate]) >>= + fromJSValUnchecked) + +-- | +captureStream_ :: + (MonadDOM m) => HTMLCanvasElement -> Maybe Double -> m () +captureStream_ self frameRequestRate + = liftDOM + (void (self ^. jsf "captureStream" [toJSVal frameRequestRate])) -- | setWidth :: (MonadDOM m) => HTMLCanvasElement -> Word -> m () diff --git a/src/JSDOM/Generated/HTMLCollection.hs b/src/JSDOM/Generated/HTMLCollection.hs --- a/src/JSDOM/Generated/HTMLCollection.hs +++ b/src/JSDOM/Generated/HTMLCollection.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLDListElement.hs b/src/JSDOM/Generated/HTMLDListElement.hs --- a/src/JSDOM/Generated/HTMLDListElement.hs +++ b/src/JSDOM/Generated/HTMLDListElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLDataElement.hs b/src/JSDOM/Generated/HTMLDataElement.hs --- a/src/JSDOM/Generated/HTMLDataElement.hs +++ b/src/JSDOM/Generated/HTMLDataElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLDataListElement.hs b/src/JSDOM/Generated/HTMLDataListElement.hs --- a/src/JSDOM/Generated/HTMLDataListElement.hs +++ b/src/JSDOM/Generated/HTMLDataListElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLDetailsElement.hs b/src/JSDOM/Generated/HTMLDetailsElement.hs --- a/src/JSDOM/Generated/HTMLDetailsElement.hs +++ b/src/JSDOM/Generated/HTMLDetailsElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLDirectoryElement.hs b/src/JSDOM/Generated/HTMLDirectoryElement.hs --- a/src/JSDOM/Generated/HTMLDirectoryElement.hs +++ b/src/JSDOM/Generated/HTMLDirectoryElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLDivElement.hs b/src/JSDOM/Generated/HTMLDivElement.hs --- a/src/JSDOM/Generated/HTMLDivElement.hs +++ b/src/JSDOM/Generated/HTMLDivElement.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLDocument.hs b/src/JSDOM/Generated/HTMLDocument.hs --- a/src/JSDOM/Generated/HTMLDocument.hs +++ b/src/JSDOM/Generated/HTMLDocument.hs @@ -4,19 +4,15 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLDocument (open, close, write, writeln, clear, captureEvents, releaseEvents, - getAll, setBgColor, getBgColor, getBgColorUnsafe, - getBgColorUnchecked, setFgColor, getFgColor, getFgColorUnsafe, - getFgColorUnchecked, setAlinkColor, getAlinkColor, - getAlinkColorUnsafe, getAlinkColorUnchecked, setLinkColor, - getLinkColor, getLinkColorUnsafe, getLinkColorUnchecked, - setVlinkColor, getVlinkColor, getVlinkColorUnsafe, - getVlinkColorUnchecked, HTMLDocument(..), gTypeHTMLDocument) + getAll, setBgColor, getBgColor, setFgColor, getFgColor, + setAlinkColor, getAlinkColor, setLinkColor, getLinkColor, + setVlinkColor, getVlinkColor, HTMLDocument(..), gTypeHTMLDocument) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -66,138 +62,58 @@ -- | setBgColor :: - (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLDocument -> val -> m () setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val)) -- | getBgColor :: - (MonadDOM m, FromJSString result) => - HTMLDocument -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLDocument -> m result getBgColor self - = liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString) - --- | -getBgColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLDocument -> m result -getBgColorUnsafe self - = liftDOM - (((self ^. js "bgColor") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getBgColorUnchecked :: - (MonadDOM m, FromJSString result) => HTMLDocument -> m result -getBgColorUnchecked self = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked) -- | setFgColor :: - (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLDocument -> val -> m () setFgColor self val = liftDOM (self ^. jss "fgColor" (toJSVal val)) -- | getFgColor :: - (MonadDOM m, FromJSString result) => - HTMLDocument -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLDocument -> m result getFgColor self - = liftDOM ((self ^. js "fgColor") >>= fromMaybeJSString) - --- | -getFgColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLDocument -> m result -getFgColorUnsafe self - = liftDOM - (((self ^. js "fgColor") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getFgColorUnchecked :: - (MonadDOM m, FromJSString result) => HTMLDocument -> m result -getFgColorUnchecked self = liftDOM ((self ^. js "fgColor") >>= fromJSValUnchecked) -- | setAlinkColor :: - (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLDocument -> val -> m () setAlinkColor self val = liftDOM (self ^. jss "alinkColor" (toJSVal val)) -- | getAlinkColor :: - (MonadDOM m, FromJSString result) => - HTMLDocument -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLDocument -> m result getAlinkColor self - = liftDOM ((self ^. js "alinkColor") >>= fromMaybeJSString) - --- | -getAlinkColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLDocument -> m result -getAlinkColorUnsafe self - = liftDOM - (((self ^. js "alinkColor") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getAlinkColorUnchecked :: - (MonadDOM m, FromJSString result) => HTMLDocument -> m result -getAlinkColorUnchecked self = liftDOM ((self ^. js "alinkColor") >>= fromJSValUnchecked) -- | setLinkColor :: - (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLDocument -> val -> m () setLinkColor self val = liftDOM (self ^. jss "linkColor" (toJSVal val)) -- | getLinkColor :: - (MonadDOM m, FromJSString result) => - HTMLDocument -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLDocument -> m result getLinkColor self - = liftDOM ((self ^. js "linkColor") >>= fromMaybeJSString) - --- | -getLinkColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLDocument -> m result -getLinkColorUnsafe self - = liftDOM - (((self ^. js "linkColor") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getLinkColorUnchecked :: - (MonadDOM m, FromJSString result) => HTMLDocument -> m result -getLinkColorUnchecked self = liftDOM ((self ^. js "linkColor") >>= fromJSValUnchecked) -- | setVlinkColor :: - (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLDocument -> val -> m () setVlinkColor self val = liftDOM (self ^. jss "vlinkColor" (toJSVal val)) -- | getVlinkColor :: - (MonadDOM m, FromJSString result) => - HTMLDocument -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLDocument -> m result getVlinkColor self - = liftDOM ((self ^. js "vlinkColor") >>= fromMaybeJSString) - --- | -getVlinkColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLDocument -> m result -getVlinkColorUnsafe self - = liftDOM - (((self ^. js "vlinkColor") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getVlinkColorUnchecked :: - (MonadDOM m, FromJSString result) => HTMLDocument -> m result -getVlinkColorUnchecked self = liftDOM ((self ^. js "vlinkColor") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLElement.hs b/src/JSDOM/Generated/HTMLElement.hs --- a/src/JSDOM/Generated/HTMLElement.hs +++ b/src/JSDOM/Generated/HTMLElement.hs @@ -4,23 +4,22 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLElement (newHTMLElement, click, focus, blur, setTitle, getTitle, setLang, - getLang, setTranslate, getTranslate, setDir, getDir, setTabIndex, - getTabIndex, setDraggable, getDraggable, setWebkitdropzone, - getWebkitdropzone, setHidden, getHidden, setAccessKey, - getAccessKey, setInnerText, getInnerText, getInnerTextUnsafe, - getInnerTextUnchecked, setOuterText, getOuterText, - getOuterTextUnsafe, getOuterTextUnchecked, setContentEditable, - getContentEditable, getIsContentEditable, setSpellcheck, - getSpellcheck, setAutocorrect, getAutocorrect, setAutocapitalize, - getAutocapitalize, getAutocapitalizeUnsafe, - getAutocapitalizeUnchecked, getDataset, HTMLElement(..), - gTypeHTMLElement, IsHTMLElement, toHTMLElement) + getLang, setTranslate, getTranslate, setDir, getDir, getDataset, + setHidden, getHidden, setTabIndex, getTabIndex, setAccessKey, + getAccessKey, setDraggable, getDraggable, setSpellcheck, + getSpellcheck, setInnerText, getInnerText, setContentEditable, + getContentEditable, getIsContentEditable, getOffsetParent, + getOffsetParentUnsafe, getOffsetParentUnchecked, getOffsetTop, + getOffsetLeft, getOffsetWidth, getOffsetHeight, setOuterText, + getOuterText, setAutocorrect, getAutocorrect, setAutocapitalize, + getAutocapitalize, setWebkitdropzone, getWebkitdropzone, + HTMLElement(..), gTypeHTMLElement, IsHTMLElement, toHTMLElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -105,46 +104,12 @@ = liftDOM (((toHTMLElement self) ^. js "dir") >>= fromJSValUnchecked) --- | -setTabIndex :: - (MonadDOM m, IsHTMLElement self) => self -> Int -> m () -setTabIndex self val - = liftDOM ((toHTMLElement self) ^. jss "tabIndex" (toJSVal val)) - --- | -getTabIndex :: (MonadDOM m, IsHTMLElement self) => self -> m Int -getTabIndex self - = liftDOM - (round <$> - (((toHTMLElement self) ^. js "tabIndex") >>= valToNumber)) - --- | -setDraggable :: - (MonadDOM m, IsHTMLElement self) => self -> Bool -> m () -setDraggable self val - = liftDOM ((toHTMLElement self) ^. jss "draggable" (toJSVal val)) - --- | -getDraggable :: (MonadDOM m, IsHTMLElement self) => self -> m Bool -getDraggable self - = liftDOM (((toHTMLElement self) ^. js "draggable") >>= valToBool) - --- | -setWebkitdropzone :: - (MonadDOM m, IsHTMLElement self, ToJSString val) => - self -> val -> m () -setWebkitdropzone self val - = liftDOM - ((toHTMLElement self) ^. jss "webkitdropzone" (toJSVal val)) - --- | -getWebkitdropzone :: - (MonadDOM m, IsHTMLElement self, FromJSString result) => - self -> m result -getWebkitdropzone self +-- | +getDataset :: + (MonadDOM m, IsHTMLElement self) => self -> m DOMStringMap +getDataset self = liftDOM - (((toHTMLElement self) ^. js "webkitdropzone") >>= - fromJSValUnchecked) + (((toHTMLElement self) ^. js "dataset") >>= fromJSValUnchecked) -- | setHidden :: @@ -157,6 +122,19 @@ getHidden self = liftDOM (((toHTMLElement self) ^. js "hidden") >>= valToBool) +-- | +setTabIndex :: + (MonadDOM m, IsHTMLElement self) => self -> Int -> m () +setTabIndex self val + = liftDOM ((toHTMLElement self) ^. jss "tabIndex" (toJSVal val)) + +-- | +getTabIndex :: (MonadDOM m, IsHTMLElement self) => self -> m Int +getTabIndex self + = liftDOM + (round <$> + (((toHTMLElement self) ^. js "tabIndex") >>= valToNumber)) + -- | setAccessKey :: (MonadDOM m, IsHTMLElement self, ToJSString val) => @@ -172,72 +150,43 @@ = liftDOM (((toHTMLElement self) ^. js "accessKey") >>= fromJSValUnchecked) +-- | +setDraggable :: + (MonadDOM m, IsHTMLElement self) => self -> Bool -> m () +setDraggable self val + = liftDOM ((toHTMLElement self) ^. jss "draggable" (toJSVal val)) + +-- | +getDraggable :: (MonadDOM m, IsHTMLElement self) => self -> m Bool +getDraggable self + = liftDOM (((toHTMLElement self) ^. js "draggable") >>= valToBool) + +-- | +setSpellcheck :: + (MonadDOM m, IsHTMLElement self) => self -> Bool -> m () +setSpellcheck self val + = liftDOM ((toHTMLElement self) ^. jss "spellcheck" (toJSVal val)) + +-- | +getSpellcheck :: (MonadDOM m, IsHTMLElement self) => self -> m Bool +getSpellcheck self + = liftDOM (((toHTMLElement self) ^. js "spellcheck") >>= valToBool) + -- | setInnerText :: (MonadDOM m, IsHTMLElement self, ToJSString val) => - self -> Maybe val -> m () + self -> val -> m () setInnerText self val = liftDOM ((toHTMLElement self) ^. jss "innerText" (toJSVal val)) -- | getInnerText :: (MonadDOM m, IsHTMLElement self, FromJSString result) => - self -> m (Maybe result) + self -> m result getInnerText self = liftDOM - (((toHTMLElement self) ^. js "innerText") >>= fromMaybeJSString) - --- | -getInnerTextUnsafe :: - (MonadDOM m, IsHTMLElement self, HasCallStack, - FromJSString result) => - self -> m result -getInnerTextUnsafe self - = liftDOM - ((((toHTMLElement self) ^. js "innerText") >>= fromMaybeJSString) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getInnerTextUnchecked :: - (MonadDOM m, IsHTMLElement self, FromJSString result) => - self -> m result -getInnerTextUnchecked self - = liftDOM (((toHTMLElement self) ^. js "innerText") >>= fromJSValUnchecked) --- | -setOuterText :: - (MonadDOM m, IsHTMLElement self, ToJSString val) => - self -> Maybe val -> m () -setOuterText self val - = liftDOM ((toHTMLElement self) ^. jss "outerText" (toJSVal val)) - --- | -getOuterText :: - (MonadDOM m, IsHTMLElement self, FromJSString result) => - self -> m (Maybe result) -getOuterText self - = liftDOM - (((toHTMLElement self) ^. js "outerText") >>= fromMaybeJSString) - --- | -getOuterTextUnsafe :: - (MonadDOM m, IsHTMLElement self, HasCallStack, - FromJSString result) => - self -> m result -getOuterTextUnsafe self - = liftDOM - ((((toHTMLElement self) ^. js "outerText") >>= fromMaybeJSString) - >>= maybe (Prelude.error "Nothing to return") return) - --- | -getOuterTextUnchecked :: - (MonadDOM m, IsHTMLElement self, FromJSString result) => - self -> m result -getOuterTextUnchecked self - = liftDOM - (((toHTMLElement self) ^. js "outerText") >>= fromJSValUnchecked) - -- | setContentEditable :: (MonadDOM m, IsHTMLElement self, ToJSString val) => @@ -262,17 +211,72 @@ = liftDOM (((toHTMLElement self) ^. js "isContentEditable") >>= valToBool) --- | -setSpellcheck :: - (MonadDOM m, IsHTMLElement self) => self -> Bool -> m () -setSpellcheck self val - = liftDOM ((toHTMLElement self) ^. jss "spellcheck" (toJSVal val)) +-- | +getOffsetParent :: + (MonadDOM m, IsHTMLElement self) => self -> m (Maybe Element) +getOffsetParent self + = liftDOM + (((toHTMLElement self) ^. js "offsetParent") >>= fromJSVal) --- | -getSpellcheck :: (MonadDOM m, IsHTMLElement self) => self -> m Bool -getSpellcheck self - = liftDOM (((toHTMLElement self) ^. js "spellcheck") >>= valToBool) +-- | +getOffsetParentUnsafe :: + (MonadDOM m, IsHTMLElement self, HasCallStack) => self -> m Element +getOffsetParentUnsafe self + = liftDOM + ((((toHTMLElement self) ^. js "offsetParent") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) +-- | +getOffsetParentUnchecked :: + (MonadDOM m, IsHTMLElement self) => self -> m Element +getOffsetParentUnchecked self + = liftDOM + (((toHTMLElement self) ^. js "offsetParent") >>= + fromJSValUnchecked) + +-- | +getOffsetTop :: + (MonadDOM m, IsHTMLElement self) => self -> m Double +getOffsetTop self + = liftDOM + (((toHTMLElement self) ^. js "offsetTop") >>= valToNumber) + +-- | +getOffsetLeft :: + (MonadDOM m, IsHTMLElement self) => self -> m Double +getOffsetLeft self + = liftDOM + (((toHTMLElement self) ^. js "offsetLeft") >>= valToNumber) + +-- | +getOffsetWidth :: + (MonadDOM m, IsHTMLElement self) => self -> m Double +getOffsetWidth self + = liftDOM + (((toHTMLElement self) ^. js "offsetWidth") >>= valToNumber) + +-- | +getOffsetHeight :: + (MonadDOM m, IsHTMLElement self) => self -> m Double +getOffsetHeight self + = liftDOM + (((toHTMLElement self) ^. js "offsetHeight") >>= valToNumber) + +-- | +setOuterText :: + (MonadDOM m, IsHTMLElement self, ToJSString val) => + self -> val -> m () +setOuterText self val + = liftDOM ((toHTMLElement self) ^. jss "outerText" (toJSVal val)) + +-- | +getOuterText :: + (MonadDOM m, IsHTMLElement self, FromJSString result) => + self -> m result +getOuterText self + = liftDOM + (((toHTMLElement self) ^. js "outerText") >>= fromJSValUnchecked) + -- | setAutocorrect :: (MonadDOM m, IsHTMLElement self) => self -> Bool -> m () @@ -289,7 +293,7 @@ -- | setAutocapitalize :: (MonadDOM m, IsHTMLElement self, ToJSString val) => - self -> Maybe val -> m () + self -> val -> m () setAutocapitalize self val = liftDOM ((toHTMLElement self) ^. jss "autocapitalize" (toJSVal val)) @@ -297,35 +301,25 @@ -- | getAutocapitalize :: (MonadDOM m, IsHTMLElement self, FromJSString result) => - self -> m (Maybe result) + self -> m result getAutocapitalize self = liftDOM (((toHTMLElement self) ^. js "autocapitalize") >>= - fromMaybeJSString) + fromJSValUnchecked) --- | -getAutocapitalizeUnsafe :: - (MonadDOM m, IsHTMLElement self, HasCallStack, - FromJSString result) => - self -> m result -getAutocapitalizeUnsafe self +-- | +setWebkitdropzone :: + (MonadDOM m, IsHTMLElement self, ToJSString val) => + self -> val -> m () +setWebkitdropzone self val = liftDOM - ((((toHTMLElement self) ^. js "autocapitalize") >>= - fromMaybeJSString) - >>= maybe (Prelude.error "Nothing to return") return) + ((toHTMLElement self) ^. jss "webkitdropzone" (toJSVal val)) --- | -getAutocapitalizeUnchecked :: - (MonadDOM m, IsHTMLElement self, FromJSString result) => - self -> m result -getAutocapitalizeUnchecked self +-- | +getWebkitdropzone :: + (MonadDOM m, IsHTMLElement self, FromJSString result) => + self -> m result +getWebkitdropzone self = liftDOM - (((toHTMLElement self) ^. js "autocapitalize") >>= + (((toHTMLElement self) ^. js "webkitdropzone") >>= fromJSValUnchecked) - --- | -getDataset :: - (MonadDOM m, IsHTMLElement self) => self -> m DOMStringMap -getDataset self - = liftDOM - (((toHTMLElement self) ^. js "dataset") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLEmbedElement.hs b/src/JSDOM/Generated/HTMLEmbedElement.hs --- a/src/JSDOM/Generated/HTMLEmbedElement.hs +++ b/src/JSDOM/Generated/HTMLEmbedElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLFieldSetElement.hs b/src/JSDOM/Generated/HTMLFieldSetElement.hs --- a/src/JSDOM/Generated/HTMLFieldSetElement.hs +++ b/src/JSDOM/Generated/HTMLFieldSetElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLFontElement.hs b/src/JSDOM/Generated/HTMLFontElement.hs --- a/src/JSDOM/Generated/HTMLFontElement.hs +++ b/src/JSDOM/Generated/HTMLFontElement.hs @@ -3,15 +3,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLFontElement - (setColor, getColor, getColorUnsafe, getColorUnchecked, setFace, - getFace, setSize, getSize, HTMLFontElement(..), - gTypeHTMLFontElement) + (setColor, getColor, setFace, getFace, setSize, getSize, + HTMLFontElement(..), gTypeHTMLFontElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -23,30 +22,13 @@ -- | setColor :: - (MonadDOM m, ToJSString val) => - HTMLFontElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLFontElement -> val -> m () setColor self val = liftDOM (self ^. jss "color" (toJSVal val)) -- | getColor :: - (MonadDOM m, FromJSString result) => - HTMLFontElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLFontElement -> m result getColor self - = liftDOM ((self ^. js "color") >>= fromMaybeJSString) - --- | -getColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLFontElement -> m result -getColorUnsafe self - = liftDOM - (((self ^. js "color") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getColorUnchecked :: - (MonadDOM m, FromJSString result) => HTMLFontElement -> m result -getColorUnchecked self = liftDOM ((self ^. js "color") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLFormControlsCollection.hs b/src/JSDOM/Generated/HTMLFormControlsCollection.hs --- a/src/JSDOM/Generated/HTMLFormControlsCollection.hs +++ b/src/JSDOM/Generated/HTMLFormControlsCollection.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLFormElement.hs b/src/JSDOM/Generated/HTMLFormElement.hs --- a/src/JSDOM/Generated/HTMLFormElement.hs +++ b/src/JSDOM/Generated/HTMLFormElement.hs @@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLFrameElement.hs b/src/JSDOM/Generated/HTMLFrameElement.hs --- a/src/JSDOM/Generated/HTMLFrameElement.hs +++ b/src/JSDOM/Generated/HTMLFrameElement.hs @@ -7,17 +7,15 @@ getScrolling, setSrc, getSrc, setFrameBorder, getFrameBorder, setLongDesc, getLongDesc, setNoResize, getNoResize, getContentDocument, getContentWindow, setMarginHeight, - getMarginHeight, getMarginHeightUnsafe, getMarginHeightUnchecked, - setMarginWidth, getMarginWidth, getMarginWidthUnsafe, - getMarginWidthUnchecked, getWidth, getHeight, setLocation, - getLocation, getLocationUnsafe, getLocationUnchecked, - HTMLFrameElement(..), gTypeHTMLFrameElement) + getMarginHeight, setMarginWidth, getMarginWidth, getWidth, + getHeight, setLocation, getLocation, getLocationUnsafe, + getLocationUnchecked, HTMLFrameElement(..), gTypeHTMLFrameElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -116,60 +114,26 @@ -- | setMarginHeight :: - (MonadDOM m, ToJSString val) => - HTMLFrameElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m () setMarginHeight self val = liftDOM (self ^. jss "marginHeight" (toJSVal val)) -- | getMarginHeight :: - (MonadDOM m, FromJSString result) => - HTMLFrameElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result getMarginHeight self - = liftDOM ((self ^. js "marginHeight") >>= fromMaybeJSString) - --- | -getMarginHeightUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLFrameElement -> m result -getMarginHeightUnsafe self - = liftDOM - (((self ^. js "marginHeight") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getMarginHeightUnchecked :: - (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result -getMarginHeightUnchecked self = liftDOM ((self ^. js "marginHeight") >>= fromJSValUnchecked) -- | setMarginWidth :: - (MonadDOM m, ToJSString val) => - HTMLFrameElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m () setMarginWidth self val = liftDOM (self ^. jss "marginWidth" (toJSVal val)) -- | getMarginWidth :: - (MonadDOM m, FromJSString result) => - HTMLFrameElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result getMarginWidth self - = liftDOM ((self ^. js "marginWidth") >>= fromMaybeJSString) - --- | -getMarginWidthUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLFrameElement -> m result -getMarginWidthUnsafe self - = liftDOM - (((self ^. js "marginWidth") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getMarginWidthUnchecked :: - (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result -getMarginWidthUnchecked self = liftDOM ((self ^. js "marginWidth") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLFrameSetElement.hs b/src/JSDOM/Generated/HTMLFrameSetElement.hs --- a/src/JSDOM/Generated/HTMLFrameSetElement.hs +++ b/src/JSDOM/Generated/HTMLFrameSetElement.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLHRElement.hs b/src/JSDOM/Generated/HTMLHRElement.hs --- a/src/JSDOM/Generated/HTMLHRElement.hs +++ b/src/JSDOM/Generated/HTMLHRElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLHeadElement.hs b/src/JSDOM/Generated/HTMLHeadElement.hs --- a/src/JSDOM/Generated/HTMLHeadElement.hs +++ b/src/JSDOM/Generated/HTMLHeadElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLHeadingElement.hs b/src/JSDOM/Generated/HTMLHeadingElement.hs --- a/src/JSDOM/Generated/HTMLHeadingElement.hs +++ b/src/JSDOM/Generated/HTMLHeadingElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLHtmlElement.hs b/src/JSDOM/Generated/HTMLHtmlElement.hs --- a/src/JSDOM/Generated/HTMLHtmlElement.hs +++ b/src/JSDOM/Generated/HTMLHtmlElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLHyperlinkElementUtils.hs b/src/JSDOM/Generated/HTMLHyperlinkElementUtils.hs --- a/src/JSDOM/Generated/HTMLHyperlinkElementUtils.hs +++ b/src/JSDOM/Generated/HTMLHyperlinkElementUtils.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLIFrameElement.hs b/src/JSDOM/Generated/HTMLIFrameElement.hs --- a/src/JSDOM/Generated/HTMLIFrameElement.hs +++ b/src/JSDOM/Generated/HTMLIFrameElement.hs @@ -5,10 +5,8 @@ module JSDOM.Generated.HTMLIFrameElement (getSVGDocument, getSVGDocument_, setAlign, getAlign, setFrameBorder, getFrameBorder, setHeight, getHeight, setLongDesc, - getLongDesc, setMarginHeight, getMarginHeight, - getMarginHeightUnsafe, getMarginHeightUnchecked, setMarginWidth, - getMarginWidth, getMarginWidthUnsafe, getMarginWidthUnchecked, - setName, getName, getSandbox, setAllowFullscreen, + getLongDesc, setMarginHeight, getMarginHeight, setMarginWidth, + getMarginWidth, setName, getName, getSandbox, setAllowFullscreen, getAllowFullscreen, setScrolling, getScrolling, setSrc, getSrc, setSrcdoc, getSrcdoc, setWidth, getWidth, getContentDocument, getContentWindow, HTMLIFrameElement(..), gTypeHTMLIFrameElement) @@ -17,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -86,60 +84,26 @@ -- | setMarginHeight :: - (MonadDOM m, ToJSString val) => - HTMLIFrameElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m () setMarginHeight self val = liftDOM (self ^. jss "marginHeight" (toJSVal val)) -- | getMarginHeight :: - (MonadDOM m, FromJSString result) => - HTMLIFrameElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result getMarginHeight self - = liftDOM ((self ^. js "marginHeight") >>= fromMaybeJSString) - --- | -getMarginHeightUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLIFrameElement -> m result -getMarginHeightUnsafe self - = liftDOM - (((self ^. js "marginHeight") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getMarginHeightUnchecked :: - (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result -getMarginHeightUnchecked self = liftDOM ((self ^. js "marginHeight") >>= fromJSValUnchecked) -- | setMarginWidth :: - (MonadDOM m, ToJSString val) => - HTMLIFrameElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m () setMarginWidth self val = liftDOM (self ^. jss "marginWidth" (toJSVal val)) -- | getMarginWidth :: - (MonadDOM m, FromJSString result) => - HTMLIFrameElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result getMarginWidth self - = liftDOM ((self ^. js "marginWidth") >>= fromMaybeJSString) - --- | -getMarginWidthUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLIFrameElement -> m result -getMarginWidthUnsafe self - = liftDOM - (((self ^. js "marginWidth") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getMarginWidthUnchecked :: - (MonadDOM m, FromJSString result) => HTMLIFrameElement -> m result -getMarginWidthUnchecked self = liftDOM ((self ^. js "marginWidth") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLImageElement.hs b/src/JSDOM/Generated/HTMLImageElement.hs --- a/src/JSDOM/Generated/HTMLImageElement.hs +++ b/src/JSDOM/Generated/HTMLImageElement.hs @@ -4,20 +4,20 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLImageElement (setName, getName, setAlign, getAlign, setAlt, getAlt, setBorder, - getBorder, getBorderUnsafe, getBorderUnchecked, setCrossOrigin, - getCrossOrigin, getCrossOriginUnsafe, getCrossOriginUnchecked, - setHeight, getHeight, setHspace, getHspace, setIsMap, getIsMap, - setLongDesc, getLongDesc, setSrc, getSrc, setSrcset, getSrcset, - setSizes, getSizes, getCurrentSrc, setUseMap, getUseMap, setVspace, - getVspace, setWidth, getWidth, getComplete, setLowsrc, getLowsrc, - getNaturalHeight, getNaturalWidth, getX, getY, - HTMLImageElement(..), gTypeHTMLImageElement) + getBorder, setCrossOrigin, getCrossOrigin, getCrossOriginUnsafe, + getCrossOriginUnchecked, setHeight, getHeight, setHspace, + getHspace, setIsMap, getIsMap, setLongDesc, getLongDesc, setSrc, + getSrc, setSrcset, getSrcset, setSizes, getSizes, getCurrentSrc, + setUseMap, getUseMap, setVspace, getVspace, setWidth, getWidth, + getComplete, setLowsrc, getLowsrc, getNaturalHeight, + getNaturalWidth, getX, getY, HTMLImageElement(..), + gTypeHTMLImageElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -60,30 +60,13 @@ -- | setBorder :: - (MonadDOM m, ToJSString val) => - HTMLImageElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLImageElement -> val -> m () setBorder self val = liftDOM (self ^. jss "border" (toJSVal val)) -- | getBorder :: - (MonadDOM m, FromJSString result) => - HTMLImageElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLImageElement -> m result getBorder self - = liftDOM ((self ^. js "border") >>= fromMaybeJSString) - --- | -getBorderUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLImageElement -> m result -getBorderUnsafe self - = liftDOM - (((self ^. js "border") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getBorderUnchecked :: - (MonadDOM m, FromJSString result) => HTMLImageElement -> m result -getBorderUnchecked self = liftDOM ((self ^. js "border") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLInputElement.hs b/src/JSDOM/Generated/HTMLInputElement.hs --- a/src/JSDOM/Generated/HTMLInputElement.hs +++ b/src/JSDOM/Generated/HTMLInputElement.hs @@ -19,21 +19,21 @@ getPattern, setPlaceholder, getPlaceholder, setReadOnly, getReadOnly, setRequired, getRequired, setSize, getSize, setSrc, getSrc, setStep, getStep, setType, getType, setDefaultValue, - getDefaultValue, setValue, getValue, getValueUnsafe, - getValueUnchecked, setValueAsDate, getValueAsDate, - getValueAsDateUnsafe, getValueAsDateUnchecked, setValueAsNumber, - getValueAsNumber, setWidth, getWidth, getWillValidate, getValidity, - getValidationMessage, getLabels, setSelectionStart, - getSelectionStart, setSelectionEnd, getSelectionEnd, - setSelectionDirection, getSelectionDirection, setAlign, getAlign, - setUseMap, getUseMap, setIncremental, getIncremental, setCapture, - getCapture, HTMLInputElement(..), gTypeHTMLInputElement) + getDefaultValue, setValue, getValue, setValueAsDate, + getValueAsDate, getValueAsDateUnsafe, getValueAsDateUnchecked, + setValueAsNumber, getValueAsNumber, setWidth, getWidth, + getWillValidate, getValidity, getValidationMessage, getLabels, + setSelectionStart, getSelectionStart, setSelectionEnd, + getSelectionEnd, setSelectionDirection, getSelectionDirection, + setAlign, getAlign, setUseMap, getUseMap, setIncremental, + getIncremental, setCapture, getCapture, HTMLInputElement(..), + gTypeHTMLInputElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -455,30 +455,13 @@ -- | setValue :: - (MonadDOM m, ToJSString val) => - HTMLInputElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m () setValue self val = liftDOM (self ^. jss "value" (toJSVal val)) -- | getValue :: - (MonadDOM m, FromJSString result) => - HTMLInputElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLInputElement -> m result getValue self - = liftDOM ((self ^. js "value") >>= fromMaybeJSString) - --- | -getValueUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLInputElement -> m result -getValueUnsafe self - = liftDOM - (((self ^. js "value") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getValueUnchecked :: - (MonadDOM m, FromJSString result) => HTMLInputElement -> m result -getValueUnchecked self = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLKeygenElement.hs b/src/JSDOM/Generated/HTMLKeygenElement.hs --- a/src/JSDOM/Generated/HTMLKeygenElement.hs +++ b/src/JSDOM/Generated/HTMLKeygenElement.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLLIElement.hs b/src/JSDOM/Generated/HTMLLIElement.hs --- a/src/JSDOM/Generated/HTMLLIElement.hs +++ b/src/JSDOM/Generated/HTMLLIElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLLabelElement.hs b/src/JSDOM/Generated/HTMLLabelElement.hs --- a/src/JSDOM/Generated/HTMLLabelElement.hs +++ b/src/JSDOM/Generated/HTMLLabelElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLLegendElement.hs b/src/JSDOM/Generated/HTMLLegendElement.hs --- a/src/JSDOM/Generated/HTMLLegendElement.hs +++ b/src/JSDOM/Generated/HTMLLegendElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLLinkElement.hs b/src/JSDOM/Generated/HTMLLinkElement.hs --- a/src/JSDOM/Generated/HTMLLinkElement.hs +++ b/src/JSDOM/Generated/HTMLLinkElement.hs @@ -8,14 +8,14 @@ getRel, setRev, getRev, getSizes, setTarget, getTarget, setType, getType, setAs, getAs, setCrossOrigin, getCrossOrigin, getCrossOriginUnsafe, getCrossOriginUnchecked, getSheet, - getRelList, setNonce, getNonce, HTMLLinkElement(..), - gTypeHTMLLinkElement) + getRelList, setNonce, getNonce, setIntegrity, getIntegrity, + HTMLLinkElement(..), gTypeHTMLLinkElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -183,3 +183,15 @@ (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result getNonce self = liftDOM ((self ^. js "nonce") >>= fromJSValUnchecked) + +-- | +setIntegrity :: + (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () +setIntegrity self val + = liftDOM (self ^. jss "integrity" (toJSVal val)) + +-- | +getIntegrity :: + (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result +getIntegrity self + = liftDOM ((self ^. js "integrity") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLMapElement.hs b/src/JSDOM/Generated/HTMLMapElement.hs --- a/src/JSDOM/Generated/HTMLMapElement.hs +++ b/src/JSDOM/Generated/HTMLMapElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLMarqueeElement.hs b/src/JSDOM/Generated/HTMLMarqueeElement.hs --- a/src/JSDOM/Generated/HTMLMarqueeElement.hs +++ b/src/JSDOM/Generated/HTMLMarqueeElement.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLMediaElement.hs b/src/JSDOM/Generated/HTMLMediaElement.hs --- a/src/JSDOM/Generated/HTMLMediaElement.hs +++ b/src/JSDOM/Generated/HTMLMediaElement.hs @@ -37,7 +37,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLMenuElement.hs b/src/JSDOM/Generated/HTMLMenuElement.hs --- a/src/JSDOM/Generated/HTMLMenuElement.hs +++ b/src/JSDOM/Generated/HTMLMenuElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLMetaElement.hs b/src/JSDOM/Generated/HTMLMetaElement.hs --- a/src/JSDOM/Generated/HTMLMetaElement.hs +++ b/src/JSDOM/Generated/HTMLMetaElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLMeterElement.hs b/src/JSDOM/Generated/HTMLMeterElement.hs --- a/src/JSDOM/Generated/HTMLMeterElement.hs +++ b/src/JSDOM/Generated/HTMLMeterElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLModElement.hs b/src/JSDOM/Generated/HTMLModElement.hs --- a/src/JSDOM/Generated/HTMLModElement.hs +++ b/src/JSDOM/Generated/HTMLModElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLOListElement.hs b/src/JSDOM/Generated/HTMLOListElement.hs --- a/src/JSDOM/Generated/HTMLOListElement.hs +++ b/src/JSDOM/Generated/HTMLOListElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLObjectElement.hs b/src/JSDOM/Generated/HTMLObjectElement.hs --- a/src/JSDOM/Generated/HTMLObjectElement.hs +++ b/src/JSDOM/Generated/HTMLObjectElement.hs @@ -6,19 +6,19 @@ (checkValidity, checkValidity_, reportValidity, reportValidity_, setCustomValidity, getSVGDocument, getSVGDocument_, getForm, setCode, getCode, setAlign, getAlign, setArchive, getArchive, - setBorder, getBorder, getBorderUnsafe, getBorderUnchecked, - setCodeBase, getCodeBase, setCodeType, getCodeType, setData, - getData, setDeclare, getDeclare, setHeight, getHeight, setHspace, - getHspace, setName, getName, setStandby, getStandby, setType, - getType, setUseMap, getUseMap, setVspace, getVspace, setWidth, - getWidth, getWillValidate, getValidity, getValidationMessage, - getContentDocument, HTMLObjectElement(..), gTypeHTMLObjectElement) + setBorder, getBorder, setCodeBase, getCodeBase, setCodeType, + getCodeType, setData, getData, setDeclare, getDeclare, setHeight, + getHeight, setHspace, getHspace, setName, getName, setStandby, + getStandby, setType, getType, setUseMap, getUseMap, setVspace, + getVspace, setWidth, getWidth, getWillValidate, getValidity, + getValidationMessage, getContentDocument, HTMLObjectElement(..), + gTypeHTMLObjectElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -104,30 +104,13 @@ -- | setBorder :: - (MonadDOM m, ToJSString val) => - HTMLObjectElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m () setBorder self val = liftDOM (self ^. jss "border" (toJSVal val)) -- | getBorder :: - (MonadDOM m, FromJSString result) => - HTMLObjectElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result getBorder self - = liftDOM ((self ^. js "border") >>= fromMaybeJSString) - --- | -getBorderUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLObjectElement -> m result -getBorderUnsafe self - = liftDOM - (((self ^. js "border") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getBorderUnchecked :: - (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result -getBorderUnchecked self = liftDOM ((self ^. js "border") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLOptGroupElement.hs b/src/JSDOM/Generated/HTMLOptGroupElement.hs --- a/src/JSDOM/Generated/HTMLOptGroupElement.hs +++ b/src/JSDOM/Generated/HTMLOptGroupElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLOptionElement.hs b/src/JSDOM/Generated/HTMLOptionElement.hs --- a/src/JSDOM/Generated/HTMLOptionElement.hs +++ b/src/JSDOM/Generated/HTMLOptionElement.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLOptionsCollection.hs b/src/JSDOM/Generated/HTMLOptionsCollection.hs --- a/src/JSDOM/Generated/HTMLOptionsCollection.hs +++ b/src/JSDOM/Generated/HTMLOptionsCollection.hs @@ -3,17 +3,16 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLOptionsCollection - (addBefore, remove, removeElement, item, item_, itemUnsafe, - itemUnchecked, namedItem, namedItem_, namedItemUnsafe, - namedItemUnchecked, setLength, getLength, setSelectedIndex, - getSelectedIndex, HTMLOptionsCollection(..), - gTypeHTMLOptionsCollection) + (addBefore, remove, item, item_, itemUnsafe, itemUnchecked, + namedItem, namedItem_, namedItemUnsafe, namedItemUnchecked, + setLength, getLength, setSelectedIndex, getSelectedIndex, + HTMLOptionsCollection(..), gTypeHTMLOptionsCollection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -36,12 +35,6 @@ remove :: (MonadDOM m) => HTMLOptionsCollection -> Int -> m () remove self index = liftDOM (void (self ^. jsf "remove" [toJSVal index])) - --- | -removeElement :: - (MonadDOM m) => HTMLOptionsCollection -> HTMLOptionElement -> m () -removeElement self option - = liftDOM (void (self ^. jsf "remove" [toJSVal option])) -- | item :: diff --git a/src/JSDOM/Generated/HTMLOutputElement.hs b/src/JSDOM/Generated/HTMLOutputElement.hs --- a/src/JSDOM/Generated/HTMLOutputElement.hs +++ b/src/JSDOM/Generated/HTMLOutputElement.hs @@ -5,17 +5,15 @@ module JSDOM.Generated.HTMLOutputElement (checkValidity, checkValidity_, reportValidity, reportValidity_, setCustomValidity, getHtmlFor, getForm, setName, getName, getType, - setDefaultValue, getDefaultValue, getDefaultValueUnsafe, - getDefaultValueUnchecked, setValue, getValue, getValueUnsafe, - getValueUnchecked, getWillValidate, getValidity, - getValidationMessage, getLabels, HTMLOutputElement(..), - gTypeHTMLOutputElement) + setDefaultValue, getDefaultValue, setValue, getValue, + getWillValidate, getValidity, getValidationMessage, getLabels, + HTMLOutputElement(..), gTypeHTMLOutputElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -78,59 +76,25 @@ -- | setDefaultValue :: - (MonadDOM m, ToJSString val) => - HTMLOutputElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLOutputElement -> val -> m () setDefaultValue self val = liftDOM (self ^. jss "defaultValue" (toJSVal val)) -- | getDefaultValue :: - (MonadDOM m, FromJSString result) => - HTMLOutputElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result getDefaultValue self - = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString) - --- | -getDefaultValueUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLOutputElement -> m result -getDefaultValueUnsafe self - = liftDOM - (((self ^. js "defaultValue") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getDefaultValueUnchecked :: - (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result -getDefaultValueUnchecked self = liftDOM ((self ^. js "defaultValue") >>= fromJSValUnchecked) -- | setValue :: - (MonadDOM m, ToJSString val) => - HTMLOutputElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLOutputElement -> val -> m () setValue self val = liftDOM (self ^. jss "value" (toJSVal val)) -- | getValue :: - (MonadDOM m, FromJSString result) => - HTMLOutputElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result getValue self - = liftDOM ((self ^. js "value") >>= fromMaybeJSString) - --- | -getValueUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLOutputElement -> m result -getValueUnsafe self - = liftDOM - (((self ^. js "value") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getValueUnchecked :: - (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result -getValueUnchecked self = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLParagraphElement.hs b/src/JSDOM/Generated/HTMLParagraphElement.hs --- a/src/JSDOM/Generated/HTMLParagraphElement.hs +++ b/src/JSDOM/Generated/HTMLParagraphElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLParamElement.hs b/src/JSDOM/Generated/HTMLParamElement.hs --- a/src/JSDOM/Generated/HTMLParamElement.hs +++ b/src/JSDOM/Generated/HTMLParamElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLPreElement.hs b/src/JSDOM/Generated/HTMLPreElement.hs --- a/src/JSDOM/Generated/HTMLPreElement.hs +++ b/src/JSDOM/Generated/HTMLPreElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLProgressElement.hs b/src/JSDOM/Generated/HTMLProgressElement.hs --- a/src/JSDOM/Generated/HTMLProgressElement.hs +++ b/src/JSDOM/Generated/HTMLProgressElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLQuoteElement.hs b/src/JSDOM/Generated/HTMLQuoteElement.hs --- a/src/JSDOM/Generated/HTMLQuoteElement.hs +++ b/src/JSDOM/Generated/HTMLQuoteElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLScriptElement.hs b/src/JSDOM/Generated/HTMLScriptElement.hs --- a/src/JSDOM/Generated/HTMLScriptElement.hs +++ b/src/JSDOM/Generated/HTMLScriptElement.hs @@ -7,14 +7,14 @@ setCharset, getCharset, setAsync, getAsync, setDefer, getDefer, setSrc, getSrc, setType, getType, setCrossOrigin, getCrossOrigin, getCrossOriginUnsafe, getCrossOriginUnchecked, setNonce, getNonce, - setNoModule, getNoModule, HTMLScriptElement(..), - gTypeHTMLScriptElement) + setNoModule, getNoModule, setIntegrity, getIntegrity, + HTMLScriptElement(..), gTypeHTMLScriptElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -151,3 +151,15 @@ -- | getNoModule :: (MonadDOM m) => HTMLScriptElement -> m Bool getNoModule self = liftDOM ((self ^. js "noModule") >>= valToBool) + +-- | +setIntegrity :: + (MonadDOM m, ToJSString val) => HTMLScriptElement -> val -> m () +setIntegrity self val + = liftDOM (self ^. jss "integrity" (toJSVal val)) + +-- | +getIntegrity :: + (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result +getIntegrity self + = liftDOM ((self ^. js "integrity") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLSelectElement.hs b/src/JSDOM/Generated/HTMLSelectElement.hs --- a/src/JSDOM/Generated/HTMLSelectElement.hs +++ b/src/JSDOM/Generated/HTMLSelectElement.hs @@ -4,22 +4,22 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLSelectElement (item, item_, itemUnsafe, itemUnchecked, namedItem, namedItem_, - namedItemUnsafe, namedItemUnchecked, addBefore, removeThis, - removeElement, remove, checkValidity, checkValidity_, - reportValidity, reportValidity_, setCustomValidity, setAutofocus, - getAutofocus, setDisabled, getDisabled, getForm, getFormUnsafe, - getFormUnchecked, setMultiple, getMultiple, setName, getName, - setRequired, getRequired, setSize, getSize, getType, getOptions, - setLength, getLength, getSelectedOptions, setSelectedIndex, - getSelectedIndex, setValue, getValue, getWillValidate, getValidity, - getValidationMessage, getLabels, setAutocomplete, getAutocomplete, - HTMLSelectElement(..), gTypeHTMLSelectElement) + namedItemUnsafe, namedItemUnchecked, addBefore, removeThis, remove, + checkValidity, checkValidity_, reportValidity, reportValidity_, + setCustomValidity, setAutofocus, getAutofocus, setDisabled, + getDisabled, getForm, getFormUnsafe, getFormUnchecked, setMultiple, + getMultiple, setName, getName, setRequired, getRequired, setSize, + getSize, getType, getOptions, setLength, getLength, + getSelectedOptions, setSelectedIndex, getSelectedIndex, setValue, + getValue, getWillValidate, getValidity, getValidationMessage, + getLabels, setAutocomplete, getAutocomplete, HTMLSelectElement(..), + gTypeHTMLSelectElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -99,12 +99,6 @@ -- | removeThis :: (MonadDOM m) => HTMLSelectElement -> m () removeThis self = liftDOM (void (self ^. jsf "remove" ())) - --- | -removeElement :: - (MonadDOM m) => HTMLSelectElement -> HTMLOptionElement -> m () -removeElement self option - = liftDOM (void (self ^. jsf "remove" [toJSVal option])) -- | remove :: (MonadDOM m) => HTMLSelectElement -> Int -> m () diff --git a/src/JSDOM/Generated/HTMLSlotElement.hs b/src/JSDOM/Generated/HTMLSlotElement.hs --- a/src/JSDOM/Generated/HTMLSlotElement.hs +++ b/src/JSDOM/Generated/HTMLSlotElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLSourceElement.hs b/src/JSDOM/Generated/HTMLSourceElement.hs --- a/src/JSDOM/Generated/HTMLSourceElement.hs +++ b/src/JSDOM/Generated/HTMLSourceElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLStyleElement.hs b/src/JSDOM/Generated/HTMLStyleElement.hs --- a/src/JSDOM/Generated/HTMLStyleElement.hs +++ b/src/JSDOM/Generated/HTMLStyleElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLTableCaptionElement.hs b/src/JSDOM/Generated/HTMLTableCaptionElement.hs --- a/src/JSDOM/Generated/HTMLTableCaptionElement.hs +++ b/src/JSDOM/Generated/HTMLTableCaptionElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLTableCellElement.hs b/src/JSDOM/Generated/HTMLTableCellElement.hs --- a/src/JSDOM/Generated/HTMLTableCellElement.hs +++ b/src/JSDOM/Generated/HTMLTableCellElement.hs @@ -4,18 +4,17 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLTableCellElement (getCellIndex, setAlign, getAlign, setAxis, getAxis, setBgColor, - getBgColor, getBgColorUnsafe, getBgColorUnchecked, setCh, getCh, - setChOff, getChOff, setColSpan, getColSpan, setRowSpan, getRowSpan, - setHeaders, getHeaders, setHeight, getHeight, setNoWrap, getNoWrap, - setVAlign, getVAlign, setWidth, getWidth, setAbbr, getAbbr, - setScope, getScope, HTMLTableCellElement(..), - gTypeHTMLTableCellElement) + getBgColor, setCh, getCh, setChOff, getChOff, setColSpan, + getColSpan, setRowSpan, getRowSpan, setHeaders, getHeaders, + setHeight, getHeight, setNoWrap, getNoWrap, setVAlign, getVAlign, + setWidth, getWidth, setAbbr, getAbbr, setScope, getScope, + HTMLTableCellElement(..), gTypeHTMLTableCellElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -55,31 +54,14 @@ -- | setBgColor :: - (MonadDOM m, ToJSString val) => - HTMLTableCellElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLTableCellElement -> val -> m () setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val)) -- | getBgColor :: (MonadDOM m, FromJSString result) => - HTMLTableCellElement -> m (Maybe result) + HTMLTableCellElement -> m result getBgColor self - = liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString) - --- | -getBgColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLTableCellElement -> m result -getBgColorUnsafe self - = liftDOM - (((self ^. js "bgColor") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getBgColorUnchecked :: - (MonadDOM m, FromJSString result) => - HTMLTableCellElement -> m result -getBgColorUnchecked self = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLTableColElement.hs b/src/JSDOM/Generated/HTMLTableColElement.hs --- a/src/JSDOM/Generated/HTMLTableColElement.hs +++ b/src/JSDOM/Generated/HTMLTableColElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLTableElement.hs b/src/JSDOM/Generated/HTMLTableElement.hs --- a/src/JSDOM/Generated/HTMLTableElement.hs +++ b/src/JSDOM/Generated/HTMLTableElement.hs @@ -9,19 +9,16 @@ setCaption, getCaption, getCaptionUnsafe, getCaptionUnchecked, setTHead, getTHead, getTHeadUnsafe, getTHeadUnchecked, setTFoot, getTFoot, getTFootUnsafe, getTFootUnchecked, getRows, getTBodies, - setAlign, getAlign, setBgColor, getBgColor, getBgColorUnsafe, - getBgColorUnchecked, setBorder, getBorder, setCellPadding, - getCellPadding, getCellPaddingUnsafe, getCellPaddingUnchecked, - setCellSpacing, getCellSpacing, getCellSpacingUnsafe, - getCellSpacingUnchecked, setFrame, getFrame, setRules, getRules, - setSummary, getSummary, setWidth, getWidth, HTMLTableElement(..), - gTypeHTMLTableElement) + setAlign, getAlign, setBgColor, getBgColor, setBorder, getBorder, + setCellPadding, getCellPadding, setCellSpacing, getCellSpacing, + setFrame, getFrame, setRules, getRules, setSummary, getSummary, + setWidth, getWidth, HTMLTableElement(..), gTypeHTMLTableElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -201,30 +198,13 @@ -- | setBgColor :: - (MonadDOM m, ToJSString val) => - HTMLTableElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val)) -- | getBgColor :: - (MonadDOM m, FromJSString result) => - HTMLTableElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getBgColor self - = liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString) - --- | -getBgColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLTableElement -> m result -getBgColorUnsafe self - = liftDOM - (((self ^. js "bgColor") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getBgColorUnchecked :: - (MonadDOM m, FromJSString result) => HTMLTableElement -> m result -getBgColorUnchecked self = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked) -- | @@ -240,60 +220,26 @@ -- | setCellPadding :: - (MonadDOM m, ToJSString val) => - HTMLTableElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setCellPadding self val = liftDOM (self ^. jss "cellPadding" (toJSVal val)) -- | getCellPadding :: - (MonadDOM m, FromJSString result) => - HTMLTableElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getCellPadding self - = liftDOM ((self ^. js "cellPadding") >>= fromMaybeJSString) - --- | -getCellPaddingUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLTableElement -> m result -getCellPaddingUnsafe self - = liftDOM - (((self ^. js "cellPadding") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getCellPaddingUnchecked :: - (MonadDOM m, FromJSString result) => HTMLTableElement -> m result -getCellPaddingUnchecked self = liftDOM ((self ^. js "cellPadding") >>= fromJSValUnchecked) -- | setCellSpacing :: - (MonadDOM m, ToJSString val) => - HTMLTableElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLTableElement -> val -> m () setCellSpacing self val = liftDOM (self ^. jss "cellSpacing" (toJSVal val)) -- | getCellSpacing :: - (MonadDOM m, FromJSString result) => - HTMLTableElement -> m (Maybe result) + (MonadDOM m, FromJSString result) => HTMLTableElement -> m result getCellSpacing self - = liftDOM ((self ^. js "cellSpacing") >>= fromMaybeJSString) - --- | -getCellSpacingUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLTableElement -> m result -getCellSpacingUnsafe self - = liftDOM - (((self ^. js "cellSpacing") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getCellSpacingUnchecked :: - (MonadDOM m, FromJSString result) => HTMLTableElement -> m result -getCellSpacingUnchecked self = liftDOM ((self ^. js "cellSpacing") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLTableRowElement.hs b/src/JSDOM/Generated/HTMLTableRowElement.hs --- a/src/JSDOM/Generated/HTMLTableRowElement.hs +++ b/src/JSDOM/Generated/HTMLTableRowElement.hs @@ -5,15 +5,14 @@ module JSDOM.Generated.HTMLTableRowElement (insertCell, insertCell_, deleteCell, getRowIndex, getSectionRowIndex, getCells, setAlign, getAlign, setBgColor, - getBgColor, getBgColorUnsafe, getBgColorUnchecked, setCh, getCh, - setChOff, getChOff, setVAlign, getVAlign, HTMLTableRowElement(..), - gTypeHTMLTableRowElement) + getBgColor, setCh, getCh, setChOff, getChOff, setVAlign, getVAlign, + HTMLTableRowElement(..), gTypeHTMLTableRowElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -71,31 +70,14 @@ -- | setBgColor :: - (MonadDOM m, ToJSString val) => - HTMLTableRowElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLTableRowElement -> val -> m () setBgColor self val = liftDOM (self ^. jss "bgColor" (toJSVal val)) -- | getBgColor :: (MonadDOM m, FromJSString result) => - HTMLTableRowElement -> m (Maybe result) + HTMLTableRowElement -> m result getBgColor self - = liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString) - --- | -getBgColorUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLTableRowElement -> m result -getBgColorUnsafe self - = liftDOM - (((self ^. js "bgColor") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getBgColorUnchecked :: - (MonadDOM m, FromJSString result) => - HTMLTableRowElement -> m result -getBgColorUnchecked self = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLTableSectionElement.hs b/src/JSDOM/Generated/HTMLTableSectionElement.hs --- a/src/JSDOM/Generated/HTMLTableSectionElement.hs +++ b/src/JSDOM/Generated/HTMLTableSectionElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLTemplateElement.hs b/src/JSDOM/Generated/HTMLTemplateElement.hs --- a/src/JSDOM/Generated/HTMLTemplateElement.hs +++ b/src/JSDOM/Generated/HTMLTemplateElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLTextAreaElement.hs b/src/JSDOM/Generated/HTMLTextAreaElement.hs --- a/src/JSDOM/Generated/HTMLTextAreaElement.hs +++ b/src/JSDOM/Generated/HTMLTextAreaElement.hs @@ -11,18 +11,17 @@ setPlaceholder, getPlaceholder, setReadOnly, getReadOnly, setRequired, getRequired, setRows, getRows, setCols, getCols, setWrap, getWrap, getType, setDefaultValue, getDefaultValue, - setValue, getValue, getValueUnsafe, getValueUnchecked, - getTextLength, getWillValidate, getValidity, getValidationMessage, - getLabels, setSelectionStart, getSelectionStart, setSelectionEnd, - getSelectionEnd, setSelectionDirection, getSelectionDirection, - setAutocomplete, getAutocomplete, HTMLTextAreaElement(..), - gTypeHTMLTextAreaElement) + setValue, getValue, getTextLength, getWillValidate, getValidity, + getValidationMessage, getLabels, setSelectionStart, + getSelectionStart, setSelectionEnd, getSelectionEnd, + setSelectionDirection, getSelectionDirection, setAutocomplete, + getAutocomplete, HTMLTextAreaElement(..), gTypeHTMLTextAreaElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -240,31 +239,14 @@ -- | setValue :: - (MonadDOM m, ToJSString val) => - HTMLTextAreaElement -> Maybe val -> m () + (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m () setValue self val = liftDOM (self ^. jss "value" (toJSVal val)) -- | getValue :: (MonadDOM m, FromJSString result) => - HTMLTextAreaElement -> m (Maybe result) + HTMLTextAreaElement -> m result getValue self - = liftDOM ((self ^. js "value") >>= fromMaybeJSString) - --- | -getValueUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - HTMLTextAreaElement -> m result -getValueUnsafe self - = liftDOM - (((self ^. js "value") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getValueUnchecked :: - (MonadDOM m, FromJSString result) => - HTMLTextAreaElement -> m result -getValueUnchecked self = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/HTMLTimeElement.hs b/src/JSDOM/Generated/HTMLTimeElement.hs --- a/src/JSDOM/Generated/HTMLTimeElement.hs +++ b/src/JSDOM/Generated/HTMLTimeElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLTitleElement.hs b/src/JSDOM/Generated/HTMLTitleElement.hs --- a/src/JSDOM/Generated/HTMLTitleElement.hs +++ b/src/JSDOM/Generated/HTMLTitleElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLTrackElement.hs b/src/JSDOM/Generated/HTMLTrackElement.hs --- a/src/JSDOM/Generated/HTMLTrackElement.hs +++ b/src/JSDOM/Generated/HTMLTrackElement.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLUListElement.hs b/src/JSDOM/Generated/HTMLUListElement.hs --- a/src/JSDOM/Generated/HTMLUListElement.hs +++ b/src/JSDOM/Generated/HTMLUListElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HTMLVideoElement.hs b/src/JSDOM/Generated/HTMLVideoElement.hs --- a/src/JSDOM/Generated/HTMLVideoElement.hs +++ b/src/JSDOM/Generated/HTMLVideoElement.hs @@ -19,7 +19,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/HashChangeEvent.hs b/src/JSDOM/Generated/HashChangeEvent.hs --- a/src/JSDOM/Generated/HashChangeEvent.hs +++ b/src/JSDOM/Generated/HashChangeEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Headers.hs b/src/JSDOM/Generated/Headers.hs --- a/src/JSDOM/Generated/Headers.hs +++ b/src/JSDOM/Generated/Headers.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/History.hs b/src/JSDOM/Generated/History.hs --- a/src/JSDOM/Generated/History.hs +++ b/src/JSDOM/Generated/History.hs @@ -3,14 +3,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.History - (back, forward, go, pushState, replaceState, getLength, getState, - History(..), gTypeHistory) + (back, forward, go, pushState, replaceState, getLength, + setScrollRestoration, getScrollRestoration, getState, History(..), + gTypeHistory) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -57,6 +58,18 @@ getLength :: (MonadDOM m) => History -> m Word getLength self = liftDOM (round <$> ((self ^. js "length") >>= valToNumber)) + +-- | +setScrollRestoration :: + (MonadDOM m) => History -> ScrollRestoration -> m () +setScrollRestoration self val + = liftDOM (self ^. jss "scrollRestoration" (toJSVal val)) + +-- | +getScrollRestoration :: + (MonadDOM m) => History -> m ScrollRestoration +getScrollRestoration self + = liftDOM ((self ^. js "scrollRestoration") >>= fromJSValUnchecked) -- | getState :: (MonadDOM m) => History -> m SerializedScriptValue diff --git a/src/JSDOM/Generated/IDBCursor.hs b/src/JSDOM/Generated/IDBCursor.hs --- a/src/JSDOM/Generated/IDBCursor.hs +++ b/src/JSDOM/Generated/IDBCursor.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBCursorWithValue.hs b/src/JSDOM/Generated/IDBCursorWithValue.hs --- a/src/JSDOM/Generated/IDBCursorWithValue.hs +++ b/src/JSDOM/Generated/IDBCursorWithValue.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBDatabase.hs b/src/JSDOM/Generated/IDBDatabase.hs --- a/src/JSDOM/Generated/IDBDatabase.hs +++ b/src/JSDOM/Generated/IDBDatabase.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBFactory.hs b/src/JSDOM/Generated/IDBFactory.hs --- a/src/JSDOM/Generated/IDBFactory.hs +++ b/src/JSDOM/Generated/IDBFactory.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBIndex.hs b/src/JSDOM/Generated/IDBIndex.hs --- a/src/JSDOM/Generated/IDBIndex.hs +++ b/src/JSDOM/Generated/IDBIndex.hs @@ -17,7 +17,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBKeyRange.hs b/src/JSDOM/Generated/IDBKeyRange.hs --- a/src/JSDOM/Generated/IDBKeyRange.hs +++ b/src/JSDOM/Generated/IDBKeyRange.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBObjectStore.hs b/src/JSDOM/Generated/IDBObjectStore.hs --- a/src/JSDOM/Generated/IDBObjectStore.hs +++ b/src/JSDOM/Generated/IDBObjectStore.hs @@ -19,7 +19,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBOpenDBRequest.hs b/src/JSDOM/Generated/IDBOpenDBRequest.hs --- a/src/JSDOM/Generated/IDBOpenDBRequest.hs +++ b/src/JSDOM/Generated/IDBOpenDBRequest.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBRequest.hs b/src/JSDOM/Generated/IDBRequest.hs --- a/src/JSDOM/Generated/IDBRequest.hs +++ b/src/JSDOM/Generated/IDBRequest.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBTransaction.hs b/src/JSDOM/Generated/IDBTransaction.hs --- a/src/JSDOM/Generated/IDBTransaction.hs +++ b/src/JSDOM/Generated/IDBTransaction.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IDBVersionChangeEvent.hs b/src/JSDOM/Generated/IDBVersionChangeEvent.hs --- a/src/JSDOM/Generated/IDBVersionChangeEvent.hs +++ b/src/JSDOM/Generated/IDBVersionChangeEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ImageData.hs b/src/JSDOM/Generated/ImageData.hs --- a/src/JSDOM/Generated/ImageData.hs +++ b/src/JSDOM/Generated/ImageData.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/InputEvent.hs b/src/JSDOM/Generated/InputEvent.hs --- a/src/JSDOM/Generated/InputEvent.hs +++ b/src/JSDOM/Generated/InputEvent.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/InspectorFrontendHost.hs b/src/JSDOM/Generated/InspectorFrontendHost.hs --- a/src/JSDOM/Generated/InspectorFrontendHost.hs +++ b/src/JSDOM/Generated/InspectorFrontendHost.hs @@ -21,7 +21,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IntersectionObserver.hs b/src/JSDOM/Generated/IntersectionObserver.hs --- a/src/JSDOM/Generated/IntersectionObserver.hs +++ b/src/JSDOM/Generated/IntersectionObserver.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/IntersectionObserverCallback.hs b/src/JSDOM/Generated/IntersectionObserverCallback.hs --- a/src/JSDOM/Generated/IntersectionObserverCallback.hs +++ b/src/JSDOM/Generated/IntersectionObserverCallback.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -61,7 +61,7 @@ newIntersectionObserverCallbackAsync callback = liftDOM (IntersectionObserverCallback . Callback <$> - function + asyncFunction (\ _ _ [entries, observer] -> fromJSValUnchecked observer >>= \ observer' -> diff --git a/src/JSDOM/Generated/IntersectionObserverEntry.hs b/src/JSDOM/Generated/IntersectionObserverEntry.hs --- a/src/JSDOM/Generated/IntersectionObserverEntry.hs +++ b/src/JSDOM/Generated/IntersectionObserverEntry.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/KeyboardEvent.hs b/src/JSDOM/Generated/KeyboardEvent.hs --- a/src/JSDOM/Generated/KeyboardEvent.hs +++ b/src/JSDOM/Generated/KeyboardEvent.hs @@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/KeyframeEffect.hs b/src/JSDOM/Generated/KeyframeEffect.hs --- a/src/JSDOM/Generated/KeyframeEffect.hs +++ b/src/JSDOM/Generated/KeyframeEffect.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Location.hs b/src/JSDOM/Generated/Location.hs --- a/src/JSDOM/Generated/Location.hs +++ b/src/JSDOM/Generated/Location.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaController.hs b/src/JSDOM/Generated/MediaController.hs --- a/src/JSDOM/Generated/MediaController.hs +++ b/src/JSDOM/Generated/MediaController.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaControlsHost.hs b/src/JSDOM/Generated/MediaControlsHost.hs --- a/src/JSDOM/Generated/MediaControlsHost.hs +++ b/src/JSDOM/Generated/MediaControlsHost.hs @@ -8,13 +8,14 @@ displayNameForTrack, displayNameForTrack_, setSelectedTextTrack, setPreparedToReturnVideoLayerToInline, updateTextTrackContainer, enteredFullscreen, exitedFullscreen, generateUUID, generateUUID_, - base64StringForIconAndPlatform, base64StringForIconAndPlatform_, + base64StringForIconNameAndType, base64StringForIconNameAndType_, getCaptionMenuOffItem, getCaptionMenuAutomaticItem, getCaptionDisplayMode, getTextTrackContainer, getAllowsInlineMediaPlayback, getSupportsFullscreen, getIsVideoLayerInline, getUserGestureRequired, - getIsInMediaDocument, getExternalDeviceDisplayName, - getExternalDeviceType, setControlsDependOnPageScaleFactor, + getIsInMediaDocument, getShouldForceControlsDisplay, + getExternalDeviceDisplayName, getExternalDeviceType, + setControlsDependOnPageScaleFactor, getControlsDependOnPageScaleFactor, getShadowRootCSSText, MediaControlsHost(..), gTypeMediaControlsHost) where @@ -22,7 +23,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -122,26 +123,26 @@ generateUUID_ :: (MonadDOM m) => MediaControlsHost -> m () generateUUID_ self = liftDOM (void (self ^. jsf "generateUUID" ())) --- | -base64StringForIconAndPlatform :: - (MonadDOM m, ToJSString iconName, ToJSString platform, +-- | +base64StringForIconNameAndType :: + (MonadDOM m, ToJSString iconName, ToJSString iconType, FromJSString result) => - MediaControlsHost -> iconName -> platform -> m result -base64StringForIconAndPlatform self iconName platform + MediaControlsHost -> iconName -> iconType -> m result +base64StringForIconNameAndType self iconName iconType = liftDOM - ((self ^. jsf "base64StringForIconAndPlatform" - [toJSVal iconName, toJSVal platform]) + ((self ^. jsf "base64StringForIconNameAndType" + [toJSVal iconName, toJSVal iconType]) >>= fromJSValUnchecked) --- | -base64StringForIconAndPlatform_ :: - (MonadDOM m, ToJSString iconName, ToJSString platform) => - MediaControlsHost -> iconName -> platform -> m () -base64StringForIconAndPlatform_ self iconName platform +-- | +base64StringForIconNameAndType_ :: + (MonadDOM m, ToJSString iconName, ToJSString iconType) => + MediaControlsHost -> iconName -> iconType -> m () +base64StringForIconNameAndType_ self iconName iconType = liftDOM (void - (self ^. jsf "base64StringForIconAndPlatform" - [toJSVal iconName, toJSVal platform])) + (self ^. jsf "base64StringForIconNameAndType" + [toJSVal iconName, toJSVal iconType])) -- | getCaptionMenuOffItem :: @@ -199,6 +200,12 @@ getIsInMediaDocument :: (MonadDOM m) => MediaControlsHost -> m Bool getIsInMediaDocument self = liftDOM ((self ^. js "isInMediaDocument") >>= valToBool) + +-- | +getShouldForceControlsDisplay :: + (MonadDOM m) => MediaControlsHost -> m Bool +getShouldForceControlsDisplay self + = liftDOM ((self ^. js "shouldForceControlsDisplay") >>= valToBool) -- | getExternalDeviceDisplayName :: diff --git a/src/JSDOM/Generated/MediaDeviceInfo.hs b/src/JSDOM/Generated/MediaDeviceInfo.hs --- a/src/JSDOM/Generated/MediaDeviceInfo.hs +++ b/src/JSDOM/Generated/MediaDeviceInfo.hs @@ -3,14 +3,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaDeviceInfo - (newMediaDeviceInfo, getDeviceId, getGroupId, getKind, getLabel, + (newMediaDeviceInfo, getDeviceId, getKind, getLabel, getGroupId, MediaDeviceInfo(..), gTypeMediaDeviceInfo) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -38,12 +38,6 @@ getDeviceId self = liftDOM ((self ^. js "deviceId") >>= fromJSValUnchecked) --- | -getGroupId :: - (MonadDOM m, FromJSString result) => MediaDeviceInfo -> m result -getGroupId self - = liftDOM ((self ^. js "groupId") >>= fromJSValUnchecked) - -- | getKind :: (MonadDOM m) => MediaDeviceInfo -> m MediaDeviceKind getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked) @@ -53,3 +47,9 @@ (MonadDOM m, FromJSString result) => MediaDeviceInfo -> m result getLabel self = liftDOM ((self ^. js "label") >>= fromJSValUnchecked) + +-- | +getGroupId :: + (MonadDOM m, FromJSString result) => MediaDeviceInfo -> m result +getGroupId self + = liftDOM ((self ^. js "groupId") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaDevices.hs b/src/JSDOM/Generated/MediaDevices.hs --- a/src/JSDOM/Generated/MediaDevices.hs +++ b/src/JSDOM/Generated/MediaDevices.hs @@ -3,15 +3,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaDevices - (getSupportedConstraints, getSupportedConstraints_, getUserMedia, - getUserMedia_, enumerateDevices, enumerateDevices_, - MediaDevices(..), gTypeMediaDevices) + (enumerateDevices, enumerateDevices_, getSupportedConstraints, + getSupportedConstraints_, getUserMedia, getUserMedia_, + devicechange, MediaDevices(..), gTypeMediaDevices) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -21,6 +21,19 @@ import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums +-- | +enumerateDevices :: + (MonadDOM m) => MediaDevices -> m [MediaDeviceInfo] +enumerateDevices self + = liftDOM + (((self ^. jsf "enumerateDevices" ()) >>= readPromise) >>= + fromJSArrayUnchecked) + +-- | +enumerateDevices_ :: (MonadDOM m) => MediaDevices -> m () +enumerateDevices_ self + = liftDOM (void (self ^. jsf "enumerateDevices" ())) + -- | getSupportedConstraints :: (MonadDOM m) => MediaDevices -> m MediaTrackSupportedConstraints @@ -50,15 +63,6 @@ getUserMedia_ self constraints = liftDOM (void (self ^. jsf "getUserMedia" [toJSVal constraints])) --- | -enumerateDevices :: - (MonadDOM m) => MediaDevices -> m [MediaDeviceInfo] -enumerateDevices self - = liftDOM - (((self ^. jsf "enumerateDevices" ()) >>= readPromise) >>= - fromJSArrayUnchecked) - --- | -enumerateDevices_ :: (MonadDOM m) => MediaDevices -> m () -enumerateDevices_ self - = liftDOM (void (self ^. jsf "enumerateDevices" ())) +-- | +devicechange :: EventName MediaDevices ondevicechange +devicechange = unsafeEventName (toJSString "devicechange") diff --git a/src/JSDOM/Generated/MediaElementAudioSourceNode.hs b/src/JSDOM/Generated/MediaElementAudioSourceNode.hs --- a/src/JSDOM/Generated/MediaElementAudioSourceNode.hs +++ b/src/JSDOM/Generated/MediaElementAudioSourceNode.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaEncryptedEvent.hs b/src/JSDOM/Generated/MediaEncryptedEvent.hs --- a/src/JSDOM/Generated/MediaEncryptedEvent.hs +++ b/src/JSDOM/Generated/MediaEncryptedEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaError.hs b/src/JSDOM/Generated/MediaError.hs --- a/src/JSDOM/Generated/MediaError.hs +++ b/src/JSDOM/Generated/MediaError.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaKeyMessageEvent.hs b/src/JSDOM/Generated/MediaKeyMessageEvent.hs --- a/src/JSDOM/Generated/MediaKeyMessageEvent.hs +++ b/src/JSDOM/Generated/MediaKeyMessageEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaKeySession.hs b/src/JSDOM/Generated/MediaKeySession.hs --- a/src/JSDOM/Generated/MediaKeySession.hs +++ b/src/JSDOM/Generated/MediaKeySession.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaKeyStatusMap.hs b/src/JSDOM/Generated/MediaKeyStatusMap.hs --- a/src/JSDOM/Generated/MediaKeyStatusMap.hs +++ b/src/JSDOM/Generated/MediaKeyStatusMap.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaKeySystemAccess.hs b/src/JSDOM/Generated/MediaKeySystemAccess.hs --- a/src/JSDOM/Generated/MediaKeySystemAccess.hs +++ b/src/JSDOM/Generated/MediaKeySystemAccess.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaKeys.hs b/src/JSDOM/Generated/MediaKeys.hs --- a/src/JSDOM/Generated/MediaKeys.hs +++ b/src/JSDOM/Generated/MediaKeys.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaList.hs b/src/JSDOM/Generated/MediaList.hs --- a/src/JSDOM/Generated/MediaList.hs +++ b/src/JSDOM/Generated/MediaList.hs @@ -4,14 +4,14 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaList (item, item_, itemUnsafe, itemUnchecked, deleteMedium, - appendMedium, setMediaText, getMediaText, getMediaTextUnsafe, - getMediaTextUnchecked, getLength, MediaList(..), gTypeMediaList) + appendMedium, setMediaText, getMediaText, getLength, MediaList(..), + gTypeMediaList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -65,29 +65,14 @@ -- | setMediaText :: - (MonadDOM m, ToJSString val) => MediaList -> Maybe val -> m () + (MonadDOM m, ToJSString val) => MediaList -> val -> m () setMediaText self val = liftDOM (self ^. jss "mediaText" (toJSVal val)) -- | getMediaText :: - (MonadDOM m, FromJSString result) => MediaList -> m (Maybe result) + (MonadDOM m, FromJSString result) => MediaList -> m result getMediaText self - = liftDOM ((self ^. js "mediaText") >>= fromMaybeJSString) - --- | -getMediaTextUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - MediaList -> m result -getMediaTextUnsafe self - = liftDOM - (((self ^. js "mediaText") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getMediaTextUnchecked :: - (MonadDOM m, FromJSString result) => MediaList -> m result -getMediaTextUnchecked self = liftDOM ((self ^. js "mediaText") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/MediaQueryList.hs b/src/JSDOM/Generated/MediaQueryList.hs --- a/src/JSDOM/Generated/MediaQueryList.hs +++ b/src/JSDOM/Generated/MediaQueryList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaQueryListListener.hs b/src/JSDOM/Generated/MediaQueryListListener.hs --- a/src/JSDOM/Generated/MediaQueryListListener.hs +++ b/src/JSDOM/Generated/MediaQueryListListener.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -47,5 +47,5 @@ newMediaQueryListListenerAsync callback = liftDOM (MediaQueryListListener . Callback <$> - function + asyncFunction (\ _ _ [list] -> fromJSVal list >>= \ list' -> callback list')) diff --git a/src/JSDOM/Generated/MediaRemoteControls.hs b/src/JSDOM/Generated/MediaRemoteControls.hs --- a/src/JSDOM/Generated/MediaRemoteControls.hs +++ b/src/JSDOM/Generated/MediaRemoteControls.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaSession.hs b/src/JSDOM/Generated/MediaSession.hs --- a/src/JSDOM/Generated/MediaSession.hs +++ b/src/JSDOM/Generated/MediaSession.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaSource.hs b/src/JSDOM/Generated/MediaSource.hs --- a/src/JSDOM/Generated/MediaSource.hs +++ b/src/JSDOM/Generated/MediaSource.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -107,8 +107,7 @@ = liftDOM ((self ^. js "duration") >>= valToNumber) -- | -getReadyState :: - (MonadDOM m, FromJSString result) => MediaSource -> m result +getReadyState :: (MonadDOM m) => MediaSource -> m ReadyState getReadyState self = liftDOM ((self ^. js "readyState") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaStream.hs b/src/JSDOM/Generated/MediaStream.hs --- a/src/JSDOM/Generated/MediaStream.hs +++ b/src/JSDOM/Generated/MediaStream.hs @@ -6,14 +6,14 @@ (newMediaStream, newMediaStream', newMediaStream'', getAudioTracks, getAudioTracks_, getVideoTracks, getVideoTracks_, getTracks, getTracks_, getTrackById, getTrackById_, addTrack, removeTrack, - clone, clone_, getId, getActive, active, inactive, addTrackEvent, - removeTrackEvent, MediaStream(..), gTypeMediaStream) + clone, clone_, getId, getActive, addTrackEvent, removeTrackEvent, + active, inactive, MediaStream(..), gTypeMediaStream) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -36,7 +36,8 @@ -- | newMediaStream'' :: - (MonadDOM m) => [MediaStreamTrack] -> m MediaStream + (MonadDOM m, IsMediaStreamTrack tracks) => + [tracks] -> m MediaStream newMediaStream'' tracks = liftDOM (MediaStream <$> new (jsg "MediaStream") [toJSVal (array tracks)]) @@ -90,13 +91,16 @@ = liftDOM (void (self ^. jsf "getTrackById" [toJSVal trackId])) -- | -addTrack :: (MonadDOM m) => MediaStream -> MediaStreamTrack -> m () +addTrack :: + (MonadDOM m, IsMediaStreamTrack track) => + MediaStream -> track -> m () addTrack self track = liftDOM (void (self ^. jsf "addTrack" [toJSVal track])) -- | removeTrack :: - (MonadDOM m) => MediaStream -> MediaStreamTrack -> m () + (MonadDOM m, IsMediaStreamTrack track) => + MediaStream -> track -> m () removeTrack self track = liftDOM (void (self ^. jsf "removeTrack" [toJSVal track])) @@ -118,14 +122,6 @@ getActive :: (MonadDOM m) => MediaStream -> m Bool getActive self = liftDOM ((self ^. js "active") >>= valToBool) --- | -active :: EventName MediaStream Event -active = unsafeEventName (toJSString "active") - --- | -inactive :: EventName MediaStream Event -inactive = unsafeEventName (toJSString "inactive") - -- | addTrackEvent :: EventName MediaStream Event addTrackEvent = unsafeEventName (toJSString "addtrack") @@ -133,3 +129,11 @@ -- | removeTrackEvent :: EventName MediaStream Event removeTrackEvent = unsafeEventName (toJSString "removetrack") + +-- | +active :: EventName MediaStream Event +active = unsafeEventName (toJSString "active") + +-- | +inactive :: EventName MediaStream Event +inactive = unsafeEventName (toJSString "inactive") diff --git a/src/JSDOM/Generated/MediaStreamAudioDestinationNode.hs b/src/JSDOM/Generated/MediaStreamAudioDestinationNode.hs --- a/src/JSDOM/Generated/MediaStreamAudioDestinationNode.hs +++ b/src/JSDOM/Generated/MediaStreamAudioDestinationNode.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaStreamAudioSourceNode.hs b/src/JSDOM/Generated/MediaStreamAudioSourceNode.hs --- a/src/JSDOM/Generated/MediaStreamAudioSourceNode.hs +++ b/src/JSDOM/Generated/MediaStreamAudioSourceNode.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaStreamEvent.hs b/src/JSDOM/Generated/MediaStreamEvent.hs --- a/src/JSDOM/Generated/MediaStreamEvent.hs +++ b/src/JSDOM/Generated/MediaStreamEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MediaStreamTrack.hs b/src/JSDOM/Generated/MediaStreamTrack.hs --- a/src/JSDOM/Generated/MediaStreamTrack.hs +++ b/src/JSDOM/Generated/MediaStreamTrack.hs @@ -3,17 +3,18 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaStreamTrack - (clone, clone_, stop, getConstraints, getConstraints_, getSettings, - getSettings_, getCapabilities, getCapabilities_, applyConstraints, - getKind, getId, getLabel, setEnabled, getEnabled, getMuted, mute, - unmute, get_readonly, getRemote, getReadyState, ended, - overConstrained, MediaStreamTrack(..), gTypeMediaStreamTrack) + (clone, clone_, stop, getCapabilities, getCapabilities_, + getConstraints, getConstraints_, getSettings, getSettings_, + applyConstraints, getKind, getId, getLabel, setEnabled, getEnabled, + getMuted, mute, unmute, getReadyState, ended, overConstrained, + MediaStreamTrack(..), gTypeMediaStreamTrack, IsMediaStreamTrack, + toMediaStreamTrack) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -24,117 +25,154 @@ import JSDOM.Enums -- | -clone :: (MonadDOM m) => MediaStreamTrack -> m MediaStreamTrack +clone :: + (MonadDOM m, IsMediaStreamTrack self) => self -> m MediaStreamTrack clone self - = liftDOM ((self ^. jsf "clone" ()) >>= fromJSValUnchecked) + = liftDOM + (((toMediaStreamTrack self) ^. jsf "clone" ()) >>= + fromJSValUnchecked) -- | -clone_ :: (MonadDOM m) => MediaStreamTrack -> m () -clone_ self = liftDOM (void (self ^. jsf "clone" ())) +clone_ :: (MonadDOM m, IsMediaStreamTrack self) => self -> m () +clone_ self + = liftDOM (void ((toMediaStreamTrack self) ^. jsf "clone" ())) -- | -stop :: (MonadDOM m) => MediaStreamTrack -> m () -stop self = liftDOM (void (self ^. jsf "stop" ())) +stop :: (MonadDOM m, IsMediaStreamTrack self) => self -> m () +stop self + = liftDOM (void ((toMediaStreamTrack self) ^. jsf "stop" ())) +-- | +getCapabilities :: + (MonadDOM m, IsMediaStreamTrack self) => + self -> m MediaTrackCapabilities +getCapabilities self + = liftDOM + (((toMediaStreamTrack self) ^. jsf "getCapabilities" ()) >>= + fromJSValUnchecked) + +-- | +getCapabilities_ :: + (MonadDOM m, IsMediaStreamTrack self) => self -> m () +getCapabilities_ self + = liftDOM + (void ((toMediaStreamTrack self) ^. jsf "getCapabilities" ())) + -- | getConstraints :: - (MonadDOM m) => MediaStreamTrack -> m MediaTrackConstraints + (MonadDOM m, IsMediaStreamTrack self) => + self -> m MediaTrackConstraints getConstraints self = liftDOM - ((self ^. jsf "getConstraints" ()) >>= fromJSValUnchecked) + (((toMediaStreamTrack self) ^. jsf "getConstraints" ()) >>= + fromJSValUnchecked) -- | -getConstraints_ :: (MonadDOM m) => MediaStreamTrack -> m () +getConstraints_ :: + (MonadDOM m, IsMediaStreamTrack self) => self -> m () getConstraints_ self - = liftDOM (void (self ^. jsf "getConstraints" ())) + = liftDOM + (void ((toMediaStreamTrack self) ^. jsf "getConstraints" ())) -- | getSettings :: - (MonadDOM m) => MediaStreamTrack -> m MediaTrackSettings + (MonadDOM m, IsMediaStreamTrack self) => + self -> m MediaTrackSettings getSettings self - = liftDOM ((self ^. jsf "getSettings" ()) >>= fromJSValUnchecked) + = liftDOM + (((toMediaStreamTrack self) ^. jsf "getSettings" ()) >>= + fromJSValUnchecked) -- | -getSettings_ :: (MonadDOM m) => MediaStreamTrack -> m () -getSettings_ self = liftDOM (void (self ^. jsf "getSettings" ())) - --- | -getCapabilities :: - (MonadDOM m) => MediaStreamTrack -> m MediaTrackCapabilities -getCapabilities self +getSettings_ :: + (MonadDOM m, IsMediaStreamTrack self) => self -> m () +getSettings_ self = liftDOM - ((self ^. jsf "getCapabilities" ()) >>= fromJSValUnchecked) - --- | -getCapabilities_ :: (MonadDOM m) => MediaStreamTrack -> m () -getCapabilities_ self - = liftDOM (void (self ^. jsf "getCapabilities" ())) + (void ((toMediaStreamTrack self) ^. jsf "getSettings" ())) -- | applyConstraints :: - (MonadDOM m) => - MediaStreamTrack -> Maybe MediaTrackConstraints -> m () + (MonadDOM m, IsMediaStreamTrack self) => + self -> Maybe MediaTrackConstraints -> m () applyConstraints self constraints = liftDOM (void - ((self ^. jsf "applyConstraints" [toJSVal constraints]) >>= - readPromise)) + (((toMediaStreamTrack self) ^. jsf "applyConstraints" + [toJSVal constraints]) + >>= readPromise)) -- | getKind :: - (MonadDOM m, FromJSString result) => MediaStreamTrack -> m result -getKind self = liftDOM ((self ^. js "kind") >>= fromJSValUnchecked) + (MonadDOM m, IsMediaStreamTrack self, FromJSString result) => + self -> m result +getKind self + = liftDOM + (((toMediaStreamTrack self) ^. js "kind") >>= fromJSValUnchecked) -- | getId :: - (MonadDOM m, FromJSString result) => MediaStreamTrack -> m result -getId self = liftDOM ((self ^. js "id") >>= fromJSValUnchecked) + (MonadDOM m, IsMediaStreamTrack self, FromJSString result) => + self -> m result +getId self + = liftDOM + (((toMediaStreamTrack self) ^. js "id") >>= fromJSValUnchecked) -- | getLabel :: - (MonadDOM m, FromJSString result) => MediaStreamTrack -> m result + (MonadDOM m, IsMediaStreamTrack self, FromJSString result) => + self -> m result getLabel self - = liftDOM ((self ^. js "label") >>= fromJSValUnchecked) + = liftDOM + (((toMediaStreamTrack self) ^. js "label") >>= fromJSValUnchecked) -- | -setEnabled :: (MonadDOM m) => MediaStreamTrack -> Bool -> m () -setEnabled self val = liftDOM (self ^. jss "enabled" (toJSVal val)) +setEnabled :: + (MonadDOM m, IsMediaStreamTrack self) => self -> Bool -> m () +setEnabled self val + = liftDOM + ((toMediaStreamTrack self) ^. jss "enabled" (toJSVal val)) -- | -getEnabled :: (MonadDOM m) => MediaStreamTrack -> m Bool -getEnabled self = liftDOM ((self ^. js "enabled") >>= valToBool) +getEnabled :: + (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool +getEnabled self + = liftDOM + (((toMediaStreamTrack self) ^. js "enabled") >>= valToBool) -- | -getMuted :: (MonadDOM m) => MediaStreamTrack -> m Bool -getMuted self = liftDOM ((self ^. js "muted") >>= valToBool) +getMuted :: (MonadDOM m, IsMediaStreamTrack self) => self -> m Bool +getMuted self + = liftDOM (((toMediaStreamTrack self) ^. js "muted") >>= valToBool) -- | -mute :: EventName MediaStreamTrack Event +mute :: + (IsMediaStreamTrack self, IsEventTarget self) => + EventName self Event mute = unsafeEventName (toJSString "mute") -- | -unmute :: EventName MediaStreamTrack Event +unmute :: + (IsMediaStreamTrack self, IsEventTarget self) => + EventName self Event unmute = unsafeEventName (toJSString "unmute") --- | -get_readonly :: (MonadDOM m) => MediaStreamTrack -> m Bool -get_readonly self - = liftDOM ((self ^. js "_readonly") >>= valToBool) - --- | -getRemote :: (MonadDOM m) => MediaStreamTrack -> m Bool -getRemote self = liftDOM ((self ^. js "remote") >>= valToBool) - -- | getReadyState :: - (MonadDOM m) => MediaStreamTrack -> m MediaStreamTrackState + (MonadDOM m, IsMediaStreamTrack self) => + self -> m MediaStreamTrackState getReadyState self - = liftDOM ((self ^. js "readyState") >>= fromJSValUnchecked) + = liftDOM + (((toMediaStreamTrack self) ^. js "readyState") >>= + fromJSValUnchecked) -- | -ended :: EventName MediaStreamTrack Event +ended :: + (IsMediaStreamTrack self, IsEventTarget self) => + EventName self Event ended = unsafeEventName (toJSString "ended") -- | -overConstrained :: EventName MediaStreamTrack Event +overConstrained :: + (IsMediaStreamTrack self, IsEventTarget self) => + EventName self Event overConstrained = unsafeEventName (toJSString "overconstrained") diff --git a/src/JSDOM/Generated/MediaStreamTrackEvent.hs b/src/JSDOM/Generated/MediaStreamTrackEvent.hs --- a/src/JSDOM/Generated/MediaStreamTrackEvent.hs +++ b/src/JSDOM/Generated/MediaStreamTrackEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MessageChannel.hs b/src/JSDOM/Generated/MessageChannel.hs --- a/src/JSDOM/Generated/MessageChannel.hs +++ b/src/JSDOM/Generated/MessageChannel.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MessageEvent.hs b/src/JSDOM/Generated/MessageEvent.hs --- a/src/JSDOM/Generated/MessageEvent.hs +++ b/src/JSDOM/Generated/MessageEvent.hs @@ -3,16 +3,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MessageEvent - (newMessageEvent, initMessageEvent, webkitInitMessageEvent, - getOrigin, getLastEventId, getSource, getSourceUnsafe, - getSourceUnchecked, getData, getPorts, MessageEvent(..), - gTypeMessageEvent) + (newMessageEvent, initMessageEvent, getOrigin, getLastEventId, + getSource, getSourceUnsafe, getSourceUnchecked, getData, getPorts, + MessageEvent(..), gTypeMessageEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -50,28 +49,6 @@ [toJSVal type', toJSVal bubbles, toJSVal cancelable, toJSVal data', toJSVal originArg, toJSVal lastEventId, toJSVal source, toJSVal (array messagePorts)])) - --- | -webkitInitMessageEvent :: - (MonadDOM m, ToJSString typeArg, ToJSVal dataArg, - ToJSString originArg, ToJSString lastEventIdArg, - IsMessageEventSource sourceArg) => - MessageEvent -> - Maybe typeArg -> - Bool -> - Bool -> - Maybe dataArg -> - Maybe originArg -> - Maybe lastEventIdArg -> - Maybe sourceArg -> [MessagePort] -> m () -webkitInitMessageEvent self typeArg canBubbleArg cancelableArg - dataArg originArg lastEventIdArg sourceArg messagePorts - = liftDOM - (void - (self ^. jsf "webkitInitMessageEvent" - [toJSVal typeArg, toJSVal canBubbleArg, toJSVal cancelableArg, - toJSVal dataArg, toJSVal originArg, toJSVal lastEventIdArg, - toJSVal sourceArg, toJSVal (array messagePorts)])) -- | getOrigin :: diff --git a/src/JSDOM/Generated/MessagePort.hs b/src/JSDOM/Generated/MessagePort.hs --- a/src/JSDOM/Generated/MessagePort.hs +++ b/src/JSDOM/Generated/MessagePort.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MimeType.hs b/src/JSDOM/Generated/MimeType.hs --- a/src/JSDOM/Generated/MimeType.hs +++ b/src/JSDOM/Generated/MimeType.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MimeTypeArray.hs b/src/JSDOM/Generated/MimeTypeArray.hs --- a/src/JSDOM/Generated/MimeTypeArray.hs +++ b/src/JSDOM/Generated/MimeTypeArray.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MouseEvent.hs b/src/JSDOM/Generated/MouseEvent.hs --- a/src/JSDOM/Generated/MouseEvent.hs +++ b/src/JSDOM/Generated/MouseEvent.hs @@ -18,7 +18,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -39,7 +39,7 @@ -- | initMouseEvent :: (MonadDOM m, IsMouseEvent self, ToJSString type', - IsEventTarget relatedTarget) => + ToJSVal relatedTarget) => self -> Maybe type' -> Bool -> diff --git a/src/JSDOM/Generated/MutationEvent.hs b/src/JSDOM/Generated/MutationEvent.hs --- a/src/JSDOM/Generated/MutationEvent.hs +++ b/src/JSDOM/Generated/MutationEvent.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/MutationObserver.hs b/src/JSDOM/Generated/MutationObserver.hs --- a/src/JSDOM/Generated/MutationObserver.hs +++ b/src/JSDOM/Generated/MutationObserver.hs @@ -3,14 +3,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MutationObserver - (newMutationObserver, observe, takeRecords, takeRecords_, - disconnect, MutationObserver(..), gTypeMutationObserver) + (newMutationObserver, observe, disconnect, takeRecords, + takeRecords_, MutationObserver(..), gTypeMutationObserver) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -37,6 +37,10 @@ = liftDOM (void (self ^. jsf "observe" [toJSVal target, toJSVal options])) +-- | +disconnect :: (MonadDOM m) => MutationObserver -> m () +disconnect self = liftDOM (void (self ^. jsf "disconnect" ())) + -- | takeRecords :: (MonadDOM m) => MutationObserver -> m [MutationRecord] @@ -46,7 +50,3 @@ -- | takeRecords_ :: (MonadDOM m) => MutationObserver -> m () takeRecords_ self = liftDOM (void (self ^. jsf "takeRecords" ())) - --- | -disconnect :: (MonadDOM m) => MutationObserver -> m () -disconnect self = liftDOM (void (self ^. jsf "disconnect" ())) diff --git a/src/JSDOM/Generated/MutationRecord.hs b/src/JSDOM/Generated/MutationRecord.hs --- a/src/JSDOM/Generated/MutationRecord.hs +++ b/src/JSDOM/Generated/MutationRecord.hs @@ -4,17 +4,19 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MutationRecord (getType, getTarget, getAddedNodes, getRemovedNodes, - getPreviousSibling, getNextSibling, getAttributeName, - getAttributeNameUnsafe, getAttributeNameUnchecked, - getAttributeNamespace, getAttributeNamespaceUnsafe, - getAttributeNamespaceUnchecked, getOldValue, getOldValueUnsafe, - getOldValueUnchecked, MutationRecord(..), gTypeMutationRecord) + getPreviousSibling, getPreviousSiblingUnsafe, + getPreviousSiblingUnchecked, getNextSibling, getNextSiblingUnsafe, + getNextSiblingUnchecked, getAttributeName, getAttributeNameUnsafe, + getAttributeNameUnchecked, getAttributeNamespace, + getAttributeNamespaceUnsafe, getAttributeNamespaceUnchecked, + getOldValue, getOldValueUnsafe, getOldValueUnchecked, + MutationRecord(..), gTypeMutationRecord) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -45,13 +47,41 @@ = liftDOM ((self ^. js "removedNodes") >>= fromJSValUnchecked) -- | -getPreviousSibling :: (MonadDOM m) => MutationRecord -> m Node +getPreviousSibling :: + (MonadDOM m) => MutationRecord -> m (Maybe Node) getPreviousSibling self + = liftDOM ((self ^. js "previousSibling") >>= fromJSVal) + +-- | +getPreviousSiblingUnsafe :: + (MonadDOM m, HasCallStack) => MutationRecord -> m Node +getPreviousSiblingUnsafe self + = liftDOM + (((self ^. js "previousSibling") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getPreviousSiblingUnchecked :: + (MonadDOM m) => MutationRecord -> m Node +getPreviousSiblingUnchecked self = liftDOM ((self ^. js "previousSibling") >>= fromJSValUnchecked) -- | -getNextSibling :: (MonadDOM m) => MutationRecord -> m Node +getNextSibling :: (MonadDOM m) => MutationRecord -> m (Maybe Node) getNextSibling self + = liftDOM ((self ^. js "nextSibling") >>= fromJSVal) + +-- | +getNextSiblingUnsafe :: + (MonadDOM m, HasCallStack) => MutationRecord -> m Node +getNextSiblingUnsafe self + = liftDOM + (((self ^. js "nextSibling") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getNextSiblingUnchecked :: (MonadDOM m) => MutationRecord -> m Node +getNextSiblingUnchecked self = liftDOM ((self ^. js "nextSibling") >>= fromJSValUnchecked) -- | diff --git a/src/JSDOM/Generated/NamedNodeMap.hs b/src/JSDOM/Generated/NamedNodeMap.hs --- a/src/JSDOM/Generated/NamedNodeMap.hs +++ b/src/JSDOM/Generated/NamedNodeMap.hs @@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -52,29 +52,33 @@ -- | getNamedItem :: - (MonadDOM m, ToJSString name) => - NamedNodeMap -> name -> m (Maybe Attr) -getNamedItem self name = liftDOM ((self ! name) >>= fromJSVal) + (MonadDOM m, ToJSString qualifiedName) => + NamedNodeMap -> qualifiedName -> m (Maybe Attr) +getNamedItem self qualifiedName + = liftDOM ((self ! qualifiedName) >>= fromJSVal) -- | getNamedItem_ :: - (MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m () -getNamedItem_ self name = liftDOM (void (self ! name)) + (MonadDOM m, ToJSString qualifiedName) => + NamedNodeMap -> qualifiedName -> m () +getNamedItem_ self qualifiedName + = liftDOM (void (self ! qualifiedName)) -- | getNamedItemUnsafe :: - (MonadDOM m, ToJSString name, HasCallStack) => - NamedNodeMap -> name -> m Attr -getNamedItemUnsafe self name + (MonadDOM m, ToJSString qualifiedName, HasCallStack) => + NamedNodeMap -> qualifiedName -> m Attr +getNamedItemUnsafe self qualifiedName = liftDOM - (((self ! name) >>= fromJSVal) >>= + (((self ! qualifiedName) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getNamedItemUnchecked :: - (MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m Attr -getNamedItemUnchecked self name - = liftDOM ((self ! name) >>= fromJSValUnchecked) + (MonadDOM m, ToJSString qualifiedName) => + NamedNodeMap -> qualifiedName -> m Attr +getNamedItemUnchecked self qualifiedName + = liftDOM ((self ! qualifiedName) >>= fromJSValUnchecked) -- | getNamedItemNS :: @@ -176,17 +180,20 @@ -- | removeNamedItem :: - (MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m Attr -removeNamedItem self name + (MonadDOM m, ToJSString qualifiedName) => + NamedNodeMap -> qualifiedName -> m Attr +removeNamedItem self qualifiedName = liftDOM - ((self ^. jsf "removeNamedItem" [toJSVal name]) >>= + ((self ^. jsf "removeNamedItem" [toJSVal qualifiedName]) >>= fromJSValUnchecked) -- | removeNamedItem_ :: - (MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m () -removeNamedItem_ self name - = liftDOM (void (self ^. jsf "removeNamedItem" [toJSVal name])) + (MonadDOM m, ToJSString qualifiedName) => + NamedNodeMap -> qualifiedName -> m () +removeNamedItem_ self qualifiedName + = liftDOM + (void (self ^. jsf "removeNamedItem" [toJSVal qualifiedName])) -- | removeNamedItemNS :: diff --git a/src/JSDOM/Generated/Navigator.hs b/src/JSDOM/Generated/Navigator.hs --- a/src/JSDOM/Generated/Navigator.hs +++ b/src/JSDOM/Generated/Navigator.hs @@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/NavigatorConcurrentHardware.hs b/src/JSDOM/Generated/NavigatorConcurrentHardware.hs --- a/src/JSDOM/Generated/NavigatorConcurrentHardware.hs +++ b/src/JSDOM/Generated/NavigatorConcurrentHardware.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/NavigatorID.hs b/src/JSDOM/Generated/NavigatorID.hs --- a/src/JSDOM/Generated/NavigatorID.hs +++ b/src/JSDOM/Generated/NavigatorID.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/NavigatorLanguage.hs b/src/JSDOM/Generated/NavigatorLanguage.hs --- a/src/JSDOM/Generated/NavigatorLanguage.hs +++ b/src/JSDOM/Generated/NavigatorLanguage.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/NavigatorOnLine.hs b/src/JSDOM/Generated/NavigatorOnLine.hs --- a/src/JSDOM/Generated/NavigatorOnLine.hs +++ b/src/JSDOM/Generated/NavigatorOnLine.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/NavigatorUserMediaError.hs b/src/JSDOM/Generated/NavigatorUserMediaError.hs --- a/src/JSDOM/Generated/NavigatorUserMediaError.hs +++ b/src/JSDOM/Generated/NavigatorUserMediaError.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/NavigatorUserMediaErrorCallback.hs b/src/JSDOM/Generated/NavigatorUserMediaErrorCallback.hs --- a/src/JSDOM/Generated/NavigatorUserMediaErrorCallback.hs +++ b/src/JSDOM/Generated/NavigatorUserMediaErrorCallback.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -54,6 +54,6 @@ newNavigatorUserMediaErrorCallbackAsync callback = liftDOM (NavigatorUserMediaErrorCallback . Callback <$> - function + asyncFunction (\ _ _ [error] -> fromJSValUnchecked error >>= \ error' -> callback error')) diff --git a/src/JSDOM/Generated/NavigatorUserMediaSuccessCallback.hs b/src/JSDOM/Generated/NavigatorUserMediaSuccessCallback.hs --- a/src/JSDOM/Generated/NavigatorUserMediaSuccessCallback.hs +++ b/src/JSDOM/Generated/NavigatorUserMediaSuccessCallback.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -54,6 +54,6 @@ newNavigatorUserMediaSuccessCallbackAsync callback = liftDOM (NavigatorUserMediaSuccessCallback . Callback <$> - function + asyncFunction (\ _ _ [stream] -> fromJSValUnchecked stream >>= \ stream' -> callback stream')) diff --git a/src/JSDOM/Generated/Node.hs b/src/JSDOM/Generated/Node.hs --- a/src/JSDOM/Generated/Node.hs +++ b/src/JSDOM/Generated/Node.hs @@ -3,16 +3,16 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Node - (insertBefore, insertBefore_, replaceChild, replaceChild_, - removeChild, removeChild_, appendChild, appendChild_, - hasChildNodes, hasChildNodes_, cloneNode, cloneNode_, normalize, - isSameNode, isSameNode_, isEqualNode, isEqualNode_, lookupPrefix, + (getRootNode, getRootNode_, hasChildNodes, hasChildNodes_, + normalize, cloneNode, cloneNode_, isEqualNode, isEqualNode_, + isSameNode, isSameNode_, compareDocumentPosition, + compareDocumentPosition_, contains, contains_, lookupPrefix, lookupPrefix_, lookupPrefixUnsafe, lookupPrefixUnchecked, lookupNamespaceURI, lookupNamespaceURI_, lookupNamespaceURIUnsafe, lookupNamespaceURIUnchecked, isDefaultNamespace, - isDefaultNamespace_, compareDocumentPosition, - compareDocumentPosition_, contains, contains_, getRootNode, - getRootNode_, pattern ELEMENT_NODE, pattern ATTRIBUTE_NODE, + isDefaultNamespace_, insertBefore, insertBefore_, appendChild, + appendChild_, replaceChild, replaceChild_, removeChild, + removeChild_, pattern ELEMENT_NODE, pattern ATTRIBUTE_NODE, pattern TEXT_NODE, pattern CDATA_SECTION_NODE, pattern ENTITY_REFERENCE_NODE, pattern ENTITY_NODE, pattern PROCESSING_INSTRUCTION_NODE, pattern COMMENT_NODE, @@ -23,25 +23,25 @@ pattern DOCUMENT_POSITION_FOLLOWING, pattern DOCUMENT_POSITION_CONTAINS, pattern DOCUMENT_POSITION_CONTAINED_BY, - pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, getNodeName, - setNodeValue, getNodeValue, getNodeValueUnsafe, - getNodeValueUnchecked, getNodeType, getParentNode, - getParentNodeUnsafe, getParentNodeUnchecked, getChildNodes, + pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, getNodeType, + getNodeName, getBaseURI, getIsConnected, getOwnerDocument, + getOwnerDocumentUnsafe, getOwnerDocumentUnchecked, getParentNode, + getParentNodeUnsafe, getParentNodeUnchecked, getParentElement, + getParentElementUnsafe, getParentElementUnchecked, getChildNodes, getFirstChild, getFirstChildUnsafe, getFirstChildUnchecked, getLastChild, getLastChildUnsafe, getLastChildUnchecked, getPreviousSibling, getPreviousSiblingUnsafe, getPreviousSiblingUnchecked, getNextSibling, getNextSiblingUnsafe, - getNextSiblingUnchecked, getOwnerDocument, getOwnerDocumentUnsafe, - getOwnerDocumentUnchecked, getBaseURI, setTextContent, + getNextSiblingUnchecked, setNodeValue, getNodeValue, + getNodeValueUnsafe, getNodeValueUnchecked, setTextContent, getTextContent, getTextContentUnsafe, getTextContentUnchecked, - getIsConnected, getParentElement, getParentElementUnsafe, - getParentElementUnchecked, Node(..), gTypeNode, IsNode, toNode) + Node(..), gTypeNode, IsNode, toNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -51,79 +51,22 @@ import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums --- | -insertBefore :: - (MonadDOM m, IsNode self, IsNode newChild, IsNode refChild) => - self -> newChild -> Maybe refChild -> m Node -insertBefore self newChild refChild - = liftDOM - (((toNode self) ^. jsf "insertBefore" - [toJSVal newChild, toJSVal refChild]) - >>= fromJSValUnchecked) - --- | -insertBefore_ :: - (MonadDOM m, IsNode self, IsNode newChild, IsNode refChild) => - self -> newChild -> Maybe refChild -> m () -insertBefore_ self newChild refChild - = liftDOM - (void - ((toNode self) ^. jsf "insertBefore" - [toJSVal newChild, toJSVal refChild])) - --- | -replaceChild :: - (MonadDOM m, IsNode self, IsNode newChild, IsNode oldChild) => - self -> newChild -> oldChild -> m Node -replaceChild self newChild oldChild - = liftDOM - (((toNode self) ^. jsf "replaceChild" - [toJSVal newChild, toJSVal oldChild]) - >>= fromJSValUnchecked) - --- | -replaceChild_ :: - (MonadDOM m, IsNode self, IsNode newChild, IsNode oldChild) => - self -> newChild -> oldChild -> m () -replaceChild_ self newChild oldChild - = liftDOM - (void - ((toNode self) ^. jsf "replaceChild" - [toJSVal newChild, toJSVal oldChild])) - --- | -removeChild :: - (MonadDOM m, IsNode self, IsNode oldChild) => - self -> oldChild -> m Node -removeChild self oldChild - = liftDOM - (((toNode self) ^. jsf "removeChild" [toJSVal oldChild]) >>= - fromJSValUnchecked) - --- | -removeChild_ :: - (MonadDOM m, IsNode self, IsNode oldChild) => - self -> oldChild -> m () -removeChild_ self oldChild - = liftDOM - (void ((toNode self) ^. jsf "removeChild" [toJSVal oldChild])) - --- | -appendChild :: - (MonadDOM m, IsNode self, IsNode newChild) => - self -> newChild -> m Node -appendChild self newChild +-- | +getRootNode :: + (MonadDOM m, IsNode self) => + self -> Maybe GetRootNodeOptions -> m Node +getRootNode self options = liftDOM - (((toNode self) ^. jsf "appendChild" [toJSVal newChild]) >>= + (((toNode self) ^. jsf "getRootNode" [toJSVal options]) >>= fromJSValUnchecked) --- | -appendChild_ :: - (MonadDOM m, IsNode self, IsNode newChild) => - self -> newChild -> m () -appendChild_ self newChild +-- | +getRootNode_ :: + (MonadDOM m, IsNode self) => + self -> Maybe GetRootNodeOptions -> m () +getRootNode_ self options = liftDOM - (void ((toNode self) ^. jsf "appendChild" [toJSVal newChild])) + (void ((toNode self) ^. jsf "getRootNode" [toJSVal options])) -- | hasChildNodes :: (MonadDOM m, IsNode self) => self -> m Bool @@ -135,6 +78,11 @@ hasChildNodes_ self = liftDOM (void ((toNode self) ^. jsf "hasChildNodes" ())) +-- | +normalize :: (MonadDOM m, IsNode self) => self -> m () +normalize self + = liftDOM (void ((toNode self) ^. jsf "normalize" ())) + -- | cloneNode :: (MonadDOM m, IsNode self) => self -> Bool -> m Node cloneNode self deep @@ -147,11 +95,23 @@ cloneNode_ self deep = liftDOM (void ((toNode self) ^. jsf "cloneNode" [toJSVal deep])) --- | -normalize :: (MonadDOM m, IsNode self) => self -> m () -normalize self - = liftDOM (void ((toNode self) ^. jsf "normalize" ())) +-- | +isEqualNode :: + (MonadDOM m, IsNode self, IsNode other) => + self -> Maybe other -> m Bool +isEqualNode self other + = liftDOM + (((toNode self) ^. jsf "isEqualNode" [toJSVal other]) >>= + valToBool) +-- | +isEqualNode_ :: + (MonadDOM m, IsNode self, IsNode other) => + self -> Maybe other -> m () +isEqualNode_ self other + = liftDOM + (void ((toNode self) ^. jsf "isEqualNode" [toJSVal other])) + -- | isSameNode :: (MonadDOM m, IsNode self, IsNode other) => @@ -168,23 +128,38 @@ = liftDOM (void ((toNode self) ^. jsf "isSameNode" [toJSVal other])) --- | -isEqualNode :: - (MonadDOM m, IsNode self, IsNode other) => - self -> Maybe other -> m Bool -isEqualNode self other +-- | +compareDocumentPosition :: + (MonadDOM m, IsNode self, IsNode other) => self -> other -> m Word +compareDocumentPosition self other = liftDOM - (((toNode self) ^. jsf "isEqualNode" [toJSVal other]) >>= - valToBool) + (round <$> + (((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other]) + >>= valToNumber)) --- | -isEqualNode_ :: - (MonadDOM m, IsNode self, IsNode other) => - self -> Maybe other -> m () -isEqualNode_ self other +-- | +compareDocumentPosition_ :: + (MonadDOM m, IsNode self, IsNode other) => self -> other -> m () +compareDocumentPosition_ self other = liftDOM - (void ((toNode self) ^. jsf "isEqualNode" [toJSVal other])) + (void + ((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other])) +-- | +contains :: + (MonadDOM m, IsNode self, IsNode other) => + self -> Maybe other -> m Bool +contains self other + = liftDOM + (((toNode self) ^. jsf "contains" [toJSVal other]) >>= valToBool) + +-- | +contains_ :: + (MonadDOM m, IsNode self, IsNode other) => + self -> Maybe other -> m () +contains_ self other + = liftDOM (void ((toNode self) ^. jsf "contains" [toJSVal other])) + -- | lookupPrefix :: (MonadDOM m, IsNode self, ToJSString namespaceURI, @@ -281,54 +256,75 @@ (void ((toNode self) ^. jsf "isDefaultNamespace" [toJSVal namespaceURI])) --- | -compareDocumentPosition :: - (MonadDOM m, IsNode self, IsNode other) => self -> other -> m Word -compareDocumentPosition self other +-- | +insertBefore :: + (MonadDOM m, IsNode self, IsNode node, IsNode child) => + self -> node -> Maybe child -> m Node +insertBefore self node child = liftDOM - (round <$> - (((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other]) - >>= valToNumber)) + (((toNode self) ^. jsf "insertBefore" + [toJSVal node, toJSVal child]) + >>= fromJSValUnchecked) --- | -compareDocumentPosition_ :: - (MonadDOM m, IsNode self, IsNode other) => self -> other -> m () -compareDocumentPosition_ self other +-- | +insertBefore_ :: + (MonadDOM m, IsNode self, IsNode node, IsNode child) => + self -> node -> Maybe child -> m () +insertBefore_ self node child = liftDOM (void - ((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other])) + ((toNode self) ^. jsf "insertBefore" + [toJSVal node, toJSVal child])) --- | -contains :: - (MonadDOM m, IsNode self, IsNode other) => - self -> Maybe other -> m Bool -contains self other +-- | +appendChild :: + (MonadDOM m, IsNode self, IsNode node) => self -> node -> m Node +appendChild self node = liftDOM - (((toNode self) ^. jsf "contains" [toJSVal other]) >>= valToBool) + (((toNode self) ^. jsf "appendChild" [toJSVal node]) >>= + fromJSValUnchecked) --- | -contains_ :: - (MonadDOM m, IsNode self, IsNode other) => - self -> Maybe other -> m () -contains_ self other - = liftDOM (void ((toNode self) ^. jsf "contains" [toJSVal other])) +-- | +appendChild_ :: + (MonadDOM m, IsNode self, IsNode node) => self -> node -> m () +appendChild_ self node + = liftDOM + (void ((toNode self) ^. jsf "appendChild" [toJSVal node])) --- | -getRootNode :: - (MonadDOM m, IsNode self) => - self -> Maybe GetRootNodeOptions -> m Node -getRootNode self options +-- | +replaceChild :: + (MonadDOM m, IsNode self, IsNode node, IsNode child) => + self -> node -> child -> m Node +replaceChild self node child = liftDOM - (((toNode self) ^. jsf "getRootNode" [toJSVal options]) >>= + (((toNode self) ^. jsf "replaceChild" + [toJSVal node, toJSVal child]) + >>= fromJSValUnchecked) + +-- | +replaceChild_ :: + (MonadDOM m, IsNode self, IsNode node, IsNode child) => + self -> node -> child -> m () +replaceChild_ self node child + = liftDOM + (void + ((toNode self) ^. jsf "replaceChild" + [toJSVal node, toJSVal child])) + +-- | +removeChild :: + (MonadDOM m, IsNode self, IsNode child) => self -> child -> m Node +removeChild self child + = liftDOM + (((toNode self) ^. jsf "removeChild" [toJSVal child]) >>= fromJSValUnchecked) --- | -getRootNode_ :: - (MonadDOM m, IsNode self) => - self -> Maybe GetRootNodeOptions -> m () -getRootNode_ self options +-- | +removeChild_ :: + (MonadDOM m, IsNode self, IsNode child) => self -> child -> m () +removeChild_ self child = liftDOM - (void ((toNode self) ^. jsf "getRootNode" [toJSVal options])) + (void ((toNode self) ^. jsf "removeChild" [toJSVal child])) pattern ELEMENT_NODE = 1 pattern ATTRIBUTE_NODE = 2 pattern TEXT_NODE = 3 @@ -348,47 +344,49 @@ pattern DOCUMENT_POSITION_CONTAINED_BY = 16 pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32 +-- | +getNodeType :: (MonadDOM m, IsNode self) => self -> m Word +getNodeType self + = liftDOM + (round <$> (((toNode self) ^. js "nodeType") >>= valToNumber)) + -- | getNodeName :: (MonadDOM m, IsNode self, FromJSString result) => self -> m result getNodeName self = liftDOM (((toNode self) ^. js "nodeName") >>= fromJSValUnchecked) --- | -setNodeValue :: - (MonadDOM m, IsNode self, ToJSString val) => - self -> Maybe val -> m () -setNodeValue self val - = liftDOM ((toNode self) ^. jss "nodeValue" (toJSVal val)) +-- | +getBaseURI :: + (MonadDOM m, IsNode self, FromJSString result) => self -> m result +getBaseURI self + = liftDOM (((toNode self) ^. js "baseURI") >>= fromJSValUnchecked) --- | -getNodeValue :: - (MonadDOM m, IsNode self, FromJSString result) => - self -> m (Maybe result) -getNodeValue self - = liftDOM (((toNode self) ^. js "nodeValue") >>= fromJSVal) +-- | +getIsConnected :: (MonadDOM m, IsNode self) => self -> m Bool +getIsConnected self + = liftDOM (((toNode self) ^. js "isConnected") >>= valToBool) --- | -getNodeValueUnsafe :: - (MonadDOM m, IsNode self, HasCallStack, FromJSString result) => - self -> m result -getNodeValueUnsafe self - = liftDOM - ((((toNode self) ^. js "nodeValue") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) +-- | +getOwnerDocument :: + (MonadDOM m, IsNode self) => self -> m (Maybe Document) +getOwnerDocument self + = liftDOM (((toNode self) ^. js "ownerDocument") >>= fromJSVal) --- | -getNodeValueUnchecked :: - (MonadDOM m, IsNode self, FromJSString result) => self -> m result -getNodeValueUnchecked self +-- | +getOwnerDocumentUnsafe :: + (MonadDOM m, IsNode self, HasCallStack) => self -> m Document +getOwnerDocumentUnsafe self = liftDOM - (((toNode self) ^. js "nodeValue") >>= fromJSValUnchecked) + ((((toNode self) ^. js "ownerDocument") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) --- | -getNodeType :: (MonadDOM m, IsNode self) => self -> m Word -getNodeType self +-- | +getOwnerDocumentUnchecked :: + (MonadDOM m, IsNode self) => self -> m Document +getOwnerDocumentUnchecked self = liftDOM - (round <$> (((toNode self) ^. js "nodeType") >>= valToNumber)) + (((toNode self) ^. js "ownerDocument") >>= fromJSValUnchecked) -- | getParentNode :: @@ -411,6 +409,27 @@ = liftDOM (((toNode self) ^. js "parentNode") >>= fromJSValUnchecked) +-- | +getParentElement :: + (MonadDOM m, IsNode self) => self -> m (Maybe Element) +getParentElement self + = liftDOM (((toNode self) ^. js "parentElement") >>= fromJSVal) + +-- | +getParentElementUnsafe :: + (MonadDOM m, IsNode self, HasCallStack) => self -> m Element +getParentElementUnsafe self + = liftDOM + ((((toNode self) ^. js "parentElement") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getParentElementUnchecked :: + (MonadDOM m, IsNode self) => self -> m Element +getParentElementUnchecked self + = liftDOM + (((toNode self) ^. js "parentElement") >>= fromJSValUnchecked) + -- | getChildNodes :: (MonadDOM m, IsNode self) => self -> m NodeList getChildNodes self @@ -500,32 +519,35 @@ = liftDOM (((toNode self) ^. js "nextSibling") >>= fromJSValUnchecked) --- | -getOwnerDocument :: - (MonadDOM m, IsNode self) => self -> m (Maybe Document) -getOwnerDocument self - = liftDOM (((toNode self) ^. js "ownerDocument") >>= fromJSVal) +-- | +setNodeValue :: + (MonadDOM m, IsNode self, ToJSString val) => + self -> Maybe val -> m () +setNodeValue self val + = liftDOM ((toNode self) ^. jss "nodeValue" (toJSVal val)) --- | -getOwnerDocumentUnsafe :: - (MonadDOM m, IsNode self, HasCallStack) => self -> m Document -getOwnerDocumentUnsafe self +-- | +getNodeValue :: + (MonadDOM m, IsNode self, FromJSString result) => + self -> m (Maybe result) +getNodeValue self + = liftDOM (((toNode self) ^. js "nodeValue") >>= fromJSVal) + +-- | +getNodeValueUnsafe :: + (MonadDOM m, IsNode self, HasCallStack, FromJSString result) => + self -> m result +getNodeValueUnsafe self = liftDOM - ((((toNode self) ^. js "ownerDocument") >>= fromJSVal) >>= + ((((toNode self) ^. js "nodeValue") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) --- | -getOwnerDocumentUnchecked :: - (MonadDOM m, IsNode self) => self -> m Document -getOwnerDocumentUnchecked self +-- | +getNodeValueUnchecked :: + (MonadDOM m, IsNode self, FromJSString result) => self -> m result +getNodeValueUnchecked self = liftDOM - (((toNode self) ^. js "ownerDocument") >>= fromJSValUnchecked) - --- | -getBaseURI :: - (MonadDOM m, IsNode self, FromJSString result) => self -> m result -getBaseURI self - = liftDOM (((toNode self) ^. js "baseURI") >>= fromJSValUnchecked) + (((toNode self) ^. js "nodeValue") >>= fromJSValUnchecked) -- | setTextContent :: @@ -556,29 +578,3 @@ getTextContentUnchecked self = liftDOM (((toNode self) ^. js "textContent") >>= fromJSValUnchecked) - --- | -getIsConnected :: (MonadDOM m, IsNode self) => self -> m Bool -getIsConnected self - = liftDOM (((toNode self) ^. js "isConnected") >>= valToBool) - --- | -getParentElement :: - (MonadDOM m, IsNode self) => self -> m (Maybe Element) -getParentElement self - = liftDOM (((toNode self) ^. js "parentElement") >>= fromJSVal) - --- | -getParentElementUnsafe :: - (MonadDOM m, IsNode self, HasCallStack) => self -> m Element -getParentElementUnsafe self - = liftDOM - ((((toNode self) ^. js "parentElement") >>= fromJSVal) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getParentElementUnchecked :: - (MonadDOM m, IsNode self) => self -> m Element -getParentElementUnchecked self - = liftDOM - (((toNode self) ^. js "parentElement") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/NodeFilter.hs b/src/JSDOM/Generated/NodeFilter.hs --- a/src/JSDOM/Generated/NodeFilter.hs +++ b/src/JSDOM/Generated/NodeFilter.hs @@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -51,7 +51,7 @@ newNodeFilterAsync callback = liftDOM (NodeFilter . Callback <$> - function + asyncFunction (\ _ _ [node] -> fromJSValUnchecked node >>= \ node' -> callback node')) pattern FILTER_ACCEPT = 1 diff --git a/src/JSDOM/Generated/NodeIterator.hs b/src/JSDOM/Generated/NodeIterator.hs --- a/src/JSDOM/Generated/NodeIterator.hs +++ b/src/JSDOM/Generated/NodeIterator.hs @@ -3,15 +3,17 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NodeIterator - (nextNode, nextNode_, previousNode, previousNode_, detach, getRoot, - getWhatToShow, getReferenceNode, getPointerBeforeReferenceNode, - NodeIterator(..), gTypeNodeIterator) + (nextNode, nextNode_, nextNodeUnsafe, nextNodeUnchecked, + previousNode, previousNode_, previousNodeUnsafe, + previousNodeUnchecked, detach, getRoot, getReferenceNode, + getPointerBeforeReferenceNode, getWhatToShow, NodeIterator(..), + gTypeNodeIterator) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -22,23 +24,48 @@ import JSDOM.Enums -- | -nextNode :: (MonadDOM m) => NodeIterator -> m Node -nextNode self - = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked) +nextNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node) +nextNode self = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSVal) -- | nextNode_ :: (MonadDOM m) => NodeIterator -> m () nextNode_ self = liftDOM (void (self ^. jsf "nextNode" ())) +-- | +nextNodeUnsafe :: + (MonadDOM m, HasCallStack) => NodeIterator -> m Node +nextNodeUnsafe self + = liftDOM + (((self ^. jsf "nextNode" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +nextNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node +nextNodeUnchecked self + = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked) + -- | -previousNode :: (MonadDOM m) => NodeIterator -> m Node +previousNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node) previousNode self - = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked) + = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSVal) -- | previousNode_ :: (MonadDOM m) => NodeIterator -> m () previousNode_ self = liftDOM (void (self ^. jsf "previousNode" ())) +-- | +previousNodeUnsafe :: + (MonadDOM m, HasCallStack) => NodeIterator -> m Node +previousNodeUnsafe self + = liftDOM + (((self ^. jsf "previousNode" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +previousNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node +previousNodeUnchecked self + = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked) + -- | detach :: (MonadDOM m) => NodeIterator -> m () detach self = liftDOM (void (self ^. jsf "detach" ())) @@ -47,11 +74,6 @@ getRoot :: (MonadDOM m) => NodeIterator -> m Node getRoot self = liftDOM ((self ^. js "root") >>= fromJSValUnchecked) --- | -getWhatToShow :: (MonadDOM m) => NodeIterator -> m Word -getWhatToShow self - = liftDOM (round <$> ((self ^. js "whatToShow") >>= valToNumber)) - -- | getReferenceNode :: (MonadDOM m) => NodeIterator -> m Node getReferenceNode self @@ -62,3 +84,8 @@ (MonadDOM m) => NodeIterator -> m Bool getPointerBeforeReferenceNode self = liftDOM ((self ^. js "pointerBeforeReferenceNode") >>= valToBool) + +-- | +getWhatToShow :: (MonadDOM m) => NodeIterator -> m Word +getWhatToShow self + = liftDOM (round <$> ((self ^. js "whatToShow") >>= valToNumber)) diff --git a/src/JSDOM/Generated/NodeList.hs b/src/JSDOM/Generated/NodeList.hs --- a/src/JSDOM/Generated/NodeList.hs +++ b/src/JSDOM/Generated/NodeList.hs @@ -3,14 +3,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NodeList - (item, item_, getLength, NodeList(..), gTypeNodeList, IsNodeList, - toNodeList) + (item, item_, itemUnsafe, itemUnchecked, getLength, NodeList(..), + gTypeNodeList, IsNodeList, toNodeList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -21,16 +21,33 @@ import JSDOM.Enums -- | -item :: (MonadDOM m, IsNodeList self) => self -> Word -> m Node +item :: + (MonadDOM m, IsNodeList self) => self -> Word -> m (Maybe Node) item self index = liftDOM - (((toNodeList self) ^. jsf "item" [toJSVal index]) >>= - fromJSValUnchecked) + (((toNodeList self) ^. jsf "item" [toJSVal index]) >>= fromJSVal) -- | item_ :: (MonadDOM m, IsNodeList self) => self -> Word -> m () item_ self index = liftDOM (void ((toNodeList self) ^. jsf "item" [toJSVal index])) + +-- | +itemUnsafe :: + (MonadDOM m, IsNodeList self, HasCallStack) => + self -> Word -> m Node +itemUnsafe self index + = liftDOM + ((((toNodeList self) ^. jsf "item" [toJSVal index]) >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +itemUnchecked :: + (MonadDOM m, IsNodeList self) => self -> Word -> m Node +itemUnchecked self index + = liftDOM + (((toNodeList self) ^. jsf "item" [toJSVal index]) >>= + fromJSValUnchecked) -- | getLength :: (MonadDOM m, IsNodeList self) => self -> m Word diff --git a/src/JSDOM/Generated/NonDocumentTypeChildNode.hs b/src/JSDOM/Generated/NonDocumentTypeChildNode.hs --- a/src/JSDOM/Generated/NonDocumentTypeChildNode.hs +++ b/src/JSDOM/Generated/NonDocumentTypeChildNode.hs @@ -3,7 +3,9 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NonDocumentTypeChildNode - (getPreviousElementSibling, getNextElementSibling, + (getPreviousElementSibling, getPreviousElementSiblingUnsafe, + getPreviousElementSiblingUnchecked, getNextElementSibling, + getNextElementSiblingUnsafe, getNextElementSiblingUnchecked, NonDocumentTypeChildNode(..), gTypeNonDocumentTypeChildNode, IsNonDocumentTypeChildNode, toNonDocumentTypeChildNode) where @@ -11,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -23,16 +25,56 @@ -- | getPreviousElementSibling :: - (MonadDOM m, IsNonDocumentTypeChildNode self) => self -> m Element + (MonadDOM m, IsNonDocumentTypeChildNode self) => + self -> m (Maybe Element) getPreviousElementSibling self = liftDOM (((toNonDocumentTypeChildNode self) ^. js "previousElementSibling") + >>= fromJSVal) + +-- | +getPreviousElementSiblingUnsafe :: + (MonadDOM m, IsNonDocumentTypeChildNode self, HasCallStack) => + self -> m Element +getPreviousElementSiblingUnsafe self + = liftDOM + ((((toNonDocumentTypeChildNode self) ^. + js "previousElementSibling") + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getPreviousElementSiblingUnchecked :: + (MonadDOM m, IsNonDocumentTypeChildNode self) => + self -> m Element +getPreviousElementSiblingUnchecked self + = liftDOM + (((toNonDocumentTypeChildNode self) ^. js "previousElementSibling") >>= fromJSValUnchecked) -- | getNextElementSibling :: - (MonadDOM m, IsNonDocumentTypeChildNode self) => self -> m Element + (MonadDOM m, IsNonDocumentTypeChildNode self) => + self -> m (Maybe Element) getNextElementSibling self + = liftDOM + (((toNonDocumentTypeChildNode self) ^. js "nextElementSibling") >>= + fromJSVal) + +-- | +getNextElementSiblingUnsafe :: + (MonadDOM m, IsNonDocumentTypeChildNode self, HasCallStack) => + self -> m Element +getNextElementSiblingUnsafe self + = liftDOM + ((((toNonDocumentTypeChildNode self) ^. js "nextElementSibling") + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getNextElementSiblingUnchecked :: + (MonadDOM m, IsNonDocumentTypeChildNode self) => self -> m Element +getNextElementSiblingUnchecked self = liftDOM (((toNonDocumentTypeChildNode self) ^. js "nextElementSibling") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/NonElementParentNode.hs b/src/JSDOM/Generated/NonElementParentNode.hs --- a/src/JSDOM/Generated/NonElementParentNode.hs +++ b/src/JSDOM/Generated/NonElementParentNode.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Notification.hs b/src/JSDOM/Generated/Notification.hs --- a/src/JSDOM/Generated/Notification.hs +++ b/src/JSDOM/Generated/Notification.hs @@ -3,16 +3,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Notification - (show, cancel, close, requestPermission, getPermission, click, - cLoseEvent, display, error, showEvent, setDir, getDir, - setReplaceId, getReplaceId, setTag, getTag, Notification(..), - gTypeNotification) + (newNotification, show, close, requestPermission, getPermission, + click, error, cLoseEvent, display, showEvent, setTag, getTag, + Notification(..), gTypeNotification) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -22,14 +21,19 @@ import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums +-- | +newNotification :: + (MonadDOM m, ToJSString title) => + title -> Maybe NotificationOptions -> m Notification +newNotification title options + = liftDOM + (Notification <$> + new (jsg "Notification") [toJSVal title, toJSVal options]) + -- | show :: (MonadDOM m) => Notification -> m () show self = liftDOM (void (self ^. jsf "show" ())) --- | -cancel :: (MonadDOM m) => Notification -> m () -cancel self = liftDOM (void (self ^. jsf "cancel" ())) - -- | close :: (MonadDOM m) => Notification -> m () close self = liftDOM (void (self ^. jsf "close" ())) @@ -53,6 +57,10 @@ click :: EventName Notification MouseEvent click = unsafeEventName (toJSString "click") +-- | +error :: EventName Notification UIEvent +error = unsafeEventName (toJSString "error") + -- | cLoseEvent :: EventName Notification CloseEvent cLoseEvent = unsafeEventName (toJSString "close") @@ -61,35 +69,9 @@ display :: EventName Notification ondisplay display = unsafeEventName (toJSString "display") --- | -error :: EventName Notification UIEvent -error = unsafeEventName (toJSString "error") - -- | showEvent :: EventName Notification MouseEvent showEvent = unsafeEventName (toJSString "show") - --- | -setDir :: - (MonadDOM m, ToJSString val) => Notification -> val -> m () -setDir self val = liftDOM (self ^. jss "dir" (toJSVal val)) - --- | -getDir :: - (MonadDOM m, FromJSString result) => Notification -> m result -getDir self = liftDOM ((self ^. js "dir") >>= fromJSValUnchecked) - --- | -setReplaceId :: - (MonadDOM m, ToJSString val) => Notification -> val -> m () -setReplaceId self val - = liftDOM (self ^. jss "replaceId" (toJSVal val)) - --- | -getReplaceId :: - (MonadDOM m, FromJSString result) => Notification -> m result -getReplaceId self - = liftDOM ((self ^. js "replaceId") >>= fromJSValUnchecked) -- | setTag :: diff --git a/src/JSDOM/Generated/NotificationCenter.hs b/src/JSDOM/Generated/NotificationCenter.hs deleted file mode 100644 --- a/src/JSDOM/Generated/NotificationCenter.hs +++ /dev/null @@ -1,62 +0,0 @@ -{-# LANGUAGE PatternSynonyms #-} --- For HasCallStack compatibility -{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} -module JSDOM.Generated.NotificationCenter - (createNotification, createNotification_, checkPermission, - checkPermission_, requestPermission, NotificationCenter(..), - gTypeNotificationCenter) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) -import qualified Prelude (error) -import Data.Typeable (Typeable) -import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import JSDOM.Types -import Control.Applicative ((<$>)) -import Control.Monad (void) -import Control.Lens.Operators ((^.)) -import JSDOM.EventTargetClosures (EventName, unsafeEventName) -import JSDOM.Enums - --- | -createNotification :: - (MonadDOM m, ToJSString iconUrl, ToJSString title, - ToJSString body) => - NotificationCenter -> iconUrl -> title -> body -> m Notification -createNotification self iconUrl title body - = liftDOM - ((self ^. jsf "createNotification" - [toJSVal iconUrl, toJSVal title, toJSVal body]) - >>= fromJSValUnchecked) - --- | -createNotification_ :: - (MonadDOM m, ToJSString iconUrl, ToJSString title, - ToJSString body) => - NotificationCenter -> iconUrl -> title -> body -> m () -createNotification_ self iconUrl title body - = liftDOM - (void - (self ^. jsf "createNotification" - [toJSVal iconUrl, toJSVal title, toJSVal body])) - --- | -checkPermission :: (MonadDOM m) => NotificationCenter -> m Int -checkPermission self - = liftDOM - (round <$> ((self ^. jsf "checkPermission" ()) >>= valToNumber)) - --- | -checkPermission_ :: (MonadDOM m) => NotificationCenter -> m () -checkPermission_ self - = liftDOM (void (self ^. jsf "checkPermission" ())) - --- | -requestPermission :: - (MonadDOM m) => NotificationCenter -> Maybe VoidCallback -> m () -requestPermission self callback - = liftDOM - (void (self ^. jsf "requestPermission" [toJSVal callback])) diff --git a/src/JSDOM/Generated/NotificationPermissionCallback.hs b/src/JSDOM/Generated/NotificationPermissionCallback.hs --- a/src/JSDOM/Generated/NotificationPermissionCallback.hs +++ b/src/JSDOM/Generated/NotificationPermissionCallback.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -56,7 +56,7 @@ newNotificationPermissionCallbackAsync callback = liftDOM (NotificationPermissionCallback . Callback <$> - function + asyncFunction (\ _ _ [permission] -> fromJSValUnchecked permission >>= \ permission' -> callback permission')) diff --git a/src/JSDOM/Generated/OESStandardDerivatives.hs b/src/JSDOM/Generated/OESStandardDerivatives.hs --- a/src/JSDOM/Generated/OESStandardDerivatives.hs +++ b/src/JSDOM/Generated/OESStandardDerivatives.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/OESTextureHalfFloat.hs b/src/JSDOM/Generated/OESTextureHalfFloat.hs --- a/src/JSDOM/Generated/OESTextureHalfFloat.hs +++ b/src/JSDOM/Generated/OESTextureHalfFloat.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/OESVertexArrayObject.hs b/src/JSDOM/Generated/OESVertexArrayObject.hs --- a/src/JSDOM/Generated/OESVertexArrayObject.hs +++ b/src/JSDOM/Generated/OESVertexArrayObject.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/OfflineAudioCompletionEvent.hs b/src/JSDOM/Generated/OfflineAudioCompletionEvent.hs --- a/src/JSDOM/Generated/OfflineAudioCompletionEvent.hs +++ b/src/JSDOM/Generated/OfflineAudioCompletionEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/OfflineAudioContext.hs b/src/JSDOM/Generated/OfflineAudioContext.hs --- a/src/JSDOM/Generated/OfflineAudioContext.hs +++ b/src/JSDOM/Generated/OfflineAudioContext.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/OscillatorNode.hs b/src/JSDOM/Generated/OscillatorNode.hs --- a/src/JSDOM/Generated/OscillatorNode.hs +++ b/src/JSDOM/Generated/OscillatorNode.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/OverconstrainedError.hs b/src/JSDOM/Generated/OverconstrainedError.hs --- a/src/JSDOM/Generated/OverconstrainedError.hs +++ b/src/JSDOM/Generated/OverconstrainedError.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/OverconstrainedErrorEvent.hs b/src/JSDOM/Generated/OverconstrainedErrorEvent.hs --- a/src/JSDOM/Generated/OverconstrainedErrorEvent.hs +++ b/src/JSDOM/Generated/OverconstrainedErrorEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/OverflowEvent.hs b/src/JSDOM/Generated/OverflowEvent.hs --- a/src/JSDOM/Generated/OverflowEvent.hs +++ b/src/JSDOM/Generated/OverflowEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PageTransitionEvent.hs b/src/JSDOM/Generated/PageTransitionEvent.hs --- a/src/JSDOM/Generated/PageTransitionEvent.hs +++ b/src/JSDOM/Generated/PageTransitionEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PannerNode.hs b/src/JSDOM/Generated/PannerNode.hs --- a/src/JSDOM/Generated/PannerNode.hs +++ b/src/JSDOM/Generated/PannerNode.hs @@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ParentNode.hs b/src/JSDOM/Generated/ParentNode.hs --- a/src/JSDOM/Generated/ParentNode.hs +++ b/src/JSDOM/Generated/ParentNode.hs @@ -3,16 +3,19 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ParentNode - (prepend, append, querySelector, querySelector_, querySelectorAll, + (prepend, append, querySelector, querySelector_, + querySelectorUnsafe, querySelectorUnchecked, querySelectorAll, querySelectorAll_, getChildren, getFirstElementChild, - getLastElementChild, getChildElementCount, ParentNode(..), + getFirstElementChildUnsafe, getFirstElementChildUnchecked, + getLastElementChild, getLastElementChildUnsafe, + getLastElementChildUnchecked, getChildElementCount, ParentNode(..), gTypeParentNode, IsParentNode, toParentNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -43,11 +46,11 @@ -- | querySelector :: (MonadDOM m, IsParentNode self, ToJSString selectors) => - self -> selectors -> m Element + self -> selectors -> m (Maybe Element) querySelector self selectors = liftDOM (((toParentNode self) ^. jsf "querySelector" [toJSVal selectors]) - >>= fromJSValUnchecked) + >>= fromJSVal) -- | querySelector_ :: @@ -58,6 +61,26 @@ (void ((toParentNode self) ^. jsf "querySelector" [toJSVal selectors])) +-- | +querySelectorUnsafe :: + (MonadDOM m, IsParentNode self, ToJSString selectors, + HasCallStack) => + self -> selectors -> m Element +querySelectorUnsafe self selectors + = liftDOM + ((((toParentNode self) ^. jsf "querySelector" [toJSVal selectors]) + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +querySelectorUnchecked :: + (MonadDOM m, IsParentNode self, ToJSString selectors) => + self -> selectors -> m Element +querySelectorUnchecked self selectors + = liftDOM + (((toParentNode self) ^. jsf "querySelector" [toJSVal selectors]) + >>= fromJSValUnchecked) + -- | querySelectorAll :: (MonadDOM m, IsParentNode self, ToJSString selectors) => @@ -87,16 +110,46 @@ -- | getFirstElementChild :: - (MonadDOM m, IsParentNode self) => self -> m Element + (MonadDOM m, IsParentNode self) => self -> m (Maybe Element) getFirstElementChild self = liftDOM + (((toParentNode self) ^. js "firstElementChild") >>= fromJSVal) + +-- | +getFirstElementChildUnsafe :: + (MonadDOM m, IsParentNode self, HasCallStack) => self -> m Element +getFirstElementChildUnsafe self + = liftDOM + ((((toParentNode self) ^. js "firstElementChild") >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getFirstElementChildUnchecked :: + (MonadDOM m, IsParentNode self) => self -> m Element +getFirstElementChildUnchecked self + = liftDOM (((toParentNode self) ^. js "firstElementChild") >>= fromJSValUnchecked) -- | getLastElementChild :: - (MonadDOM m, IsParentNode self) => self -> m Element + (MonadDOM m, IsParentNode self) => self -> m (Maybe Element) getLastElementChild self + = liftDOM + (((toParentNode self) ^. js "lastElementChild") >>= fromJSVal) + +-- | +getLastElementChildUnsafe :: + (MonadDOM m, IsParentNode self, HasCallStack) => self -> m Element +getLastElementChildUnsafe self + = liftDOM + ((((toParentNode self) ^. js "lastElementChild") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getLastElementChildUnchecked :: + (MonadDOM m, IsParentNode self) => self -> m Element +getLastElementChildUnchecked self = liftDOM (((toParentNode self) ^. js "lastElementChild") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/PasswordCredential.hs b/src/JSDOM/Generated/PasswordCredential.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/PasswordCredential.hs @@ -0,0 +1,91 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.PasswordCredential + (newPasswordCredential, newPasswordCredential', setIdName, + getIdName, setPasswordName, getPasswordName, setAdditionalData, + getAdditionalData, getAdditionalDataUnsafe, + getAdditionalDataUnchecked, PasswordCredential(..), + gTypePasswordCredential) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newPasswordCredential :: + (MonadDOM m) => PasswordCredentialData -> m PasswordCredential +newPasswordCredential data' + = liftDOM + (PasswordCredential <$> + new (jsg "PasswordCredential") [toJSVal data']) + +-- | +newPasswordCredential' :: + (MonadDOM m) => HTMLFormElement -> m PasswordCredential +newPasswordCredential' form + = liftDOM + (PasswordCredential <$> + new (jsg "PasswordCredential") [toJSVal form]) + +-- | +setIdName :: + (MonadDOM m, ToJSString val) => PasswordCredential -> val -> m () +setIdName self val = liftDOM (self ^. jss "idName" (toJSVal val)) + +-- | +getIdName :: + (MonadDOM m, FromJSString result) => PasswordCredential -> m result +getIdName self + = liftDOM ((self ^. js "idName") >>= fromJSValUnchecked) + +-- | +setPasswordName :: + (MonadDOM m, ToJSString val) => PasswordCredential -> val -> m () +setPasswordName self val + = liftDOM (self ^. jss "passwordName" (toJSVal val)) + +-- | +getPasswordName :: + (MonadDOM m, FromJSString result) => PasswordCredential -> m result +getPasswordName self + = liftDOM ((self ^. js "passwordName") >>= fromJSValUnchecked) + +-- | +setAdditionalData :: + (MonadDOM m, IsCredentialBodyType val) => + PasswordCredential -> Maybe val -> m () +setAdditionalData self val + = liftDOM (self ^. jss "additionalData" (toJSVal val)) + +-- | +getAdditionalData :: + (MonadDOM m) => PasswordCredential -> m (Maybe CredentialBodyType) +getAdditionalData self + = liftDOM ((self ^. js "additionalData") >>= fromJSVal) + +-- | +getAdditionalDataUnsafe :: + (MonadDOM m, HasCallStack) => + PasswordCredential -> m CredentialBodyType +getAdditionalDataUnsafe self + = liftDOM + (((self ^. js "additionalData") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getAdditionalDataUnchecked :: + (MonadDOM m) => PasswordCredential -> m CredentialBodyType +getAdditionalDataUnchecked self + = liftDOM ((self ^. js "additionalData") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Path2D.hs b/src/JSDOM/Generated/Path2D.hs --- a/src/JSDOM/Generated/Path2D.hs +++ b/src/JSDOM/Generated/Path2D.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Performance.hs b/src/JSDOM/Generated/Performance.hs --- a/src/JSDOM/Generated/Performance.hs +++ b/src/JSDOM/Generated/Performance.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PerformanceEntry.hs b/src/JSDOM/Generated/PerformanceEntry.hs --- a/src/JSDOM/Generated/PerformanceEntry.hs +++ b/src/JSDOM/Generated/PerformanceEntry.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PerformanceNavigation.hs b/src/JSDOM/Generated/PerformanceNavigation.hs --- a/src/JSDOM/Generated/PerformanceNavigation.hs +++ b/src/JSDOM/Generated/PerformanceNavigation.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PerformanceObserver.hs b/src/JSDOM/Generated/PerformanceObserver.hs --- a/src/JSDOM/Generated/PerformanceObserver.hs +++ b/src/JSDOM/Generated/PerformanceObserver.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PerformanceObserverCallback.hs b/src/JSDOM/Generated/PerformanceObserverCallback.hs --- a/src/JSDOM/Generated/PerformanceObserverCallback.hs +++ b/src/JSDOM/Generated/PerformanceObserverCallback.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -60,7 +60,7 @@ newPerformanceObserverCallbackAsync callback = liftDOM (PerformanceObserverCallback . Callback <$> - function + asyncFunction (\ _ _ [entries, observer] -> fromJSValUnchecked observer >>= \ observer' -> diff --git a/src/JSDOM/Generated/PerformanceObserverEntryList.hs b/src/JSDOM/Generated/PerformanceObserverEntryList.hs --- a/src/JSDOM/Generated/PerformanceObserverEntryList.hs +++ b/src/JSDOM/Generated/PerformanceObserverEntryList.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PerformanceResourceTiming.hs b/src/JSDOM/Generated/PerformanceResourceTiming.hs --- a/src/JSDOM/Generated/PerformanceResourceTiming.hs +++ b/src/JSDOM/Generated/PerformanceResourceTiming.hs @@ -3,18 +3,18 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.PerformanceResourceTiming - (getInitiatorType, getWorkerStart, getRedirectStart, - getRedirectEnd, getFetchStart, getDomainLookupStart, - getDomainLookupEnd, getConnectStart, getConnectEnd, - getSecureConnectionStart, getRequestStart, getResponseStart, - getResponseEnd, PerformanceResourceTiming(..), + (getInitiatorType, getNextHopProtocol, getWorkerStart, + getRedirectStart, getRedirectEnd, getFetchStart, + getDomainLookupStart, getDomainLookupEnd, getConnectStart, + getConnectEnd, getSecureConnectionStart, getRequestStart, + getResponseStart, getResponseEnd, PerformanceResourceTiming(..), gTypePerformanceResourceTiming) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -30,6 +30,13 @@ PerformanceResourceTiming -> m result getInitiatorType self = liftDOM ((self ^. js "initiatorType") >>= fromJSValUnchecked) + +-- | +getNextHopProtocol :: + (MonadDOM m, FromJSString result) => + PerformanceResourceTiming -> m result +getNextHopProtocol self + = liftDOM ((self ^. js "nextHopProtocol") >>= fromJSValUnchecked) -- | getWorkerStart :: diff --git a/src/JSDOM/Generated/PerformanceTiming.hs b/src/JSDOM/Generated/PerformanceTiming.hs --- a/src/JSDOM/Generated/PerformanceTiming.hs +++ b/src/JSDOM/Generated/PerformanceTiming.hs @@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Plugin.hs b/src/JSDOM/Generated/Plugin.hs --- a/src/JSDOM/Generated/Plugin.hs +++ b/src/JSDOM/Generated/Plugin.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PluginArray.hs b/src/JSDOM/Generated/PluginArray.hs --- a/src/JSDOM/Generated/PluginArray.hs +++ b/src/JSDOM/Generated/PluginArray.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PopStateEvent.hs b/src/JSDOM/Generated/PopStateEvent.hs --- a/src/JSDOM/Generated/PopStateEvent.hs +++ b/src/JSDOM/Generated/PopStateEvent.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PositionCallback.hs b/src/JSDOM/Generated/PositionCallback.hs --- a/src/JSDOM/Generated/PositionCallback.hs +++ b/src/JSDOM/Generated/PositionCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -46,6 +46,6 @@ newPositionCallbackAsync callback = liftDOM (PositionCallback . Callback <$> - function + asyncFunction (\ _ _ [position] -> fromJSValUnchecked position >>= \ position' -> callback position')) diff --git a/src/JSDOM/Generated/PositionError.hs b/src/JSDOM/Generated/PositionError.hs --- a/src/JSDOM/Generated/PositionError.hs +++ b/src/JSDOM/Generated/PositionError.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PositionErrorCallback.hs b/src/JSDOM/Generated/PositionErrorCallback.hs --- a/src/JSDOM/Generated/PositionErrorCallback.hs +++ b/src/JSDOM/Generated/PositionErrorCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -49,6 +49,6 @@ newPositionErrorCallbackAsync callback = liftDOM (PositionErrorCallback . Callback <$> - function + asyncFunction (\ _ _ [error] -> fromJSValUnchecked error >>= \ error' -> callback error')) diff --git a/src/JSDOM/Generated/ProcessingInstruction.hs b/src/JSDOM/Generated/ProcessingInstruction.hs --- a/src/JSDOM/Generated/ProcessingInstruction.hs +++ b/src/JSDOM/Generated/ProcessingInstruction.hs @@ -3,14 +3,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ProcessingInstruction - (getTarget, getTargetUnsafe, getTargetUnchecked, getSheet, + (getTarget, getSheet, getSheetUnsafe, getSheetUnchecked, ProcessingInstruction(..), gTypeProcessingInstruction) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -23,26 +23,25 @@ -- | getTarget :: (MonadDOM m, FromJSString result) => - ProcessingInstruction -> m (Maybe result) -getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal) + ProcessingInstruction -> m result +getTarget self + = liftDOM ((self ^. js "target") >>= fromJSValUnchecked) --- | -getTargetUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - ProcessingInstruction -> m result -getTargetUnsafe self +-- | +getSheet :: + (MonadDOM m) => ProcessingInstruction -> m (Maybe StyleSheet) +getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal) + +-- | +getSheetUnsafe :: + (MonadDOM m, HasCallStack) => ProcessingInstruction -> m StyleSheet +getSheetUnsafe self = liftDOM - (((self ^. js "target") >>= fromJSVal) >>= + (((self ^. js "sheet") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) --- | -getTargetUnchecked :: - (MonadDOM m, FromJSString result) => - ProcessingInstruction -> m result -getTargetUnchecked self - = liftDOM ((self ^. js "target") >>= fromJSValUnchecked) - -- | -getSheet :: (MonadDOM m) => ProcessingInstruction -> m StyleSheet -getSheet self +getSheetUnchecked :: + (MonadDOM m) => ProcessingInstruction -> m StyleSheet +getSheetUnchecked self = liftDOM ((self ^. js "sheet") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/ProgressEvent.hs b/src/JSDOM/Generated/ProgressEvent.hs --- a/src/JSDOM/Generated/ProgressEvent.hs +++ b/src/JSDOM/Generated/ProgressEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/PromiseRejectionEvent.hs b/src/JSDOM/Generated/PromiseRejectionEvent.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/PromiseRejectionEvent.hs @@ -0,0 +1,40 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.PromiseRejectionEvent + (newPromiseRejectionEvent, getPromise, getReason, + PromiseRejectionEvent(..), gTypePromiseRejectionEvent) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newPromiseRejectionEvent :: + (MonadDOM m, ToJSString type') => + type' -> PromiseRejectionEventInit -> m PromiseRejectionEvent +newPromiseRejectionEvent type' eventInitDict + = liftDOM + (PromiseRejectionEvent <$> + new (jsg "PromiseRejectionEvent") + [toJSVal type', toJSVal eventInitDict]) + +-- | +getPromise :: (MonadDOM m) => PromiseRejectionEvent -> m JSVal +getPromise self + = liftDOM (((self ^. js "promise") >>= readPromise) >>= toJSVal) + +-- | +getReason :: (MonadDOM m) => PromiseRejectionEvent -> m JSVal +getReason self = liftDOM ((self ^. js "reason") >>= toJSVal) diff --git a/src/JSDOM/Generated/QuickTimePluginReplacement.hs b/src/JSDOM/Generated/QuickTimePluginReplacement.hs --- a/src/JSDOM/Generated/QuickTimePluginReplacement.hs +++ b/src/JSDOM/Generated/QuickTimePluginReplacement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/RGBColor.hs b/src/JSDOM/Generated/RGBColor.hs --- a/src/JSDOM/Generated/RGBColor.hs +++ b/src/JSDOM/Generated/RGBColor.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/RTCDTMFSender.hs b/src/JSDOM/Generated/RTCDTMFSender.hs --- a/src/JSDOM/Generated/RTCDTMFSender.hs +++ b/src/JSDOM/Generated/RTCDTMFSender.hs @@ -3,15 +3,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCDTMFSender - (insertDTMF, getCanInsertDTMF, getTrack, getToneBuffer, - getDuration, getInterToneGap, toneChange, RTCDTMFSender(..), + (insertDTMF, toneChange, getToneBuffer, getCanInsertDTMF, getTrack, + getDuration, getInterToneGap, RTCDTMFSender(..), gTypeRTCDTMFSender) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -31,6 +31,16 @@ (self ^. jsf "insertDTMF" [toJSVal tones, toJSVal duration, toJSVal interToneGap])) +-- | +toneChange :: EventName RTCDTMFSender Event +toneChange = unsafeEventName (toJSString "tonechange") + +-- | +getToneBuffer :: + (MonadDOM m, FromJSString result) => RTCDTMFSender -> m result +getToneBuffer self + = liftDOM ((self ^. js "toneBuffer") >>= fromJSValUnchecked) + -- | getCanInsertDTMF :: (MonadDOM m) => RTCDTMFSender -> m Bool getCanInsertDTMF self @@ -41,12 +51,6 @@ getTrack self = liftDOM ((self ^. js "track") >>= fromJSValUnchecked) --- | -getToneBuffer :: - (MonadDOM m, FromJSString result) => RTCDTMFSender -> m result -getToneBuffer self - = liftDOM ((self ^. js "toneBuffer") >>= fromJSValUnchecked) - -- | getDuration :: (MonadDOM m) => RTCDTMFSender -> m Int getDuration self @@ -56,7 +60,3 @@ getInterToneGap :: (MonadDOM m) => RTCDTMFSender -> m Int getInterToneGap self = liftDOM (round <$> ((self ^. js "interToneGap") >>= valToNumber)) - --- | -toneChange :: EventName RTCDTMFSender Event -toneChange = unsafeEventName (toJSString "tonechange") diff --git a/src/JSDOM/Generated/RTCDTMFToneChangeEvent.hs b/src/JSDOM/Generated/RTCDTMFToneChangeEvent.hs --- a/src/JSDOM/Generated/RTCDTMFToneChangeEvent.hs +++ b/src/JSDOM/Generated/RTCDTMFToneChangeEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/RTCDataChannel.hs b/src/JSDOM/Generated/RTCDataChannel.hs --- a/src/JSDOM/Generated/RTCDataChannel.hs +++ b/src/JSDOM/Generated/RTCDataChannel.hs @@ -4,16 +4,20 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCDataChannel (send, sendView, sendBlob, sendString, close, getLabel, getOrdered, - getMaxRetransmitTime, getMaxRetransmits, getProtocol, - getNegotiated, getId, getReadyState, getBufferedAmount, - setBinaryType, getBinaryType, open, error, closeEvent, message, - RTCDataChannel(..), gTypeRTCDataChannel) + getMaxPacketLifeTime, getMaxPacketLifeTimeUnsafe, + getMaxPacketLifeTimeUnchecked, getMaxRetransmits, + getMaxRetransmitsUnsafe, getMaxRetransmitsUnchecked, getProtocol, + getNegotiated, getId, getIdUnsafe, getIdUnchecked, getReadyState, + getBufferedAmount, setBufferedAmountLowThreshold, + getBufferedAmountLowThreshold, setBinaryType, getBinaryType, open, + error, closeEvent, message, bufferedamountlow, RTCDataChannel(..), + gTypeRTCDataChannel) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -63,18 +67,46 @@ getOrdered :: (MonadDOM m) => RTCDataChannel -> m Bool getOrdered self = liftDOM ((self ^. js "ordered") >>= valToBool) --- | -getMaxRetransmitTime :: (MonadDOM m) => RTCDataChannel -> m Word -getMaxRetransmitTime self +-- | +getMaxPacketLifeTime :: + (MonadDOM m) => RTCDataChannel -> m (Maybe Word) +getMaxPacketLifeTime self + = liftDOM ((self ^. js "maxPacketLifeTime") >>= fromJSVal) + +-- | +getMaxPacketLifeTimeUnsafe :: + (MonadDOM m, HasCallStack) => RTCDataChannel -> m Word +getMaxPacketLifeTimeUnsafe self = liftDOM - (round <$> ((self ^. js "maxRetransmitTime") >>= valToNumber)) + (((self ^. js "maxPacketLifeTime") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) +-- | +getMaxPacketLifeTimeUnchecked :: + (MonadDOM m) => RTCDataChannel -> m Word +getMaxPacketLifeTimeUnchecked self + = liftDOM ((self ^. js "maxPacketLifeTime") >>= fromJSValUnchecked) + -- | -getMaxRetransmits :: (MonadDOM m) => RTCDataChannel -> m Word +getMaxRetransmits :: + (MonadDOM m) => RTCDataChannel -> m (Maybe Word) getMaxRetransmits self + = liftDOM ((self ^. js "maxRetransmits") >>= fromJSVal) + +-- | +getMaxRetransmitsUnsafe :: + (MonadDOM m, HasCallStack) => RTCDataChannel -> m Word +getMaxRetransmitsUnsafe self = liftDOM - (round <$> ((self ^. js "maxRetransmits") >>= valToNumber)) + (((self ^. js "maxRetransmits") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) +-- | +getMaxRetransmitsUnchecked :: + (MonadDOM m) => RTCDataChannel -> m Word +getMaxRetransmitsUnchecked self + = liftDOM ((self ^. js "maxRetransmits") >>= fromJSValUnchecked) + -- | getProtocol :: (MonadDOM m, FromJSString result) => RTCDataChannel -> m result @@ -87,13 +119,25 @@ = liftDOM ((self ^. js "negotiated") >>= valToBool) -- | -getId :: (MonadDOM m) => RTCDataChannel -> m Word -getId self - = liftDOM (round <$> ((self ^. js "id") >>= valToNumber)) +getId :: (MonadDOM m) => RTCDataChannel -> m (Maybe Word) +getId self = liftDOM ((self ^. js "id") >>= fromJSVal) +-- | +getIdUnsafe :: + (MonadDOM m, HasCallStack) => RTCDataChannel -> m Word +getIdUnsafe self + = liftDOM + (((self ^. js "id") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getIdUnchecked :: (MonadDOM m) => RTCDataChannel -> m Word +getIdUnchecked self + = liftDOM ((self ^. js "id") >>= fromJSValUnchecked) + -- | getReadyState :: - (MonadDOM m, FromJSString result) => RTCDataChannel -> m result + (MonadDOM m) => RTCDataChannel -> m RTCDataChannelState getReadyState self = liftDOM ((self ^. js "readyState") >>= fromJSValUnchecked) @@ -103,6 +147,20 @@ = liftDOM (round <$> ((self ^. js "bufferedAmount") >>= valToNumber)) +-- | +setBufferedAmountLowThreshold :: + (MonadDOM m) => RTCDataChannel -> Word -> m () +setBufferedAmountLowThreshold self val + = liftDOM (self ^. jss "bufferedAmountLowThreshold" (toJSVal val)) + +-- | +getBufferedAmountLowThreshold :: + (MonadDOM m) => RTCDataChannel -> m Word +getBufferedAmountLowThreshold self + = liftDOM + (round <$> + ((self ^. js "bufferedAmountLowThreshold") >>= valToNumber)) + -- | setBinaryType :: (MonadDOM m, ToJSString val) => RTCDataChannel -> val -> m () @@ -130,3 +188,8 @@ -- | message :: EventName RTCDataChannel MessageEvent message = unsafeEventName (toJSString "message") + +-- | +bufferedamountlow :: EventName RTCDataChannel onbufferedamountlow +bufferedamountlow + = unsafeEventName (toJSString "bufferedamountlow") diff --git a/src/JSDOM/Generated/RTCDataChannelEvent.hs b/src/JSDOM/Generated/RTCDataChannelEvent.hs --- a/src/JSDOM/Generated/RTCDataChannelEvent.hs +++ b/src/JSDOM/Generated/RTCDataChannelEvent.hs @@ -3,13 +3,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCDataChannelEvent - (getChannel, RTCDataChannelEvent(..), gTypeRTCDataChannelEvent) + (newRTCDataChannelEvent, getChannel, RTCDataChannelEvent(..), + gTypeRTCDataChannelEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -18,6 +19,16 @@ import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums + +-- | +newRTCDataChannelEvent :: + (MonadDOM m, ToJSString type') => + type' -> RTCDataChannelEventInit -> m RTCDataChannelEvent +newRTCDataChannelEvent type' eventInitDict + = liftDOM + (RTCDataChannelEvent <$> + new (jsg "RTCDataChannelEvent") + [toJSVal type', toJSVal eventInitDict]) -- | getChannel :: diff --git a/src/JSDOM/Generated/RTCIceCandidate.hs b/src/JSDOM/Generated/RTCIceCandidate.hs --- a/src/JSDOM/Generated/RTCIceCandidate.hs +++ b/src/JSDOM/Generated/RTCIceCandidate.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/RTCIceCandidateEvent.hs b/src/JSDOM/Generated/RTCIceCandidateEvent.hs --- a/src/JSDOM/Generated/RTCIceCandidateEvent.hs +++ b/src/JSDOM/Generated/RTCIceCandidateEvent.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/RTCIceTransport.hs b/src/JSDOM/Generated/RTCIceTransport.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/RTCIceTransport.hs @@ -0,0 +1,33 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.RTCIceTransport + (getState, getGatheringState, RTCIceTransport(..), + gTypeRTCIceTransport) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getState :: + (MonadDOM m) => RTCIceTransport -> m RTCIceTransportState +getState self + = liftDOM ((self ^. js "state") >>= fromJSValUnchecked) + +-- | +getGatheringState :: + (MonadDOM m) => RTCIceTransport -> m RTCIceGatheringState +getGatheringState self + = liftDOM ((self ^. js "gatheringState") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/RTCPeerConnection.hs b/src/JSDOM/Generated/RTCPeerConnection.hs --- a/src/JSDOM/Generated/RTCPeerConnection.hs +++ b/src/JSDOM/Generated/RTCPeerConnection.hs @@ -3,29 +3,37 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCPeerConnection - (getSenders, getSenders_, getReceivers, getReceivers_, + (createOffer, createOffer_, createAnswer, createAnswer_, + setLocalDescription, setRemoteDescription, addIceCandidate, + getConfiguration, getConfiguration_, setConfiguration, close, + getSenders, getSenders_, getReceivers, getReceivers_, getTransceivers, getTransceivers_, addTrack, addTrack_, removeTrack, addTransceiverTrack, addTransceiverTrack_, - addTransceiver, addTransceiver_, getLocalStreams, getLocalStreams_, - getRemoteStreams, getRemoteStreams_, getStreamById, getStreamById_, - addStream, removeStream, createOffer, createOffer_, createAnswer, - createAnswer_, setLocalDescription, setRemoteDescription, - addIceCandidate, getConfiguration, getConfiguration_, - setConfiguration, getStats, getStats_, createDataChannel, - createDataChannel_, close, getLocalDescription, - getCurrentLocalDescription, getPendingLocalDescription, - getRemoteDescription, getCurrentRemoteDescription, - getPendingRemoteDescription, getSignalingState, - getIceGatheringState, getIceConnectionState, negotiationNeeded, - iceCandidate, signalingStateChange, track, - iceConnectionStateChange, icegatheringstatechange, dataChannel, - addStreamEvent, RTCPeerConnection(..), gTypeRTCPeerConnection) + createDataChannel, createDataChannel_, getStats, getStats_, + getLocalStreams, getLocalStreams_, getRemoteStreams, + getRemoteStreams_, getStreamById, getStreamById_, addStream, + removeStream, getLocalDescription, getLocalDescriptionUnsafe, + getLocalDescriptionUnchecked, getCurrentLocalDescription, + getCurrentLocalDescriptionUnsafe, + getCurrentLocalDescriptionUnchecked, getPendingLocalDescription, + getPendingLocalDescriptionUnsafe, + getPendingLocalDescriptionUnchecked, getRemoteDescription, + getRemoteDescriptionUnsafe, getRemoteDescriptionUnchecked, + getCurrentRemoteDescription, getCurrentRemoteDescriptionUnsafe, + getCurrentRemoteDescriptionUnchecked, getPendingRemoteDescription, + getPendingRemoteDescriptionUnsafe, + getPendingRemoteDescriptionUnchecked, getSignalingState, + getIceGatheringState, getIceConnectionState, getConnectionState, + negotiationNeeded, iceCandidate, signalingStateChange, + iceConnectionStateChange, icegatheringstatechange, + connectionstatechange, track, dataChannel, addStreamEvent, + RTCPeerConnection(..), gTypeRTCPeerConnection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -35,6 +43,94 @@ import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums +-- | +createOffer :: + (MonadDOM m) => + RTCPeerConnection -> + Maybe RTCOfferOptions -> m RTCSessionDescriptionInit +createOffer self offerOptions + = liftDOM + (((self ^. jsf "createOffer" [toJSVal offerOptions]) >>= + readPromise) + >>= fromJSValUnchecked) + +-- | +createOffer_ :: + (MonadDOM m) => RTCPeerConnection -> Maybe RTCOfferOptions -> m () +createOffer_ self offerOptions + = liftDOM (void (self ^. jsf "createOffer" [toJSVal offerOptions])) + +-- | +createAnswer :: + (MonadDOM m) => + RTCPeerConnection -> + Maybe RTCAnswerOptions -> m RTCSessionDescriptionInit +createAnswer self answerOptions + = liftDOM + (((self ^. jsf "createAnswer" [toJSVal answerOptions]) >>= + readPromise) + >>= fromJSValUnchecked) + +-- | +createAnswer_ :: + (MonadDOM m) => RTCPeerConnection -> Maybe RTCAnswerOptions -> m () +createAnswer_ self answerOptions + = liftDOM + (void (self ^. jsf "createAnswer" [toJSVal answerOptions])) + +-- | +setLocalDescription :: + (MonadDOM m) => + RTCPeerConnection -> RTCSessionDescriptionInit -> m () +setLocalDescription self description + = liftDOM + (void + ((self ^. jsf "setLocalDescription" [toJSVal description]) >>= + readPromise)) + +-- | +setRemoteDescription :: + (MonadDOM m) => + RTCPeerConnection -> RTCSessionDescriptionInit -> m () +setRemoteDescription self description + = liftDOM + (void + ((self ^. jsf "setRemoteDescription" [toJSVal description]) >>= + readPromise)) + +-- | +addIceCandidate :: + (MonadDOM m, IsRTCIceCandidateOrInit candidate) => + RTCPeerConnection -> candidate -> m () +addIceCandidate self candidate + = liftDOM + (void + ((self ^. jsf "addIceCandidate" [toJSVal candidate]) >>= + readPromise)) + +-- | +getConfiguration :: + (MonadDOM m) => RTCPeerConnection -> m RTCConfiguration +getConfiguration self + = liftDOM + ((self ^. jsf "getConfiguration" ()) >>= fromJSValUnchecked) + +-- | +getConfiguration_ :: (MonadDOM m) => RTCPeerConnection -> m () +getConfiguration_ self + = liftDOM (void (self ^. jsf "getConfiguration" ())) + +-- | +setConfiguration :: + (MonadDOM m) => RTCPeerConnection -> RTCConfiguration -> m () +setConfiguration self configuration + = liftDOM + (void (self ^. jsf "setConfiguration" [toJSVal configuration])) + +-- | +close :: (MonadDOM m) => RTCPeerConnection -> m () +close self = liftDOM (void (self ^. jsf "close" ())) + -- | getSenders :: (MonadDOM m) => RTCPeerConnection -> m [RTCRtpSender] getSenders self @@ -69,9 +165,8 @@ -- | addTrack :: - (MonadDOM m) => - RTCPeerConnection -> - MediaStreamTrack -> [MediaStream] -> m RTCRtpSender + (MonadDOM m, IsMediaStreamTrack track) => + RTCPeerConnection -> track -> [MediaStream] -> m RTCRtpSender addTrack self track streams = liftDOM ((self ^. jsf "addTrack" [toJSVal track, toJSVal (array streams)]) @@ -79,8 +174,8 @@ -- | addTrack_ :: - (MonadDOM m) => - RTCPeerConnection -> MediaStreamTrack -> [MediaStream] -> m () + (MonadDOM m, IsMediaStreamTrack track) => + RTCPeerConnection -> track -> [MediaStream] -> m () addTrack_ self track streams = liftDOM (void @@ -94,10 +189,9 @@ -- | addTransceiverTrack :: - (MonadDOM m) => + (MonadDOM m, IsMediaStreamTrackOrKind track) => RTCPeerConnection -> - MediaStreamTrack -> - Maybe RTCRtpTransceiverInit -> m RTCRtpTransceiver + track -> Maybe RTCRtpTransceiverInit -> m RTCRtpTransceiver addTransceiverTrack self track init = liftDOM ((self ^. jsf "addTransceiver" [toJSVal track, toJSVal init]) >>= @@ -105,31 +199,47 @@ -- | addTransceiverTrack_ :: - (MonadDOM m) => - RTCPeerConnection -> - MediaStreamTrack -> Maybe RTCRtpTransceiverInit -> m () + (MonadDOM m, IsMediaStreamTrackOrKind track) => + RTCPeerConnection -> track -> Maybe RTCRtpTransceiverInit -> m () addTransceiverTrack_ self track init = liftDOM (void (self ^. jsf "addTransceiver" [toJSVal track, toJSVal init])) --- | -addTransceiver :: - (MonadDOM m, ToJSString kind) => - RTCPeerConnection -> - kind -> Maybe RTCRtpTransceiverInit -> m RTCRtpTransceiver -addTransceiver self kind init +-- | +createDataChannel :: + (MonadDOM m, ToJSString label) => + RTCPeerConnection -> + label -> Maybe RTCDataChannelInit -> m RTCDataChannel +createDataChannel self label options = liftDOM - ((self ^. jsf "addTransceiver" [toJSVal kind, toJSVal init]) >>= - fromJSValUnchecked) + ((self ^. jsf "createDataChannel" [toJSVal label, toJSVal options]) + >>= fromJSValUnchecked) --- | -addTransceiver_ :: - (MonadDOM m, ToJSString kind) => - RTCPeerConnection -> kind -> Maybe RTCRtpTransceiverInit -> m () -addTransceiver_ self kind init +-- | +createDataChannel_ :: + (MonadDOM m, ToJSString label) => + RTCPeerConnection -> label -> Maybe RTCDataChannelInit -> m () +createDataChannel_ self label options = liftDOM - (void (self ^. jsf "addTransceiver" [toJSVal kind, toJSVal init])) + (void + (self ^. jsf "createDataChannel" [toJSVal label, toJSVal options])) +-- | +getStats :: + (MonadDOM m, IsMediaStreamTrack selector) => + RTCPeerConnection -> Maybe selector -> m RTCStatsReport +getStats self selector + = liftDOM + (((self ^. jsf "getStats" [toJSVal selector]) >>= readPromise) >>= + fromJSValUnchecked) + +-- | +getStats_ :: + (MonadDOM m, IsMediaStreamTrack selector) => + RTCPeerConnection -> Maybe selector -> m () +getStats_ self selector + = liftDOM (void (self ^. jsf "getStats" [toJSVal selector])) + -- | getLocalStreams :: (MonadDOM m) => RTCPeerConnection -> m [MediaStream] @@ -182,185 +292,167 @@ removeStream self stream = liftDOM (void (self ^. jsf "removeStream" [toJSVal stream])) --- | -createOffer :: - (MonadDOM m) => - RTCPeerConnection -> - Maybe RTCOfferOptions -> m RTCSessionDescriptionInit -createOffer self offerOptions - = liftDOM - (((self ^. jsf "createOffer" [toJSVal offerOptions]) >>= - readPromise) - >>= fromJSValUnchecked) - --- | -createOffer_ :: - (MonadDOM m) => RTCPeerConnection -> Maybe RTCOfferOptions -> m () -createOffer_ self offerOptions - = liftDOM (void (self ^. jsf "createOffer" [toJSVal offerOptions])) - --- | -createAnswer :: - (MonadDOM m) => - RTCPeerConnection -> - Maybe RTCAnswerOptions -> m RTCSessionDescriptionInit -createAnswer self answerOptions - = liftDOM - (((self ^. jsf "createAnswer" [toJSVal answerOptions]) >>= - readPromise) - >>= fromJSValUnchecked) - --- | -createAnswer_ :: - (MonadDOM m) => RTCPeerConnection -> Maybe RTCAnswerOptions -> m () -createAnswer_ self answerOptions - = liftDOM - (void (self ^. jsf "createAnswer" [toJSVal answerOptions])) - --- | -setLocalDescription :: - (MonadDOM m) => RTCPeerConnection -> RTCSessionDescription -> m () -setLocalDescription self description - = liftDOM - (void - ((self ^. jsf "setLocalDescription" [toJSVal description]) >>= - readPromise)) - --- | -setRemoteDescription :: - (MonadDOM m) => RTCPeerConnection -> RTCSessionDescription -> m () -setRemoteDescription self description - = liftDOM - (void - ((self ^. jsf "setRemoteDescription" [toJSVal description]) >>= - readPromise)) - --- | -addIceCandidate :: - (MonadDOM m) => RTCPeerConnection -> RTCIceCandidate -> m () -addIceCandidate self candidate - = liftDOM - (void - ((self ^. jsf "addIceCandidate" [toJSVal candidate]) >>= - readPromise)) - --- | -getConfiguration :: - (MonadDOM m) => RTCPeerConnection -> m RTCConfiguration -getConfiguration self - = liftDOM - ((self ^. jsf "getConfiguration" ()) >>= fromJSValUnchecked) - --- | -getConfiguration_ :: (MonadDOM m) => RTCPeerConnection -> m () -getConfiguration_ self - = liftDOM (void (self ^. jsf "getConfiguration" ())) - --- | -setConfiguration :: - (MonadDOM m) => RTCPeerConnection -> RTCConfiguration -> m () -setConfiguration self configuration - = liftDOM - (void (self ^. jsf "setConfiguration" [toJSVal configuration])) - --- | -getStats :: - (MonadDOM m) => - RTCPeerConnection -> Maybe MediaStreamTrack -> m RTCStatsReport -getStats self selector - = liftDOM - (((self ^. jsf "getStats" [toJSVal selector]) >>= readPromise) >>= - fromJSValUnchecked) - --- | -getStats_ :: - (MonadDOM m) => RTCPeerConnection -> Maybe MediaStreamTrack -> m () -getStats_ self selector - = liftDOM (void (self ^. jsf "getStats" [toJSVal selector])) - --- | -createDataChannel :: - (MonadDOM m, ToJSString label) => - RTCPeerConnection -> - Maybe label -> Maybe RTCDataChannelInit -> m RTCDataChannel -createDataChannel self label options - = liftDOM - ((self ^. jsf "createDataChannel" [toJSVal label, toJSVal options]) - >>= fromJSValUnchecked) +-- | +getLocalDescription :: + (MonadDOM m) => + RTCPeerConnection -> m (Maybe RTCSessionDescription) +getLocalDescription self + = liftDOM ((self ^. js "localDescription") >>= fromJSVal) --- | -createDataChannel_ :: - (MonadDOM m, ToJSString label) => - RTCPeerConnection -> - Maybe label -> Maybe RTCDataChannelInit -> m () -createDataChannel_ self label options +-- | +getLocalDescriptionUnsafe :: + (MonadDOM m, HasCallStack) => + RTCPeerConnection -> m RTCSessionDescription +getLocalDescriptionUnsafe self = liftDOM - (void - (self ^. jsf "createDataChannel" [toJSVal label, toJSVal options])) - --- | -close :: (MonadDOM m) => RTCPeerConnection -> m () -close self = liftDOM (void (self ^. jsf "close" ())) + (((self ^. js "localDescription") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) -- | -getLocalDescription :: - (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription -getLocalDescription self +getLocalDescriptionUnchecked :: + (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription +getLocalDescriptionUnchecked self = liftDOM ((self ^. js "localDescription") >>= fromJSValUnchecked) -- | getCurrentLocalDescription :: - (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription + (MonadDOM m) => + RTCPeerConnection -> m (Maybe RTCSessionDescription) getCurrentLocalDescription self + = liftDOM ((self ^. js "currentLocalDescription") >>= fromJSVal) + +-- | +getCurrentLocalDescriptionUnsafe :: + (MonadDOM m, HasCallStack) => + RTCPeerConnection -> m RTCSessionDescription +getCurrentLocalDescriptionUnsafe self = liftDOM + (((self ^. js "currentLocalDescription") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getCurrentLocalDescriptionUnchecked :: + (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription +getCurrentLocalDescriptionUnchecked self + = liftDOM ((self ^. js "currentLocalDescription") >>= fromJSValUnchecked) -- | getPendingLocalDescription :: - (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription + (MonadDOM m) => + RTCPeerConnection -> m (Maybe RTCSessionDescription) getPendingLocalDescription self + = liftDOM ((self ^. js "pendingLocalDescription") >>= fromJSVal) + +-- | +getPendingLocalDescriptionUnsafe :: + (MonadDOM m, HasCallStack) => + RTCPeerConnection -> m RTCSessionDescription +getPendingLocalDescriptionUnsafe self = liftDOM + (((self ^. js "pendingLocalDescription") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getPendingLocalDescriptionUnchecked :: + (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription +getPendingLocalDescriptionUnchecked self + = liftDOM ((self ^. js "pendingLocalDescription") >>= fromJSValUnchecked) -- | getRemoteDescription :: - (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription + (MonadDOM m) => + RTCPeerConnection -> m (Maybe RTCSessionDescription) getRemoteDescription self + = liftDOM ((self ^. js "remoteDescription") >>= fromJSVal) + +-- | +getRemoteDescriptionUnsafe :: + (MonadDOM m, HasCallStack) => + RTCPeerConnection -> m RTCSessionDescription +getRemoteDescriptionUnsafe self + = liftDOM + (((self ^. js "remoteDescription") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getRemoteDescriptionUnchecked :: + (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription +getRemoteDescriptionUnchecked self = liftDOM ((self ^. js "remoteDescription") >>= fromJSValUnchecked) -- | getCurrentRemoteDescription :: - (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription + (MonadDOM m) => + RTCPeerConnection -> m (Maybe RTCSessionDescription) getCurrentRemoteDescription self + = liftDOM ((self ^. js "currentRemoteDescription") >>= fromJSVal) + +-- | +getCurrentRemoteDescriptionUnsafe :: + (MonadDOM m, HasCallStack) => + RTCPeerConnection -> m RTCSessionDescription +getCurrentRemoteDescriptionUnsafe self = liftDOM + (((self ^. js "currentRemoteDescription") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getCurrentRemoteDescriptionUnchecked :: + (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription +getCurrentRemoteDescriptionUnchecked self + = liftDOM ((self ^. js "currentRemoteDescription") >>= fromJSValUnchecked) -- | getPendingRemoteDescription :: - (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription + (MonadDOM m) => + RTCPeerConnection -> m (Maybe RTCSessionDescription) getPendingRemoteDescription self + = liftDOM ((self ^. js "pendingRemoteDescription") >>= fromJSVal) + +-- | +getPendingRemoteDescriptionUnsafe :: + (MonadDOM m, HasCallStack) => + RTCPeerConnection -> m RTCSessionDescription +getPendingRemoteDescriptionUnsafe self = liftDOM + (((self ^. js "pendingRemoteDescription") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getPendingRemoteDescriptionUnchecked :: + (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription +getPendingRemoteDescriptionUnchecked self + = liftDOM ((self ^. js "pendingRemoteDescription") >>= fromJSValUnchecked) -- | getSignalingState :: - (MonadDOM m, FromJSString result) => RTCPeerConnection -> m result + (MonadDOM m) => RTCPeerConnection -> m RTCSignalingState getSignalingState self = liftDOM ((self ^. js "signalingState") >>= fromJSValUnchecked) -- | getIceGatheringState :: - (MonadDOM m, FromJSString result) => RTCPeerConnection -> m result + (MonadDOM m) => RTCPeerConnection -> m RTCIceGatheringState getIceGatheringState self = liftDOM ((self ^. js "iceGatheringState") >>= fromJSValUnchecked) -- | getIceConnectionState :: - (MonadDOM m, FromJSString result) => RTCPeerConnection -> m result + (MonadDOM m) => RTCPeerConnection -> m RTCIceConnectionState getIceConnectionState self = liftDOM ((self ^. js "iceConnectionState") >>= fromJSValUnchecked) +-- | +getConnectionState :: + (MonadDOM m) => RTCPeerConnection -> m RTCPeerConnectionState +getConnectionState self + = liftDOM ((self ^. js "connectionState") >>= fromJSValUnchecked) + -- | negotiationNeeded :: EventName RTCPeerConnection Event negotiationNeeded @@ -375,10 +467,6 @@ signalingStateChange = unsafeEventName (toJSString "signalingstatechange") --- | -track :: EventName RTCPeerConnection ontrack -track = unsafeEventName (toJSString "track") - -- | iceConnectionStateChange :: EventName RTCPeerConnection Event iceConnectionStateChange @@ -389,6 +477,16 @@ EventName RTCPeerConnection onicegatheringstatechange icegatheringstatechange = unsafeEventName (toJSString "icegatheringstatechange") + +-- | +connectionstatechange :: + EventName RTCPeerConnection onconnectionstatechange +connectionstatechange + = unsafeEventName (toJSString "connectionstatechange") + +-- | +track :: EventName RTCPeerConnection ontrack +track = unsafeEventName (toJSString "track") -- | dataChannel :: EventName RTCPeerConnection Event diff --git a/src/JSDOM/Generated/RTCPeerConnectionIceEvent.hs b/src/JSDOM/Generated/RTCPeerConnectionIceEvent.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/RTCPeerConnectionIceEvent.hs @@ -0,0 +1,43 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.RTCPeerConnectionIceEvent + (getCandidate, getCandidateUnsafe, getCandidateUnchecked, + RTCPeerConnectionIceEvent(..), gTypeRTCPeerConnectionIceEvent) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getCandidate :: + (MonadDOM m) => + RTCPeerConnectionIceEvent -> m (Maybe RTCIceCandidate) +getCandidate self + = liftDOM ((self ^. js "candidate") >>= fromJSVal) + +-- | +getCandidateUnsafe :: + (MonadDOM m, HasCallStack) => + RTCPeerConnectionIceEvent -> m RTCIceCandidate +getCandidateUnsafe self + = liftDOM + (((self ^. js "candidate") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getCandidateUnchecked :: + (MonadDOM m) => RTCPeerConnectionIceEvent -> m RTCIceCandidate +getCandidateUnchecked self + = liftDOM ((self ^. js "candidate") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/RTCRtpReceiver.hs b/src/JSDOM/Generated/RTCRtpReceiver.hs --- a/src/JSDOM/Generated/RTCRtpReceiver.hs +++ b/src/JSDOM/Generated/RTCRtpReceiver.hs @@ -3,12 +3,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCRtpReceiver - (getTrack, RTCRtpReceiver(..), gTypeRTCRtpReceiver) where + (getParameters, getParameters_, getTrack, RTCRtpReceiver(..), + gTypeRTCRtpReceiver) + where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -17,6 +19,17 @@ import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums + +-- | +getParameters :: + (MonadDOM m) => RTCRtpReceiver -> m RTCRtpParameters +getParameters self + = liftDOM ((self ^. jsf "getParameters" ()) >>= fromJSValUnchecked) + +-- | +getParameters_ :: (MonadDOM m) => RTCRtpReceiver -> m () +getParameters_ self + = liftDOM (void (self ^. jsf "getParameters" ())) -- | getTrack :: (MonadDOM m) => RTCRtpReceiver -> m MediaStreamTrack diff --git a/src/JSDOM/Generated/RTCRtpSender.hs b/src/JSDOM/Generated/RTCRtpSender.hs --- a/src/JSDOM/Generated/RTCRtpSender.hs +++ b/src/JSDOM/Generated/RTCRtpSender.hs @@ -3,14 +3,15 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCRtpSender - (replaceTrack, getTrack, getTrackUnsafe, getTrackUnchecked, - RTCRtpSender(..), gTypeRTCRtpSender) + (getParameters, getParameters_, replaceTrack, getTrack, + getTrackUnsafe, getTrackUnchecked, RTCRtpSender(..), + gTypeRTCRtpSender) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -20,9 +21,20 @@ import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums +-- | +getParameters :: (MonadDOM m) => RTCRtpSender -> m RTCRtpParameters +getParameters self + = liftDOM ((self ^. jsf "getParameters" ()) >>= fromJSValUnchecked) + +-- | +getParameters_ :: (MonadDOM m) => RTCRtpSender -> m () +getParameters_ self + = liftDOM (void (self ^. jsf "getParameters" ())) + -- | replaceTrack :: - (MonadDOM m) => RTCRtpSender -> MediaStreamTrack -> m () + (MonadDOM m, IsMediaStreamTrack withTrack) => + RTCRtpSender -> Maybe withTrack -> m () replaceTrack self withTrack = liftDOM (void diff --git a/src/JSDOM/Generated/RTCRtpTransceiver.hs b/src/JSDOM/Generated/RTCRtpTransceiver.hs --- a/src/JSDOM/Generated/RTCRtpTransceiver.hs +++ b/src/JSDOM/Generated/RTCRtpTransceiver.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/RTCSessionDescription.hs b/src/JSDOM/Generated/RTCSessionDescription.hs --- a/src/JSDOM/Generated/RTCSessionDescription.hs +++ b/src/JSDOM/Generated/RTCSessionDescription.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/RTCTrackEvent.hs b/src/JSDOM/Generated/RTCTrackEvent.hs --- a/src/JSDOM/Generated/RTCTrackEvent.hs +++ b/src/JSDOM/Generated/RTCTrackEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/RadioNodeList.hs b/src/JSDOM/Generated/RadioNodeList.hs --- a/src/JSDOM/Generated/RadioNodeList.hs +++ b/src/JSDOM/Generated/RadioNodeList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Range.hs b/src/JSDOM/Generated/Range.hs --- a/src/JSDOM/Generated/Range.hs +++ b/src/JSDOM/Generated/Range.hs @@ -4,15 +4,15 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Range (newRange, setStart, setEnd, setStartBefore, setStartAfter, - setEndBefore, setEndAfter, collapse, expand, selectNode, + setEndBefore, setEndAfter, collapse, selectNode, selectNodeContents, compareBoundaryPoints, compareBoundaryPoints_, deleteContents, extractContents, extractContents_, cloneContents, cloneContents_, insertNode, surroundContents, cloneRange, - cloneRange_, toString, toString_, detach, getClientRects, - getClientRects_, getBoundingClientRect, getBoundingClientRect_, - createContextualFragment, createContextualFragment_, compareNode, - compareNode_, intersectsNode, intersectsNode_, comparePoint, - comparePoint_, isPointInRange, isPointInRange_, + cloneRange_, detach, isPointInRange, isPointInRange_, comparePoint, + comparePoint_, intersectsNode, intersectsNode_, toString, + toString_, getClientRects, getClientRects_, getBoundingClientRect, + getBoundingClientRect_, createContextualFragment, + createContextualFragment_, expand, compareNode, compareNode_, pattern START_TO_START, pattern START_TO_END, pattern END_TO_END, pattern END_TO_START, pattern NODE_BEFORE, pattern NODE_AFTER, pattern NODE_BEFORE_AND_AFTER, pattern NODE_INSIDE, @@ -23,7 +23,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -39,65 +39,54 @@ -- | setStart :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> Word -> m () -setStart self refNode offset + (MonadDOM m, IsNode node) => Range -> node -> Word -> m () +setStart self node offset = liftDOM - (void (self ^. jsf "setStart" [toJSVal refNode, toJSVal offset])) + (void (self ^. jsf "setStart" [toJSVal node, toJSVal offset])) -- | setEnd :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> Word -> m () -setEnd self refNode offset + (MonadDOM m, IsNode node) => Range -> node -> Word -> m () +setEnd self node offset = liftDOM - (void (self ^. jsf "setEnd" [toJSVal refNode, toJSVal offset])) + (void (self ^. jsf "setEnd" [toJSVal node, toJSVal offset])) -- | setStartBefore :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m () -setStartBefore self refNode - = liftDOM (void (self ^. jsf "setStartBefore" [toJSVal refNode])) + (MonadDOM m, IsNode node) => Range -> node -> m () +setStartBefore self node + = liftDOM (void (self ^. jsf "setStartBefore" [toJSVal node])) -- | -setStartAfter :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m () -setStartAfter self refNode - = liftDOM (void (self ^. jsf "setStartAfter" [toJSVal refNode])) +setStartAfter :: (MonadDOM m, IsNode node) => Range -> node -> m () +setStartAfter self node + = liftDOM (void (self ^. jsf "setStartAfter" [toJSVal node])) -- | -setEndBefore :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m () -setEndBefore self refNode - = liftDOM (void (self ^. jsf "setEndBefore" [toJSVal refNode])) +setEndBefore :: (MonadDOM m, IsNode node) => Range -> node -> m () +setEndBefore self node + = liftDOM (void (self ^. jsf "setEndBefore" [toJSVal node])) -- | -setEndAfter :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m () -setEndAfter self refNode - = liftDOM (void (self ^. jsf "setEndAfter" [toJSVal refNode])) +setEndAfter :: (MonadDOM m, IsNode node) => Range -> node -> m () +setEndAfter self node + = liftDOM (void (self ^. jsf "setEndAfter" [toJSVal node])) -- | collapse :: (MonadDOM m) => Range -> Bool -> m () collapse self toStart = liftDOM (void (self ^. jsf "collapse" [toJSVal toStart])) --- | -expand :: - (MonadDOM m, ToJSString unit) => Range -> Maybe unit -> m () -expand self unit - = liftDOM (void (self ^. jsf "expand" [toJSVal unit])) - -- | -selectNode :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m () -selectNode self refNode - = liftDOM (void (self ^. jsf "selectNode" [toJSVal refNode])) +selectNode :: (MonadDOM m, IsNode node) => Range -> node -> m () +selectNode self node + = liftDOM (void (self ^. jsf "selectNode" [toJSVal node])) -- | selectNodeContents :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m () -selectNodeContents self refNode - = liftDOM - (void (self ^. jsf "selectNodeContents" [toJSVal refNode])) + (MonadDOM m, IsNode node) => Range -> node -> m () +selectNodeContents self node + = liftDOM (void (self ^. jsf "selectNodeContents" [toJSVal node])) -- | compareBoundaryPoints :: @@ -145,10 +134,9 @@ = liftDOM (void (self ^. jsf "cloneContents" ())) -- | -insertNode :: - (MonadDOM m, IsNode newNode) => Range -> newNode -> m () -insertNode self newNode - = liftDOM (void (self ^. jsf "insertNode" [toJSVal newNode])) +insertNode :: (MonadDOM m, IsNode node) => Range -> node -> m () +insertNode self node + = liftDOM (void (self ^. jsf "insertNode" [toJSVal node])) -- | surroundContents :: @@ -166,6 +154,55 @@ cloneRange_ :: (MonadDOM m) => Range -> m () cloneRange_ self = liftDOM (void (self ^. jsf "cloneRange" ())) +-- | +detach :: (MonadDOM m) => Range -> m () +detach self = liftDOM (void (self ^. jsf "detach" ())) + +-- | +isPointInRange :: + (MonadDOM m, IsNode node) => Range -> node -> Word -> m Bool +isPointInRange self node offset + = liftDOM + ((self ^. jsf "isPointInRange" [toJSVal node, toJSVal offset]) >>= + valToBool) + +-- | +isPointInRange_ :: + (MonadDOM m, IsNode node) => Range -> node -> Word -> m () +isPointInRange_ self node offset + = liftDOM + (void + (self ^. jsf "isPointInRange" [toJSVal node, toJSVal offset])) + +-- | +comparePoint :: + (MonadDOM m, IsNode node) => Range -> node -> Word -> m Int +comparePoint self node offset + = liftDOM + (round <$> + ((self ^. jsf "comparePoint" [toJSVal node, toJSVal offset]) >>= + valToNumber)) + +-- | +comparePoint_ :: + (MonadDOM m, IsNode node) => Range -> node -> Word -> m () +comparePoint_ self node offset + = liftDOM + (void (self ^. jsf "comparePoint" [toJSVal node, toJSVal offset])) + +-- | +intersectsNode :: + (MonadDOM m, IsNode node) => Range -> node -> m Bool +intersectsNode self node + = liftDOM + ((self ^. jsf "intersectsNode" [toJSVal node]) >>= valToBool) + +-- | +intersectsNode_ :: + (MonadDOM m, IsNode node) => Range -> node -> m () +intersectsNode_ self node + = liftDOM (void (self ^. jsf "intersectsNode" [toJSVal node])) + -- | toString :: (MonadDOM m, FromJSString result) => Range -> m result toString self @@ -175,15 +212,11 @@ toString_ :: (MonadDOM m) => Range -> m () toString_ self = liftDOM (void (self ^. jsf "toString" ())) --- | -detach :: (MonadDOM m) => Range -> m () -detach self = liftDOM (void (self ^. jsf "detach" ())) - -- | -getClientRects :: (MonadDOM m) => Range -> m ClientRectList +getClientRects :: (MonadDOM m) => Range -> m [DOMRect] getClientRects self = liftDOM - ((self ^. jsf "getClientRects" ()) >>= fromJSValUnchecked) + ((self ^. jsf "getClientRects" ()) >>= fromJSArrayUnchecked) -- | getClientRects_ :: (MonadDOM m) => Range -> m () @@ -191,7 +224,7 @@ = liftDOM (void (self ^. jsf "getClientRects" ())) -- | -getBoundingClientRect :: (MonadDOM m) => Range -> m ClientRect +getBoundingClientRect :: (MonadDOM m) => Range -> m DOMRect getBoundingClientRect self = liftDOM ((self ^. jsf "getBoundingClientRect" ()) >>= fromJSValUnchecked) @@ -203,79 +236,37 @@ -- | createContextualFragment :: - (MonadDOM m, ToJSString html) => - Range -> html -> m DocumentFragment -createContextualFragment self html + (MonadDOM m, ToJSString fragment) => + Range -> fragment -> m DocumentFragment +createContextualFragment self fragment = liftDOM - ((self ^. jsf "createContextualFragment" [toJSVal html]) >>= + ((self ^. jsf "createContextualFragment" [toJSVal fragment]) >>= fromJSValUnchecked) -- | createContextualFragment_ :: - (MonadDOM m, ToJSString html) => Range -> html -> m () -createContextualFragment_ self html + (MonadDOM m, ToJSString fragment) => Range -> fragment -> m () +createContextualFragment_ self fragment = liftDOM - (void (self ^. jsf "createContextualFragment" [toJSVal html])) + (void (self ^. jsf "createContextualFragment" [toJSVal fragment])) --- | -compareNode :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m Int -compareNode self refNode - = liftDOM - (round <$> - ((self ^. jsf "compareNode" [toJSVal refNode]) >>= valToNumber)) +-- | +expand :: + (MonadDOM m, ToJSString unit) => Range -> Maybe unit -> m () +expand self unit + = liftDOM (void (self ^. jsf "expand" [toJSVal unit])) -- | -compareNode_ :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m () -compareNode_ self refNode - = liftDOM (void (self ^. jsf "compareNode" [toJSVal refNode])) - --- | -intersectsNode :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m Bool -intersectsNode self refNode - = liftDOM - ((self ^. jsf "intersectsNode" [toJSVal refNode]) >>= valToBool) - --- | -intersectsNode_ :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> m () -intersectsNode_ self refNode - = liftDOM (void (self ^. jsf "intersectsNode" [toJSVal refNode])) - --- | -comparePoint :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> Word -> m Int -comparePoint self refNode offset +compareNode :: (MonadDOM m, IsNode node) => Range -> node -> m Int +compareNode self node = liftDOM (round <$> - ((self ^. jsf "comparePoint" [toJSVal refNode, toJSVal offset]) >>= - valToNumber)) - --- | -comparePoint_ :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> Word -> m () -comparePoint_ self refNode offset - = liftDOM - (void - (self ^. jsf "comparePoint" [toJSVal refNode, toJSVal offset])) - --- | -isPointInRange :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> Word -> m Bool -isPointInRange self refNode offset - = liftDOM - ((self ^. jsf "isPointInRange" [toJSVal refNode, toJSVal offset]) - >>= valToBool) + ((self ^. jsf "compareNode" [toJSVal node]) >>= valToNumber)) --- | -isPointInRange_ :: - (MonadDOM m, IsNode refNode) => Range -> refNode -> Word -> m () -isPointInRange_ self refNode offset - = liftDOM - (void - (self ^. jsf "isPointInRange" [toJSVal refNode, toJSVal offset])) +-- | +compareNode_ :: (MonadDOM m, IsNode node) => Range -> node -> m () +compareNode_ self node + = liftDOM (void (self ^. jsf "compareNode" [toJSVal node])) pattern START_TO_START = 0 pattern START_TO_END = 1 pattern END_TO_END = 2 diff --git a/src/JSDOM/Generated/ReadableByteStreamController.hs b/src/JSDOM/Generated/ReadableByteStreamController.hs --- a/src/JSDOM/Generated/ReadableByteStreamController.hs +++ b/src/JSDOM/Generated/ReadableByteStreamController.hs @@ -4,14 +4,14 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ReadableByteStreamController (newReadableByteStreamController, enqueue, close, error, - getDesiredSize, ReadableByteStreamController(..), + getByobRequest, getDesiredSize, ReadableByteStreamController(..), gTypeReadableByteStreamController) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -51,6 +51,13 @@ ReadableByteStreamController -> Maybe error -> m () error self error = liftDOM (void (self ^. jsf "error" [toJSVal error])) + +-- | +getByobRequest :: + (MonadDOM m) => + ReadableByteStreamController -> m ReadableStreamBYOBRequest +getByobRequest self + = liftDOM ((self ^. js "byobRequest") >>= fromJSValUnchecked) -- | getDesiredSize :: diff --git a/src/JSDOM/Generated/ReadableStream.hs b/src/JSDOM/Generated/ReadableStream.hs --- a/src/JSDOM/Generated/ReadableStream.hs +++ b/src/JSDOM/Generated/ReadableStream.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ReadableStreamBYOBReader.hs b/src/JSDOM/Generated/ReadableStreamBYOBReader.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/ReadableStreamBYOBReader.hs @@ -0,0 +1,70 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.ReadableStreamBYOBReader + (newReadableStreamBYOBReader, read, read_, cancel, cancel_, + releaseLock, getClosed, ReadableStreamBYOBReader(..), + gTypeReadableStreamBYOBReader) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newReadableStreamBYOBReader :: + (MonadDOM m) => ReadableStream -> m ReadableStreamBYOBReader +newReadableStreamBYOBReader stream + = liftDOM + (ReadableStreamBYOBReader <$> + new (jsg "ReadableStreamBYOBReader") [toJSVal stream]) + +-- | +read :: + (MonadDOM m, ToJSVal view) => + ReadableStreamBYOBReader -> Maybe view -> m JSVal +read self view + = liftDOM + (((self ^. jsf "read" [toJSVal view]) >>= readPromise) >>= toJSVal) + +-- | +read_ :: + (MonadDOM m, ToJSVal view) => + ReadableStreamBYOBReader -> Maybe view -> m () +read_ self view + = liftDOM (void (self ^. jsf "read" [toJSVal view])) + +-- | +cancel :: + (MonadDOM m, ToJSVal reason) => + ReadableStreamBYOBReader -> Maybe reason -> m JSVal +cancel self reason + = liftDOM + (((self ^. jsf "cancel" [toJSVal reason]) >>= readPromise) >>= + toJSVal) + +-- | +cancel_ :: + (MonadDOM m, ToJSVal reason) => + ReadableStreamBYOBReader -> Maybe reason -> m () +cancel_ self reason + = liftDOM (void (self ^. jsf "cancel" [toJSVal reason])) + +-- | +releaseLock :: (MonadDOM m) => ReadableStreamBYOBReader -> m () +releaseLock self = liftDOM (void (self ^. jsf "releaseLock" ())) + +-- | +getClosed :: (MonadDOM m) => ReadableStreamBYOBReader -> m Bool +getClosed self + = liftDOM (((self ^. js "closed") >>= readPromise) >>= valToBool) diff --git a/src/JSDOM/Generated/ReadableStreamBYOBRequest.hs b/src/JSDOM/Generated/ReadableStreamBYOBRequest.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/ReadableStreamBYOBRequest.hs @@ -0,0 +1,51 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.ReadableStreamBYOBRequest + (newReadableStreamBYOBRequest, respond, respondWithNewView, + getView, ReadableStreamBYOBRequest(..), + gTypeReadableStreamBYOBRequest) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newReadableStreamBYOBRequest :: + (MonadDOM m, IsRawTypedArray view) => + ReadableByteStreamController -> view -> m ReadableStreamBYOBRequest +newReadableStreamBYOBRequest controller view + = liftDOM + (ReadableStreamBYOBRequest <$> + new (jsg "ReadableStreamBYOBRequest") + [toJSVal controller, toJSVal view]) + +-- | +respond :: + (MonadDOM m, ToJSVal bytesWritten) => + ReadableStreamBYOBRequest -> Maybe bytesWritten -> m () +respond self bytesWritten + = liftDOM (void (self ^. jsf "respond" [toJSVal bytesWritten])) + +-- | +respondWithNewView :: + (MonadDOM m, ToJSVal view) => + ReadableStreamBYOBRequest -> Maybe view -> m () +respondWithNewView self view + = liftDOM (void (self ^. jsf "respondWithNewView" [toJSVal view])) + +-- | +getView :: + (MonadDOM m) => ReadableStreamBYOBRequest -> m RawTypedArray +getView self = liftDOM ((self ^. js "view") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/ReadableStreamDefaultController.hs b/src/JSDOM/Generated/ReadableStreamDefaultController.hs --- a/src/JSDOM/Generated/ReadableStreamDefaultController.hs +++ b/src/JSDOM/Generated/ReadableStreamDefaultController.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ReadableStreamDefaultReader.hs b/src/JSDOM/Generated/ReadableStreamDefaultReader.hs --- a/src/JSDOM/Generated/ReadableStreamDefaultReader.hs +++ b/src/JSDOM/Generated/ReadableStreamDefaultReader.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ReadableStreamSource.hs b/src/JSDOM/Generated/ReadableStreamSource.hs --- a/src/JSDOM/Generated/ReadableStreamSource.hs +++ b/src/JSDOM/Generated/ReadableStreamSource.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Rect.hs b/src/JSDOM/Generated/Rect.hs --- a/src/JSDOM/Generated/Rect.hs +++ b/src/JSDOM/Generated/Rect.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Request.hs b/src/JSDOM/Generated/Request.hs --- a/src/JSDOM/Generated/Request.hs +++ b/src/JSDOM/Generated/Request.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/RequestAnimationFrameCallback.hs b/src/JSDOM/Generated/RequestAnimationFrameCallback.hs --- a/src/JSDOM/Generated/RequestAnimationFrameCallback.hs +++ b/src/JSDOM/Generated/RequestAnimationFrameCallback.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -53,7 +53,7 @@ newRequestAnimationFrameCallbackAsync callback = liftDOM (RequestAnimationFrameCallback . Callback <$> - function + asyncFunction (\ _ _ [highResTime] -> fromJSValUnchecked highResTime >>= \ highResTime' -> callback highResTime')) diff --git a/src/JSDOM/Generated/Response.hs b/src/JSDOM/Generated/Response.hs --- a/src/JSDOM/Generated/Response.hs +++ b/src/JSDOM/Generated/Response.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SQLError.hs b/src/JSDOM/Generated/SQLError.hs --- a/src/JSDOM/Generated/SQLError.hs +++ b/src/JSDOM/Generated/SQLError.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SQLException.hs b/src/JSDOM/Generated/SQLException.hs --- a/src/JSDOM/Generated/SQLException.hs +++ b/src/JSDOM/Generated/SQLException.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SQLResultSet.hs b/src/JSDOM/Generated/SQLResultSet.hs --- a/src/JSDOM/Generated/SQLResultSet.hs +++ b/src/JSDOM/Generated/SQLResultSet.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SQLResultSetRowList.hs b/src/JSDOM/Generated/SQLResultSetRowList.hs --- a/src/JSDOM/Generated/SQLResultSetRowList.hs +++ b/src/JSDOM/Generated/SQLResultSetRowList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SQLStatementCallback.hs b/src/JSDOM/Generated/SQLStatementCallback.hs --- a/src/JSDOM/Generated/SQLStatementCallback.hs +++ b/src/JSDOM/Generated/SQLStatementCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -60,7 +60,7 @@ newSQLStatementCallbackAsync callback = liftDOM (SQLStatementCallback . Callback <$> - function + asyncFunction (\ _ _ [transaction, resultSet] -> fromJSValUnchecked resultSet >>= \ resultSet' -> diff --git a/src/JSDOM/Generated/SQLStatementErrorCallback.hs b/src/JSDOM/Generated/SQLStatementErrorCallback.hs --- a/src/JSDOM/Generated/SQLStatementErrorCallback.hs +++ b/src/JSDOM/Generated/SQLStatementErrorCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -60,7 +60,7 @@ newSQLStatementErrorCallbackAsync callback = liftDOM (SQLStatementErrorCallback . Callback <$> - function + asyncFunction (\ _ _ [transaction, error] -> fromJSValUnchecked error >>= \ error' -> diff --git a/src/JSDOM/Generated/SQLTransaction.hs b/src/JSDOM/Generated/SQLTransaction.hs --- a/src/JSDOM/Generated/SQLTransaction.hs +++ b/src/JSDOM/Generated/SQLTransaction.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SQLTransactionCallback.hs b/src/JSDOM/Generated/SQLTransactionCallback.hs --- a/src/JSDOM/Generated/SQLTransactionCallback.hs +++ b/src/JSDOM/Generated/SQLTransactionCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -51,7 +51,7 @@ newSQLTransactionCallbackAsync callback = liftDOM (SQLTransactionCallback . Callback <$> - function + asyncFunction (\ _ _ [transaction] -> fromJSValUnchecked transaction >>= \ transaction' -> callback transaction')) diff --git a/src/JSDOM/Generated/SQLTransactionErrorCallback.hs b/src/JSDOM/Generated/SQLTransactionErrorCallback.hs --- a/src/JSDOM/Generated/SQLTransactionErrorCallback.hs +++ b/src/JSDOM/Generated/SQLTransactionErrorCallback.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -50,6 +50,6 @@ newSQLTransactionErrorCallbackAsync callback = liftDOM (SQLTransactionErrorCallback . Callback <$> - function + asyncFunction (\ _ _ [error] -> fromJSValUnchecked error >>= \ error' -> callback error')) diff --git a/src/JSDOM/Generated/SVGAElement.hs b/src/JSDOM/Generated/SVGAElement.hs --- a/src/JSDOM/Generated/SVGAElement.hs +++ b/src/JSDOM/Generated/SVGAElement.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAltGlyphElement.hs b/src/JSDOM/Generated/SVGAltGlyphElement.hs --- a/src/JSDOM/Generated/SVGAltGlyphElement.hs +++ b/src/JSDOM/Generated/SVGAltGlyphElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAngle.hs b/src/JSDOM/Generated/SVGAngle.hs --- a/src/JSDOM/Generated/SVGAngle.hs +++ b/src/JSDOM/Generated/SVGAngle.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedAngle.hs b/src/JSDOM/Generated/SVGAnimatedAngle.hs --- a/src/JSDOM/Generated/SVGAnimatedAngle.hs +++ b/src/JSDOM/Generated/SVGAnimatedAngle.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedBoolean.hs b/src/JSDOM/Generated/SVGAnimatedBoolean.hs --- a/src/JSDOM/Generated/SVGAnimatedBoolean.hs +++ b/src/JSDOM/Generated/SVGAnimatedBoolean.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedEnumeration.hs b/src/JSDOM/Generated/SVGAnimatedEnumeration.hs --- a/src/JSDOM/Generated/SVGAnimatedEnumeration.hs +++ b/src/JSDOM/Generated/SVGAnimatedEnumeration.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedInteger.hs b/src/JSDOM/Generated/SVGAnimatedInteger.hs --- a/src/JSDOM/Generated/SVGAnimatedInteger.hs +++ b/src/JSDOM/Generated/SVGAnimatedInteger.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedLength.hs b/src/JSDOM/Generated/SVGAnimatedLength.hs --- a/src/JSDOM/Generated/SVGAnimatedLength.hs +++ b/src/JSDOM/Generated/SVGAnimatedLength.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedLengthList.hs b/src/JSDOM/Generated/SVGAnimatedLengthList.hs --- a/src/JSDOM/Generated/SVGAnimatedLengthList.hs +++ b/src/JSDOM/Generated/SVGAnimatedLengthList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedNumber.hs b/src/JSDOM/Generated/SVGAnimatedNumber.hs --- a/src/JSDOM/Generated/SVGAnimatedNumber.hs +++ b/src/JSDOM/Generated/SVGAnimatedNumber.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedNumberList.hs b/src/JSDOM/Generated/SVGAnimatedNumberList.hs --- a/src/JSDOM/Generated/SVGAnimatedNumberList.hs +++ b/src/JSDOM/Generated/SVGAnimatedNumberList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedPreserveAspectRatio.hs b/src/JSDOM/Generated/SVGAnimatedPreserveAspectRatio.hs --- a/src/JSDOM/Generated/SVGAnimatedPreserveAspectRatio.hs +++ b/src/JSDOM/Generated/SVGAnimatedPreserveAspectRatio.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedRect.hs b/src/JSDOM/Generated/SVGAnimatedRect.hs --- a/src/JSDOM/Generated/SVGAnimatedRect.hs +++ b/src/JSDOM/Generated/SVGAnimatedRect.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedString.hs b/src/JSDOM/Generated/SVGAnimatedString.hs --- a/src/JSDOM/Generated/SVGAnimatedString.hs +++ b/src/JSDOM/Generated/SVGAnimatedString.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimatedTransformList.hs b/src/JSDOM/Generated/SVGAnimatedTransformList.hs --- a/src/JSDOM/Generated/SVGAnimatedTransformList.hs +++ b/src/JSDOM/Generated/SVGAnimatedTransformList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGAnimationElement.hs b/src/JSDOM/Generated/SVGAnimationElement.hs --- a/src/JSDOM/Generated/SVGAnimationElement.hs +++ b/src/JSDOM/Generated/SVGAnimationElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGCircleElement.hs b/src/JSDOM/Generated/SVGCircleElement.hs --- a/src/JSDOM/Generated/SVGCircleElement.hs +++ b/src/JSDOM/Generated/SVGCircleElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGClipPathElement.hs b/src/JSDOM/Generated/SVGClipPathElement.hs --- a/src/JSDOM/Generated/SVGClipPathElement.hs +++ b/src/JSDOM/Generated/SVGClipPathElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGComponentTransferFunctionElement.hs b/src/JSDOM/Generated/SVGComponentTransferFunctionElement.hs --- a/src/JSDOM/Generated/SVGComponentTransferFunctionElement.hs +++ b/src/JSDOM/Generated/SVGComponentTransferFunctionElement.hs @@ -19,7 +19,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGCursorElement.hs b/src/JSDOM/Generated/SVGCursorElement.hs --- a/src/JSDOM/Generated/SVGCursorElement.hs +++ b/src/JSDOM/Generated/SVGCursorElement.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGElement.hs b/src/JSDOM/Generated/SVGElement.hs --- a/src/JSDOM/Generated/SVGElement.hs +++ b/src/JSDOM/Generated/SVGElement.hs @@ -5,15 +5,15 @@ module JSDOM.Generated.SVGElement (getPresentationAttribute, getPresentationAttribute_, focus, blur, getOwnerSVGElement, getViewportElement, setXmllang, getXmllang, - setXmlspace, getXmlspace, getClassName, getStyle, setTabIndex, - getTabIndex, getDataset, SVGElement(..), gTypeSVGElement, - IsSVGElement, toSVGElement) + setXmlspace, getXmlspace, getClassName, setTabIndex, getTabIndex, + getDataset, SVGElement(..), gTypeSVGElement, IsSVGElement, + toSVGElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -103,13 +103,6 @@ getClassName self = liftDOM (((toSVGElement self) ^. js "className") >>= fromJSValUnchecked) - --- | -getStyle :: - (MonadDOM m, IsSVGElement self) => self -> m CSSStyleDeclaration -getStyle self - = liftDOM - (((toSVGElement self) ^. js "style") >>= fromJSValUnchecked) -- | setTabIndex :: diff --git a/src/JSDOM/Generated/SVGEllipseElement.hs b/src/JSDOM/Generated/SVGEllipseElement.hs --- a/src/JSDOM/Generated/SVGEllipseElement.hs +++ b/src/JSDOM/Generated/SVGEllipseElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGException.hs b/src/JSDOM/Generated/SVGException.hs --- a/src/JSDOM/Generated/SVGException.hs +++ b/src/JSDOM/Generated/SVGException.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGExternalResourcesRequired.hs b/src/JSDOM/Generated/SVGExternalResourcesRequired.hs --- a/src/JSDOM/Generated/SVGExternalResourcesRequired.hs +++ b/src/JSDOM/Generated/SVGExternalResourcesRequired.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEBlendElement.hs b/src/JSDOM/Generated/SVGFEBlendElement.hs --- a/src/JSDOM/Generated/SVGFEBlendElement.hs +++ b/src/JSDOM/Generated/SVGFEBlendElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEColorMatrixElement.hs b/src/JSDOM/Generated/SVGFEColorMatrixElement.hs --- a/src/JSDOM/Generated/SVGFEColorMatrixElement.hs +++ b/src/JSDOM/Generated/SVGFEColorMatrixElement.hs @@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEComponentTransferElement.hs b/src/JSDOM/Generated/SVGFEComponentTransferElement.hs --- a/src/JSDOM/Generated/SVGFEComponentTransferElement.hs +++ b/src/JSDOM/Generated/SVGFEComponentTransferElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFECompositeElement.hs b/src/JSDOM/Generated/SVGFECompositeElement.hs --- a/src/JSDOM/Generated/SVGFECompositeElement.hs +++ b/src/JSDOM/Generated/SVGFECompositeElement.hs @@ -17,7 +17,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEConvolveMatrixElement.hs b/src/JSDOM/Generated/SVGFEConvolveMatrixElement.hs --- a/src/JSDOM/Generated/SVGFEConvolveMatrixElement.hs +++ b/src/JSDOM/Generated/SVGFEConvolveMatrixElement.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEDiffuseLightingElement.hs b/src/JSDOM/Generated/SVGFEDiffuseLightingElement.hs --- a/src/JSDOM/Generated/SVGFEDiffuseLightingElement.hs +++ b/src/JSDOM/Generated/SVGFEDiffuseLightingElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEDisplacementMapElement.hs b/src/JSDOM/Generated/SVGFEDisplacementMapElement.hs --- a/src/JSDOM/Generated/SVGFEDisplacementMapElement.hs +++ b/src/JSDOM/Generated/SVGFEDisplacementMapElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEDistantLightElement.hs b/src/JSDOM/Generated/SVGFEDistantLightElement.hs --- a/src/JSDOM/Generated/SVGFEDistantLightElement.hs +++ b/src/JSDOM/Generated/SVGFEDistantLightElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEDropShadowElement.hs b/src/JSDOM/Generated/SVGFEDropShadowElement.hs --- a/src/JSDOM/Generated/SVGFEDropShadowElement.hs +++ b/src/JSDOM/Generated/SVGFEDropShadowElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEGaussianBlurElement.hs b/src/JSDOM/Generated/SVGFEGaussianBlurElement.hs --- a/src/JSDOM/Generated/SVGFEGaussianBlurElement.hs +++ b/src/JSDOM/Generated/SVGFEGaussianBlurElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEImageElement.hs b/src/JSDOM/Generated/SVGFEImageElement.hs --- a/src/JSDOM/Generated/SVGFEImageElement.hs +++ b/src/JSDOM/Generated/SVGFEImageElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEMergeNodeElement.hs b/src/JSDOM/Generated/SVGFEMergeNodeElement.hs --- a/src/JSDOM/Generated/SVGFEMergeNodeElement.hs +++ b/src/JSDOM/Generated/SVGFEMergeNodeElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEMorphologyElement.hs b/src/JSDOM/Generated/SVGFEMorphologyElement.hs --- a/src/JSDOM/Generated/SVGFEMorphologyElement.hs +++ b/src/JSDOM/Generated/SVGFEMorphologyElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEOffsetElement.hs b/src/JSDOM/Generated/SVGFEOffsetElement.hs --- a/src/JSDOM/Generated/SVGFEOffsetElement.hs +++ b/src/JSDOM/Generated/SVGFEOffsetElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFEPointLightElement.hs b/src/JSDOM/Generated/SVGFEPointLightElement.hs --- a/src/JSDOM/Generated/SVGFEPointLightElement.hs +++ b/src/JSDOM/Generated/SVGFEPointLightElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFESpecularLightingElement.hs b/src/JSDOM/Generated/SVGFESpecularLightingElement.hs --- a/src/JSDOM/Generated/SVGFESpecularLightingElement.hs +++ b/src/JSDOM/Generated/SVGFESpecularLightingElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFESpotLightElement.hs b/src/JSDOM/Generated/SVGFESpotLightElement.hs --- a/src/JSDOM/Generated/SVGFESpotLightElement.hs +++ b/src/JSDOM/Generated/SVGFESpotLightElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFETileElement.hs b/src/JSDOM/Generated/SVGFETileElement.hs --- a/src/JSDOM/Generated/SVGFETileElement.hs +++ b/src/JSDOM/Generated/SVGFETileElement.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFETurbulenceElement.hs b/src/JSDOM/Generated/SVGFETurbulenceElement.hs --- a/src/JSDOM/Generated/SVGFETurbulenceElement.hs +++ b/src/JSDOM/Generated/SVGFETurbulenceElement.hs @@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFilterElement.hs b/src/JSDOM/Generated/SVGFilterElement.hs --- a/src/JSDOM/Generated/SVGFilterElement.hs +++ b/src/JSDOM/Generated/SVGFilterElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFilterPrimitiveStandardAttributes.hs b/src/JSDOM/Generated/SVGFilterPrimitiveStandardAttributes.hs --- a/src/JSDOM/Generated/SVGFilterPrimitiveStandardAttributes.hs +++ b/src/JSDOM/Generated/SVGFilterPrimitiveStandardAttributes.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGFitToViewBox.hs b/src/JSDOM/Generated/SVGFitToViewBox.hs --- a/src/JSDOM/Generated/SVGFitToViewBox.hs +++ b/src/JSDOM/Generated/SVGFitToViewBox.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGForeignObjectElement.hs b/src/JSDOM/Generated/SVGForeignObjectElement.hs --- a/src/JSDOM/Generated/SVGForeignObjectElement.hs +++ b/src/JSDOM/Generated/SVGForeignObjectElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGGlyphRefElement.hs b/src/JSDOM/Generated/SVGGlyphRefElement.hs --- a/src/JSDOM/Generated/SVGGlyphRefElement.hs +++ b/src/JSDOM/Generated/SVGGlyphRefElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGGradientElement.hs b/src/JSDOM/Generated/SVGGradientElement.hs --- a/src/JSDOM/Generated/SVGGradientElement.hs +++ b/src/JSDOM/Generated/SVGGradientElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGGraphicsElement.hs b/src/JSDOM/Generated/SVGGraphicsElement.hs --- a/src/JSDOM/Generated/SVGGraphicsElement.hs +++ b/src/JSDOM/Generated/SVGGraphicsElement.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGImageElement.hs b/src/JSDOM/Generated/SVGImageElement.hs --- a/src/JSDOM/Generated/SVGImageElement.hs +++ b/src/JSDOM/Generated/SVGImageElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGLength.hs b/src/JSDOM/Generated/SVGLength.hs --- a/src/JSDOM/Generated/SVGLength.hs +++ b/src/JSDOM/Generated/SVGLength.hs @@ -17,7 +17,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGLengthList.hs b/src/JSDOM/Generated/SVGLengthList.hs --- a/src/JSDOM/Generated/SVGLengthList.hs +++ b/src/JSDOM/Generated/SVGLengthList.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGLineElement.hs b/src/JSDOM/Generated/SVGLineElement.hs --- a/src/JSDOM/Generated/SVGLineElement.hs +++ b/src/JSDOM/Generated/SVGLineElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGLinearGradientElement.hs b/src/JSDOM/Generated/SVGLinearGradientElement.hs --- a/src/JSDOM/Generated/SVGLinearGradientElement.hs +++ b/src/JSDOM/Generated/SVGLinearGradientElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGMarkerElement.hs b/src/JSDOM/Generated/SVGMarkerElement.hs --- a/src/JSDOM/Generated/SVGMarkerElement.hs +++ b/src/JSDOM/Generated/SVGMarkerElement.hs @@ -16,7 +16,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGMaskElement.hs b/src/JSDOM/Generated/SVGMaskElement.hs --- a/src/JSDOM/Generated/SVGMaskElement.hs +++ b/src/JSDOM/Generated/SVGMaskElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGMatrix.hs b/src/JSDOM/Generated/SVGMatrix.hs --- a/src/JSDOM/Generated/SVGMatrix.hs +++ b/src/JSDOM/Generated/SVGMatrix.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGNumber.hs b/src/JSDOM/Generated/SVGNumber.hs --- a/src/JSDOM/Generated/SVGNumber.hs +++ b/src/JSDOM/Generated/SVGNumber.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGNumberList.hs b/src/JSDOM/Generated/SVGNumberList.hs --- a/src/JSDOM/Generated/SVGNumberList.hs +++ b/src/JSDOM/Generated/SVGNumberList.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathElement.hs b/src/JSDOM/Generated/SVGPathElement.hs --- a/src/JSDOM/Generated/SVGPathElement.hs +++ b/src/JSDOM/Generated/SVGPathElement.hs @@ -41,7 +41,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSeg.hs b/src/JSDOM/Generated/SVGPathSeg.hs --- a/src/JSDOM/Generated/SVGPathSeg.hs +++ b/src/JSDOM/Generated/SVGPathSeg.hs @@ -25,7 +25,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegArcAbs.hs b/src/JSDOM/Generated/SVGPathSegArcAbs.hs --- a/src/JSDOM/Generated/SVGPathSegArcAbs.hs +++ b/src/JSDOM/Generated/SVGPathSegArcAbs.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegArcRel.hs b/src/JSDOM/Generated/SVGPathSegArcRel.hs --- a/src/JSDOM/Generated/SVGPathSegArcRel.hs +++ b/src/JSDOM/Generated/SVGPathSegArcRel.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegCurvetoCubicAbs.hs b/src/JSDOM/Generated/SVGPathSegCurvetoCubicAbs.hs --- a/src/JSDOM/Generated/SVGPathSegCurvetoCubicAbs.hs +++ b/src/JSDOM/Generated/SVGPathSegCurvetoCubicAbs.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegCurvetoCubicRel.hs b/src/JSDOM/Generated/SVGPathSegCurvetoCubicRel.hs --- a/src/JSDOM/Generated/SVGPathSegCurvetoCubicRel.hs +++ b/src/JSDOM/Generated/SVGPathSegCurvetoCubicRel.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs b/src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs --- a/src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs +++ b/src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothRel.hs b/src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothRel.hs --- a/src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothRel.hs +++ b/src/JSDOM/Generated/SVGPathSegCurvetoCubicSmoothRel.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticAbs.hs b/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticAbs.hs --- a/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticAbs.hs +++ b/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticAbs.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticRel.hs b/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticRel.hs --- a/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticRel.hs +++ b/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticRel.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs b/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs --- a/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs +++ b/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs b/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs --- a/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs +++ b/src/JSDOM/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegLinetoAbs.hs b/src/JSDOM/Generated/SVGPathSegLinetoAbs.hs --- a/src/JSDOM/Generated/SVGPathSegLinetoAbs.hs +++ b/src/JSDOM/Generated/SVGPathSegLinetoAbs.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegLinetoHorizontalAbs.hs b/src/JSDOM/Generated/SVGPathSegLinetoHorizontalAbs.hs --- a/src/JSDOM/Generated/SVGPathSegLinetoHorizontalAbs.hs +++ b/src/JSDOM/Generated/SVGPathSegLinetoHorizontalAbs.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegLinetoHorizontalRel.hs b/src/JSDOM/Generated/SVGPathSegLinetoHorizontalRel.hs --- a/src/JSDOM/Generated/SVGPathSegLinetoHorizontalRel.hs +++ b/src/JSDOM/Generated/SVGPathSegLinetoHorizontalRel.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegLinetoRel.hs b/src/JSDOM/Generated/SVGPathSegLinetoRel.hs --- a/src/JSDOM/Generated/SVGPathSegLinetoRel.hs +++ b/src/JSDOM/Generated/SVGPathSegLinetoRel.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegLinetoVerticalAbs.hs b/src/JSDOM/Generated/SVGPathSegLinetoVerticalAbs.hs --- a/src/JSDOM/Generated/SVGPathSegLinetoVerticalAbs.hs +++ b/src/JSDOM/Generated/SVGPathSegLinetoVerticalAbs.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegLinetoVerticalRel.hs b/src/JSDOM/Generated/SVGPathSegLinetoVerticalRel.hs --- a/src/JSDOM/Generated/SVGPathSegLinetoVerticalRel.hs +++ b/src/JSDOM/Generated/SVGPathSegLinetoVerticalRel.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegList.hs b/src/JSDOM/Generated/SVGPathSegList.hs --- a/src/JSDOM/Generated/SVGPathSegList.hs +++ b/src/JSDOM/Generated/SVGPathSegList.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegMovetoAbs.hs b/src/JSDOM/Generated/SVGPathSegMovetoAbs.hs --- a/src/JSDOM/Generated/SVGPathSegMovetoAbs.hs +++ b/src/JSDOM/Generated/SVGPathSegMovetoAbs.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPathSegMovetoRel.hs b/src/JSDOM/Generated/SVGPathSegMovetoRel.hs --- a/src/JSDOM/Generated/SVGPathSegMovetoRel.hs +++ b/src/JSDOM/Generated/SVGPathSegMovetoRel.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPatternElement.hs b/src/JSDOM/Generated/SVGPatternElement.hs --- a/src/JSDOM/Generated/SVGPatternElement.hs +++ b/src/JSDOM/Generated/SVGPatternElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPoint.hs b/src/JSDOM/Generated/SVGPoint.hs --- a/src/JSDOM/Generated/SVGPoint.hs +++ b/src/JSDOM/Generated/SVGPoint.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPointList.hs b/src/JSDOM/Generated/SVGPointList.hs --- a/src/JSDOM/Generated/SVGPointList.hs +++ b/src/JSDOM/Generated/SVGPointList.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPolygonElement.hs b/src/JSDOM/Generated/SVGPolygonElement.hs --- a/src/JSDOM/Generated/SVGPolygonElement.hs +++ b/src/JSDOM/Generated/SVGPolygonElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPolylineElement.hs b/src/JSDOM/Generated/SVGPolylineElement.hs --- a/src/JSDOM/Generated/SVGPolylineElement.hs +++ b/src/JSDOM/Generated/SVGPolylineElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGPreserveAspectRatio.hs b/src/JSDOM/Generated/SVGPreserveAspectRatio.hs --- a/src/JSDOM/Generated/SVGPreserveAspectRatio.hs +++ b/src/JSDOM/Generated/SVGPreserveAspectRatio.hs @@ -23,7 +23,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGRadialGradientElement.hs b/src/JSDOM/Generated/SVGRadialGradientElement.hs --- a/src/JSDOM/Generated/SVGRadialGradientElement.hs +++ b/src/JSDOM/Generated/SVGRadialGradientElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGRect.hs b/src/JSDOM/Generated/SVGRect.hs --- a/src/JSDOM/Generated/SVGRect.hs +++ b/src/JSDOM/Generated/SVGRect.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGRectElement.hs b/src/JSDOM/Generated/SVGRectElement.hs --- a/src/JSDOM/Generated/SVGRectElement.hs +++ b/src/JSDOM/Generated/SVGRectElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGRenderingIntent.hs b/src/JSDOM/Generated/SVGRenderingIntent.hs --- a/src/JSDOM/Generated/SVGRenderingIntent.hs +++ b/src/JSDOM/Generated/SVGRenderingIntent.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGSVGElement.hs b/src/JSDOM/Generated/SVGSVGElement.hs --- a/src/JSDOM/Generated/SVGSVGElement.hs +++ b/src/JSDOM/Generated/SVGSVGElement.hs @@ -27,7 +27,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGScriptElement.hs b/src/JSDOM/Generated/SVGScriptElement.hs --- a/src/JSDOM/Generated/SVGScriptElement.hs +++ b/src/JSDOM/Generated/SVGScriptElement.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGStopElement.hs b/src/JSDOM/Generated/SVGStopElement.hs --- a/src/JSDOM/Generated/SVGStopElement.hs +++ b/src/JSDOM/Generated/SVGStopElement.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGStringList.hs b/src/JSDOM/Generated/SVGStringList.hs --- a/src/JSDOM/Generated/SVGStringList.hs +++ b/src/JSDOM/Generated/SVGStringList.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGStyleElement.hs b/src/JSDOM/Generated/SVGStyleElement.hs --- a/src/JSDOM/Generated/SVGStyleElement.hs +++ b/src/JSDOM/Generated/SVGStyleElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGTests.hs b/src/JSDOM/Generated/SVGTests.hs --- a/src/JSDOM/Generated/SVGTests.hs +++ b/src/JSDOM/Generated/SVGTests.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGTextContentElement.hs b/src/JSDOM/Generated/SVGTextContentElement.hs --- a/src/JSDOM/Generated/SVGTextContentElement.hs +++ b/src/JSDOM/Generated/SVGTextContentElement.hs @@ -19,7 +19,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGTextPathElement.hs b/src/JSDOM/Generated/SVGTextPathElement.hs --- a/src/JSDOM/Generated/SVGTextPathElement.hs +++ b/src/JSDOM/Generated/SVGTextPathElement.hs @@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGTextPositioningElement.hs b/src/JSDOM/Generated/SVGTextPositioningElement.hs --- a/src/JSDOM/Generated/SVGTextPositioningElement.hs +++ b/src/JSDOM/Generated/SVGTextPositioningElement.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGTransform.hs b/src/JSDOM/Generated/SVGTransform.hs --- a/src/JSDOM/Generated/SVGTransform.hs +++ b/src/JSDOM/Generated/SVGTransform.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGTransformList.hs b/src/JSDOM/Generated/SVGTransformList.hs --- a/src/JSDOM/Generated/SVGTransformList.hs +++ b/src/JSDOM/Generated/SVGTransformList.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGURIReference.hs b/src/JSDOM/Generated/SVGURIReference.hs --- a/src/JSDOM/Generated/SVGURIReference.hs +++ b/src/JSDOM/Generated/SVGURIReference.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGUnitTypes.hs b/src/JSDOM/Generated/SVGUnitTypes.hs --- a/src/JSDOM/Generated/SVGUnitTypes.hs +++ b/src/JSDOM/Generated/SVGUnitTypes.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGUseElement.hs b/src/JSDOM/Generated/SVGUseElement.hs --- a/src/JSDOM/Generated/SVGUseElement.hs +++ b/src/JSDOM/Generated/SVGUseElement.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGViewElement.hs b/src/JSDOM/Generated/SVGViewElement.hs --- a/src/JSDOM/Generated/SVGViewElement.hs +++ b/src/JSDOM/Generated/SVGViewElement.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGViewSpec.hs b/src/JSDOM/Generated/SVGViewSpec.hs --- a/src/JSDOM/Generated/SVGViewSpec.hs +++ b/src/JSDOM/Generated/SVGViewSpec.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGZoomAndPan.hs b/src/JSDOM/Generated/SVGZoomAndPan.hs --- a/src/JSDOM/Generated/SVGZoomAndPan.hs +++ b/src/JSDOM/Generated/SVGZoomAndPan.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SVGZoomEvent.hs b/src/JSDOM/Generated/SVGZoomEvent.hs --- a/src/JSDOM/Generated/SVGZoomEvent.hs +++ b/src/JSDOM/Generated/SVGZoomEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Screen.hs b/src/JSDOM/Generated/Screen.hs --- a/src/JSDOM/Generated/Screen.hs +++ b/src/JSDOM/Generated/Screen.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ScriptProcessorNode.hs b/src/JSDOM/Generated/ScriptProcessorNode.hs --- a/src/JSDOM/Generated/ScriptProcessorNode.hs +++ b/src/JSDOM/Generated/ScriptProcessorNode.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SecurityPolicyViolationEvent.hs b/src/JSDOM/Generated/SecurityPolicyViolationEvent.hs --- a/src/JSDOM/Generated/SecurityPolicyViolationEvent.hs +++ b/src/JSDOM/Generated/SecurityPolicyViolationEvent.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Selection.hs b/src/JSDOM/Generated/Selection.hs --- a/src/JSDOM/Generated/Selection.hs +++ b/src/JSDOM/Generated/Selection.hs @@ -19,7 +19,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ShadowRoot.hs b/src/JSDOM/Generated/ShadowRoot.hs --- a/src/JSDOM/Generated/ShadowRoot.hs +++ b/src/JSDOM/Generated/ShadowRoot.hs @@ -3,14 +3,14 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ShadowRoot - (getMode, getHost, setInnerHTML, getInnerHTML, getInnerHTMLUnsafe, - getInnerHTMLUnchecked, ShadowRoot(..), gTypeShadowRoot) + (getMode, getHost, setInnerHTML, getInnerHTML, ShadowRoot(..), + gTypeShadowRoot) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -30,27 +30,12 @@ -- | setInnerHTML :: - (MonadDOM m, ToJSString val) => ShadowRoot -> Maybe val -> m () + (MonadDOM m, ToJSString val) => ShadowRoot -> val -> m () setInnerHTML self val = liftDOM (self ^. jss "innerHTML" (toJSVal val)) -- | getInnerHTML :: - (MonadDOM m, FromJSString result) => ShadowRoot -> m (Maybe result) + (MonadDOM m, FromJSString result) => ShadowRoot -> m result getInnerHTML self - = liftDOM ((self ^. js "innerHTML") >>= fromMaybeJSString) - --- | -getInnerHTMLUnsafe :: - (MonadDOM m, HasCallStack, FromJSString result) => - ShadowRoot -> m result -getInnerHTMLUnsafe self - = liftDOM - (((self ^. js "innerHTML") >>= fromMaybeJSString) >>= - maybe (Prelude.error "Nothing to return") return) - --- | -getInnerHTMLUnchecked :: - (MonadDOM m, FromJSString result) => ShadowRoot -> m result -getInnerHTMLUnchecked self = liftDOM ((self ^. js "innerHTML") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SiteBoundCredential.hs b/src/JSDOM/Generated/SiteBoundCredential.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/SiteBoundCredential.hs @@ -0,0 +1,40 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.SiteBoundCredential + (getName, getIconURL, SiteBoundCredential(..), + gTypeSiteBoundCredential, IsSiteBoundCredential, + toSiteBoundCredential) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getName :: + (MonadDOM m, IsSiteBoundCredential self, FromJSString result) => + self -> m result +getName self + = liftDOM + (((toSiteBoundCredential self) ^. js "name") >>= + fromJSValUnchecked) + +-- | +getIconURL :: + (MonadDOM m, IsSiteBoundCredential self, FromJSString result) => + self -> m result +getIconURL self + = liftDOM + (((toSiteBoundCredential self) ^. js "iconURL") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Slotable.hs b/src/JSDOM/Generated/Slotable.hs --- a/src/JSDOM/Generated/Slotable.hs +++ b/src/JSDOM/Generated/Slotable.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SourceBuffer.hs b/src/JSDOM/Generated/SourceBuffer.hs --- a/src/JSDOM/Generated/SourceBuffer.hs +++ b/src/JSDOM/Generated/SourceBuffer.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SourceBufferList.hs b/src/JSDOM/Generated/SourceBufferList.hs --- a/src/JSDOM/Generated/SourceBufferList.hs +++ b/src/JSDOM/Generated/SourceBufferList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SpeechSynthesis.hs b/src/JSDOM/Generated/SpeechSynthesis.hs --- a/src/JSDOM/Generated/SpeechSynthesis.hs +++ b/src/JSDOM/Generated/SpeechSynthesis.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SpeechSynthesisEvent.hs b/src/JSDOM/Generated/SpeechSynthesisEvent.hs --- a/src/JSDOM/Generated/SpeechSynthesisEvent.hs +++ b/src/JSDOM/Generated/SpeechSynthesisEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SpeechSynthesisUtterance.hs b/src/JSDOM/Generated/SpeechSynthesisUtterance.hs --- a/src/JSDOM/Generated/SpeechSynthesisUtterance.hs +++ b/src/JSDOM/Generated/SpeechSynthesisUtterance.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SpeechSynthesisVoice.hs b/src/JSDOM/Generated/SpeechSynthesisVoice.hs --- a/src/JSDOM/Generated/SpeechSynthesisVoice.hs +++ b/src/JSDOM/Generated/SpeechSynthesisVoice.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/StaticRange.hs b/src/JSDOM/Generated/StaticRange.hs --- a/src/JSDOM/Generated/StaticRange.hs +++ b/src/JSDOM/Generated/StaticRange.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Storage.hs b/src/JSDOM/Generated/Storage.hs --- a/src/JSDOM/Generated/Storage.hs +++ b/src/JSDOM/Generated/Storage.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/StorageErrorCallback.hs b/src/JSDOM/Generated/StorageErrorCallback.hs --- a/src/JSDOM/Generated/StorageErrorCallback.hs +++ b/src/JSDOM/Generated/StorageErrorCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -46,6 +46,6 @@ newStorageErrorCallbackAsync callback = liftDOM (StorageErrorCallback . Callback <$> - function + asyncFunction (\ _ _ [error] -> fromJSValUnchecked error >>= \ error' -> callback error')) diff --git a/src/JSDOM/Generated/StorageEvent.hs b/src/JSDOM/Generated/StorageEvent.hs --- a/src/JSDOM/Generated/StorageEvent.hs +++ b/src/JSDOM/Generated/StorageEvent.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/StorageInfo.hs b/src/JSDOM/Generated/StorageInfo.hs --- a/src/JSDOM/Generated/StorageInfo.hs +++ b/src/JSDOM/Generated/StorageInfo.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/StorageQuota.hs b/src/JSDOM/Generated/StorageQuota.hs --- a/src/JSDOM/Generated/StorageQuota.hs +++ b/src/JSDOM/Generated/StorageQuota.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/StorageQuotaCallback.hs b/src/JSDOM/Generated/StorageQuotaCallback.hs --- a/src/JSDOM/Generated/StorageQuotaCallback.hs +++ b/src/JSDOM/Generated/StorageQuotaCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -48,7 +48,7 @@ newStorageQuotaCallbackAsync callback = liftDOM (StorageQuotaCallback . Callback <$> - function + asyncFunction (\ _ _ [grantedQuotaInBytes] -> fromJSValUnchecked grantedQuotaInBytes >>= \ grantedQuotaInBytes' -> callback grantedQuotaInBytes')) diff --git a/src/JSDOM/Generated/StorageUsageCallback.hs b/src/JSDOM/Generated/StorageUsageCallback.hs --- a/src/JSDOM/Generated/StorageUsageCallback.hs +++ b/src/JSDOM/Generated/StorageUsageCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -57,7 +57,7 @@ newStorageUsageCallbackAsync callback = liftDOM (StorageUsageCallback . Callback <$> - function + asyncFunction (\ _ _ [currentUsageInBytes, currentQuotaInBytes] -> fromJSValUnchecked currentQuotaInBytes >>= \ currentQuotaInBytes' -> diff --git a/src/JSDOM/Generated/StringCallback.hs b/src/JSDOM/Generated/StringCallback.hs --- a/src/JSDOM/Generated/StringCallback.hs +++ b/src/JSDOM/Generated/StringCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -49,6 +49,6 @@ newStringCallbackAsync callback = liftDOM (StringCallback . Callback <$> - function + asyncFunction (\ _ _ [data'] -> fromJSValUnchecked data' >>= \ data'' -> callback data'')) diff --git a/src/JSDOM/Generated/StyleMedia.hs b/src/JSDOM/Generated/StyleMedia.hs --- a/src/JSDOM/Generated/StyleMedia.hs +++ b/src/JSDOM/Generated/StyleMedia.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/StyleSheet.hs b/src/JSDOM/Generated/StyleSheet.hs --- a/src/JSDOM/Generated/StyleSheet.hs +++ b/src/JSDOM/Generated/StyleSheet.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/StyleSheetList.hs b/src/JSDOM/Generated/StyleSheetList.hs --- a/src/JSDOM/Generated/StyleSheetList.hs +++ b/src/JSDOM/Generated/StyleSheetList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/SubtleCrypto.hs b/src/JSDOM/Generated/SubtleCrypto.hs --- a/src/JSDOM/Generated/SubtleCrypto.hs +++ b/src/JSDOM/Generated/SubtleCrypto.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Text.hs b/src/JSDOM/Generated/Text.hs --- a/src/JSDOM/Generated/Text.hs +++ b/src/JSDOM/Generated/Text.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TextDecoder.hs b/src/JSDOM/Generated/TextDecoder.hs --- a/src/JSDOM/Generated/TextDecoder.hs +++ b/src/JSDOM/Generated/TextDecoder.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TextEncoder.hs b/src/JSDOM/Generated/TextEncoder.hs --- a/src/JSDOM/Generated/TextEncoder.hs +++ b/src/JSDOM/Generated/TextEncoder.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TextEvent.hs b/src/JSDOM/Generated/TextEvent.hs --- a/src/JSDOM/Generated/TextEvent.hs +++ b/src/JSDOM/Generated/TextEvent.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TextMetrics.hs b/src/JSDOM/Generated/TextMetrics.hs --- a/src/JSDOM/Generated/TextMetrics.hs +++ b/src/JSDOM/Generated/TextMetrics.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TextTrack.hs b/src/JSDOM/Generated/TextTrack.hs --- a/src/JSDOM/Generated/TextTrack.hs +++ b/src/JSDOM/Generated/TextTrack.hs @@ -14,7 +14,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TextTrackCue.hs b/src/JSDOM/Generated/TextTrackCue.hs --- a/src/JSDOM/Generated/TextTrackCue.hs +++ b/src/JSDOM/Generated/TextTrackCue.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TextTrackCueList.hs b/src/JSDOM/Generated/TextTrackCueList.hs --- a/src/JSDOM/Generated/TextTrackCueList.hs +++ b/src/JSDOM/Generated/TextTrackCueList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TextTrackList.hs b/src/JSDOM/Generated/TextTrackList.hs --- a/src/JSDOM/Generated/TextTrackList.hs +++ b/src/JSDOM/Generated/TextTrackList.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TimeRanges.hs b/src/JSDOM/Generated/TimeRanges.hs --- a/src/JSDOM/Generated/TimeRanges.hs +++ b/src/JSDOM/Generated/TimeRanges.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Touch.hs b/src/JSDOM/Generated/Touch.hs --- a/src/JSDOM/Generated/Touch.hs +++ b/src/JSDOM/Generated/Touch.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TouchEvent.hs b/src/JSDOM/Generated/TouchEvent.hs --- a/src/JSDOM/Generated/TouchEvent.hs +++ b/src/JSDOM/Generated/TouchEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TouchList.hs b/src/JSDOM/Generated/TouchList.hs --- a/src/JSDOM/Generated/TouchList.hs +++ b/src/JSDOM/Generated/TouchList.hs @@ -8,7 +8,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TrackEvent.hs b/src/JSDOM/Generated/TrackEvent.hs --- a/src/JSDOM/Generated/TrackEvent.hs +++ b/src/JSDOM/Generated/TrackEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TransitionEvent.hs b/src/JSDOM/Generated/TransitionEvent.hs --- a/src/JSDOM/Generated/TransitionEvent.hs +++ b/src/JSDOM/Generated/TransitionEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/TreeWalker.hs b/src/JSDOM/Generated/TreeWalker.hs --- a/src/JSDOM/Generated/TreeWalker.hs +++ b/src/JSDOM/Generated/TreeWalker.hs @@ -3,17 +3,22 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.TreeWalker - (parentNode, parentNode_, firstChild, firstChild_, lastChild, - lastChild_, previousSibling, previousSibling_, nextSibling, - nextSibling_, previousNode, previousNode_, nextNode, nextNode_, - getRoot, getWhatToShow, setCurrentNode, getCurrentNode, - TreeWalker(..), gTypeTreeWalker) + (parentNode, parentNode_, parentNodeUnsafe, parentNodeUnchecked, + firstChild, firstChild_, firstChildUnsafe, firstChildUnchecked, + lastChild, lastChild_, lastChildUnsafe, lastChildUnchecked, + previousSibling, previousSibling_, previousSiblingUnsafe, + previousSiblingUnchecked, nextSibling, nextSibling_, + nextSiblingUnsafe, nextSiblingUnchecked, previousNode, + previousNode_, previousNodeUnsafe, previousNodeUnchecked, nextNode, + nextNode_, nextNodeUnsafe, nextNodeUnchecked, getRoot, + getWhatToShow, setCurrentNode, getCurrentNode, TreeWalker(..), + gTypeTreeWalker) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -24,69 +29,159 @@ import JSDOM.Enums -- | -parentNode :: (MonadDOM m) => TreeWalker -> m Node +parentNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node) parentNode self - = liftDOM ((self ^. jsf "parentNode" ()) >>= fromJSValUnchecked) + = liftDOM ((self ^. jsf "parentNode" ()) >>= fromJSVal) -- | parentNode_ :: (MonadDOM m) => TreeWalker -> m () parentNode_ self = liftDOM (void (self ^. jsf "parentNode" ())) +-- | +parentNodeUnsafe :: + (MonadDOM m, HasCallStack) => TreeWalker -> m Node +parentNodeUnsafe self + = liftDOM + (((self ^. jsf "parentNode" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +parentNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node +parentNodeUnchecked self + = liftDOM ((self ^. jsf "parentNode" ()) >>= fromJSValUnchecked) + -- | -firstChild :: (MonadDOM m) => TreeWalker -> m Node +firstChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node) firstChild self - = liftDOM ((self ^. jsf "firstChild" ()) >>= fromJSValUnchecked) + = liftDOM ((self ^. jsf "firstChild" ()) >>= fromJSVal) -- | firstChild_ :: (MonadDOM m) => TreeWalker -> m () firstChild_ self = liftDOM (void (self ^. jsf "firstChild" ())) +-- | +firstChildUnsafe :: + (MonadDOM m, HasCallStack) => TreeWalker -> m Node +firstChildUnsafe self + = liftDOM + (((self ^. jsf "firstChild" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +firstChildUnchecked :: (MonadDOM m) => TreeWalker -> m Node +firstChildUnchecked self + = liftDOM ((self ^. jsf "firstChild" ()) >>= fromJSValUnchecked) + -- | -lastChild :: (MonadDOM m) => TreeWalker -> m Node +lastChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node) lastChild self - = liftDOM ((self ^. jsf "lastChild" ()) >>= fromJSValUnchecked) + = liftDOM ((self ^. jsf "lastChild" ()) >>= fromJSVal) -- | lastChild_ :: (MonadDOM m) => TreeWalker -> m () lastChild_ self = liftDOM (void (self ^. jsf "lastChild" ())) +-- | +lastChildUnsafe :: + (MonadDOM m, HasCallStack) => TreeWalker -> m Node +lastChildUnsafe self + = liftDOM + (((self ^. jsf "lastChild" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +lastChildUnchecked :: (MonadDOM m) => TreeWalker -> m Node +lastChildUnchecked self + = liftDOM ((self ^. jsf "lastChild" ()) >>= fromJSValUnchecked) + -- | -previousSibling :: (MonadDOM m) => TreeWalker -> m Node +previousSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node) previousSibling self - = liftDOM - ((self ^. jsf "previousSibling" ()) >>= fromJSValUnchecked) + = liftDOM ((self ^. jsf "previousSibling" ()) >>= fromJSVal) -- | previousSibling_ :: (MonadDOM m) => TreeWalker -> m () previousSibling_ self = liftDOM (void (self ^. jsf "previousSibling" ())) +-- | +previousSiblingUnsafe :: + (MonadDOM m, HasCallStack) => TreeWalker -> m Node +previousSiblingUnsafe self + = liftDOM + (((self ^. jsf "previousSibling" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +previousSiblingUnchecked :: (MonadDOM m) => TreeWalker -> m Node +previousSiblingUnchecked self + = liftDOM + ((self ^. jsf "previousSibling" ()) >>= fromJSValUnchecked) + -- | -nextSibling :: (MonadDOM m) => TreeWalker -> m Node +nextSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node) nextSibling self - = liftDOM ((self ^. jsf "nextSibling" ()) >>= fromJSValUnchecked) + = liftDOM ((self ^. jsf "nextSibling" ()) >>= fromJSVal) -- | nextSibling_ :: (MonadDOM m) => TreeWalker -> m () nextSibling_ self = liftDOM (void (self ^. jsf "nextSibling" ())) +-- | +nextSiblingUnsafe :: + (MonadDOM m, HasCallStack) => TreeWalker -> m Node +nextSiblingUnsafe self + = liftDOM + (((self ^. jsf "nextSibling" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +nextSiblingUnchecked :: (MonadDOM m) => TreeWalker -> m Node +nextSiblingUnchecked self + = liftDOM ((self ^. jsf "nextSibling" ()) >>= fromJSValUnchecked) + -- | -previousNode :: (MonadDOM m) => TreeWalker -> m Node +previousNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node) previousNode self - = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked) + = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSVal) -- | previousNode_ :: (MonadDOM m) => TreeWalker -> m () previousNode_ self = liftDOM (void (self ^. jsf "previousNode" ())) +-- | +previousNodeUnsafe :: + (MonadDOM m, HasCallStack) => TreeWalker -> m Node +previousNodeUnsafe self + = liftDOM + (((self ^. jsf "previousNode" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +previousNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node +previousNodeUnchecked self + = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked) + -- | -nextNode :: (MonadDOM m) => TreeWalker -> m Node -nextNode self - = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked) +nextNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node) +nextNode self = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSVal) -- | nextNode_ :: (MonadDOM m) => TreeWalker -> m () nextNode_ self = liftDOM (void (self ^. jsf "nextNode" ())) + +-- | +nextNodeUnsafe :: + (MonadDOM m, HasCallStack) => TreeWalker -> m Node +nextNodeUnsafe self + = liftDOM + (((self ^. jsf "nextNode" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +nextNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node +nextNodeUnchecked self + = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked) -- | getRoot :: (MonadDOM m) => TreeWalker -> m Node diff --git a/src/JSDOM/Generated/UIEvent.hs b/src/JSDOM/Generated/UIEvent.hs --- a/src/JSDOM/Generated/UIEvent.hs +++ b/src/JSDOM/Generated/UIEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/URL.hs b/src/JSDOM/Generated/URL.hs --- a/src/JSDOM/Generated/URL.hs +++ b/src/JSDOM/Generated/URL.hs @@ -5,8 +5,7 @@ module JSDOM.Generated.URL (newURL, newURL', newURL'', toJSON, toJSON_, createObjectURL, createObjectURL_, revokeObjectURL, createObjectURLSource, - createObjectURLSource_, createObjectURLStream, - createObjectURLStream_, setHref, getHref, getOrigin, setProtocol, + createObjectURLSource_, setHref, getHref, getOrigin, setProtocol, getProtocol, setUsername, getUsername, setPassword, getPassword, setHost, getHost, setHostname, getHostname, setPort, getPort, setPathname, getPathname, setHash, getHash, setSearch, getSearch, @@ -16,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -85,20 +84,6 @@ (MonadDOM m) => URL -> MediaSource -> m () createObjectURLSource_ self source = liftDOM (void (self ^. jsf "createObjectURL" [toJSVal source])) - --- | -createObjectURLStream :: - (MonadDOM m, FromJSString result) => URL -> MediaStream -> m result -createObjectURLStream self stream - = liftDOM - ((self ^. jsf "createObjectURL" [toJSVal stream]) >>= - fromJSValUnchecked) - --- | -createObjectURLStream_ :: - (MonadDOM m) => URL -> MediaStream -> m () -createObjectURLStream_ self stream - = liftDOM (void (self ^. jsf "createObjectURL" [toJSVal stream])) -- | setHref :: (MonadDOM m, ToJSString val) => URL -> val -> m () diff --git a/src/JSDOM/Generated/URLSearchParams.hs b/src/JSDOM/Generated/URLSearchParams.hs --- a/src/JSDOM/Generated/URLSearchParams.hs +++ b/src/JSDOM/Generated/URLSearchParams.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/UserMessageHandler.hs b/src/JSDOM/Generated/UserMessageHandler.hs --- a/src/JSDOM/Generated/UserMessageHandler.hs +++ b/src/JSDOM/Generated/UserMessageHandler.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/VTTCue.hs b/src/JSDOM/Generated/VTTCue.hs --- a/src/JSDOM/Generated/VTTCue.hs +++ b/src/JSDOM/Generated/VTTCue.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/VTTRegion.hs b/src/JSDOM/Generated/VTTRegion.hs --- a/src/JSDOM/Generated/VTTRegion.hs +++ b/src/JSDOM/Generated/VTTRegion.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/VTTRegionList.hs b/src/JSDOM/Generated/VTTRegionList.hs --- a/src/JSDOM/Generated/VTTRegionList.hs +++ b/src/JSDOM/Generated/VTTRegionList.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/ValidityState.hs b/src/JSDOM/Generated/ValidityState.hs --- a/src/JSDOM/Generated/ValidityState.hs +++ b/src/JSDOM/Generated/ValidityState.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/VideoPlaybackQuality.hs b/src/JSDOM/Generated/VideoPlaybackQuality.hs --- a/src/JSDOM/Generated/VideoPlaybackQuality.hs +++ b/src/JSDOM/Generated/VideoPlaybackQuality.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/VideoTrack.hs b/src/JSDOM/Generated/VideoTrack.hs --- a/src/JSDOM/Generated/VideoTrack.hs +++ b/src/JSDOM/Generated/VideoTrack.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/VideoTrackList.hs b/src/JSDOM/Generated/VideoTrackList.hs --- a/src/JSDOM/Generated/VideoTrackList.hs +++ b/src/JSDOM/Generated/VideoTrackList.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/VoidCallback.hs b/src/JSDOM/Generated/VoidCallback.hs --- a/src/JSDOM/Generated/VoidCallback.hs +++ b/src/JSDOM/Generated/VoidCallback.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -36,4 +36,4 @@ newVoidCallbackAsync :: (MonadDOM m) => JSM () -> m VoidCallback newVoidCallbackAsync callback = liftDOM - (VoidCallback . Callback <$> function (\ _ _ [] -> callback)) + (VoidCallback . Callback <$> asyncFunction (\ _ _ [] -> callback)) diff --git a/src/JSDOM/Generated/WaveShaperNode.hs b/src/JSDOM/Generated/WaveShaperNode.hs --- a/src/JSDOM/Generated/WaveShaperNode.hs +++ b/src/JSDOM/Generated/WaveShaperNode.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGL2RenderingContext.hs b/src/JSDOM/Generated/WebGL2RenderingContext.hs --- a/src/JSDOM/Generated/WebGL2RenderingContext.hs +++ b/src/JSDOM/Generated/WebGL2RenderingContext.hs @@ -193,7 +193,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLActiveInfo.hs b/src/JSDOM/Generated/WebGLActiveInfo.hs --- a/src/JSDOM/Generated/WebGLActiveInfo.hs +++ b/src/JSDOM/Generated/WebGLActiveInfo.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLCompressedTextureATC.hs b/src/JSDOM/Generated/WebGLCompressedTextureATC.hs --- a/src/JSDOM/Generated/WebGLCompressedTextureATC.hs +++ b/src/JSDOM/Generated/WebGLCompressedTextureATC.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLCompressedTexturePVRTC.hs b/src/JSDOM/Generated/WebGLCompressedTexturePVRTC.hs --- a/src/JSDOM/Generated/WebGLCompressedTexturePVRTC.hs +++ b/src/JSDOM/Generated/WebGLCompressedTexturePVRTC.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLCompressedTextureS3TC.hs b/src/JSDOM/Generated/WebGLCompressedTextureS3TC.hs --- a/src/JSDOM/Generated/WebGLCompressedTextureS3TC.hs +++ b/src/JSDOM/Generated/WebGLCompressedTextureS3TC.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLContextEvent.hs b/src/JSDOM/Generated/WebGLContextEvent.hs --- a/src/JSDOM/Generated/WebGLContextEvent.hs +++ b/src/JSDOM/Generated/WebGLContextEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLDebugRendererInfo.hs b/src/JSDOM/Generated/WebGLDebugRendererInfo.hs --- a/src/JSDOM/Generated/WebGLDebugRendererInfo.hs +++ b/src/JSDOM/Generated/WebGLDebugRendererInfo.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLDebugShaders.hs b/src/JSDOM/Generated/WebGLDebugShaders.hs --- a/src/JSDOM/Generated/WebGLDebugShaders.hs +++ b/src/JSDOM/Generated/WebGLDebugShaders.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLDepthTexture.hs b/src/JSDOM/Generated/WebGLDepthTexture.hs --- a/src/JSDOM/Generated/WebGLDepthTexture.hs +++ b/src/JSDOM/Generated/WebGLDepthTexture.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLDrawBuffers.hs b/src/JSDOM/Generated/WebGLDrawBuffers.hs --- a/src/JSDOM/Generated/WebGLDrawBuffers.hs +++ b/src/JSDOM/Generated/WebGLDrawBuffers.hs @@ -27,7 +27,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLLoseContext.hs b/src/JSDOM/Generated/WebGLLoseContext.hs --- a/src/JSDOM/Generated/WebGLLoseContext.hs +++ b/src/JSDOM/Generated/WebGLLoseContext.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLRenderingContextBase.hs b/src/JSDOM/Generated/WebGLRenderingContextBase.hs --- a/src/JSDOM/Generated/WebGLRenderingContextBase.hs +++ b/src/JSDOM/Generated/WebGLRenderingContextBase.hs @@ -200,7 +200,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGLShaderPrecisionFormat.hs b/src/JSDOM/Generated/WebGLShaderPrecisionFormat.hs --- a/src/JSDOM/Generated/WebGLShaderPrecisionFormat.hs +++ b/src/JSDOM/Generated/WebGLShaderPrecisionFormat.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebGPUBuffer.hs b/src/JSDOM/Generated/WebGPUBuffer.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUBuffer.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUBuffer + (getLength, getContents, WebGPUBuffer(..), gTypeWebGPUBuffer) where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getLength :: (MonadDOM m) => WebGPUBuffer -> m Word +getLength self + = liftDOM (round <$> ((self ^. js "length") >>= valToNumber)) + +-- | +getContents :: (MonadDOM m) => WebGPUBuffer -> m ArrayBufferView +getContents self + = liftDOM ((self ^. js "contents") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebGPUCommandBuffer.hs b/src/JSDOM/Generated/WebGPUCommandBuffer.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUCommandBuffer.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUCommandBuffer + (createRenderCommandEncoderWithDescriptor, + createRenderCommandEncoderWithDescriptor_, + createComputeCommandEncoder, createComputeCommandEncoder_, commit, + presentDrawable, getCompleted, WebGPUCommandBuffer(..), + gTypeWebGPUCommandBuffer) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +createRenderCommandEncoderWithDescriptor :: + (MonadDOM m) => + WebGPUCommandBuffer -> + WebGPURenderPassDescriptor -> + m WebGPURenderCommandEncoder +createRenderCommandEncoderWithDescriptor self descriptor + = liftDOM + ((self ^. jsf "createRenderCommandEncoderWithDescriptor" + [toJSVal descriptor]) + >>= fromJSValUnchecked) + +-- | +createRenderCommandEncoderWithDescriptor_ :: + (MonadDOM m) => + WebGPUCommandBuffer -> + WebGPURenderPassDescriptor -> m () +createRenderCommandEncoderWithDescriptor_ self descriptor + = liftDOM + (void + (self ^. jsf "createRenderCommandEncoderWithDescriptor" + [toJSVal descriptor])) + +-- | +createComputeCommandEncoder :: + (MonadDOM m) => + WebGPUCommandBuffer -> m WebGPUComputeCommandEncoder +createComputeCommandEncoder self + = liftDOM + ((self ^. jsf "createComputeCommandEncoder" ()) >>= + fromJSValUnchecked) + +-- | +createComputeCommandEncoder_ :: + (MonadDOM m) => WebGPUCommandBuffer -> m () +createComputeCommandEncoder_ self + = liftDOM (void (self ^. jsf "createComputeCommandEncoder" ())) + +-- | +commit :: (MonadDOM m) => WebGPUCommandBuffer -> m () +commit self = liftDOM (void (self ^. jsf "commit" ())) + +-- | +presentDrawable :: + (MonadDOM m) => WebGPUCommandBuffer -> WebGPUDrawable -> m () +presentDrawable self drawable + = liftDOM (void (self ^. jsf "presentDrawable" [toJSVal drawable])) + +-- | +getCompleted :: (MonadDOM m) => WebGPUCommandBuffer -> m () +getCompleted self + = liftDOM (void ((self ^. js "completed") >>= readPromise)) diff --git a/src/JSDOM/Generated/WebGPUCommandQueue.hs b/src/JSDOM/Generated/WebGPUCommandQueue.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUCommandQueue.hs @@ -0,0 +1,60 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUCommandQueue + (createCommandBuffer, createCommandBuffer_, + createCommandBufferUnsafe, createCommandBufferUnchecked, setLabel, + getLabel, WebGPUCommandQueue(..), gTypeWebGPUCommandQueue) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +createCommandBuffer :: + (MonadDOM m) => WebGPUCommandQueue -> m (Maybe WebGPUCommandBuffer) +createCommandBuffer self + = liftDOM ((self ^. jsf "createCommandBuffer" ()) >>= fromJSVal) + +-- | +createCommandBuffer_ :: (MonadDOM m) => WebGPUCommandQueue -> m () +createCommandBuffer_ self + = liftDOM (void (self ^. jsf "createCommandBuffer" ())) + +-- | +createCommandBufferUnsafe :: + (MonadDOM m, HasCallStack) => + WebGPUCommandQueue -> m WebGPUCommandBuffer +createCommandBufferUnsafe self + = liftDOM + (((self ^. jsf "createCommandBuffer" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +createCommandBufferUnchecked :: + (MonadDOM m) => WebGPUCommandQueue -> m WebGPUCommandBuffer +createCommandBufferUnchecked self + = liftDOM + ((self ^. jsf "createCommandBuffer" ()) >>= fromJSValUnchecked) + +-- | +setLabel :: + (MonadDOM m, ToJSString val) => WebGPUCommandQueue -> val -> m () +setLabel self val = liftDOM (self ^. jss "label" (toJSVal val)) + +-- | +getLabel :: + (MonadDOM m, FromJSString result) => WebGPUCommandQueue -> m result +getLabel self + = liftDOM ((self ^. js "label") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebGPUComputeCommandEncoder.hs b/src/JSDOM/Generated/WebGPUComputeCommandEncoder.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUComputeCommandEncoder.hs @@ -0,0 +1,54 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUComputeCommandEncoder + (setComputePipelineState, setBuffer, dispatch, endEncoding, + WebGPUComputeCommandEncoder(..), gTypeWebGPUComputeCommandEncoder) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +setComputePipelineState :: + (MonadDOM m) => + WebGPUComputeCommandEncoder -> WebGPUComputePipelineState -> m () +setComputePipelineState self pipelineState + = liftDOM + (void + (self ^. jsf "setComputePipelineState" [toJSVal pipelineState])) + +-- | +setBuffer :: + (MonadDOM m) => + WebGPUComputeCommandEncoder -> WebGPUBuffer -> Word -> Word -> m () +setBuffer self buffer offset index + = liftDOM + (void + (self ^. jsf "setBuffer" + [toJSVal buffer, toJSVal offset, toJSVal index])) + +-- | +dispatch :: + (MonadDOM m) => + WebGPUComputeCommandEncoder -> WebGPUSize -> WebGPUSize -> m () +dispatch self threadgroupsPerGrid threadsPerThreadgroup + = liftDOM + (void + (self ^. jsf "dispatch" + [toJSVal threadgroupsPerGrid, toJSVal threadsPerThreadgroup])) + +-- | +endEncoding :: (MonadDOM m) => WebGPUComputeCommandEncoder -> m () +endEncoding self = liftDOM (void (self ^. jsf "endEncoding" ())) diff --git a/src/JSDOM/Generated/WebGPUDepthStencilDescriptor.hs b/src/JSDOM/Generated/WebGPUDepthStencilDescriptor.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUDepthStencilDescriptor.hs @@ -0,0 +1,58 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUDepthStencilDescriptor + (newWebGPUDepthStencilDescriptor, setDepthCompareFunction, + getDepthCompareFunction, setDepthWriteEnabled, + getDepthWriteEnabled, WebGPUDepthStencilDescriptor(..), + gTypeWebGPUDepthStencilDescriptor) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newWebGPUDepthStencilDescriptor :: + (MonadDOM m) => m WebGPUDepthStencilDescriptor +newWebGPUDepthStencilDescriptor + = liftDOM + (WebGPUDepthStencilDescriptor <$> + new (jsg "WebGPUDepthStencilDescriptor") ()) + +-- | +setDepthCompareFunction :: + (MonadDOM m) => + WebGPUDepthStencilDescriptor -> WebGPUCompareFunction -> m () +setDepthCompareFunction self val + = liftDOM (self ^. jss "depthCompareFunction" (toJSVal val)) + +-- | +getDepthCompareFunction :: + (MonadDOM m) => + WebGPUDepthStencilDescriptor -> m WebGPUCompareFunction +getDepthCompareFunction self + = liftDOM + ((self ^. js "depthCompareFunction") >>= fromJSValUnchecked) + +-- | +setDepthWriteEnabled :: + (MonadDOM m) => WebGPUDepthStencilDescriptor -> Bool -> m () +setDepthWriteEnabled self val + = liftDOM (self ^. jss "depthWriteEnabled" (toJSVal val)) + +-- | +getDepthWriteEnabled :: + (MonadDOM m) => WebGPUDepthStencilDescriptor -> m Bool +getDepthWriteEnabled self + = liftDOM ((self ^. js "depthWriteEnabled") >>= valToBool) diff --git a/src/JSDOM/Generated/WebGPUDepthStencilState.hs b/src/JSDOM/Generated/WebGPUDepthStencilState.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUDepthStencilState.hs @@ -0,0 +1,34 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUDepthStencilState + (setLabel, getLabel, WebGPUDepthStencilState(..), + gTypeWebGPUDepthStencilState) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +setLabel :: + (MonadDOM m, ToJSString val) => + WebGPUDepthStencilState -> val -> m () +setLabel self val = liftDOM (self ^. jss "label" (toJSVal val)) + +-- | +getLabel :: + (MonadDOM m, FromJSString result) => + WebGPUDepthStencilState -> m result +getLabel self + = liftDOM ((self ^. js "label") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebGPUDrawable.hs b/src/JSDOM/Generated/WebGPUDrawable.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUDrawable.hs @@ -0,0 +1,24 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUDrawable + (getTexture, WebGPUDrawable(..), gTypeWebGPUDrawable) where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getTexture :: (MonadDOM m) => WebGPUDrawable -> m WebGPUTexture +getTexture self + = liftDOM ((self ^. js "texture") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebGPUFunction.hs b/src/JSDOM/Generated/WebGPUFunction.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUFunction.hs @@ -0,0 +1,24 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUFunction + (getName, WebGPUFunction(..), gTypeWebGPUFunction) where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getName :: + (MonadDOM m, FromJSString result) => WebGPUFunction -> m result +getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebGPULibrary.hs b/src/JSDOM/Generated/WebGPULibrary.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPULibrary.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPULibrary + (functionWithName, functionWithName_, functionWithNameUnsafe, + functionWithNameUnchecked, getSourceCode, setLabel, getLabel, + getFunctionNames, WebGPULibrary(..), gTypeWebGPULibrary) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +functionWithName :: + (MonadDOM m, ToJSString name) => + WebGPULibrary -> name -> m (Maybe WebGPUFunction) +functionWithName self name + = liftDOM + ((self ^. jsf "functionWithName" [toJSVal name]) >>= fromJSVal) + +-- | +functionWithName_ :: + (MonadDOM m, ToJSString name) => WebGPULibrary -> name -> m () +functionWithName_ self name + = liftDOM (void (self ^. jsf "functionWithName" [toJSVal name])) + +-- | +functionWithNameUnsafe :: + (MonadDOM m, ToJSString name, HasCallStack) => + WebGPULibrary -> name -> m WebGPUFunction +functionWithNameUnsafe self name + = liftDOM + (((self ^. jsf "functionWithName" [toJSVal name]) >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +functionWithNameUnchecked :: + (MonadDOM m, ToJSString name) => + WebGPULibrary -> name -> m WebGPUFunction +functionWithNameUnchecked self name + = liftDOM + ((self ^. jsf "functionWithName" [toJSVal name]) >>= + fromJSValUnchecked) + +-- | +getSourceCode :: + (MonadDOM m, FromJSString result) => WebGPULibrary -> m result +getSourceCode self + = liftDOM ((self ^. js "sourceCode") >>= fromJSValUnchecked) + +-- | +setLabel :: + (MonadDOM m, ToJSString val) => WebGPULibrary -> val -> m () +setLabel self val = liftDOM (self ^. jss "label" (toJSVal val)) + +-- | +getLabel :: + (MonadDOM m, FromJSString result) => WebGPULibrary -> m result +getLabel self + = liftDOM ((self ^. js "label") >>= fromJSValUnchecked) + +-- | +getFunctionNames :: + (MonadDOM m, FromJSString result) => WebGPULibrary -> m [result] +getFunctionNames self + = liftDOM ((self ^. js "functionNames") >>= fromJSArrayUnchecked) diff --git a/src/JSDOM/Generated/WebGPURenderCommandEncoder.hs b/src/JSDOM/Generated/WebGPURenderCommandEncoder.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPURenderCommandEncoder.hs @@ -0,0 +1,74 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPURenderCommandEncoder + (setRenderPipelineState, setDepthStencilState, setVertexBuffer, + setFragmentBuffer, drawPrimitives, endEncoding, + WebGPURenderCommandEncoder(..), gTypeWebGPURenderCommandEncoder) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +setRenderPipelineState :: + (MonadDOM m) => + WebGPURenderCommandEncoder -> WebGPURenderPipelineState -> m () +setRenderPipelineState self pipelineState + = liftDOM + (void + (self ^. jsf "setRenderPipelineState" [toJSVal pipelineState])) + +-- | +setDepthStencilState :: + (MonadDOM m) => + WebGPURenderCommandEncoder -> WebGPUDepthStencilState -> m () +setDepthStencilState self depthStencilState + = liftDOM + (void + (self ^. jsf "setDepthStencilState" [toJSVal depthStencilState])) + +-- | +setVertexBuffer :: + (MonadDOM m) => + WebGPURenderCommandEncoder -> WebGPUBuffer -> Word -> Word -> m () +setVertexBuffer self buffer offset index + = liftDOM + (void + (self ^. jsf "setVertexBuffer" + [toJSVal buffer, toJSVal offset, toJSVal index])) + +-- | +setFragmentBuffer :: + (MonadDOM m) => + WebGPURenderCommandEncoder -> WebGPUBuffer -> Word -> Word -> m () +setFragmentBuffer self buffer offset index + = liftDOM + (void + (self ^. jsf "setFragmentBuffer" + [toJSVal buffer, toJSVal offset, toJSVal index])) + +-- | +drawPrimitives :: + (MonadDOM m) => + WebGPURenderCommandEncoder -> Word -> Word -> Word -> m () +drawPrimitives self type' start count + = liftDOM + (void + (self ^. jsf "drawPrimitives" + [toJSVal type', toJSVal start, toJSVal count])) + +-- | +endEncoding :: (MonadDOM m) => WebGPURenderCommandEncoder -> m () +endEncoding self = liftDOM (void (self ^. jsf "endEncoding" ())) diff --git a/src/JSDOM/Generated/WebGPURenderPassAttachmentDescriptor.hs b/src/JSDOM/Generated/WebGPURenderPassAttachmentDescriptor.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPURenderPassAttachmentDescriptor.hs @@ -0,0 +1,102 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPURenderPassAttachmentDescriptor + (setTexture, getTexture, getTextureUnsafe, getTextureUnchecked, + setLoadAction, getLoadAction, setStoreAction, getStoreAction, + WebGPURenderPassAttachmentDescriptor(..), + gTypeWebGPURenderPassAttachmentDescriptor, + IsWebGPURenderPassAttachmentDescriptor, + toWebGPURenderPassAttachmentDescriptor) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +setTexture :: + (MonadDOM m, IsWebGPURenderPassAttachmentDescriptor self) => + self -> Maybe WebGPUTexture -> m () +setTexture self val + = liftDOM + ((toWebGPURenderPassAttachmentDescriptor self) ^. jss "texture" + (toJSVal val)) + +-- | +getTexture :: + (MonadDOM m, IsWebGPURenderPassAttachmentDescriptor self) => + self -> m (Maybe WebGPUTexture) +getTexture self + = liftDOM + (((toWebGPURenderPassAttachmentDescriptor self) ^. js "texture") + >>= fromJSVal) + +-- | +getTextureUnsafe :: + (MonadDOM m, IsWebGPURenderPassAttachmentDescriptor self, + HasCallStack) => + self -> m WebGPUTexture +getTextureUnsafe self + = liftDOM + ((((toWebGPURenderPassAttachmentDescriptor self) ^. js "texture") + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +getTextureUnchecked :: + (MonadDOM m, IsWebGPURenderPassAttachmentDescriptor self) => + self -> m WebGPUTexture +getTextureUnchecked self + = liftDOM + (((toWebGPURenderPassAttachmentDescriptor self) ^. js "texture") + >>= fromJSValUnchecked) + +-- | +setLoadAction :: + (MonadDOM m, IsWebGPURenderPassAttachmentDescriptor self) => + self -> Word -> m () +setLoadAction self val + = liftDOM + ((toWebGPURenderPassAttachmentDescriptor self) ^. jss "loadAction" + (toJSVal val)) + +-- | +getLoadAction :: + (MonadDOM m, IsWebGPURenderPassAttachmentDescriptor self) => + self -> m Word +getLoadAction self + = liftDOM + (round <$> + (((toWebGPURenderPassAttachmentDescriptor self) ^. js "loadAction") + >>= valToNumber)) + +-- | +setStoreAction :: + (MonadDOM m, IsWebGPURenderPassAttachmentDescriptor self) => + self -> Word -> m () +setStoreAction self val + = liftDOM + ((toWebGPURenderPassAttachmentDescriptor self) ^. jss "storeAction" + (toJSVal val)) + +-- | +getStoreAction :: + (MonadDOM m, IsWebGPURenderPassAttachmentDescriptor self) => + self -> m Word +getStoreAction self + = liftDOM + (round <$> + (((toWebGPURenderPassAttachmentDescriptor self) ^. + js "storeAction") + >>= valToNumber)) diff --git a/src/JSDOM/Generated/WebGPURenderPassColorAttachmentDescriptor.hs b/src/JSDOM/Generated/WebGPURenderPassColorAttachmentDescriptor.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPURenderPassColorAttachmentDescriptor.hs @@ -0,0 +1,36 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPURenderPassColorAttachmentDescriptor + (setClearColor, getClearColor, + WebGPURenderPassColorAttachmentDescriptor(..), + gTypeWebGPURenderPassColorAttachmentDescriptor) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +setClearColor :: + (MonadDOM m) => + WebGPURenderPassColorAttachmentDescriptor -> [Float] -> m () +setClearColor self val + = liftDOM (self ^. jss "clearColor" (toJSVal (array val))) + +-- | +getClearColor :: + (MonadDOM m) => + WebGPURenderPassColorAttachmentDescriptor -> m [Float] +getClearColor self + = liftDOM ((self ^. js "clearColor") >>= fromJSArrayUnchecked) diff --git a/src/JSDOM/Generated/WebGPURenderPassDepthAttachmentDescriptor.hs b/src/JSDOM/Generated/WebGPURenderPassDepthAttachmentDescriptor.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPURenderPassDepthAttachmentDescriptor.hs @@ -0,0 +1,36 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPURenderPassDepthAttachmentDescriptor + (setClearDepth, getClearDepth, + WebGPURenderPassDepthAttachmentDescriptor(..), + gTypeWebGPURenderPassDepthAttachmentDescriptor) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +setClearDepth :: + (MonadDOM m) => + WebGPURenderPassDepthAttachmentDescriptor -> Double -> m () +setClearDepth self val + = liftDOM (self ^. jss "clearDepth" (toJSVal val)) + +-- | +getClearDepth :: + (MonadDOM m) => + WebGPURenderPassDepthAttachmentDescriptor -> m Double +getClearDepth self + = liftDOM ((self ^. js "clearDepth") >>= valToNumber) diff --git a/src/JSDOM/Generated/WebGPURenderPassDescriptor.hs b/src/JSDOM/Generated/WebGPURenderPassDescriptor.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPURenderPassDescriptor.hs @@ -0,0 +1,47 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPURenderPassDescriptor + (newWebGPURenderPassDescriptor, getColorAttachments, + getDepthAttachment, WebGPURenderPassDescriptor(..), + gTypeWebGPURenderPassDescriptor) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newWebGPURenderPassDescriptor :: + (MonadDOM m) => m WebGPURenderPassDescriptor +newWebGPURenderPassDescriptor + = liftDOM + (WebGPURenderPassDescriptor <$> + new (jsg "WebGPURenderPassDescriptor") ()) + +-- | +getColorAttachments :: + (MonadDOM m) => + WebGPURenderPassDescriptor -> + m [WebGPURenderPassColorAttachmentDescriptor] +getColorAttachments self + = liftDOM + ((self ^. js "colorAttachments") >>= fromJSArrayUnchecked) + +-- | +getDepthAttachment :: + (MonadDOM m) => + WebGPURenderPassDescriptor -> + m WebGPURenderPassDepthAttachmentDescriptor +getDepthAttachment self + = liftDOM ((self ^. js "depthAttachment") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebGPURenderPipelineColorAttachmentDescriptor.hs b/src/JSDOM/Generated/WebGPURenderPipelineColorAttachmentDescriptor.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPURenderPipelineColorAttachmentDescriptor.hs @@ -0,0 +1,36 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPURenderPipelineColorAttachmentDescriptor + (setPixelFormat, getPixelFormat, + WebGPURenderPipelineColorAttachmentDescriptor(..), + gTypeWebGPURenderPipelineColorAttachmentDescriptor) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +setPixelFormat :: + (MonadDOM m) => + WebGPURenderPipelineColorAttachmentDescriptor -> Word -> m () +setPixelFormat self val + = liftDOM (self ^. jss "pixelFormat" (toJSVal val)) + +-- | +getPixelFormat :: + (MonadDOM m) => + WebGPURenderPipelineColorAttachmentDescriptor -> m Word +getPixelFormat self + = liftDOM (round <$> ((self ^. js "pixelFormat") >>= valToNumber)) diff --git a/src/JSDOM/Generated/WebGPURenderPipelineDescriptor.hs b/src/JSDOM/Generated/WebGPURenderPipelineDescriptor.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPURenderPipelineDescriptor.hs @@ -0,0 +1,120 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPURenderPipelineDescriptor + (newWebGPURenderPipelineDescriptor, reset, setVertexFunction, + getVertexFunction, getVertexFunctionUnsafe, + getVertexFunctionUnchecked, setFragmentFunction, + getFragmentFunction, getFragmentFunctionUnsafe, + getFragmentFunctionUnchecked, getColorAttachments, + setDepthAttachmentPixelFormat, getDepthAttachmentPixelFormat, + WebGPURenderPipelineDescriptor(..), + gTypeWebGPURenderPipelineDescriptor) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newWebGPURenderPipelineDescriptor :: + (MonadDOM m) => m WebGPURenderPipelineDescriptor +newWebGPURenderPipelineDescriptor + = liftDOM + (WebGPURenderPipelineDescriptor <$> + new (jsg "WebGPURenderPipelineDescriptor") ()) + +-- | +reset :: (MonadDOM m) => WebGPURenderPipelineDescriptor -> m () +reset self = liftDOM (void (self ^. jsf "reset" ())) + +-- | +setVertexFunction :: + (MonadDOM m) => + WebGPURenderPipelineDescriptor -> Maybe WebGPUFunction -> m () +setVertexFunction self val + = liftDOM (self ^. jss "vertexFunction" (toJSVal val)) + +-- | +getVertexFunction :: + (MonadDOM m) => + WebGPURenderPipelineDescriptor -> m (Maybe WebGPUFunction) +getVertexFunction self + = liftDOM ((self ^. js "vertexFunction") >>= fromJSVal) + +-- | +getVertexFunctionUnsafe :: + (MonadDOM m, HasCallStack) => + WebGPURenderPipelineDescriptor -> m WebGPUFunction +getVertexFunctionUnsafe self + = liftDOM + (((self ^. js "vertexFunction") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getVertexFunctionUnchecked :: + (MonadDOM m) => WebGPURenderPipelineDescriptor -> m WebGPUFunction +getVertexFunctionUnchecked self + = liftDOM ((self ^. js "vertexFunction") >>= fromJSValUnchecked) + +-- | +setFragmentFunction :: + (MonadDOM m) => + WebGPURenderPipelineDescriptor -> Maybe WebGPUFunction -> m () +setFragmentFunction self val + = liftDOM (self ^. jss "fragmentFunction" (toJSVal val)) + +-- | +getFragmentFunction :: + (MonadDOM m) => + WebGPURenderPipelineDescriptor -> m (Maybe WebGPUFunction) +getFragmentFunction self + = liftDOM ((self ^. js "fragmentFunction") >>= fromJSVal) + +-- | +getFragmentFunctionUnsafe :: + (MonadDOM m, HasCallStack) => + WebGPURenderPipelineDescriptor -> m WebGPUFunction +getFragmentFunctionUnsafe self + = liftDOM + (((self ^. js "fragmentFunction") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getFragmentFunctionUnchecked :: + (MonadDOM m) => WebGPURenderPipelineDescriptor -> m WebGPUFunction +getFragmentFunctionUnchecked self + = liftDOM ((self ^. js "fragmentFunction") >>= fromJSValUnchecked) + +-- | +getColorAttachments :: + (MonadDOM m) => + WebGPURenderPipelineDescriptor -> + m [WebGPURenderPipelineColorAttachmentDescriptor] +getColorAttachments self + = liftDOM + ((self ^. js "colorAttachments") >>= fromJSArrayUnchecked) + +-- | +setDepthAttachmentPixelFormat :: + (MonadDOM m) => WebGPURenderPipelineDescriptor -> Word -> m () +setDepthAttachmentPixelFormat self val + = liftDOM (self ^. jss "depthAttachmentPixelFormat" (toJSVal val)) + +-- | +getDepthAttachmentPixelFormat :: + (MonadDOM m) => WebGPURenderPipelineDescriptor -> m Word +getDepthAttachmentPixelFormat self + = liftDOM + (round <$> + ((self ^. js "depthAttachmentPixelFormat") >>= valToNumber)) diff --git a/src/JSDOM/Generated/WebGPURenderPipelineState.hs b/src/JSDOM/Generated/WebGPURenderPipelineState.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPURenderPipelineState.hs @@ -0,0 +1,34 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPURenderPipelineState + (setLabel, getLabel, WebGPURenderPipelineState(..), + gTypeWebGPURenderPipelineState) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +setLabel :: + (MonadDOM m, ToJSString val) => + WebGPURenderPipelineState -> val -> m () +setLabel self val = liftDOM (self ^. jss "label" (toJSVal val)) + +-- | +getLabel :: + (MonadDOM m, FromJSString result) => + WebGPURenderPipelineState -> m result +getLabel self + = liftDOM ((self ^. js "label") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebGPURenderingContext.hs b/src/JSDOM/Generated/WebGPURenderingContext.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPURenderingContext.hs @@ -0,0 +1,350 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPURenderingContext + (createLibrary, createLibrary_, createRenderPipelineState, + createRenderPipelineState_, createRenderPipelineStateUnsafe, + createRenderPipelineStateUnchecked, createDepthStencilState, + createDepthStencilState_, createDepthStencilStateUnsafe, + createDepthStencilStateUnchecked, createComputePipelineState, + createComputePipelineState_, createComputePipelineStateUnsafe, + createComputePipelineStateUnchecked, createCommandQueue, + createCommandQueue_, createCommandQueueUnsafe, + createCommandQueueUnchecked, nextDrawable, nextDrawable_, + nextDrawableUnsafe, nextDrawableUnchecked, createBuffer, + createBuffer_, createBufferUnsafe, createBufferUnchecked, + createTexture, createTexture_, createTextureUnsafe, + createTextureUnchecked, pattern PixelFormatBGRA8Unorm, + pattern PixelFormatDepth32Float, pattern PixelFormatStencil8, + pattern PixelFormatInvalid, pattern LoadActionDontCare, + pattern LoadActionLoad, pattern LoadActionClear, + pattern StoreActionDontCare, pattern StoreActionStore, + pattern StoreActionMultisampleResolve, pattern PrimitiveTypePoint, + pattern PrimitiveTypeLine, pattern PrimitiveTypeLineStrip, + pattern PrimitiveTypeTriangle, pattern PrimitiveTypeTriangleStrip, + pattern CompareFunctionNever, pattern CompareFunctionLess, + pattern CompareFunctionEqual, pattern CompareFunctionLessEqual, + pattern CompareFunctionGreater, pattern CompareFunctionNotEqual, + pattern CompareFunctionGreaterEqual, pattern CompareFunctionAlways, + pattern TextureType1D, pattern TextureType1DArray, + pattern TextureType2D, pattern TextureType2DArray, + pattern TextureType2DMultisample, pattern TextureTypeCube, + pattern TextureTypeCubeArray, pattern TextureType3D, + pattern StorageModeShared, pattern StorageModeManaged, + pattern StorageModePrivate, pattern TextureUsageUnknown, + pattern TextureUsageShaderRead, pattern TextureUsageShaderWrite, + pattern TextureUsageRenderTarget, + pattern TextureUsagePixelFormatView, WebGPURenderingContext(..), + gTypeWebGPURenderingContext) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +createLibrary :: + (MonadDOM m, ToJSString sourceCode) => + WebGPURenderingContext -> sourceCode -> m WebGPULibrary +createLibrary self sourceCode + = liftDOM + ((self ^. jsf "createLibrary" [toJSVal sourceCode]) >>= + fromJSValUnchecked) + +-- | +createLibrary_ :: + (MonadDOM m, ToJSString sourceCode) => + WebGPURenderingContext -> sourceCode -> m () +createLibrary_ self sourceCode + = liftDOM (void (self ^. jsf "createLibrary" [toJSVal sourceCode])) + +-- | +createRenderPipelineState :: + (MonadDOM m) => + WebGPURenderingContext -> + WebGPURenderPipelineDescriptor -> + m (Maybe WebGPURenderPipelineState) +createRenderPipelineState self descriptor + = liftDOM + ((self ^. jsf "createRenderPipelineState" [toJSVal descriptor]) >>= + fromJSVal) + +-- | +createRenderPipelineState_ :: + (MonadDOM m) => + WebGPURenderingContext -> WebGPURenderPipelineDescriptor -> m () +createRenderPipelineState_ self descriptor + = liftDOM + (void + (self ^. jsf "createRenderPipelineState" [toJSVal descriptor])) + +-- | +createRenderPipelineStateUnsafe :: + (MonadDOM m, HasCallStack) => + WebGPURenderingContext -> + WebGPURenderPipelineDescriptor -> m WebGPURenderPipelineState +createRenderPipelineStateUnsafe self descriptor + = liftDOM + (((self ^. jsf "createRenderPipelineState" [toJSVal descriptor]) + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +createRenderPipelineStateUnchecked :: + (MonadDOM m) => + WebGPURenderingContext -> + WebGPURenderPipelineDescriptor -> m WebGPURenderPipelineState +createRenderPipelineStateUnchecked self descriptor + = liftDOM + ((self ^. jsf "createRenderPipelineState" [toJSVal descriptor]) >>= + fromJSValUnchecked) + +-- | +createDepthStencilState :: + (MonadDOM m) => + WebGPURenderingContext -> + WebGPUDepthStencilDescriptor -> m (Maybe WebGPUDepthStencilState) +createDepthStencilState self descriptor + = liftDOM + ((self ^. jsf "createDepthStencilState" [toJSVal descriptor]) >>= + fromJSVal) + +-- | +createDepthStencilState_ :: + (MonadDOM m) => + WebGPURenderingContext -> WebGPUDepthStencilDescriptor -> m () +createDepthStencilState_ self descriptor + = liftDOM + (void (self ^. jsf "createDepthStencilState" [toJSVal descriptor])) + +-- | +createDepthStencilStateUnsafe :: + (MonadDOM m, HasCallStack) => + WebGPURenderingContext -> + WebGPUDepthStencilDescriptor -> m WebGPUDepthStencilState +createDepthStencilStateUnsafe self descriptor + = liftDOM + (((self ^. jsf "createDepthStencilState" [toJSVal descriptor]) >>= + fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +createDepthStencilStateUnchecked :: + (MonadDOM m) => + WebGPURenderingContext -> + WebGPUDepthStencilDescriptor -> m WebGPUDepthStencilState +createDepthStencilStateUnchecked self descriptor + = liftDOM + ((self ^. jsf "createDepthStencilState" [toJSVal descriptor]) >>= + fromJSValUnchecked) + +-- | +createComputePipelineState :: + (MonadDOM m) => + WebGPURenderingContext -> + WebGPUFunction -> m (Maybe WebGPUComputePipelineState) +createComputePipelineState self function + = liftDOM + ((self ^. jsf "createComputePipelineState" [toJSVal function]) >>= + fromJSVal) + +-- | +createComputePipelineState_ :: + (MonadDOM m) => WebGPURenderingContext -> WebGPUFunction -> m () +createComputePipelineState_ self function + = liftDOM + (void + (self ^. jsf "createComputePipelineState" [toJSVal function])) + +-- | +createComputePipelineStateUnsafe :: + (MonadDOM m, HasCallStack) => + WebGPURenderingContext -> + WebGPUFunction -> m WebGPUComputePipelineState +createComputePipelineStateUnsafe self function + = liftDOM + (((self ^. jsf "createComputePipelineState" [toJSVal function]) >>= + fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +createComputePipelineStateUnchecked :: + (MonadDOM m) => + WebGPURenderingContext -> + WebGPUFunction -> m WebGPUComputePipelineState +createComputePipelineStateUnchecked self function + = liftDOM + ((self ^. jsf "createComputePipelineState" [toJSVal function]) >>= + fromJSValUnchecked) + +-- | +createCommandQueue :: + (MonadDOM m) => + WebGPURenderingContext -> m (Maybe WebGPUCommandQueue) +createCommandQueue self + = liftDOM ((self ^. jsf "createCommandQueue" ()) >>= fromJSVal) + +-- | +createCommandQueue_ :: + (MonadDOM m) => WebGPURenderingContext -> m () +createCommandQueue_ self + = liftDOM (void (self ^. jsf "createCommandQueue" ())) + +-- | +createCommandQueueUnsafe :: + (MonadDOM m, HasCallStack) => + WebGPURenderingContext -> m WebGPUCommandQueue +createCommandQueueUnsafe self + = liftDOM + (((self ^. jsf "createCommandQueue" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +createCommandQueueUnchecked :: + (MonadDOM m) => WebGPURenderingContext -> m WebGPUCommandQueue +createCommandQueueUnchecked self + = liftDOM + ((self ^. jsf "createCommandQueue" ()) >>= fromJSValUnchecked) + +-- | +nextDrawable :: + (MonadDOM m) => WebGPURenderingContext -> m (Maybe WebGPUDrawable) +nextDrawable self + = liftDOM ((self ^. jsf "nextDrawable" ()) >>= fromJSVal) + +-- | +nextDrawable_ :: (MonadDOM m) => WebGPURenderingContext -> m () +nextDrawable_ self = liftDOM (void (self ^. jsf "nextDrawable" ())) + +-- | +nextDrawableUnsafe :: + (MonadDOM m, HasCallStack) => + WebGPURenderingContext -> m WebGPUDrawable +nextDrawableUnsafe self + = liftDOM + (((self ^. jsf "nextDrawable" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +nextDrawableUnchecked :: + (MonadDOM m) => WebGPURenderingContext -> m WebGPUDrawable +nextDrawableUnchecked self + = liftDOM ((self ^. jsf "nextDrawable" ()) >>= fromJSValUnchecked) + +-- | +createBuffer :: + (MonadDOM m, IsArrayBufferView data') => + WebGPURenderingContext -> data' -> m (Maybe WebGPUBuffer) +createBuffer self data' + = liftDOM + ((self ^. jsf "createBuffer" [toJSVal data']) >>= fromJSVal) + +-- | +createBuffer_ :: + (MonadDOM m, IsArrayBufferView data') => + WebGPURenderingContext -> data' -> m () +createBuffer_ self data' + = liftDOM (void (self ^. jsf "createBuffer" [toJSVal data'])) + +-- | +createBufferUnsafe :: + (MonadDOM m, IsArrayBufferView data', HasCallStack) => + WebGPURenderingContext -> data' -> m WebGPUBuffer +createBufferUnsafe self data' + = liftDOM + (((self ^. jsf "createBuffer" [toJSVal data']) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +createBufferUnchecked :: + (MonadDOM m, IsArrayBufferView data') => + WebGPURenderingContext -> data' -> m WebGPUBuffer +createBufferUnchecked self data' + = liftDOM + ((self ^. jsf "createBuffer" [toJSVal data']) >>= + fromJSValUnchecked) + +-- | +createTexture :: + (MonadDOM m) => + WebGPURenderingContext -> + WebGPUTextureDescriptor -> m (Maybe WebGPUTexture) +createTexture self descriptor + = liftDOM + ((self ^. jsf "createTexture" [toJSVal descriptor]) >>= fromJSVal) + +-- | +createTexture_ :: + (MonadDOM m) => + WebGPURenderingContext -> WebGPUTextureDescriptor -> m () +createTexture_ self descriptor + = liftDOM (void (self ^. jsf "createTexture" [toJSVal descriptor])) + +-- | +createTextureUnsafe :: + (MonadDOM m, HasCallStack) => + WebGPURenderingContext -> + WebGPUTextureDescriptor -> m WebGPUTexture +createTextureUnsafe self descriptor + = liftDOM + (((self ^. jsf "createTexture" [toJSVal descriptor]) >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) + +-- | +createTextureUnchecked :: + (MonadDOM m) => + WebGPURenderingContext -> + WebGPUTextureDescriptor -> m WebGPUTexture +createTextureUnchecked self descriptor + = liftDOM + ((self ^. jsf "createTexture" [toJSVal descriptor]) >>= + fromJSValUnchecked) +pattern PixelFormatBGRA8Unorm = 80 +pattern PixelFormatDepth32Float = 252 +pattern PixelFormatStencil8 = 253 +pattern PixelFormatInvalid = 0 +pattern LoadActionDontCare = 0 +pattern LoadActionLoad = 1 +pattern LoadActionClear = 2 +pattern StoreActionDontCare = 0 +pattern StoreActionStore = 1 +pattern StoreActionMultisampleResolve = 2 +pattern PrimitiveTypePoint = 0 +pattern PrimitiveTypeLine = 1 +pattern PrimitiveTypeLineStrip = 2 +pattern PrimitiveTypeTriangle = 3 +pattern PrimitiveTypeTriangleStrip = 4 +pattern CompareFunctionNever = 0 +pattern CompareFunctionLess = 1 +pattern CompareFunctionEqual = 2 +pattern CompareFunctionLessEqual = 3 +pattern CompareFunctionGreater = 4 +pattern CompareFunctionNotEqual = 5 +pattern CompareFunctionGreaterEqual = 6 +pattern CompareFunctionAlways = 7 +pattern TextureType1D = 0 +pattern TextureType1DArray = 1 +pattern TextureType2D = 2 +pattern TextureType2DArray = 3 +pattern TextureType2DMultisample = 4 +pattern TextureTypeCube = 5 +pattern TextureTypeCubeArray = 6 +pattern TextureType3D = 7 +pattern StorageModeShared = 0 +pattern StorageModeManaged = 1 +pattern StorageModePrivate = 2 +pattern TextureUsageUnknown = 0 +pattern TextureUsageShaderRead = 1 +pattern TextureUsageShaderWrite = 2 +pattern TextureUsageRenderTarget = 4 +pattern TextureUsagePixelFormatView = 16 diff --git a/src/JSDOM/Generated/WebGPUTexture.hs b/src/JSDOM/Generated/WebGPUTexture.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUTexture.hs @@ -0,0 +1,29 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUTexture + (getWidth, getHeight, WebGPUTexture(..), gTypeWebGPUTexture) where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +getWidth :: (MonadDOM m) => WebGPUTexture -> m Word +getWidth self + = liftDOM (round <$> ((self ^. js "width") >>= valToNumber)) + +-- | +getHeight :: (MonadDOM m) => WebGPUTexture -> m Word +getHeight self + = liftDOM (round <$> ((self ^. js "height") >>= valToNumber)) diff --git a/src/JSDOM/Generated/WebGPUTextureDescriptor.hs b/src/JSDOM/Generated/WebGPUTextureDescriptor.hs new file mode 100644 --- /dev/null +++ b/src/JSDOM/Generated/WebGPUTextureDescriptor.hs @@ -0,0 +1,95 @@ +{-# LANGUAGE PatternSynonyms #-} +-- For HasCallStack compatibility +{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module JSDOM.Generated.WebGPUTextureDescriptor + (newWebGPUTextureDescriptor, setTextureType, getTextureType, + setWidth, getWidth, setHeight, getHeight, setSampleCount, + getSampleCount, setStorageMode, getStorageMode, setUsage, getUsage, + WebGPUTextureDescriptor(..), gTypeWebGPUTextureDescriptor) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import qualified Prelude (error) +import Data.Typeable (Typeable) +import Data.Traversable (mapM) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newWebGPUTextureDescriptor :: + (MonadDOM m) => + Word -> Word -> Word -> Bool -> m WebGPUTextureDescriptor +newWebGPUTextureDescriptor pixelFormat width height mipmapped + = liftDOM + (WebGPUTextureDescriptor <$> + new (jsg "WebGPUTextureDescriptor") + [toJSVal pixelFormat, toJSVal width, toJSVal height, + toJSVal mipmapped]) + +-- | +setTextureType :: + (MonadDOM m) => WebGPUTextureDescriptor -> Word -> m () +setTextureType self val + = liftDOM (self ^. jss "textureType" (toJSVal val)) + +-- | +getTextureType :: (MonadDOM m) => WebGPUTextureDescriptor -> m Word +getTextureType self + = liftDOM (round <$> ((self ^. js "textureType") >>= valToNumber)) + +-- | +setWidth :: (MonadDOM m) => WebGPUTextureDescriptor -> Word -> m () +setWidth self val = liftDOM (self ^. jss "width" (toJSVal val)) + +-- | +getWidth :: (MonadDOM m) => WebGPUTextureDescriptor -> m Word +getWidth self + = liftDOM (round <$> ((self ^. js "width") >>= valToNumber)) + +-- | +setHeight :: + (MonadDOM m) => WebGPUTextureDescriptor -> Word -> m () +setHeight self val = liftDOM (self ^. jss "height" (toJSVal val)) + +-- | +getHeight :: (MonadDOM m) => WebGPUTextureDescriptor -> m Word +getHeight self + = liftDOM (round <$> ((self ^. js "height") >>= valToNumber)) + +-- | +setSampleCount :: + (MonadDOM m) => WebGPUTextureDescriptor -> Word -> m () +setSampleCount self val + = liftDOM (self ^. jss "sampleCount" (toJSVal val)) + +-- | +getSampleCount :: (MonadDOM m) => WebGPUTextureDescriptor -> m Word +getSampleCount self + = liftDOM (round <$> ((self ^. js "sampleCount") >>= valToNumber)) + +-- | +setStorageMode :: + (MonadDOM m) => WebGPUTextureDescriptor -> Word -> m () +setStorageMode self val + = liftDOM (self ^. jss "storageMode" (toJSVal val)) + +-- | +getStorageMode :: (MonadDOM m) => WebGPUTextureDescriptor -> m Word +getStorageMode self + = liftDOM (round <$> ((self ^. js "storageMode") >>= valToNumber)) + +-- | +setUsage :: (MonadDOM m) => WebGPUTextureDescriptor -> Word -> m () +setUsage self val = liftDOM (self ^. jss "usage" (toJSVal val)) + +-- | +getUsage :: (MonadDOM m) => WebGPUTextureDescriptor -> m Word +getUsage self + = liftDOM (round <$> ((self ^. js "usage") >>= valToNumber)) diff --git a/src/JSDOM/Generated/WebKitAnimationEvent.hs b/src/JSDOM/Generated/WebKitAnimationEvent.hs --- a/src/JSDOM/Generated/WebKitAnimationEvent.hs +++ b/src/JSDOM/Generated/WebKitAnimationEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitCSSMatrix.hs b/src/JSDOM/Generated/WebKitCSSMatrix.hs --- a/src/JSDOM/Generated/WebKitCSSMatrix.hs +++ b/src/JSDOM/Generated/WebKitCSSMatrix.hs @@ -18,7 +18,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitCSSRegionRule.hs b/src/JSDOM/Generated/WebKitCSSRegionRule.hs --- a/src/JSDOM/Generated/WebKitCSSRegionRule.hs +++ b/src/JSDOM/Generated/WebKitCSSRegionRule.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitCSSViewportRule.hs b/src/JSDOM/Generated/WebKitCSSViewportRule.hs --- a/src/JSDOM/Generated/WebKitCSSViewportRule.hs +++ b/src/JSDOM/Generated/WebKitCSSViewportRule.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitMediaKeyError.hs b/src/JSDOM/Generated/WebKitMediaKeyError.hs --- a/src/JSDOM/Generated/WebKitMediaKeyError.hs +++ b/src/JSDOM/Generated/WebKitMediaKeyError.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitMediaKeyMessageEvent.hs b/src/JSDOM/Generated/WebKitMediaKeyMessageEvent.hs --- a/src/JSDOM/Generated/WebKitMediaKeyMessageEvent.hs +++ b/src/JSDOM/Generated/WebKitMediaKeyMessageEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitMediaKeyNeededEvent.hs b/src/JSDOM/Generated/WebKitMediaKeyNeededEvent.hs --- a/src/JSDOM/Generated/WebKitMediaKeyNeededEvent.hs +++ b/src/JSDOM/Generated/WebKitMediaKeyNeededEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitMediaKeySession.hs b/src/JSDOM/Generated/WebKitMediaKeySession.hs --- a/src/JSDOM/Generated/WebKitMediaKeySession.hs +++ b/src/JSDOM/Generated/WebKitMediaKeySession.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitMediaKeys.hs b/src/JSDOM/Generated/WebKitMediaKeys.hs --- a/src/JSDOM/Generated/WebKitMediaKeys.hs +++ b/src/JSDOM/Generated/WebKitMediaKeys.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitNamedFlow.hs b/src/JSDOM/Generated/WebKitNamedFlow.hs --- a/src/JSDOM/Generated/WebKitNamedFlow.hs +++ b/src/JSDOM/Generated/WebKitNamedFlow.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitNamespace.hs b/src/JSDOM/Generated/WebKitNamespace.hs --- a/src/JSDOM/Generated/WebKitNamespace.hs +++ b/src/JSDOM/Generated/WebKitNamespace.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitPlaybackTargetAvailabilityEvent.hs b/src/JSDOM/Generated/WebKitPlaybackTargetAvailabilityEvent.hs --- a/src/JSDOM/Generated/WebKitPlaybackTargetAvailabilityEvent.hs +++ b/src/JSDOM/Generated/WebKitPlaybackTargetAvailabilityEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitPoint.hs b/src/JSDOM/Generated/WebKitPoint.hs --- a/src/JSDOM/Generated/WebKitPoint.hs +++ b/src/JSDOM/Generated/WebKitPoint.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitSubtleCrypto.hs b/src/JSDOM/Generated/WebKitSubtleCrypto.hs --- a/src/JSDOM/Generated/WebKitSubtleCrypto.hs +++ b/src/JSDOM/Generated/WebKitSubtleCrypto.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebKitTransitionEvent.hs b/src/JSDOM/Generated/WebKitTransitionEvent.hs --- a/src/JSDOM/Generated/WebKitTransitionEvent.hs +++ b/src/JSDOM/Generated/WebKitTransitionEvent.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WebSocket.hs b/src/JSDOM/Generated/WebSocket.hs --- a/src/JSDOM/Generated/WebSocket.hs +++ b/src/JSDOM/Generated/WebSocket.hs @@ -15,7 +15,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WheelEvent.hs b/src/JSDOM/Generated/WheelEvent.hs --- a/src/JSDOM/Generated/WheelEvent.hs +++ b/src/JSDOM/Generated/WheelEvent.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/Window.hs b/src/JSDOM/Generated/Window.hs --- a/src/JSDOM/Generated/Window.hs +++ b/src/JSDOM/Generated/Window.hs @@ -3,50 +3,54 @@ {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Window - (fetch, fetch_, openDatabase, openDatabase_, openDatabaseUnsafe, - openDatabaseUnchecked, getSelection, getSelection_, focus, blur, - close, print, stop, open, open_, showModalDialog, showModalDialog_, - alertNoMessage, alert, confirm, confirm_, prompt, prompt_, - promptUnsafe, promptUnchecked, find, find_, scrollBy, scrollTo, - scroll, scrollByOpt, scrollToOpt, scrollOpt, moveBy, moveTo, - resizeBy, resizeTo, matchMedia, matchMedia_, getComputedStyle, - getComputedStyle_, getMatchedCSSRules, getMatchedCSSRules_, - webkitConvertPointFromPageToNode, + (decodeURI, decodeURI_, decodeURIComponent, decodeURIComponent_, + encodeURI, encodeURI_, encodeURIComponent, encodeURIComponent_, + fetch, fetch_, openDatabase, openDatabase_, openDatabaseUnsafe, + openDatabaseUnchecked, close, stop, focus, blur, open, open_, + openUnsafe, openUnchecked, alertNoMessage, alert, confirm, + confirm_, prompt, prompt_, promptUnsafe, promptUnchecked, print, + requestAnimationFrame, requestAnimationFrame_, + cancelAnimationFrame, postMessage, captureEvents, releaseEvents, + getComputedStyle, getComputedStyle_, matchMedia, matchMedia_, + moveTo, moveBy, resizeTo, resizeBy, scrollOpt, scroll, scrollToOpt, + scrollTo, scrollByOpt, scrollBy, getSelection, getSelection_, + getSelectionUnsafe, getSelectionUnchecked, find, find_, + webkitRequestAnimationFrame, webkitRequestAnimationFrame_, + webkitCancelAnimationFrame, webkitCancelRequestAnimationFrame, + getMatchedCSSRules, getMatchedCSSRules_, showModalDialog, + showModalDialog_, webkitConvertPointFromPageToNode, webkitConvertPointFromPageToNode_, webkitConvertPointFromNodeToPage, - webkitConvertPointFromNodeToPage_, postMessage, - requestAnimationFrame, requestAnimationFrame_, - cancelAnimationFrame, webkitRequestAnimationFrame, - webkitRequestAnimationFrame_, webkitCancelAnimationFrame, - webkitCancelRequestAnimationFrame, captureEvents, releaseEvents, + webkitConvertPointFromNodeToPage_, collectMatchingElementsInFlatTree, collectMatchingElementsInFlatTree_, matchingElementInFlatTree, matchingElementInFlatTree_, matchingElementInFlatTreeUnsafe, matchingElementInFlatTreeUnchecked, getIndexedDB, getWebkitIndexedDB, getWebkitStorageInfo, getSpeechSynthesis, - getScreen, getHistory, getLocationbar, getMenubar, getPersonalbar, - getScrollbars, getStatusbar, getToolbar, getNavigator, - getClientInformation, setLocation, getLocation, getEvent, - getFrameElement, getOffscreenBuffering, getOuterHeight, - getOuterWidth, getInnerHeight, getInnerWidth, getScreenX, - getScreenY, getScreenLeft, getScreenTop, getScrollX, getScrollY, - getPageXOffset, getPageYOffset, getClosed, getLength, setName, - getName, setStatus, getStatus, setDefaultStatus, getDefaultStatus, - setDefaultstatus, getDefaultstatus, getSelf, getWindow, getFrames, - getOpener, getParent, getTop, getDocument, getStyleMedia, - getDevicePixelRatio, getApplicationCache, getSessionStorage, - getLocalStorage, getOrientation, getCustomElements, animationEnd, - animationIteration, animationStart, transitionEnd, - webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart, - webKitTransitionEnd, gestureChange, gestureEnd, gestureStart, - deviceMotion, deviceOrientation, webKitDeviceProximity, Window(..), - gTypeWindow) + getWindow, getSelf, getDocument, setName, getName, getLocation, + getHistory, getCustomElements, getLocationbar, getMenubar, + getPersonalbar, getScrollbars, getStatusbar, getToolbar, setStatus, + getStatus, getClosed, getFrames, getLength, getTop, getTopUnsafe, + getTopUnchecked, getOpener, getOpenerUnsafe, getOpenerUnchecked, + getParent, getParentUnsafe, getParentUnchecked, getFrameElement, + getFrameElementUnsafe, getFrameElementUnchecked, getNavigator, + getApplicationCache, getSessionStorage, getLocalStorage, getScreen, + getInnerHeight, getInnerWidth, getScrollX, getPageXOffset, + getScrollY, getPageYOffset, getScreenX, getScreenY, getOuterWidth, + getOuterHeight, getDevicePixelRatio, getOrientation, getEvent, + setDefaultStatus, getDefaultStatus, setDefaultstatus, + getDefaultstatus, getOffscreenBuffering, getScreenLeft, + getScreenTop, getClientInformation, getStyleMedia, gestureChange, + gestureEnd, gestureStart, deviceMotion, deviceOrientation, + webKitDeviceProximity, webKitAnimationEnd, + webKitAnimationIteration, webKitAnimationStart, + webKitTransitionEnd, Window(..), gTypeWindow) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -56,6 +60,62 @@ import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums +-- | +decodeURI :: + (MonadDOM m, ToJSString uri, FromJSString result) => + Window -> uri -> m result +decodeURI self uri + = liftDOM + ((self ^. jsf "decodeURI" [toJSVal uri]) >>= fromJSValUnchecked) + +-- | +decodeURI_ :: (MonadDOM m, ToJSString uri) => Window -> uri -> m () +decodeURI_ self uri + = liftDOM (void (self ^. jsf "decodeURI" [toJSVal uri])) + +-- | +decodeURIComponent :: + (MonadDOM m, ToJSString uri, FromJSString result) => + Window -> uri -> m result +decodeURIComponent self uri + = liftDOM + ((self ^. jsf "decodeURIComponent" [toJSVal uri]) >>= + fromJSValUnchecked) + +-- | +decodeURIComponent_ :: + (MonadDOM m, ToJSString uri) => Window -> uri -> m () +decodeURIComponent_ self uri + = liftDOM (void (self ^. jsf "decodeURIComponent" [toJSVal uri])) + +-- | +encodeURI :: + (MonadDOM m, ToJSString uri, FromJSString result) => + Window -> uri -> m result +encodeURI self uri + = liftDOM + ((self ^. jsf "encodeURI" [toJSVal uri]) >>= fromJSValUnchecked) + +-- | +encodeURI_ :: (MonadDOM m, ToJSString uri) => Window -> uri -> m () +encodeURI_ self uri + = liftDOM (void (self ^. jsf "encodeURI" [toJSVal uri])) + +-- | +encodeURIComponent :: + (MonadDOM m, ToJSString uri, FromJSString result) => + Window -> uri -> m result +encodeURIComponent self uri + = liftDOM + ((self ^. jsf "encodeURIComponent" [toJSVal uri]) >>= + fromJSValUnchecked) + +-- | +encodeURIComponent_ :: + (MonadDOM m, ToJSString uri) => Window -> uri -> m () +encodeURIComponent_ self uri + = liftDOM (void (self ^. jsf "encodeURIComponent" [toJSVal uri])) + -- | fetch :: (MonadDOM m, ToJSVal input) => @@ -138,14 +198,13 @@ toJSVal estimatedSize, toJSVal creationCallback]) >>= fromJSValUnchecked) --- | -getSelection :: (MonadDOM m) => Window -> m Selection -getSelection self - = liftDOM ((self ^. jsf "getSelection" ()) >>= fromJSValUnchecked) +-- | +close :: (MonadDOM m) => Window -> m () +close self = liftDOM (void (self ^. jsf "close" ())) --- | -getSelection_ :: (MonadDOM m) => Window -> m () -getSelection_ self = liftDOM (void (self ^. jsf "getSelection" ())) +-- | +stop :: (MonadDOM m) => Window -> m () +stop self = liftDOM (void (self ^. jsf "stop" ())) -- | focus :: (MonadDOM m) => Window -> m () @@ -155,28 +214,17 @@ blur :: (MonadDOM m) => Window -> m () blur self = liftDOM (void (self ^. jsf "blur" ())) --- | -close :: (MonadDOM m) => Window -> m () -close self = liftDOM (void (self ^. jsf "close" ())) - --- | -print :: (MonadDOM m) => Window -> m () -print self = liftDOM (void (self ^. jsf "print" ())) - --- | -stop :: (MonadDOM m) => Window -> m () -stop self = liftDOM (void (self ^. jsf "stop" ())) - -- | open :: (MonadDOM m, ToJSString url, ToJSString target, ToJSString features) => - Window -> Maybe url -> Maybe target -> Maybe features -> m Window + Window -> + Maybe url -> Maybe target -> Maybe features -> m (Maybe Window) open self url target features = liftDOM ((self ^. jsf "open" [toJSVal url, toJSVal target, toJSVal features]) - >>= fromJSValUnchecked) + >>= fromJSVal) -- | open_ :: @@ -189,27 +237,28 @@ (self ^. jsf "open" [toJSVal url, toJSVal target, toJSVal features])) --- | -showModalDialog :: - (MonadDOM m, ToJSString url, ToJSVal dialogArgs, - ToJSString featureArgs) => - Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m JSVal -showModalDialog self url dialogArgs featureArgs +-- | +openUnsafe :: + (MonadDOM m, ToJSString url, ToJSString target, + ToJSString features, HasCallStack) => + Window -> Maybe url -> Maybe target -> Maybe features -> m Window +openUnsafe self url target features = liftDOM - ((self ^. jsf "showModalDialog" - [toJSVal url, toJSVal dialogArgs, toJSVal featureArgs]) - >>= toJSVal) + (((self ^. jsf "open" + [toJSVal url, toJSVal target, toJSVal features]) + >>= fromJSVal) + >>= maybe (Prelude.error "Nothing to return") return) --- | -showModalDialog_ :: - (MonadDOM m, ToJSString url, ToJSVal dialogArgs, - ToJSString featureArgs) => - Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m () -showModalDialog_ self url dialogArgs featureArgs +-- | +openUnchecked :: + (MonadDOM m, ToJSString url, ToJSString target, + ToJSString features) => + Window -> Maybe url -> Maybe target -> Maybe features -> m Window +openUnchecked self url target features = liftDOM - (void - (self ^. jsf "showModalDialog" - [toJSVal url, toJSVal dialogArgs, toJSVal featureArgs])) + ((self ^. jsf "open" + [toJSVal url, toJSVal target, toJSVal features]) + >>= fromJSValUnchecked) -- | alertNoMessage :: (MonadDOM m) => Window -> m () @@ -274,6 +323,167 @@ ((self ^. jsf "prompt" [toJSVal message, toJSVal defaultValue]) >>= fromJSValUnchecked) +-- | +print :: (MonadDOM m) => Window -> m () +print self = liftDOM (void (self ^. jsf "print" ())) + +-- | +requestAnimationFrame :: + (MonadDOM m) => Window -> RequestAnimationFrameCallback -> m Int +requestAnimationFrame self callback + = liftDOM + (round <$> + ((self ^. jsf "requestAnimationFrame" [toJSVal callback]) >>= + valToNumber)) + +-- | +requestAnimationFrame_ :: + (MonadDOM m) => Window -> RequestAnimationFrameCallback -> m () +requestAnimationFrame_ self callback + = liftDOM + (void (self ^. jsf "requestAnimationFrame" [toJSVal callback])) + +-- | +cancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m () +cancelAnimationFrame self handle + = liftDOM + (void (self ^. jsf "cancelAnimationFrame" [toJSVal handle])) + +-- | +postMessage :: + (MonadDOM m, ToJSVal message, ToJSString targetOrigin, + IsGObject transfer) => + Window -> message -> targetOrigin -> [transfer] -> m () +postMessage self message targetOrigin transfer + = liftDOM + (void + (self ^. jsf "postMessage" + [toJSVal message, toJSVal targetOrigin, toJSVal (array transfer)])) + +-- | +captureEvents :: (MonadDOM m) => Window -> m () +captureEvents self + = liftDOM (void (self ^. jsf "captureEvents" ())) + +-- | +releaseEvents :: (MonadDOM m) => Window -> m () +releaseEvents self + = liftDOM (void (self ^. jsf "releaseEvents" ())) + +-- | +getComputedStyle :: + (MonadDOM m, IsElement element, ToJSString pseudoElement) => + Window -> element -> Maybe pseudoElement -> m CSSStyleDeclaration +getComputedStyle self element pseudoElement + = liftDOM + ((self ^. jsf "getComputedStyle" + [toJSVal element, toJSVal pseudoElement]) + >>= fromJSValUnchecked) + +-- | +getComputedStyle_ :: + (MonadDOM m, IsElement element, ToJSString pseudoElement) => + Window -> element -> Maybe pseudoElement -> m () +getComputedStyle_ self element pseudoElement + = liftDOM + (void + (self ^. jsf "getComputedStyle" + [toJSVal element, toJSVal pseudoElement])) + +-- | +matchMedia :: + (MonadDOM m, ToJSString query) => + Window -> query -> m MediaQueryList +matchMedia self query + = liftDOM + ((self ^. jsf "matchMedia" [toJSVal query]) >>= fromJSValUnchecked) + +-- | +matchMedia_ :: + (MonadDOM m, ToJSString query) => Window -> query -> m () +matchMedia_ self query + = liftDOM (void (self ^. jsf "matchMedia" [toJSVal query])) + +-- | +moveTo :: + (MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m () +moveTo self x y + = liftDOM (void (self ^. jsf "moveTo" [toJSVal x, toJSVal y])) + +-- | +moveBy :: + (MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m () +moveBy self x y + = liftDOM (void (self ^. jsf "moveBy" [toJSVal x, toJSVal y])) + +-- | +resizeTo :: + (MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m () +resizeTo self width height + = liftDOM + (void (self ^. jsf "resizeTo" [toJSVal width, toJSVal height])) + +-- | +resizeBy :: + (MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m () +resizeBy self x y + = liftDOM (void (self ^. jsf "resizeBy" [toJSVal x, toJSVal y])) + +-- | +scrollOpt :: + (MonadDOM m) => Window -> Maybe ScrollToOptions -> m () +scrollOpt self options + = liftDOM (void (self ^. jsf "scroll" [toJSVal options])) + +-- | +scroll :: (MonadDOM m) => Window -> Double -> Double -> m () +scroll self x y + = liftDOM (void (self ^. jsf "scroll" [toJSVal x, toJSVal y])) + +-- | +scrollToOpt :: + (MonadDOM m) => Window -> Maybe ScrollToOptions -> m () +scrollToOpt self options + = liftDOM (void (self ^. jsf "scrollTo" [toJSVal options])) + +-- | +scrollTo :: (MonadDOM m) => Window -> Double -> Double -> m () +scrollTo self x y + = liftDOM (void (self ^. jsf "scrollTo" [toJSVal x, toJSVal y])) + +-- | +scrollByOpt :: + (MonadDOM m) => Window -> Maybe ScrollToOptions -> m () +scrollByOpt self option + = liftDOM (void (self ^. jsf "scrollBy" [toJSVal option])) + +-- | +scrollBy :: (MonadDOM m) => Window -> Double -> Double -> m () +scrollBy self x y + = liftDOM (void (self ^. jsf "scrollBy" [toJSVal x, toJSVal y])) + +-- | +getSelection :: (MonadDOM m) => Window -> m (Maybe Selection) +getSelection self + = liftDOM ((self ^. jsf "getSelection" ()) >>= fromJSVal) + +-- | +getSelection_ :: (MonadDOM m) => Window -> m () +getSelection_ self = liftDOM (void (self ^. jsf "getSelection" ())) + +-- | +getSelectionUnsafe :: + (MonadDOM m, HasCallStack) => Window -> m Selection +getSelectionUnsafe self + = liftDOM + (((self ^. jsf "getSelection" ()) >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getSelectionUnchecked :: (MonadDOM m) => Window -> m Selection +getSelectionUnchecked self + = liftDOM ((self ^. jsf "getSelection" ()) >>= fromJSValUnchecked) + -- | find :: (MonadDOM m, ToJSString string) => @@ -304,97 +514,36 @@ toJSVal wrap, toJSVal wholeWord, toJSVal searchInFrames, toJSVal showDialog])) --- | -scrollBy :: (MonadDOM m) => Window -> Double -> Double -> m () -scrollBy self x y - = liftDOM (void (self ^. jsf "scrollBy" [toJSVal x, toJSVal y])) - --- | -scrollTo :: (MonadDOM m) => Window -> Double -> Double -> m () -scrollTo self x y - = liftDOM (void (self ^. jsf "scrollTo" [toJSVal x, toJSVal y])) - --- | -scroll :: (MonadDOM m) => Window -> Double -> Double -> m () -scroll self x y - = liftDOM (void (self ^. jsf "scroll" [toJSVal x, toJSVal y])) - --- | -scrollByOpt :: - (MonadDOM m) => Window -> Maybe ScrollToOptions -> m () -scrollByOpt self option - = liftDOM (void (self ^. jsf "scrollBy" [toJSVal option])) - --- | -scrollToOpt :: - (MonadDOM m) => Window -> Maybe ScrollToOptions -> m () -scrollToOpt self options - = liftDOM (void (self ^. jsf "scrollTo" [toJSVal options])) - --- | -scrollOpt :: - (MonadDOM m) => Window -> Maybe ScrollToOptions -> m () -scrollOpt self options - = liftDOM (void (self ^. jsf "scroll" [toJSVal options])) - --- | -moveBy :: - (MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m () -moveBy self x y - = liftDOM (void (self ^. jsf "moveBy" [toJSVal x, toJSVal y])) - --- | -moveTo :: - (MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m () -moveTo self x y - = liftDOM (void (self ^. jsf "moveTo" [toJSVal x, toJSVal y])) - --- | -resizeBy :: - (MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m () -resizeBy self x y - = liftDOM (void (self ^. jsf "resizeBy" [toJSVal x, toJSVal y])) - --- | -resizeTo :: - (MonadDOM m) => Window -> Maybe Float -> Maybe Float -> m () -resizeTo self width height +-- | +webkitRequestAnimationFrame :: + (MonadDOM m) => Window -> RequestAnimationFrameCallback -> m Int +webkitRequestAnimationFrame self callback = liftDOM - (void (self ^. jsf "resizeTo" [toJSVal width, toJSVal height])) + (round <$> + ((self ^. jsf "webkitRequestAnimationFrame" [toJSVal callback]) >>= + valToNumber)) --- | -matchMedia :: - (MonadDOM m, ToJSString query) => - Window -> query -> m MediaQueryList -matchMedia self query +-- | +webkitRequestAnimationFrame_ :: + (MonadDOM m) => Window -> RequestAnimationFrameCallback -> m () +webkitRequestAnimationFrame_ self callback = liftDOM - ((self ^. jsf "matchMedia" [toJSVal query]) >>= fromJSValUnchecked) - --- | -matchMedia_ :: - (MonadDOM m, ToJSString query) => Window -> query -> m () -matchMedia_ self query - = liftDOM (void (self ^. jsf "matchMedia" [toJSVal query])) + (void + (self ^. jsf "webkitRequestAnimationFrame" [toJSVal callback])) --- | -getComputedStyle :: - (MonadDOM m, IsElement element, ToJSString pseudoElement) => - Window -> element -> Maybe pseudoElement -> m CSSStyleDeclaration -getComputedStyle self element pseudoElement +-- | +webkitCancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m () +webkitCancelAnimationFrame self id = liftDOM - ((self ^. jsf "getComputedStyle" - [toJSVal element, toJSVal pseudoElement]) - >>= fromJSValUnchecked) + (void (self ^. jsf "webkitCancelAnimationFrame" [toJSVal id])) --- | -getComputedStyle_ :: - (MonadDOM m, IsElement element, ToJSString pseudoElement) => - Window -> element -> Maybe pseudoElement -> m () -getComputedStyle_ self element pseudoElement +-- | +webkitCancelRequestAnimationFrame :: + (MonadDOM m) => Window -> Int -> m () +webkitCancelRequestAnimationFrame self id = liftDOM (void - (self ^. jsf "getComputedStyle" - [toJSVal element, toJSVal pseudoElement])) + (self ^. jsf "webkitCancelRequestAnimationFrame" [toJSVal id])) -- | getMatchedCSSRules :: @@ -416,6 +565,28 @@ (self ^. jsf "getMatchedCSSRules" [toJSVal element, toJSVal pseudoElement])) +-- | +showModalDialog :: + (MonadDOM m, ToJSString url, ToJSVal dialogArgs, + ToJSString featureArgs) => + Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m JSVal +showModalDialog self url dialogArgs featureArgs + = liftDOM + ((self ^. jsf "showModalDialog" + [toJSVal url, toJSVal dialogArgs, toJSVal featureArgs]) + >>= toJSVal) + +-- | +showModalDialog_ :: + (MonadDOM m, ToJSString url, ToJSVal dialogArgs, + ToJSString featureArgs) => + Window -> url -> Maybe dialogArgs -> Maybe featureArgs -> m () +showModalDialog_ self url dialogArgs featureArgs + = liftDOM + (void + (self ^. jsf "showModalDialog" + [toJSVal url, toJSVal dialogArgs, toJSVal featureArgs])) + -- | webkitConvertPointFromPageToNode :: (MonadDOM m, IsNode node) => @@ -456,79 +627,6 @@ (self ^. jsf "webkitConvertPointFromNodeToPage" [toJSVal node, toJSVal p])) --- | -postMessage :: - (MonadDOM m, ToJSVal message, ToJSString targetOrigin, - IsGObject transfer) => - Window -> message -> targetOrigin -> [transfer] -> m () -postMessage self message targetOrigin transfer - = liftDOM - (void - (self ^. jsf "postMessage" - [toJSVal message, toJSVal targetOrigin, toJSVal (array transfer)])) - --- | -requestAnimationFrame :: - (MonadDOM m) => Window -> RequestAnimationFrameCallback -> m Int -requestAnimationFrame self callback - = liftDOM - (round <$> - ((self ^. jsf "requestAnimationFrame" [toJSVal callback]) >>= - valToNumber)) - --- | -requestAnimationFrame_ :: - (MonadDOM m) => Window -> RequestAnimationFrameCallback -> m () -requestAnimationFrame_ self callback - = liftDOM - (void (self ^. jsf "requestAnimationFrame" [toJSVal callback])) - --- | -cancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m () -cancelAnimationFrame self id - = liftDOM (void (self ^. jsf "cancelAnimationFrame" [toJSVal id])) - --- | -webkitRequestAnimationFrame :: - (MonadDOM m) => Window -> RequestAnimationFrameCallback -> m Int -webkitRequestAnimationFrame self callback - = liftDOM - (round <$> - ((self ^. jsf "webkitRequestAnimationFrame" [toJSVal callback]) >>= - valToNumber)) - --- | -webkitRequestAnimationFrame_ :: - (MonadDOM m) => Window -> RequestAnimationFrameCallback -> m () -webkitRequestAnimationFrame_ self callback - = liftDOM - (void - (self ^. jsf "webkitRequestAnimationFrame" [toJSVal callback])) - --- | -webkitCancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m () -webkitCancelAnimationFrame self id - = liftDOM - (void (self ^. jsf "webkitCancelAnimationFrame" [toJSVal id])) - --- | -webkitCancelRequestAnimationFrame :: - (MonadDOM m) => Window -> Int -> m () -webkitCancelRequestAnimationFrame self id - = liftDOM - (void - (self ^. jsf "webkitCancelRequestAnimationFrame" [toJSVal id])) - --- | -captureEvents :: (MonadDOM m) => Window -> m () -captureEvents self - = liftDOM (void (self ^. jsf "captureEvents" ())) - --- | -releaseEvents :: (MonadDOM m) => Window -> m () -releaseEvents self - = liftDOM (void (self ^. jsf "releaseEvents" ())) - -- | collectMatchingElementsInFlatTree :: (MonadDOM m, IsNode scope, ToJSString selectors) => @@ -610,16 +708,44 @@ getSpeechSynthesis self = liftDOM ((self ^. js "speechSynthesis") >>= fromJSValUnchecked) --- | -getScreen :: (MonadDOM m) => Window -> m Screen -getScreen self - = liftDOM ((self ^. js "screen") >>= fromJSValUnchecked) +-- | +getWindow :: (MonadDOM m) => Window -> m Window +getWindow self + = liftDOM ((self ^. js "window") >>= fromJSValUnchecked) +-- | +getSelf :: (MonadDOM m) => Window -> m Window +getSelf self = liftDOM ((self ^. js "self") >>= fromJSValUnchecked) + +-- | +getDocument :: (MonadDOM m) => Window -> m Document +getDocument self + = liftDOM ((self ^. js "document") >>= fromJSValUnchecked) + +-- | +setName :: (MonadDOM m, ToJSString val) => Window -> val -> m () +setName self val = liftDOM (self ^. jss "name" (toJSVal val)) + +-- | +getName :: (MonadDOM m, FromJSString result) => Window -> m result +getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) + +-- | +getLocation :: (MonadDOM m) => Window -> m Location +getLocation self + = liftDOM ((self ^. js "location") >>= fromJSValUnchecked) + -- | getHistory :: (MonadDOM m) => Window -> m History getHistory self = liftDOM ((self ^. js "history") >>= fromJSValUnchecked) +-- | +getCustomElements :: + (MonadDOM m) => Window -> m CustomElementRegistry +getCustomElements self + = liftDOM ((self ^. js "customElements") >>= fromJSValUnchecked) + -- | getLocationbar :: (MonadDOM m) => Window -> m BarProp getLocationbar self @@ -650,51 +776,121 @@ getToolbar self = liftDOM ((self ^. js "toolbar") >>= fromJSValUnchecked) --- | -getNavigator :: (MonadDOM m) => Window -> m Navigator -getNavigator self - = liftDOM ((self ^. js "navigator") >>= fromJSValUnchecked) +-- | +setStatus :: (MonadDOM m, ToJSString val) => Window -> val -> m () +setStatus self val = liftDOM (self ^. jss "status" (toJSVal val)) --- | -getClientInformation :: (MonadDOM m) => Window -> m Navigator -getClientInformation self - = liftDOM ((self ^. js "clientInformation") >>= fromJSValUnchecked) +-- | +getStatus :: + (MonadDOM m, FromJSString result) => Window -> m result +getStatus self + = liftDOM ((self ^. js "status") >>= fromJSValUnchecked) --- | -setLocation :: (MonadDOM m) => Window -> Location -> m () -setLocation self val - = liftDOM (self ^. jss "location" (toJSVal val)) +-- | +getClosed :: (MonadDOM m) => Window -> m Bool +getClosed self = liftDOM ((self ^. js "closed") >>= valToBool) --- | -getLocation :: (MonadDOM m) => Window -> m Location -getLocation self - = liftDOM ((self ^. js "location") >>= fromJSValUnchecked) +-- | +getFrames :: (MonadDOM m) => Window -> m Window +getFrames self + = liftDOM ((self ^. js "frames") >>= fromJSValUnchecked) --- | -getEvent :: (MonadDOM m) => Window -> m Event -getEvent self - = liftDOM ((self ^. js "event") >>= fromJSValUnchecked) +-- | +getLength :: (MonadDOM m) => Window -> m Word +getLength self + = liftDOM (round <$> ((self ^. js "length") >>= valToNumber)) +-- | +getTop :: (MonadDOM m) => Window -> m (Maybe Window) +getTop self = liftDOM ((self ^. js "top") >>= fromJSVal) + +-- | +getTopUnsafe :: (MonadDOM m, HasCallStack) => Window -> m Window +getTopUnsafe self + = liftDOM + (((self ^. js "top") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getTopUnchecked :: (MonadDOM m) => Window -> m Window +getTopUnchecked self + = liftDOM ((self ^. js "top") >>= fromJSValUnchecked) + +-- | +getOpener :: (MonadDOM m) => Window -> m (Maybe Window) +getOpener self = liftDOM ((self ^. js "opener") >>= fromJSVal) + +-- | +getOpenerUnsafe :: (MonadDOM m, HasCallStack) => Window -> m Window +getOpenerUnsafe self + = liftDOM + (((self ^. js "opener") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getOpenerUnchecked :: (MonadDOM m) => Window -> m Window +getOpenerUnchecked self + = liftDOM ((self ^. js "opener") >>= fromJSValUnchecked) + +-- | +getParent :: (MonadDOM m) => Window -> m (Maybe Window) +getParent self = liftDOM ((self ^. js "parent") >>= fromJSVal) + +-- | +getParentUnsafe :: (MonadDOM m, HasCallStack) => Window -> m Window +getParentUnsafe self + = liftDOM + (((self ^. js "parent") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getParentUnchecked :: (MonadDOM m) => Window -> m Window +getParentUnchecked self + = liftDOM ((self ^. js "parent") >>= fromJSValUnchecked) + -- | -getFrameElement :: (MonadDOM m) => Window -> m Element +getFrameElement :: (MonadDOM m) => Window -> m (Maybe Element) getFrameElement self + = liftDOM ((self ^. js "frameElement") >>= fromJSVal) + +-- | +getFrameElementUnsafe :: + (MonadDOM m, HasCallStack) => Window -> m Element +getFrameElementUnsafe self + = liftDOM + (((self ^. js "frameElement") >>= fromJSVal) >>= + maybe (Prelude.error "Nothing to return") return) + +-- | +getFrameElementUnchecked :: (MonadDOM m) => Window -> m Element +getFrameElementUnchecked self = liftDOM ((self ^. js "frameElement") >>= fromJSValUnchecked) --- | -getOffscreenBuffering :: (MonadDOM m) => Window -> m Bool -getOffscreenBuffering self - = liftDOM ((self ^. js "offscreenBuffering") >>= valToBool) +-- | +getNavigator :: (MonadDOM m) => Window -> m Navigator +getNavigator self + = liftDOM ((self ^. js "navigator") >>= fromJSValUnchecked) --- | -getOuterHeight :: (MonadDOM m) => Window -> m Int -getOuterHeight self - = liftDOM (round <$> ((self ^. js "outerHeight") >>= valToNumber)) +-- | +getApplicationCache :: (MonadDOM m) => Window -> m ApplicationCache +getApplicationCache self + = liftDOM ((self ^. js "applicationCache") >>= fromJSValUnchecked) --- | -getOuterWidth :: (MonadDOM m) => Window -> m Int -getOuterWidth self - = liftDOM (round <$> ((self ^. js "outerWidth") >>= valToNumber)) +-- | +getSessionStorage :: (MonadDOM m) => Window -> m Storage +getSessionStorage self + = liftDOM ((self ^. js "sessionStorage") >>= fromJSValUnchecked) +-- | +getLocalStorage :: (MonadDOM m) => Window -> m Storage +getLocalStorage self + = liftDOM ((self ^. js "localStorage") >>= fromJSValUnchecked) + +-- | +getScreen :: (MonadDOM m) => Window -> m Screen +getScreen self + = liftDOM ((self ^. js "screen") >>= fromJSValUnchecked) + -- | getInnerHeight :: (MonadDOM m) => Window -> m Int getInnerHeight self @@ -705,71 +901,59 @@ getInnerWidth self = liftDOM (round <$> ((self ^. js "innerWidth") >>= valToNumber)) --- | -getScreenX :: (MonadDOM m) => Window -> m Int -getScreenX self - = liftDOM (round <$> ((self ^. js "screenX") >>= valToNumber)) - --- | -getScreenY :: (MonadDOM m) => Window -> m Int -getScreenY self - = liftDOM (round <$> ((self ^. js "screenY") >>= valToNumber)) - --- | -getScreenLeft :: (MonadDOM m) => Window -> m Int -getScreenLeft self - = liftDOM (round <$> ((self ^. js "screenLeft") >>= valToNumber)) - --- | -getScreenTop :: (MonadDOM m) => Window -> m Int -getScreenTop self - = liftDOM (round <$> ((self ^. js "screenTop") >>= valToNumber)) - -- | getScrollX :: (MonadDOM m) => Window -> m Double getScrollX self = liftDOM ((self ^. js "scrollX") >>= valToNumber) --- | -getScrollY :: (MonadDOM m) => Window -> m Double -getScrollY self = liftDOM ((self ^. js "scrollY") >>= valToNumber) - -- | getPageXOffset :: (MonadDOM m) => Window -> m Double getPageXOffset self = liftDOM ((self ^. js "pageXOffset") >>= valToNumber) +-- | +getScrollY :: (MonadDOM m) => Window -> m Double +getScrollY self = liftDOM ((self ^. js "scrollY") >>= valToNumber) + -- | getPageYOffset :: (MonadDOM m) => Window -> m Double getPageYOffset self = liftDOM ((self ^. js "pageYOffset") >>= valToNumber) --- | -getClosed :: (MonadDOM m) => Window -> m Bool -getClosed self = liftDOM ((self ^. js "closed") >>= valToBool) +-- | +getScreenX :: (MonadDOM m) => Window -> m Int +getScreenX self + = liftDOM (round <$> ((self ^. js "screenX") >>= valToNumber)) --- | -getLength :: (MonadDOM m) => Window -> m Word -getLength self - = liftDOM (round <$> ((self ^. js "length") >>= valToNumber)) +-- | +getScreenY :: (MonadDOM m) => Window -> m Int +getScreenY self + = liftDOM (round <$> ((self ^. js "screenY") >>= valToNumber)) --- | -setName :: (MonadDOM m, ToJSString val) => Window -> val -> m () -setName self val = liftDOM (self ^. jss "name" (toJSVal val)) +-- | +getOuterWidth :: (MonadDOM m) => Window -> m Int +getOuterWidth self + = liftDOM (round <$> ((self ^. js "outerWidth") >>= valToNumber)) --- | -getName :: (MonadDOM m, FromJSString result) => Window -> m result -getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) +-- | +getOuterHeight :: (MonadDOM m) => Window -> m Int +getOuterHeight self + = liftDOM (round <$> ((self ^. js "outerHeight") >>= valToNumber)) --- | -setStatus :: (MonadDOM m, ToJSString val) => Window -> val -> m () -setStatus self val = liftDOM (self ^. jss "status" (toJSVal val)) +-- | +getDevicePixelRatio :: (MonadDOM m) => Window -> m Double +getDevicePixelRatio self + = liftDOM ((self ^. js "devicePixelRatio") >>= valToNumber) --- | -getStatus :: - (MonadDOM m, FromJSString result) => Window -> m result -getStatus self - = liftDOM ((self ^. js "status") >>= fromJSValUnchecked) +-- | +getOrientation :: (MonadDOM m) => Window -> m Int +getOrientation self + = liftDOM (round <$> ((self ^. js "orientation") >>= valToNumber)) +-- | +getEvent :: (MonadDOM m) => Window -> m Event +getEvent self + = liftDOM ((self ^. js "event") >>= fromJSValUnchecked) + -- | setDefaultStatus :: (MonadDOM m, ToJSString val) => Window -> val -> m () @@ -794,112 +978,31 @@ getDefaultstatus self = liftDOM ((self ^. js "defaultstatus") >>= fromJSValUnchecked) --- | -getSelf :: (MonadDOM m) => Window -> m Window -getSelf self = liftDOM ((self ^. js "self") >>= fromJSValUnchecked) - --- | -getWindow :: (MonadDOM m) => Window -> m Window -getWindow self - = liftDOM ((self ^. js "window") >>= fromJSValUnchecked) - --- | -getFrames :: (MonadDOM m) => Window -> m Window -getFrames self - = liftDOM ((self ^. js "frames") >>= fromJSValUnchecked) - --- | -getOpener :: (MonadDOM m) => Window -> m Window -getOpener self - = liftDOM ((self ^. js "opener") >>= fromJSValUnchecked) +-- | +getOffscreenBuffering :: (MonadDOM m) => Window -> m Bool +getOffscreenBuffering self + = liftDOM ((self ^. js "offscreenBuffering") >>= valToBool) --- | -getParent :: (MonadDOM m) => Window -> m Window -getParent self - = liftDOM ((self ^. js "parent") >>= fromJSValUnchecked) +-- | +getScreenLeft :: (MonadDOM m) => Window -> m Int +getScreenLeft self + = liftDOM (round <$> ((self ^. js "screenLeft") >>= valToNumber)) --- | -getTop :: (MonadDOM m) => Window -> m Window -getTop self = liftDOM ((self ^. js "top") >>= fromJSValUnchecked) +-- | +getScreenTop :: (MonadDOM m) => Window -> m Int +getScreenTop self + = liftDOM (round <$> ((self ^. js "screenTop") >>= valToNumber)) --- | -getDocument :: (MonadDOM m) => Window -> m Document -getDocument self - = liftDOM ((self ^. js "document") >>= fromJSValUnchecked) +-- | +getClientInformation :: (MonadDOM m) => Window -> m Navigator +getClientInformation self + = liftDOM ((self ^. js "clientInformation") >>= fromJSValUnchecked) -- | getStyleMedia :: (MonadDOM m) => Window -> m StyleMedia getStyleMedia self = liftDOM ((self ^. js "styleMedia") >>= fromJSValUnchecked) --- | -getDevicePixelRatio :: (MonadDOM m) => Window -> m Double -getDevicePixelRatio self - = liftDOM ((self ^. js "devicePixelRatio") >>= valToNumber) - --- | -getApplicationCache :: (MonadDOM m) => Window -> m ApplicationCache -getApplicationCache self - = liftDOM ((self ^. js "applicationCache") >>= fromJSValUnchecked) - --- | -getSessionStorage :: (MonadDOM m) => Window -> m Storage -getSessionStorage self - = liftDOM ((self ^. js "sessionStorage") >>= fromJSValUnchecked) - --- | -getLocalStorage :: (MonadDOM m) => Window -> m Storage -getLocalStorage self - = liftDOM ((self ^. js "localStorage") >>= fromJSValUnchecked) - --- | -getOrientation :: (MonadDOM m) => Window -> m Int -getOrientation self - = liftDOM (round <$> ((self ^. js "orientation") >>= valToNumber)) - --- | -getCustomElements :: - (MonadDOM m) => Window -> m CustomElementRegistry -getCustomElements self - = liftDOM ((self ^. js "customElements") >>= fromJSValUnchecked) - --- | -animationEnd :: EventName Window AnimationEvent -animationEnd = unsafeEventName (toJSString "animationend") - --- | -animationIteration :: EventName Window AnimationEvent -animationIteration - = unsafeEventName (toJSString "animationiteration") - --- | -animationStart :: EventName Window AnimationEvent -animationStart = unsafeEventName (toJSString "animationstart") - --- | -transitionEnd :: EventName Window TransitionEvent -transitionEnd = unsafeEventName (toJSString "transitionend") - --- | -webKitAnimationEnd :: EventName Window AnimationEvent -webKitAnimationEnd - = unsafeEventName (toJSString "webkitanimationend") - --- | -webKitAnimationIteration :: EventName Window AnimationEvent -webKitAnimationIteration - = unsafeEventName (toJSString "webkitanimationiteration") - --- | -webKitAnimationStart :: EventName Window AnimationEvent -webKitAnimationStart - = unsafeEventName (toJSString "webkitanimationstart") - --- | -webKitTransitionEnd :: EventName Window TransitionEvent -webKitTransitionEnd - = unsafeEventName (toJSString "webkittransitionend") - -- | gestureChange :: EventName Window UIEvent gestureChange = unsafeEventName (toJSString "gesturechange") @@ -925,3 +1028,23 @@ webKitDeviceProximity :: EventName Window DeviceProximityEvent webKitDeviceProximity = unsafeEventName (toJSString "webkitdeviceproximity") + +-- | +webKitAnimationEnd :: EventName Window AnimationEvent +webKitAnimationEnd + = unsafeEventName (toJSString "webkitanimationend") + +-- | +webKitAnimationIteration :: EventName Window AnimationEvent +webKitAnimationIteration + = unsafeEventName (toJSString "webkitanimationiteration") + +-- | +webKitAnimationStart :: EventName Window AnimationEvent +webKitAnimationStart + = unsafeEventName (toJSString "webkitanimationstart") + +-- | +webKitTransitionEnd :: EventName Window TransitionEvent +webKitTransitionEnd + = unsafeEventName (toJSString "webkittransitionend") diff --git a/src/JSDOM/Generated/WindowEventHandlers.hs b/src/JSDOM/Generated/WindowEventHandlers.hs --- a/src/JSDOM/Generated/WindowEventHandlers.hs +++ b/src/JSDOM/Generated/WindowEventHandlers.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WindowOrWorkerGlobalScope.hs b/src/JSDOM/Generated/WindowOrWorkerGlobalScope.hs --- a/src/JSDOM/Generated/WindowOrWorkerGlobalScope.hs +++ b/src/JSDOM/Generated/WindowOrWorkerGlobalScope.hs @@ -4,7 +4,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WindowOrWorkerGlobalScope (setTimeout, setTimeout_, clearTimeout, setInterval, setInterval_, - clearInterval, atob, atob_, btoa, btoa_, + clearInterval, atob, atob_, btoa, btoa_, getOrigin, WindowOrWorkerGlobalScope(..), gTypeWindowOrWorkerGlobalScope, IsWindowOrWorkerGlobalScope, toWindowOrWorkerGlobalScope) where @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types @@ -127,3 +127,13 @@ (void ((toWindowOrWorkerGlobalScope self) ^. jsf "btoa" [toJSVal string])) + +-- | +getOrigin :: + (MonadDOM m, IsWindowOrWorkerGlobalScope self, + FromJSString result) => + self -> m result +getOrigin self + = liftDOM + (((toWindowOrWorkerGlobalScope self) ^. js "origin") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Worker.hs b/src/JSDOM/Generated/Worker.hs --- a/src/JSDOM/Generated/Worker.hs +++ b/src/JSDOM/Generated/Worker.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WorkerGlobalScope.hs b/src/JSDOM/Generated/WorkerGlobalScope.hs --- a/src/JSDOM/Generated/WorkerGlobalScope.hs +++ b/src/JSDOM/Generated/WorkerGlobalScope.hs @@ -12,7 +12,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WorkerLocation.hs b/src/JSDOM/Generated/WorkerLocation.hs --- a/src/JSDOM/Generated/WorkerLocation.hs +++ b/src/JSDOM/Generated/WorkerLocation.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WorkerNavigator.hs b/src/JSDOM/Generated/WorkerNavigator.hs --- a/src/JSDOM/Generated/WorkerNavigator.hs +++ b/src/JSDOM/Generated/WorkerNavigator.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/WritableStream.hs b/src/JSDOM/Generated/WritableStream.hs --- a/src/JSDOM/Generated/WritableStream.hs +++ b/src/JSDOM/Generated/WritableStream.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XMLHttpRequest.hs b/src/JSDOM/Generated/XMLHttpRequest.hs --- a/src/JSDOM/Generated/XMLHttpRequest.hs +++ b/src/JSDOM/Generated/XMLHttpRequest.hs @@ -20,7 +20,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XMLHttpRequestEventTarget.hs b/src/JSDOM/Generated/XMLHttpRequestEventTarget.hs --- a/src/JSDOM/Generated/XMLHttpRequestEventTarget.hs +++ b/src/JSDOM/Generated/XMLHttpRequestEventTarget.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XMLHttpRequestProgressEvent.hs b/src/JSDOM/Generated/XMLHttpRequestProgressEvent.hs --- a/src/JSDOM/Generated/XMLHttpRequestProgressEvent.hs +++ b/src/JSDOM/Generated/XMLHttpRequestProgressEvent.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XMLSerializer.hs b/src/JSDOM/Generated/XMLSerializer.hs --- a/src/JSDOM/Generated/XMLSerializer.hs +++ b/src/JSDOM/Generated/XMLSerializer.hs @@ -10,7 +10,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XPathEvaluator.hs b/src/JSDOM/Generated/XPathEvaluator.hs --- a/src/JSDOM/Generated/XPathEvaluator.hs +++ b/src/JSDOM/Generated/XPathEvaluator.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XPathException.hs b/src/JSDOM/Generated/XPathException.hs --- a/src/JSDOM/Generated/XPathException.hs +++ b/src/JSDOM/Generated/XPathException.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XPathExpression.hs b/src/JSDOM/Generated/XPathExpression.hs --- a/src/JSDOM/Generated/XPathExpression.hs +++ b/src/JSDOM/Generated/XPathExpression.hs @@ -9,7 +9,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XPathNSResolver.hs b/src/JSDOM/Generated/XPathNSResolver.hs --- a/src/JSDOM/Generated/XPathNSResolver.hs +++ b/src/JSDOM/Generated/XPathNSResolver.hs @@ -11,7 +11,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XPathResult.hs b/src/JSDOM/Generated/XPathResult.hs --- a/src/JSDOM/Generated/XPathResult.hs +++ b/src/JSDOM/Generated/XPathResult.hs @@ -18,7 +18,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Generated/XSLTProcessor.hs b/src/JSDOM/Generated/XSLTProcessor.hs --- a/src/JSDOM/Generated/XSLTProcessor.hs +++ b/src/JSDOM/Generated/XSLTProcessor.hs @@ -13,7 +13,7 @@ import qualified Prelude (error) import Data.Typeable (Typeable) import Data.Traversable (mapM) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array, jsUndefined, (!), (!!)) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!)) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types diff --git a/src/JSDOM/Types.hs b/src/JSDOM/Types.hs --- a/src/JSDOM/Types.hs +++ b/src/JSDOM/Types.hs @@ -23,32574 +23,38832 @@ -- * JavaScript String , JSString(..), ToJSString(..), FromJSString(..) , toMaybeJSString, fromMaybeJSString - - -- * JavaScript Array - , fromJSArray, fromJSArrayUnchecked - - -- * JavaScript Object - , Object(..) - - -- * Nullable - , Nullable(..), nullableToMaybe, maybeToNullable - - -- * DOM String - , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString - , USVString(..), IsUSVString - , ByteString(..), IsByteString - - -- * Object - , maybeNullOrUndefined, maybeNullOrUndefined', GType(..) - , GObject(..), IsGObject, toGObject, gTypeGObject, isA, objectToString - , castTo, unsafeCastTo, uncheckedCastTo - , strictEqual - - , Function(Function), unFunction, IsFunction, toFunction - - -- * Promise - , readPromise - - -- * Callbacks - , Callback(..) - , withCallback - , AudioBufferCallback(..) - , DatabaseCallback(..) - , IntersectionObserverCallback(..) - , MediaQueryListListener(..) - , MediaStreamTrackSourcesCallback(..) - , NavigatorUserMediaErrorCallback(..) - , NavigatorUserMediaSuccessCallback(..) - , NotificationPermissionCallback(..) - , NodeFilter(..) - , PositionCallback(..) - , PositionErrorCallback(..) - , PerformanceObserverCallback(..) - , RequestAnimationFrameCallback(..) - , RTCPeerConnectionErrorCallback(..) - , RTCSessionDescriptionCallback(..) - , RTCStatsCallback(..) - , SQLStatementCallback(..) - , SQLStatementErrorCallback(..) - , SQLTransactionCallback(..) - , SQLTransactionErrorCallback(..) - , StorageErrorCallback(..) - , StorageQuotaCallback(..) - , StorageUsageCallback(..) - , StringCallback(..) - , VoidCallback(..) - - -- * Custom Types - , DOMHighResTimeStamp - , PerformanceEntryList - - -- * Record Type - , Record(Record), unRecord - - -- * Dictionaries - , Dictionary(Dictionary), unDictionary, IsDictionary, toDictionary - - -- * Mutation Callback - , MutationCallback(MutationCallback), unMutationCallback, IsMutationCallback, toMutationCallback - - -- * Date - , Date(Date), unDate, IsDate, toDate, gTypeDate - - -- * Arrays - , Array(Array), unArray, IsArray, toArray, gTypeArray - , ObjectArray(ObjectArray), unObjectArray, IsObjectArray, toObjectArray - , ArrayBuffer(ArrayBuffer), unArrayBuffer, IsArrayBuffer, toArrayBuffer, gTypeArrayBuffer - , ArrayBufferView(ArrayBufferView), unArrayBufferView, IsArrayBufferView, toArrayBufferView - , Float32Array(Float32Array), unFloat32Array, IsFloat32Array, toFloat32Array, gTypeFloat32Array - , Float64Array(Float64Array), unFloat64Array, IsFloat64Array, toFloat64Array, gTypeFloat64Array - , Uint8Array(Uint8Array), unUint8Array, IsUint8Array, toUint8Array, gTypeUint8Array - , Uint8ClampedArray(Uint8ClampedArray), unUint8ClampedArray, IsUint8ClampedArray, toUint8ClampedArray, gTypeUint8ClampedArray - , Uint16Array(Uint16Array), unUint16Array, IsUint16Array, toUint16Array, gTypeUint16Array - , Uint32Array(Uint32Array), unUint32Array, IsUint32Array, toUint32Array, gTypeUint32Array - , Int8Array(Int8Array), unInt8Array, IsInt8Array, toInt8Array, gTypeInt8Array - , Int16Array(Int16Array), unInt16Array, IsInt16Array, toInt16Array, gTypeInt16Array - , Int32Array(Int32Array), unInt32Array, IsInt32Array, toInt32Array, gTypeInt32Array - - -- * Geolocation - , SerializedScriptValue(SerializedScriptValue), unSerializedScriptValue, IsSerializedScriptValue, toSerializedScriptValue - - -- * Crypto - , Algorithm(Algorithm), unAlgorithm, IsAlgorithm, toAlgorithm - , CryptoOperationData(CryptoOperationData), unCryptoOperationData, IsCryptoOperationData, toCryptoOperationData - - -- * WebGL typedefs - , GLenum(..), GLboolean(..), GLbitfield(..), GLbyte(..), GLshort(..), GLint(..), GLsizei(..) - , GLintptr(..), GLsizeiptr(..), GLubyte(..), GLushort(..), GLuint(..), GLfloat(..), GLclampf(..) - , GLint64, GLuint64 - - -- * Used for better error messages - , HasCallStack - - -- * Interface types from IDL files - --- AUTO GENERATION STARTS HERE - , AddEventListenerOptionsOrBool(AddEventListenerOptionsOrBool), unAddEventListenerOptionsOrBool, IsAddEventListenerOptionsOrBool, toAddEventListenerOptionsOrBool - , BinaryData(BinaryData), unBinaryData, IsBinaryData, toBinaryData - , BlobPart(BlobPart), unBlobPart, IsBlobPart - , BodyInit(BodyInit), unBodyInit, IsBodyInit - , BufferDataSource(BufferDataSource), unBufferDataSource, IsBufferDataSource, toBufferDataSource - , BufferSource(BufferSource), unBufferSource, IsBufferSource, toBufferSource - , CanvasImageSource(CanvasImageSource), unCanvasImageSource, IsCanvasImageSource, toCanvasImageSource - , CanvasStyle(CanvasStyle), unCanvasStyle, IsCanvasStyle - , CryptoKeyOrKeyPair(CryptoKeyOrKeyPair), unCryptoKeyOrKeyPair, IsCryptoKeyOrKeyPair, toCryptoKeyOrKeyPair - , EventListenerOptionsOrBool(EventListenerOptionsOrBool), unEventListenerOptionsOrBool, IsEventListenerOptionsOrBool, toEventListenerOptionsOrBool - , Float32List(Float32List), unFloat32List, IsFloat32List - , HTMLCollectionOrElement(HTMLCollectionOrElement), unHTMLCollectionOrElement, IsHTMLCollectionOrElement, toHTMLCollectionOrElement - , HTMLElementOrLong(HTMLElementOrLong), unHTMLElementOrLong, IsHTMLElementOrLong - , HTMLOptionElementOrGroup(HTMLOptionElementOrGroup), unHTMLOptionElementOrGroup, IsHTMLOptionElementOrGroup, toHTMLOptionElementOrGroup - , IDBCursorSource(IDBCursorSource), unIDBCursorSource, IsIDBCursorSource, toIDBCursorSource - , IDBKeyPath(IDBKeyPath), unIDBKeyPath, IsIDBKeyPath - , IDBRequestResult(IDBRequestResult), unIDBRequestResult, IsIDBRequestResult, toIDBRequestResult - , IDBRequestSource(IDBRequestSource), unIDBRequestSource, IsIDBRequestSource, toIDBRequestSource - , Int32List(Int32List), unInt32List, IsInt32List - , KeyData(KeyData), unKeyData, IsKeyData, toKeyData - , MediaProvider(MediaProvider), unMediaProvider, IsMediaProvider, toMediaProvider - , MessageEventSource(MessageEventSource), unMessageEventSource, IsMessageEventSource, toMessageEventSource - , NodeOrString(NodeOrString), unNodeOrString, IsNodeOrString - , RadioNodeListOrElement(RadioNodeListOrElement), unRadioNodeListOrElement, IsRadioNodeListOrElement, toRadioNodeListOrElement - , RenderingContext(RenderingContext), unRenderingContext, IsRenderingContext, toRenderingContext - , SQLValue(SQLValue), unSQLValue, IsSQLValue - , StringOrArrayBuffer(StringOrArrayBuffer), unStringOrArrayBuffer, IsStringOrArrayBuffer - , StringOrBinaryData(StringOrBinaryData), unStringOrBinaryData, IsStringOrBinaryData - , StringOrStrings(StringOrStrings), unStringOrStrings, IsStringOrStrings - , TexImageSource(TexImageSource), unTexImageSource, IsTexImageSource, toTexImageSource - , Track(Track), unTrack, IsTrack, toTrack - , URLSearchParamsInit(URLSearchParamsInit), unURLSearchParamsInit, IsURLSearchParamsInit - , XMLHttpRequestBody(XMLHttpRequestBody), unXMLHttpRequestBody, IsXMLHttpRequestBody - - , ANGLEInstancedArrays(ANGLEInstancedArrays), unANGLEInstancedArrays, gTypeANGLEInstancedArrays - , AbstractWorker(AbstractWorker), unAbstractWorker, IsAbstractWorker, toAbstractWorker, gTypeAbstractWorker - , Acceleration(Acceleration), unAcceleration, gTypeAcceleration - , AddEventListenerOptions(AddEventListenerOptions), unAddEventListenerOptions, gTypeAddEventListenerOptions - , AesCbcParams(AesCbcParams), unAesCbcParams, gTypeAesCbcParams - , AesKeyGenParams(AesKeyGenParams), unAesKeyGenParams, gTypeAesKeyGenParams - , AnalyserNode(AnalyserNode), unAnalyserNode, gTypeAnalyserNode - , Animatable(Animatable), unAnimatable, IsAnimatable, toAnimatable, gTypeAnimatable - , Animation(Animation), unAnimation, gTypeAnimation - , AnimationEffect(AnimationEffect), unAnimationEffect, IsAnimationEffect, toAnimationEffect, gTypeAnimationEffect - , AnimationEvent(AnimationEvent), unAnimationEvent, gTypeAnimationEvent - , AnimationEventInit(AnimationEventInit), unAnimationEventInit, gTypeAnimationEventInit - , AnimationTimeline(AnimationTimeline), unAnimationTimeline, IsAnimationTimeline, toAnimationTimeline, gTypeAnimationTimeline - , ApplePayLineItem(ApplePayLineItem), unApplePayLineItem, gTypeApplePayLineItem - , ApplePayPayment(ApplePayPayment), unApplePayPayment, gTypeApplePayPayment - , ApplePayPaymentAuthorizedEvent(ApplePayPaymentAuthorizedEvent), unApplePayPaymentAuthorizedEvent, gTypeApplePayPaymentAuthorizedEvent - , ApplePayPaymentContact(ApplePayPaymentContact), unApplePayPaymentContact, gTypeApplePayPaymentContact - , ApplePayPaymentMethod(ApplePayPaymentMethod), unApplePayPaymentMethod, gTypeApplePayPaymentMethod - , ApplePayPaymentMethodSelectedEvent(ApplePayPaymentMethodSelectedEvent), unApplePayPaymentMethodSelectedEvent, gTypeApplePayPaymentMethodSelectedEvent - , ApplePayPaymentPass(ApplePayPaymentPass), unApplePayPaymentPass, gTypeApplePayPaymentPass - , ApplePayPaymentRequest(ApplePayPaymentRequest), unApplePayPaymentRequest, gTypeApplePayPaymentRequest - , ApplePayPaymentToken(ApplePayPaymentToken), unApplePayPaymentToken, gTypeApplePayPaymentToken - , ApplePaySession(ApplePaySession), unApplePaySession, gTypeApplePaySession - , ApplePayShippingContactSelectedEvent(ApplePayShippingContactSelectedEvent), unApplePayShippingContactSelectedEvent, gTypeApplePayShippingContactSelectedEvent - , ApplePayShippingMethod(ApplePayShippingMethod), unApplePayShippingMethod, gTypeApplePayShippingMethod - , ApplePayShippingMethodSelectedEvent(ApplePayShippingMethodSelectedEvent), unApplePayShippingMethodSelectedEvent, gTypeApplePayShippingMethodSelectedEvent - , ApplePayValidateMerchantEvent(ApplePayValidateMerchantEvent), unApplePayValidateMerchantEvent, gTypeApplePayValidateMerchantEvent - , ApplicationCache(ApplicationCache), unApplicationCache, gTypeApplicationCache - , AssignedNodesOptions(AssignedNodesOptions), unAssignedNodesOptions, gTypeAssignedNodesOptions - , Attr(Attr), unAttr, gTypeAttr - , AudioBuffer(AudioBuffer), unAudioBuffer, gTypeAudioBuffer - , AudioBufferSourceNode(AudioBufferSourceNode), unAudioBufferSourceNode, gTypeAudioBufferSourceNode - , AudioContext(AudioContext), unAudioContext, IsAudioContext, toAudioContext, gTypeAudioContext - , AudioDestinationNode(AudioDestinationNode), unAudioDestinationNode, gTypeAudioDestinationNode - , AudioListener(AudioListener), unAudioListener, gTypeAudioListener - , AudioNode(AudioNode), unAudioNode, IsAudioNode, toAudioNode, gTypeAudioNode - , AudioParam(AudioParam), unAudioParam, gTypeAudioParam - , AudioProcessingEvent(AudioProcessingEvent), unAudioProcessingEvent, gTypeAudioProcessingEvent - , AudioTrack(AudioTrack), unAudioTrack, gTypeAudioTrack - , AudioTrackList(AudioTrackList), unAudioTrackList, gTypeAudioTrackList - , AutocompleteErrorEvent(AutocompleteErrorEvent), unAutocompleteErrorEvent, gTypeAutocompleteErrorEvent - , AutocompleteErrorEventInit(AutocompleteErrorEventInit), unAutocompleteErrorEventInit, gTypeAutocompleteErrorEventInit - , BarProp(BarProp), unBarProp, gTypeBarProp - , BeforeLoadEvent(BeforeLoadEvent), unBeforeLoadEvent, gTypeBeforeLoadEvent - , BeforeLoadEventInit(BeforeLoadEventInit), unBeforeLoadEventInit, gTypeBeforeLoadEventInit - , BeforeUnloadEvent(BeforeUnloadEvent), unBeforeUnloadEvent, gTypeBeforeUnloadEvent - , BiquadFilterNode(BiquadFilterNode), unBiquadFilterNode, gTypeBiquadFilterNode - , Blob(Blob), unBlob, IsBlob, toBlob, gTypeBlob - , BlobPropertyBag(BlobPropertyBag), unBlobPropertyBag, IsBlobPropertyBag, toBlobPropertyBag, gTypeBlobPropertyBag - , Body(Body), unBody, IsBody, toBody, gTypeBody - , ByteLengthQueuingStrategy(ByteLengthQueuingStrategy), unByteLengthQueuingStrategy, gTypeByteLengthQueuingStrategy - , CDATASection(CDATASection), unCDATASection, gTypeCDATASection - , CSS(CSS), unCSS, gTypeCSS - , CSSFontFaceLoadEvent(CSSFontFaceLoadEvent), unCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent - , CSSFontFaceLoadEventInit(CSSFontFaceLoadEventInit), unCSSFontFaceLoadEventInit, gTypeCSSFontFaceLoadEventInit - , CSSFontFaceRule(CSSFontFaceRule), unCSSFontFaceRule, gTypeCSSFontFaceRule - , CSSImportRule(CSSImportRule), unCSSImportRule, gTypeCSSImportRule - , CSSKeyframeRule(CSSKeyframeRule), unCSSKeyframeRule, gTypeCSSKeyframeRule - , CSSKeyframesRule(CSSKeyframesRule), unCSSKeyframesRule, gTypeCSSKeyframesRule - , CSSMediaRule(CSSMediaRule), unCSSMediaRule, gTypeCSSMediaRule - , CSSNamespaceRule(CSSNamespaceRule), unCSSNamespaceRule, gTypeCSSNamespaceRule - , CSSPageRule(CSSPageRule), unCSSPageRule, gTypeCSSPageRule - , CSSPrimitiveValue(CSSPrimitiveValue), unCSSPrimitiveValue, gTypeCSSPrimitiveValue - , CSSRule(CSSRule), unCSSRule, IsCSSRule, toCSSRule, gTypeCSSRule - , CSSRuleList(CSSRuleList), unCSSRuleList, gTypeCSSRuleList - , CSSStyleDeclaration(CSSStyleDeclaration), unCSSStyleDeclaration, gTypeCSSStyleDeclaration - , CSSStyleRule(CSSStyleRule), unCSSStyleRule, gTypeCSSStyleRule - , CSSStyleSheet(CSSStyleSheet), unCSSStyleSheet, gTypeCSSStyleSheet - , CSSSupportsRule(CSSSupportsRule), unCSSSupportsRule, gTypeCSSSupportsRule - , CSSUnknownRule(CSSUnknownRule), unCSSUnknownRule, gTypeCSSUnknownRule - , CSSValue(CSSValue), unCSSValue, IsCSSValue, toCSSValue, gTypeCSSValue - , CSSValueList(CSSValueList), unCSSValueList, gTypeCSSValueList - , CanvasGradient(CanvasGradient), unCanvasGradient, gTypeCanvasGradient - , CanvasPath(CanvasPath), unCanvasPath, IsCanvasPath, toCanvasPath, gTypeCanvasPath - , CanvasPattern(CanvasPattern), unCanvasPattern, gTypeCanvasPattern - , CanvasProxy(CanvasProxy), unCanvasProxy, gTypeCanvasProxy - , CanvasRenderingContext2D(CanvasRenderingContext2D), unCanvasRenderingContext2D, gTypeCanvasRenderingContext2D - , ChannelMergerNode(ChannelMergerNode), unChannelMergerNode, gTypeChannelMergerNode - , ChannelSplitterNode(ChannelSplitterNode), unChannelSplitterNode, gTypeChannelSplitterNode - , CharacterData(CharacterData), unCharacterData, IsCharacterData, toCharacterData, gTypeCharacterData - , ChildNode(ChildNode), unChildNode, IsChildNode, toChildNode, gTypeChildNode - , ClientRect(ClientRect), unClientRect, gTypeClientRect - , ClientRectList(ClientRectList), unClientRectList, gTypeClientRectList - , ClipboardEvent(ClipboardEvent), unClipboardEvent, gTypeClipboardEvent - , ClipboardEventInit(ClipboardEventInit), unClipboardEventInit, gTypeClipboardEventInit - , CloseEvent(CloseEvent), unCloseEvent, gTypeCloseEvent - , CloseEventInit(CloseEventInit), unCloseEventInit, gTypeCloseEventInit - , CommandLineAPIHost(CommandLineAPIHost), unCommandLineAPIHost, gTypeCommandLineAPIHost - , Comment(Comment), unComment, gTypeComment - , CompositionEvent(CompositionEvent), unCompositionEvent, gTypeCompositionEvent - , CompositionEventInit(CompositionEventInit), unCompositionEventInit, gTypeCompositionEventInit - , ConstrainBooleanParameters(ConstrainBooleanParameters), unConstrainBooleanParameters, gTypeConstrainBooleanParameters - , ConstrainDOMStringParameters(ConstrainDOMStringParameters), unConstrainDOMStringParameters, gTypeConstrainDOMStringParameters - , ConstrainDoubleRange(ConstrainDoubleRange), unConstrainDoubleRange, gTypeConstrainDoubleRange - , ConstrainLongRange(ConstrainLongRange), unConstrainLongRange, gTypeConstrainLongRange - , ConvolverNode(ConvolverNode), unConvolverNode, gTypeConvolverNode - , Coordinates(Coordinates), unCoordinates, gTypeCoordinates - , CountQueuingStrategy(CountQueuingStrategy), unCountQueuingStrategy, gTypeCountQueuingStrategy - , Counter(Counter), unCounter, gTypeCounter - , Crypto(Crypto), unCrypto, gTypeCrypto - , CryptoAlgorithmParameters(CryptoAlgorithmParameters), unCryptoAlgorithmParameters, IsCryptoAlgorithmParameters, toCryptoAlgorithmParameters, gTypeCryptoAlgorithmParameters - , CryptoKey(CryptoKey), unCryptoKey, gTypeCryptoKey - , CryptoKeyPair(CryptoKeyPair), unCryptoKeyPair, gTypeCryptoKeyPair - , CustomElementRegistry(CustomElementRegistry), unCustomElementRegistry, gTypeCustomElementRegistry - , CustomEvent(CustomEvent), unCustomEvent, gTypeCustomEvent - , CustomEventInit(CustomEventInit), unCustomEventInit, gTypeCustomEventInit - , DOMError(DOMError), unDOMError, IsDOMError, toDOMError, gTypeDOMError - , DOMException(DOMException), unDOMException, gTypeDOMException - , DOMImplementation(DOMImplementation), unDOMImplementation, gTypeDOMImplementation - , DOMNamedFlowCollection(DOMNamedFlowCollection), unDOMNamedFlowCollection, gTypeDOMNamedFlowCollection - , DOMParser(DOMParser), unDOMParser, gTypeDOMParser - , DOMPoint(DOMPoint), unDOMPoint, gTypeDOMPoint - , DOMPointInit(DOMPointInit), unDOMPointInit, gTypeDOMPointInit - , DOMPointReadOnly(DOMPointReadOnly), unDOMPointReadOnly, IsDOMPointReadOnly, toDOMPointReadOnly, gTypeDOMPointReadOnly - , DOMRect(DOMRect), unDOMRect, gTypeDOMRect - , DOMRectInit(DOMRectInit), unDOMRectInit, gTypeDOMRectInit - , DOMRectReadOnly(DOMRectReadOnly), unDOMRectReadOnly, IsDOMRectReadOnly, toDOMRectReadOnly, gTypeDOMRectReadOnly - , DOMStringList(DOMStringList), unDOMStringList, gTypeDOMStringList - , DOMStringMap(DOMStringMap), unDOMStringMap, gTypeDOMStringMap - , DOMTokenList(DOMTokenList), unDOMTokenList, gTypeDOMTokenList - , DataCue(DataCue), unDataCue, gTypeDataCue - , DataTransfer(DataTransfer), unDataTransfer, gTypeDataTransfer - , DataTransferItem(DataTransferItem), unDataTransferItem, gTypeDataTransferItem - , DataTransferItemList(DataTransferItemList), unDataTransferItemList, gTypeDataTransferItemList - , Database(Database), unDatabase, gTypeDatabase - , DedicatedWorkerGlobalScope(DedicatedWorkerGlobalScope), unDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope - , DelayNode(DelayNode), unDelayNode, gTypeDelayNode - , DeviceMotionEvent(DeviceMotionEvent), unDeviceMotionEvent, gTypeDeviceMotionEvent - , DeviceOrientationEvent(DeviceOrientationEvent), unDeviceOrientationEvent, gTypeDeviceOrientationEvent - , DeviceProximityEvent(DeviceProximityEvent), unDeviceProximityEvent, gTypeDeviceProximityEvent - , DeviceProximityEventInit(DeviceProximityEventInit), unDeviceProximityEventInit, gTypeDeviceProximityEventInit - , Document(Document), unDocument, IsDocument, toDocument, gTypeDocument - , DocumentFragment(DocumentFragment), unDocumentFragment, IsDocumentFragment, toDocumentFragment, gTypeDocumentFragment - , DocumentOrShadowRoot(DocumentOrShadowRoot), unDocumentOrShadowRoot, IsDocumentOrShadowRoot, toDocumentOrShadowRoot, gTypeDocumentOrShadowRoot - , DocumentTimeline(DocumentTimeline), unDocumentTimeline, gTypeDocumentTimeline - , DocumentType(DocumentType), unDocumentType, gTypeDocumentType - , DoubleRange(DoubleRange), unDoubleRange, IsDoubleRange, toDoubleRange, gTypeDoubleRange - , DynamicsCompressorNode(DynamicsCompressorNode), unDynamicsCompressorNode, gTypeDynamicsCompressorNode - , EXTBlendMinMax(EXTBlendMinMax), unEXTBlendMinMax, gTypeEXTBlendMinMax - , EXTFragDepth(EXTFragDepth), unEXTFragDepth, gTypeEXTFragDepth - , EXTShaderTextureLOD(EXTShaderTextureLOD), unEXTShaderTextureLOD, gTypeEXTShaderTextureLOD - , EXTTextureFilterAnisotropic(EXTTextureFilterAnisotropic), unEXTTextureFilterAnisotropic, gTypeEXTTextureFilterAnisotropic - , EXTsRGB(EXTsRGB), unEXTsRGB, gTypeEXTsRGB - , Element(Element), unElement, IsElement, toElement, gTypeElement - , ErrorEvent(ErrorEvent), unErrorEvent, gTypeErrorEvent - , ErrorEventInit(ErrorEventInit), unErrorEventInit, gTypeErrorEventInit - , Event(Event), unEvent, IsEvent, toEvent, gTypeEvent - , EventInit(EventInit), unEventInit, IsEventInit, toEventInit, gTypeEventInit - , EventListener(EventListener), unEventListener, gTypeEventListener - , EventListenerOptions(EventListenerOptions), unEventListenerOptions, IsEventListenerOptions, toEventListenerOptions, gTypeEventListenerOptions - , EventModifierInit(EventModifierInit), unEventModifierInit, IsEventModifierInit, toEventModifierInit, gTypeEventModifierInit - , EventSource(EventSource), unEventSource, gTypeEventSource - , EventSourceInit(EventSourceInit), unEventSourceInit, gTypeEventSourceInit - , EventTarget(EventTarget), unEventTarget, IsEventTarget, toEventTarget, gTypeEventTarget - , File(File), unFile, gTypeFile - , FileError(FileError), unFileError, gTypeFileError - , FileException(FileException), unFileException, gTypeFileException - , FileList(FileList), unFileList, gTypeFileList - , FilePropertyBag(FilePropertyBag), unFilePropertyBag, gTypeFilePropertyBag - , FileReader(FileReader), unFileReader, gTypeFileReader - , FileReaderSync(FileReaderSync), unFileReaderSync, gTypeFileReaderSync - , FocusEvent(FocusEvent), unFocusEvent, gTypeFocusEvent - , FocusEventInit(FocusEventInit), unFocusEventInit, gTypeFocusEventInit - , FontFace(FontFace), unFontFace, gTypeFontFace - , FontFaceDescriptors(FontFaceDescriptors), unFontFaceDescriptors, gTypeFontFaceDescriptors - , FontFaceSet(FontFaceSet), unFontFaceSet, gTypeFontFaceSet - , FormData(FormData), unFormData, gTypeFormData - , GainNode(GainNode), unGainNode, gTypeGainNode - , Gamepad(Gamepad), unGamepad, gTypeGamepad - , GamepadButton(GamepadButton), unGamepadButton, gTypeGamepadButton - , GamepadEvent(GamepadEvent), unGamepadEvent, gTypeGamepadEvent - , GamepadEventInit(GamepadEventInit), unGamepadEventInit, gTypeGamepadEventInit - , Geolocation(Geolocation), unGeolocation, gTypeGeolocation - , Geoposition(Geoposition), unGeoposition, gTypeGeoposition - , GetRootNodeOptions(GetRootNodeOptions), unGetRootNodeOptions, gTypeGetRootNodeOptions - , GlobalCrypto(GlobalCrypto), unGlobalCrypto, IsGlobalCrypto, toGlobalCrypto, gTypeGlobalCrypto - , GlobalEventHandlers(GlobalEventHandlers), unGlobalEventHandlers, IsGlobalEventHandlers, toGlobalEventHandlers, gTypeGlobalEventHandlers - , GlobalPerformance(GlobalPerformance), unGlobalPerformance, IsGlobalPerformance, toGlobalPerformance, gTypeGlobalPerformance - , HTMLAllCollection(HTMLAllCollection), unHTMLAllCollection, gTypeHTMLAllCollection - , HTMLAnchorElement(HTMLAnchorElement), unHTMLAnchorElement, gTypeHTMLAnchorElement - , HTMLAppletElement(HTMLAppletElement), unHTMLAppletElement, gTypeHTMLAppletElement - , HTMLAreaElement(HTMLAreaElement), unHTMLAreaElement, gTypeHTMLAreaElement - , HTMLAttachmentElement(HTMLAttachmentElement), unHTMLAttachmentElement, gTypeHTMLAttachmentElement - , HTMLAudioElement(HTMLAudioElement), unHTMLAudioElement, gTypeHTMLAudioElement - , HTMLBRElement(HTMLBRElement), unHTMLBRElement, gTypeHTMLBRElement - , HTMLBaseElement(HTMLBaseElement), unHTMLBaseElement, gTypeHTMLBaseElement - , HTMLBodyElement(HTMLBodyElement), unHTMLBodyElement, gTypeHTMLBodyElement - , HTMLButtonElement(HTMLButtonElement), unHTMLButtonElement, gTypeHTMLButtonElement - , HTMLCanvasElement(HTMLCanvasElement), unHTMLCanvasElement, gTypeHTMLCanvasElement - , HTMLCollection(HTMLCollection), unHTMLCollection, IsHTMLCollection, toHTMLCollection, gTypeHTMLCollection - , HTMLDListElement(HTMLDListElement), unHTMLDListElement, gTypeHTMLDListElement - , HTMLDataElement(HTMLDataElement), unHTMLDataElement, gTypeHTMLDataElement - , HTMLDataListElement(HTMLDataListElement), unHTMLDataListElement, gTypeHTMLDataListElement - , HTMLDetailsElement(HTMLDetailsElement), unHTMLDetailsElement, gTypeHTMLDetailsElement - , HTMLDirectoryElement(HTMLDirectoryElement), unHTMLDirectoryElement, gTypeHTMLDirectoryElement - , HTMLDivElement(HTMLDivElement), unHTMLDivElement, gTypeHTMLDivElement - , HTMLDocument(HTMLDocument), unHTMLDocument, gTypeHTMLDocument - , HTMLElement(HTMLElement), unHTMLElement, IsHTMLElement, toHTMLElement, gTypeHTMLElement - , HTMLEmbedElement(HTMLEmbedElement), unHTMLEmbedElement, gTypeHTMLEmbedElement - , HTMLFieldSetElement(HTMLFieldSetElement), unHTMLFieldSetElement, gTypeHTMLFieldSetElement - , HTMLFontElement(HTMLFontElement), unHTMLFontElement, gTypeHTMLFontElement - , HTMLFormControlsCollection(HTMLFormControlsCollection), unHTMLFormControlsCollection, gTypeHTMLFormControlsCollection - , HTMLFormElement(HTMLFormElement), unHTMLFormElement, gTypeHTMLFormElement - , HTMLFrameElement(HTMLFrameElement), unHTMLFrameElement, gTypeHTMLFrameElement - , HTMLFrameSetElement(HTMLFrameSetElement), unHTMLFrameSetElement, gTypeHTMLFrameSetElement - , HTMLHRElement(HTMLHRElement), unHTMLHRElement, gTypeHTMLHRElement - , HTMLHeadElement(HTMLHeadElement), unHTMLHeadElement, gTypeHTMLHeadElement - , HTMLHeadingElement(HTMLHeadingElement), unHTMLHeadingElement, gTypeHTMLHeadingElement - , HTMLHtmlElement(HTMLHtmlElement), unHTMLHtmlElement, gTypeHTMLHtmlElement - , HTMLHyperlinkElementUtils(HTMLHyperlinkElementUtils), unHTMLHyperlinkElementUtils, IsHTMLHyperlinkElementUtils, toHTMLHyperlinkElementUtils, gTypeHTMLHyperlinkElementUtils - , HTMLIFrameElement(HTMLIFrameElement), unHTMLIFrameElement, gTypeHTMLIFrameElement - , HTMLImageElement(HTMLImageElement), unHTMLImageElement, gTypeHTMLImageElement - , HTMLInputElement(HTMLInputElement), unHTMLInputElement, gTypeHTMLInputElement - , HTMLKeygenElement(HTMLKeygenElement), unHTMLKeygenElement, gTypeHTMLKeygenElement - , HTMLLIElement(HTMLLIElement), unHTMLLIElement, gTypeHTMLLIElement - , HTMLLabelElement(HTMLLabelElement), unHTMLLabelElement, gTypeHTMLLabelElement - , HTMLLegendElement(HTMLLegendElement), unHTMLLegendElement, gTypeHTMLLegendElement - , HTMLLinkElement(HTMLLinkElement), unHTMLLinkElement, gTypeHTMLLinkElement - , HTMLMapElement(HTMLMapElement), unHTMLMapElement, gTypeHTMLMapElement - , HTMLMarqueeElement(HTMLMarqueeElement), unHTMLMarqueeElement, gTypeHTMLMarqueeElement - , HTMLMediaElement(HTMLMediaElement), unHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement, gTypeHTMLMediaElement - , HTMLMenuElement(HTMLMenuElement), unHTMLMenuElement, gTypeHTMLMenuElement - , HTMLMetaElement(HTMLMetaElement), unHTMLMetaElement, gTypeHTMLMetaElement - , HTMLMeterElement(HTMLMeterElement), unHTMLMeterElement, gTypeHTMLMeterElement - , HTMLModElement(HTMLModElement), unHTMLModElement, gTypeHTMLModElement - , HTMLOListElement(HTMLOListElement), unHTMLOListElement, gTypeHTMLOListElement - , HTMLObjectElement(HTMLObjectElement), unHTMLObjectElement, gTypeHTMLObjectElement - , HTMLOptGroupElement(HTMLOptGroupElement), unHTMLOptGroupElement, gTypeHTMLOptGroupElement - , HTMLOptionElement(HTMLOptionElement), unHTMLOptionElement, gTypeHTMLOptionElement - , HTMLOptionsCollection(HTMLOptionsCollection), unHTMLOptionsCollection, gTypeHTMLOptionsCollection - , HTMLOutputElement(HTMLOutputElement), unHTMLOutputElement, gTypeHTMLOutputElement - , HTMLParagraphElement(HTMLParagraphElement), unHTMLParagraphElement, gTypeHTMLParagraphElement - , HTMLParamElement(HTMLParamElement), unHTMLParamElement, gTypeHTMLParamElement - , HTMLPictureElement(HTMLPictureElement), unHTMLPictureElement, gTypeHTMLPictureElement - , HTMLPreElement(HTMLPreElement), unHTMLPreElement, gTypeHTMLPreElement - , HTMLProgressElement(HTMLProgressElement), unHTMLProgressElement, gTypeHTMLProgressElement - , HTMLQuoteElement(HTMLQuoteElement), unHTMLQuoteElement, gTypeHTMLQuoteElement - , HTMLScriptElement(HTMLScriptElement), unHTMLScriptElement, gTypeHTMLScriptElement - , HTMLSelectElement(HTMLSelectElement), unHTMLSelectElement, gTypeHTMLSelectElement - , HTMLSlotElement(HTMLSlotElement), unHTMLSlotElement, gTypeHTMLSlotElement - , HTMLSourceElement(HTMLSourceElement), unHTMLSourceElement, gTypeHTMLSourceElement - , HTMLSpanElement(HTMLSpanElement), unHTMLSpanElement, gTypeHTMLSpanElement - , HTMLStyleElement(HTMLStyleElement), unHTMLStyleElement, gTypeHTMLStyleElement - , HTMLTableCaptionElement(HTMLTableCaptionElement), unHTMLTableCaptionElement, gTypeHTMLTableCaptionElement - , HTMLTableCellElement(HTMLTableCellElement), unHTMLTableCellElement, gTypeHTMLTableCellElement - , HTMLTableColElement(HTMLTableColElement), unHTMLTableColElement, gTypeHTMLTableColElement - , HTMLTableElement(HTMLTableElement), unHTMLTableElement, gTypeHTMLTableElement - , HTMLTableRowElement(HTMLTableRowElement), unHTMLTableRowElement, gTypeHTMLTableRowElement - , HTMLTableSectionElement(HTMLTableSectionElement), unHTMLTableSectionElement, gTypeHTMLTableSectionElement - , HTMLTemplateElement(HTMLTemplateElement), unHTMLTemplateElement, gTypeHTMLTemplateElement - , HTMLTextAreaElement(HTMLTextAreaElement), unHTMLTextAreaElement, gTypeHTMLTextAreaElement - , HTMLTimeElement(HTMLTimeElement), unHTMLTimeElement, gTypeHTMLTimeElement - , HTMLTitleElement(HTMLTitleElement), unHTMLTitleElement, gTypeHTMLTitleElement - , HTMLTrackElement(HTMLTrackElement), unHTMLTrackElement, gTypeHTMLTrackElement - , HTMLUListElement(HTMLUListElement), unHTMLUListElement, gTypeHTMLUListElement - , HTMLUnknownElement(HTMLUnknownElement), unHTMLUnknownElement, gTypeHTMLUnknownElement - , HTMLVideoElement(HTMLVideoElement), unHTMLVideoElement, gTypeHTMLVideoElement - , HashChangeEvent(HashChangeEvent), unHashChangeEvent, gTypeHashChangeEvent - , HashChangeEventInit(HashChangeEventInit), unHashChangeEventInit, gTypeHashChangeEventInit - , Headers(Headers), unHeaders, gTypeHeaders - , History(History), unHistory, gTypeHistory - , HmacKeyParams(HmacKeyParams), unHmacKeyParams, gTypeHmacKeyParams - , IDBCursor(IDBCursor), unIDBCursor, IsIDBCursor, toIDBCursor, gTypeIDBCursor - , IDBCursorWithValue(IDBCursorWithValue), unIDBCursorWithValue, gTypeIDBCursorWithValue - , IDBDatabase(IDBDatabase), unIDBDatabase, gTypeIDBDatabase - , IDBFactory(IDBFactory), unIDBFactory, gTypeIDBFactory - , IDBIndex(IDBIndex), unIDBIndex, gTypeIDBIndex - , IDBIndexParameters(IDBIndexParameters), unIDBIndexParameters, gTypeIDBIndexParameters - , IDBKeyRange(IDBKeyRange), unIDBKeyRange, gTypeIDBKeyRange - , IDBObjectStore(IDBObjectStore), unIDBObjectStore, gTypeIDBObjectStore - , IDBObjectStoreParameters(IDBObjectStoreParameters), unIDBObjectStoreParameters, gTypeIDBObjectStoreParameters - , IDBOpenDBRequest(IDBOpenDBRequest), unIDBOpenDBRequest, gTypeIDBOpenDBRequest - , IDBRequest(IDBRequest), unIDBRequest, IsIDBRequest, toIDBRequest, gTypeIDBRequest - , IDBTransaction(IDBTransaction), unIDBTransaction, gTypeIDBTransaction - , IDBVersionChangeEvent(IDBVersionChangeEvent), unIDBVersionChangeEvent, gTypeIDBVersionChangeEvent - , IDBVersionChangeEventInit(IDBVersionChangeEventInit), unIDBVersionChangeEventInit, gTypeIDBVersionChangeEventInit - , ImageData(ImageData), unImageData, gTypeImageData - , InputEvent(InputEvent), unInputEvent, gTypeInputEvent - , InputEventInit(InputEventInit), unInputEventInit, gTypeInputEventInit - , InspectorFrontendHost(InspectorFrontendHost), unInspectorFrontendHost, gTypeInspectorFrontendHost - , IntersectionObserver(IntersectionObserver), unIntersectionObserver, gTypeIntersectionObserver - , IntersectionObserverEntry(IntersectionObserverEntry), unIntersectionObserverEntry, gTypeIntersectionObserverEntry - , IntersectionObserverEntryInit(IntersectionObserverEntryInit), unIntersectionObserverEntryInit, gTypeIntersectionObserverEntryInit - , IntersectionObserverInit(IntersectionObserverInit), unIntersectionObserverInit, gTypeIntersectionObserverInit - , JsonWebKey(JsonWebKey), unJsonWebKey, gTypeJsonWebKey - , KeyboardEvent(KeyboardEvent), unKeyboardEvent, gTypeKeyboardEvent - , KeyboardEventInit(KeyboardEventInit), unKeyboardEventInit, gTypeKeyboardEventInit - , KeyframeEffect(KeyframeEffect), unKeyframeEffect, gTypeKeyframeEffect - , Location(Location), unLocation, gTypeLocation - , LongRange(LongRange), unLongRange, IsLongRange, toLongRange, gTypeLongRange - , MediaController(MediaController), unMediaController, gTypeMediaController - , MediaControlsHost(MediaControlsHost), unMediaControlsHost, gTypeMediaControlsHost - , MediaDeviceInfo(MediaDeviceInfo), unMediaDeviceInfo, gTypeMediaDeviceInfo - , MediaDevices(MediaDevices), unMediaDevices, gTypeMediaDevices - , MediaElementAudioSourceNode(MediaElementAudioSourceNode), unMediaElementAudioSourceNode, gTypeMediaElementAudioSourceNode - , MediaEncryptedEvent(MediaEncryptedEvent), unMediaEncryptedEvent, gTypeMediaEncryptedEvent - , MediaEncryptedEventInit(MediaEncryptedEventInit), unMediaEncryptedEventInit, gTypeMediaEncryptedEventInit - , MediaError(MediaError), unMediaError, gTypeMediaError - , MediaKeyMessageEvent(MediaKeyMessageEvent), unMediaKeyMessageEvent, gTypeMediaKeyMessageEvent - , MediaKeyMessageEventInit(MediaKeyMessageEventInit), unMediaKeyMessageEventInit, gTypeMediaKeyMessageEventInit - , MediaKeySession(MediaKeySession), unMediaKeySession, gTypeMediaKeySession - , MediaKeyStatusMap(MediaKeyStatusMap), unMediaKeyStatusMap, gTypeMediaKeyStatusMap - , MediaKeySystemAccess(MediaKeySystemAccess), unMediaKeySystemAccess, gTypeMediaKeySystemAccess - , MediaKeySystemConfiguration(MediaKeySystemConfiguration), unMediaKeySystemConfiguration, gTypeMediaKeySystemConfiguration - , MediaKeySystemMediaCapability(MediaKeySystemMediaCapability), unMediaKeySystemMediaCapability, gTypeMediaKeySystemMediaCapability - , MediaKeys(MediaKeys), unMediaKeys, gTypeMediaKeys - , MediaList(MediaList), unMediaList, gTypeMediaList - , MediaMetadata(MediaMetadata), unMediaMetadata, gTypeMediaMetadata - , MediaQueryList(MediaQueryList), unMediaQueryList, gTypeMediaQueryList - , MediaRemoteControls(MediaRemoteControls), unMediaRemoteControls, gTypeMediaRemoteControls - , MediaSession(MediaSession), unMediaSession, gTypeMediaSession - , MediaSource(MediaSource), unMediaSource, gTypeMediaSource - , MediaStream(MediaStream), unMediaStream, gTypeMediaStream - , MediaStreamAudioDestinationNode(MediaStreamAudioDestinationNode), unMediaStreamAudioDestinationNode, gTypeMediaStreamAudioDestinationNode - , MediaStreamAudioSourceNode(MediaStreamAudioSourceNode), unMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode - , MediaStreamConstraints(MediaStreamConstraints), unMediaStreamConstraints, gTypeMediaStreamConstraints - , MediaStreamEvent(MediaStreamEvent), unMediaStreamEvent, gTypeMediaStreamEvent - , MediaStreamEventInit(MediaStreamEventInit), unMediaStreamEventInit, gTypeMediaStreamEventInit - , MediaStreamTrack(MediaStreamTrack), unMediaStreamTrack, gTypeMediaStreamTrack - , MediaStreamTrackEvent(MediaStreamTrackEvent), unMediaStreamTrackEvent, gTypeMediaStreamTrackEvent - , MediaStreamTrackEventInit(MediaStreamTrackEventInit), unMediaStreamTrackEventInit, gTypeMediaStreamTrackEventInit - , MediaTrackCapabilities(MediaTrackCapabilities), unMediaTrackCapabilities, gTypeMediaTrackCapabilities - , MediaTrackConstraintSet(MediaTrackConstraintSet), unMediaTrackConstraintSet, IsMediaTrackConstraintSet, toMediaTrackConstraintSet, gTypeMediaTrackConstraintSet - , MediaTrackConstraints(MediaTrackConstraints), unMediaTrackConstraints, gTypeMediaTrackConstraints - , MediaTrackSettings(MediaTrackSettings), unMediaTrackSettings, gTypeMediaTrackSettings - , MediaTrackSupportedConstraints(MediaTrackSupportedConstraints), unMediaTrackSupportedConstraints, gTypeMediaTrackSupportedConstraints - , MessageChannel(MessageChannel), unMessageChannel, gTypeMessageChannel - , MessageEvent(MessageEvent), unMessageEvent, gTypeMessageEvent - , MessageEventInit(MessageEventInit), unMessageEventInit, gTypeMessageEventInit - , MessagePort(MessagePort), unMessagePort, gTypeMessagePort - , MimeType(MimeType), unMimeType, gTypeMimeType - , MimeTypeArray(MimeTypeArray), unMimeTypeArray, gTypeMimeTypeArray - , MouseEvent(MouseEvent), unMouseEvent, IsMouseEvent, toMouseEvent, gTypeMouseEvent - , MouseEventInit(MouseEventInit), unMouseEventInit, IsMouseEventInit, toMouseEventInit, gTypeMouseEventInit - , MutationEvent(MutationEvent), unMutationEvent, gTypeMutationEvent - , MutationObserver(MutationObserver), unMutationObserver, gTypeMutationObserver - , MutationObserverInit(MutationObserverInit), unMutationObserverInit, gTypeMutationObserverInit - , MutationRecord(MutationRecord), unMutationRecord, gTypeMutationRecord - , NamedNodeMap(NamedNodeMap), unNamedNodeMap, gTypeNamedNodeMap - , Navigator(Navigator), unNavigator, gTypeNavigator - , NavigatorConcurrentHardware(NavigatorConcurrentHardware), unNavigatorConcurrentHardware, IsNavigatorConcurrentHardware, toNavigatorConcurrentHardware, gTypeNavigatorConcurrentHardware - , NavigatorID(NavigatorID), unNavigatorID, IsNavigatorID, toNavigatorID, gTypeNavigatorID - , NavigatorLanguage(NavigatorLanguage), unNavigatorLanguage, IsNavigatorLanguage, toNavigatorLanguage, gTypeNavigatorLanguage - , NavigatorOnLine(NavigatorOnLine), unNavigatorOnLine, IsNavigatorOnLine, toNavigatorOnLine, gTypeNavigatorOnLine - , NavigatorUserMediaError(NavigatorUserMediaError), unNavigatorUserMediaError, gTypeNavigatorUserMediaError - , Node(Node), unNode, IsNode, toNode, gTypeNode - , NodeIterator(NodeIterator), unNodeIterator, gTypeNodeIterator - , NodeList(NodeList), unNodeList, IsNodeList, toNodeList, gTypeNodeList - , NonDocumentTypeChildNode(NonDocumentTypeChildNode), unNonDocumentTypeChildNode, IsNonDocumentTypeChildNode, toNonDocumentTypeChildNode, gTypeNonDocumentTypeChildNode - , NonElementParentNode(NonElementParentNode), unNonElementParentNode, IsNonElementParentNode, toNonElementParentNode, gTypeNonElementParentNode - , Notification(Notification), unNotification, gTypeNotification - , NotificationCenter(NotificationCenter), unNotificationCenter, gTypeNotificationCenter - , NotificationOptions(NotificationOptions), unNotificationOptions, gTypeNotificationOptions - , OESElementIndexUint(OESElementIndexUint), unOESElementIndexUint, gTypeOESElementIndexUint - , OESStandardDerivatives(OESStandardDerivatives), unOESStandardDerivatives, gTypeOESStandardDerivatives - , OESTextureFloat(OESTextureFloat), unOESTextureFloat, gTypeOESTextureFloat - , OESTextureFloatLinear(OESTextureFloatLinear), unOESTextureFloatLinear, gTypeOESTextureFloatLinear - , OESTextureHalfFloat(OESTextureHalfFloat), unOESTextureHalfFloat, gTypeOESTextureHalfFloat - , OESTextureHalfFloatLinear(OESTextureHalfFloatLinear), unOESTextureHalfFloatLinear, gTypeOESTextureHalfFloatLinear - , OESVertexArrayObject(OESVertexArrayObject), unOESVertexArrayObject, gTypeOESVertexArrayObject - , OfflineAudioCompletionEvent(OfflineAudioCompletionEvent), unOfflineAudioCompletionEvent, gTypeOfflineAudioCompletionEvent - , OfflineAudioContext(OfflineAudioContext), unOfflineAudioContext, gTypeOfflineAudioContext - , OscillatorNode(OscillatorNode), unOscillatorNode, gTypeOscillatorNode - , OverconstrainedError(OverconstrainedError), unOverconstrainedError, gTypeOverconstrainedError - , OverconstrainedErrorEvent(OverconstrainedErrorEvent), unOverconstrainedErrorEvent, gTypeOverconstrainedErrorEvent - , OverconstrainedErrorEventInit(OverconstrainedErrorEventInit), unOverconstrainedErrorEventInit, gTypeOverconstrainedErrorEventInit - , OverflowEvent(OverflowEvent), unOverflowEvent, gTypeOverflowEvent - , OverflowEventInit(OverflowEventInit), unOverflowEventInit, gTypeOverflowEventInit - , PageTransitionEvent(PageTransitionEvent), unPageTransitionEvent, gTypePageTransitionEvent - , PageTransitionEventInit(PageTransitionEventInit), unPageTransitionEventInit, gTypePageTransitionEventInit - , PannerNode(PannerNode), unPannerNode, gTypePannerNode - , ParentNode(ParentNode), unParentNode, IsParentNode, toParentNode, gTypeParentNode - , Path2D(Path2D), unPath2D, gTypePath2D - , Performance(Performance), unPerformance, gTypePerformance - , PerformanceEntry(PerformanceEntry), unPerformanceEntry, IsPerformanceEntry, toPerformanceEntry, gTypePerformanceEntry - , PerformanceMark(PerformanceMark), unPerformanceMark, gTypePerformanceMark - , PerformanceMeasure(PerformanceMeasure), unPerformanceMeasure, gTypePerformanceMeasure - , PerformanceNavigation(PerformanceNavigation), unPerformanceNavigation, gTypePerformanceNavigation - , PerformanceObserver(PerformanceObserver), unPerformanceObserver, gTypePerformanceObserver - , PerformanceObserverEntryList(PerformanceObserverEntryList), unPerformanceObserverEntryList, gTypePerformanceObserverEntryList - , PerformanceObserverInit(PerformanceObserverInit), unPerformanceObserverInit, gTypePerformanceObserverInit - , PerformanceResourceTiming(PerformanceResourceTiming), unPerformanceResourceTiming, gTypePerformanceResourceTiming - , PerformanceTiming(PerformanceTiming), unPerformanceTiming, gTypePerformanceTiming - , PeriodicWave(PeriodicWave), unPeriodicWave, gTypePeriodicWave - , Plugin(Plugin), unPlugin, gTypePlugin - , PluginArray(PluginArray), unPluginArray, gTypePluginArray - , PopStateEvent(PopStateEvent), unPopStateEvent, gTypePopStateEvent - , PopStateEventInit(PopStateEventInit), unPopStateEventInit, gTypePopStateEventInit - , PositionError(PositionError), unPositionError, gTypePositionError - , PositionOptions(PositionOptions), unPositionOptions, gTypePositionOptions - , ProcessingInstruction(ProcessingInstruction), unProcessingInstruction, gTypeProcessingInstruction - , ProgressEvent(ProgressEvent), unProgressEvent, IsProgressEvent, toProgressEvent, gTypeProgressEvent - , ProgressEventInit(ProgressEventInit), unProgressEventInit, gTypeProgressEventInit - , QuickTimePluginReplacement(QuickTimePluginReplacement), unQuickTimePluginReplacement, gTypeQuickTimePluginReplacement - , RGBColor(RGBColor), unRGBColor, gTypeRGBColor - , RTCAnswerOptions(RTCAnswerOptions), unRTCAnswerOptions, gTypeRTCAnswerOptions - , RTCConfiguration(RTCConfiguration), unRTCConfiguration, gTypeRTCConfiguration - , RTCDTMFSender(RTCDTMFSender), unRTCDTMFSender, gTypeRTCDTMFSender - , RTCDTMFToneChangeEvent(RTCDTMFToneChangeEvent), unRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent - , RTCDTMFToneChangeEventInit(RTCDTMFToneChangeEventInit), unRTCDTMFToneChangeEventInit, gTypeRTCDTMFToneChangeEventInit - , RTCDataChannel(RTCDataChannel), unRTCDataChannel, gTypeRTCDataChannel - , RTCDataChannelEvent(RTCDataChannelEvent), unRTCDataChannelEvent, gTypeRTCDataChannelEvent - , RTCDataChannelInit(RTCDataChannelInit), unRTCDataChannelInit, gTypeRTCDataChannelInit - , RTCIceCandidate(RTCIceCandidate), unRTCIceCandidate, gTypeRTCIceCandidate - , RTCIceCandidateEvent(RTCIceCandidateEvent), unRTCIceCandidateEvent, gTypeRTCIceCandidateEvent - , RTCIceCandidateInit(RTCIceCandidateInit), unRTCIceCandidateInit, gTypeRTCIceCandidateInit - , RTCIceServer(RTCIceServer), unRTCIceServer, gTypeRTCIceServer - , RTCOfferAnswerOptions(RTCOfferAnswerOptions), unRTCOfferAnswerOptions, IsRTCOfferAnswerOptions, toRTCOfferAnswerOptions, gTypeRTCOfferAnswerOptions - , RTCOfferOptions(RTCOfferOptions), unRTCOfferOptions, gTypeRTCOfferOptions - , RTCPeerConnection(RTCPeerConnection), unRTCPeerConnection, gTypeRTCPeerConnection - , RTCRtpReceiver(RTCRtpReceiver), unRTCRtpReceiver, gTypeRTCRtpReceiver - , RTCRtpSender(RTCRtpSender), unRTCRtpSender, gTypeRTCRtpSender - , RTCRtpTransceiver(RTCRtpTransceiver), unRTCRtpTransceiver, gTypeRTCRtpTransceiver - , RTCRtpTransceiverInit(RTCRtpTransceiverInit), unRTCRtpTransceiverInit, gTypeRTCRtpTransceiverInit - , RTCSessionDescription(RTCSessionDescription), unRTCSessionDescription, gTypeRTCSessionDescription - , RTCSessionDescriptionInit(RTCSessionDescriptionInit), unRTCSessionDescriptionInit, gTypeRTCSessionDescriptionInit - , RTCStatsReport(RTCStatsReport), unRTCStatsReport, gTypeRTCStatsReport - , RTCTrackEvent(RTCTrackEvent), unRTCTrackEvent, gTypeRTCTrackEvent - , RTCTrackEventInit(RTCTrackEventInit), unRTCTrackEventInit, gTypeRTCTrackEventInit - , RadioNodeList(RadioNodeList), unRadioNodeList, gTypeRadioNodeList - , Range(Range), unRange, gTypeRange - , ReadableByteStreamController(ReadableByteStreamController), unReadableByteStreamController, gTypeReadableByteStreamController - , ReadableStream(ReadableStream), unReadableStream, gTypeReadableStream - , ReadableStreamDefaultController(ReadableStreamDefaultController), unReadableStreamDefaultController, gTypeReadableStreamDefaultController - , ReadableStreamDefaultReader(ReadableStreamDefaultReader), unReadableStreamDefaultReader, gTypeReadableStreamDefaultReader - , ReadableStreamSource(ReadableStreamSource), unReadableStreamSource, gTypeReadableStreamSource - , Rect(Rect), unRect, gTypeRect - , Request(Request), unRequest, gTypeRequest - , RequestInit(RequestInit), unRequestInit, gTypeRequestInit - , Response(Response), unResponse, gTypeResponse - , RotationRate(RotationRate), unRotationRate, gTypeRotationRate - , RsaHashedImportParams(RsaHashedImportParams), unRsaHashedImportParams, gTypeRsaHashedImportParams - , RsaHashedKeyGenParams(RsaHashedKeyGenParams), unRsaHashedKeyGenParams, gTypeRsaHashedKeyGenParams - , RsaKeyGenParams(RsaKeyGenParams), unRsaKeyGenParams, IsRsaKeyGenParams, toRsaKeyGenParams, gTypeRsaKeyGenParams - , RsaOaepParams(RsaOaepParams), unRsaOaepParams, gTypeRsaOaepParams - , RsaOtherPrimesInfo(RsaOtherPrimesInfo), unRsaOtherPrimesInfo, gTypeRsaOtherPrimesInfo - , SQLError(SQLError), unSQLError, gTypeSQLError - , SQLException(SQLException), unSQLException, gTypeSQLException - , SQLResultSet(SQLResultSet), unSQLResultSet, gTypeSQLResultSet - , SQLResultSetRowList(SQLResultSetRowList), unSQLResultSetRowList, gTypeSQLResultSetRowList - , SQLTransaction(SQLTransaction), unSQLTransaction, gTypeSQLTransaction - , SVGAElement(SVGAElement), unSVGAElement, gTypeSVGAElement - , SVGAltGlyphDefElement(SVGAltGlyphDefElement), unSVGAltGlyphDefElement, gTypeSVGAltGlyphDefElement - , SVGAltGlyphElement(SVGAltGlyphElement), unSVGAltGlyphElement, gTypeSVGAltGlyphElement - , SVGAltGlyphItemElement(SVGAltGlyphItemElement), unSVGAltGlyphItemElement, gTypeSVGAltGlyphItemElement - , SVGAngle(SVGAngle), unSVGAngle, gTypeSVGAngle - , SVGAnimateColorElement(SVGAnimateColorElement), unSVGAnimateColorElement, gTypeSVGAnimateColorElement - , SVGAnimateElement(SVGAnimateElement), unSVGAnimateElement, gTypeSVGAnimateElement - , SVGAnimateMotionElement(SVGAnimateMotionElement), unSVGAnimateMotionElement, gTypeSVGAnimateMotionElement - , SVGAnimateTransformElement(SVGAnimateTransformElement), unSVGAnimateTransformElement, gTypeSVGAnimateTransformElement - , SVGAnimatedAngle(SVGAnimatedAngle), unSVGAnimatedAngle, gTypeSVGAnimatedAngle - , SVGAnimatedBoolean(SVGAnimatedBoolean), unSVGAnimatedBoolean, gTypeSVGAnimatedBoolean - , SVGAnimatedEnumeration(SVGAnimatedEnumeration), unSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration - , SVGAnimatedInteger(SVGAnimatedInteger), unSVGAnimatedInteger, gTypeSVGAnimatedInteger - , SVGAnimatedLength(SVGAnimatedLength), unSVGAnimatedLength, gTypeSVGAnimatedLength - , SVGAnimatedLengthList(SVGAnimatedLengthList), unSVGAnimatedLengthList, gTypeSVGAnimatedLengthList - , SVGAnimatedNumber(SVGAnimatedNumber), unSVGAnimatedNumber, gTypeSVGAnimatedNumber - , SVGAnimatedNumberList(SVGAnimatedNumberList), unSVGAnimatedNumberList, gTypeSVGAnimatedNumberList - , SVGAnimatedPreserveAspectRatio(SVGAnimatedPreserveAspectRatio), unSVGAnimatedPreserveAspectRatio, gTypeSVGAnimatedPreserveAspectRatio - , SVGAnimatedRect(SVGAnimatedRect), unSVGAnimatedRect, gTypeSVGAnimatedRect - , SVGAnimatedString(SVGAnimatedString), unSVGAnimatedString, gTypeSVGAnimatedString - , SVGAnimatedTransformList(SVGAnimatedTransformList), unSVGAnimatedTransformList, gTypeSVGAnimatedTransformList - , SVGAnimationElement(SVGAnimationElement), unSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement, gTypeSVGAnimationElement - , SVGCircleElement(SVGCircleElement), unSVGCircleElement, gTypeSVGCircleElement - , SVGClipPathElement(SVGClipPathElement), unSVGClipPathElement, gTypeSVGClipPathElement - , SVGComponentTransferFunctionElement(SVGComponentTransferFunctionElement), unSVGComponentTransferFunctionElement, IsSVGComponentTransferFunctionElement, toSVGComponentTransferFunctionElement, gTypeSVGComponentTransferFunctionElement - , SVGCursorElement(SVGCursorElement), unSVGCursorElement, gTypeSVGCursorElement - , SVGDefsElement(SVGDefsElement), unSVGDefsElement, gTypeSVGDefsElement - , SVGDescElement(SVGDescElement), unSVGDescElement, gTypeSVGDescElement - , SVGElement(SVGElement), unSVGElement, IsSVGElement, toSVGElement, gTypeSVGElement - , SVGEllipseElement(SVGEllipseElement), unSVGEllipseElement, gTypeSVGEllipseElement - , SVGException(SVGException), unSVGException, gTypeSVGException - , SVGExternalResourcesRequired(SVGExternalResourcesRequired), unSVGExternalResourcesRequired, IsSVGExternalResourcesRequired, toSVGExternalResourcesRequired, gTypeSVGExternalResourcesRequired - , SVGFEBlendElement(SVGFEBlendElement), unSVGFEBlendElement, gTypeSVGFEBlendElement - , SVGFEColorMatrixElement(SVGFEColorMatrixElement), unSVGFEColorMatrixElement, gTypeSVGFEColorMatrixElement - , SVGFEComponentTransferElement(SVGFEComponentTransferElement), unSVGFEComponentTransferElement, gTypeSVGFEComponentTransferElement - , SVGFECompositeElement(SVGFECompositeElement), unSVGFECompositeElement, gTypeSVGFECompositeElement - , SVGFEConvolveMatrixElement(SVGFEConvolveMatrixElement), unSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement - , SVGFEDiffuseLightingElement(SVGFEDiffuseLightingElement), unSVGFEDiffuseLightingElement, gTypeSVGFEDiffuseLightingElement - , SVGFEDisplacementMapElement(SVGFEDisplacementMapElement), unSVGFEDisplacementMapElement, gTypeSVGFEDisplacementMapElement - , SVGFEDistantLightElement(SVGFEDistantLightElement), unSVGFEDistantLightElement, gTypeSVGFEDistantLightElement - , SVGFEDropShadowElement(SVGFEDropShadowElement), unSVGFEDropShadowElement, gTypeSVGFEDropShadowElement - , SVGFEFloodElement(SVGFEFloodElement), unSVGFEFloodElement, gTypeSVGFEFloodElement - , SVGFEFuncAElement(SVGFEFuncAElement), unSVGFEFuncAElement, gTypeSVGFEFuncAElement - , SVGFEFuncBElement(SVGFEFuncBElement), unSVGFEFuncBElement, gTypeSVGFEFuncBElement - , SVGFEFuncGElement(SVGFEFuncGElement), unSVGFEFuncGElement, gTypeSVGFEFuncGElement - , SVGFEFuncRElement(SVGFEFuncRElement), unSVGFEFuncRElement, gTypeSVGFEFuncRElement - , SVGFEGaussianBlurElement(SVGFEGaussianBlurElement), unSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement - , SVGFEImageElement(SVGFEImageElement), unSVGFEImageElement, gTypeSVGFEImageElement - , SVGFEMergeElement(SVGFEMergeElement), unSVGFEMergeElement, gTypeSVGFEMergeElement - , SVGFEMergeNodeElement(SVGFEMergeNodeElement), unSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement - , SVGFEMorphologyElement(SVGFEMorphologyElement), unSVGFEMorphologyElement, gTypeSVGFEMorphologyElement - , SVGFEOffsetElement(SVGFEOffsetElement), unSVGFEOffsetElement, gTypeSVGFEOffsetElement - , SVGFEPointLightElement(SVGFEPointLightElement), unSVGFEPointLightElement, gTypeSVGFEPointLightElement - , SVGFESpecularLightingElement(SVGFESpecularLightingElement), unSVGFESpecularLightingElement, gTypeSVGFESpecularLightingElement - , SVGFESpotLightElement(SVGFESpotLightElement), unSVGFESpotLightElement, gTypeSVGFESpotLightElement - , SVGFETileElement(SVGFETileElement), unSVGFETileElement, gTypeSVGFETileElement - , SVGFETurbulenceElement(SVGFETurbulenceElement), unSVGFETurbulenceElement, gTypeSVGFETurbulenceElement - , SVGFilterElement(SVGFilterElement), unSVGFilterElement, gTypeSVGFilterElement - , SVGFilterPrimitiveStandardAttributes(SVGFilterPrimitiveStandardAttributes), unSVGFilterPrimitiveStandardAttributes, IsSVGFilterPrimitiveStandardAttributes, toSVGFilterPrimitiveStandardAttributes, gTypeSVGFilterPrimitiveStandardAttributes - , SVGFitToViewBox(SVGFitToViewBox), unSVGFitToViewBox, IsSVGFitToViewBox, toSVGFitToViewBox, gTypeSVGFitToViewBox - , SVGFontElement(SVGFontElement), unSVGFontElement, gTypeSVGFontElement - , SVGFontFaceElement(SVGFontFaceElement), unSVGFontFaceElement, gTypeSVGFontFaceElement - , SVGFontFaceFormatElement(SVGFontFaceFormatElement), unSVGFontFaceFormatElement, gTypeSVGFontFaceFormatElement - , SVGFontFaceNameElement(SVGFontFaceNameElement), unSVGFontFaceNameElement, gTypeSVGFontFaceNameElement - , SVGFontFaceSrcElement(SVGFontFaceSrcElement), unSVGFontFaceSrcElement, gTypeSVGFontFaceSrcElement - , SVGFontFaceUriElement(SVGFontFaceUriElement), unSVGFontFaceUriElement, gTypeSVGFontFaceUriElement - , SVGForeignObjectElement(SVGForeignObjectElement), unSVGForeignObjectElement, gTypeSVGForeignObjectElement - , SVGGElement(SVGGElement), unSVGGElement, gTypeSVGGElement - , SVGGlyphElement(SVGGlyphElement), unSVGGlyphElement, gTypeSVGGlyphElement - , SVGGlyphRefElement(SVGGlyphRefElement), unSVGGlyphRefElement, gTypeSVGGlyphRefElement - , SVGGradientElement(SVGGradientElement), unSVGGradientElement, IsSVGGradientElement, toSVGGradientElement, gTypeSVGGradientElement - , SVGGraphicsElement(SVGGraphicsElement), unSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement, gTypeSVGGraphicsElement - , SVGHKernElement(SVGHKernElement), unSVGHKernElement, gTypeSVGHKernElement - , SVGImageElement(SVGImageElement), unSVGImageElement, gTypeSVGImageElement - , SVGLength(SVGLength), unSVGLength, gTypeSVGLength - , SVGLengthList(SVGLengthList), unSVGLengthList, gTypeSVGLengthList - , SVGLineElement(SVGLineElement), unSVGLineElement, gTypeSVGLineElement - , SVGLinearGradientElement(SVGLinearGradientElement), unSVGLinearGradientElement, gTypeSVGLinearGradientElement - , SVGMPathElement(SVGMPathElement), unSVGMPathElement, gTypeSVGMPathElement - , SVGMarkerElement(SVGMarkerElement), unSVGMarkerElement, gTypeSVGMarkerElement - , SVGMaskElement(SVGMaskElement), unSVGMaskElement, gTypeSVGMaskElement - , SVGMatrix(SVGMatrix), unSVGMatrix, gTypeSVGMatrix - , SVGMetadataElement(SVGMetadataElement), unSVGMetadataElement, gTypeSVGMetadataElement - , SVGMissingGlyphElement(SVGMissingGlyphElement), unSVGMissingGlyphElement, gTypeSVGMissingGlyphElement - , SVGNumber(SVGNumber), unSVGNumber, gTypeSVGNumber - , SVGNumberList(SVGNumberList), unSVGNumberList, gTypeSVGNumberList - , SVGPathElement(SVGPathElement), unSVGPathElement, gTypeSVGPathElement - , SVGPathSeg(SVGPathSeg), unSVGPathSeg, IsSVGPathSeg, toSVGPathSeg, gTypeSVGPathSeg - , SVGPathSegArcAbs(SVGPathSegArcAbs), unSVGPathSegArcAbs, gTypeSVGPathSegArcAbs - , SVGPathSegArcRel(SVGPathSegArcRel), unSVGPathSegArcRel, gTypeSVGPathSegArcRel - , SVGPathSegClosePath(SVGPathSegClosePath), unSVGPathSegClosePath, gTypeSVGPathSegClosePath - , SVGPathSegCurvetoCubicAbs(SVGPathSegCurvetoCubicAbs), unSVGPathSegCurvetoCubicAbs, gTypeSVGPathSegCurvetoCubicAbs - , SVGPathSegCurvetoCubicRel(SVGPathSegCurvetoCubicRel), unSVGPathSegCurvetoCubicRel, gTypeSVGPathSegCurvetoCubicRel - , SVGPathSegCurvetoCubicSmoothAbs(SVGPathSegCurvetoCubicSmoothAbs), unSVGPathSegCurvetoCubicSmoothAbs, gTypeSVGPathSegCurvetoCubicSmoothAbs - , SVGPathSegCurvetoCubicSmoothRel(SVGPathSegCurvetoCubicSmoothRel), unSVGPathSegCurvetoCubicSmoothRel, gTypeSVGPathSegCurvetoCubicSmoothRel - , SVGPathSegCurvetoQuadraticAbs(SVGPathSegCurvetoQuadraticAbs), unSVGPathSegCurvetoQuadraticAbs, gTypeSVGPathSegCurvetoQuadraticAbs - , SVGPathSegCurvetoQuadraticRel(SVGPathSegCurvetoQuadraticRel), unSVGPathSegCurvetoQuadraticRel, gTypeSVGPathSegCurvetoQuadraticRel - , SVGPathSegCurvetoQuadraticSmoothAbs(SVGPathSegCurvetoQuadraticSmoothAbs), unSVGPathSegCurvetoQuadraticSmoothAbs, gTypeSVGPathSegCurvetoQuadraticSmoothAbs - , SVGPathSegCurvetoQuadraticSmoothRel(SVGPathSegCurvetoQuadraticSmoothRel), unSVGPathSegCurvetoQuadraticSmoothRel, gTypeSVGPathSegCurvetoQuadraticSmoothRel - , SVGPathSegLinetoAbs(SVGPathSegLinetoAbs), unSVGPathSegLinetoAbs, gTypeSVGPathSegLinetoAbs - , SVGPathSegLinetoHorizontalAbs(SVGPathSegLinetoHorizontalAbs), unSVGPathSegLinetoHorizontalAbs, gTypeSVGPathSegLinetoHorizontalAbs - , SVGPathSegLinetoHorizontalRel(SVGPathSegLinetoHorizontalRel), unSVGPathSegLinetoHorizontalRel, gTypeSVGPathSegLinetoHorizontalRel - , SVGPathSegLinetoRel(SVGPathSegLinetoRel), unSVGPathSegLinetoRel, gTypeSVGPathSegLinetoRel - , SVGPathSegLinetoVerticalAbs(SVGPathSegLinetoVerticalAbs), unSVGPathSegLinetoVerticalAbs, gTypeSVGPathSegLinetoVerticalAbs - , SVGPathSegLinetoVerticalRel(SVGPathSegLinetoVerticalRel), unSVGPathSegLinetoVerticalRel, gTypeSVGPathSegLinetoVerticalRel - , SVGPathSegList(SVGPathSegList), unSVGPathSegList, gTypeSVGPathSegList - , SVGPathSegMovetoAbs(SVGPathSegMovetoAbs), unSVGPathSegMovetoAbs, gTypeSVGPathSegMovetoAbs - , SVGPathSegMovetoRel(SVGPathSegMovetoRel), unSVGPathSegMovetoRel, gTypeSVGPathSegMovetoRel - , SVGPatternElement(SVGPatternElement), unSVGPatternElement, gTypeSVGPatternElement - , SVGPoint(SVGPoint), unSVGPoint, gTypeSVGPoint - , SVGPointList(SVGPointList), unSVGPointList, gTypeSVGPointList - , SVGPolygonElement(SVGPolygonElement), unSVGPolygonElement, gTypeSVGPolygonElement - , SVGPolylineElement(SVGPolylineElement), unSVGPolylineElement, gTypeSVGPolylineElement - , SVGPreserveAspectRatio(SVGPreserveAspectRatio), unSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio - , SVGRadialGradientElement(SVGRadialGradientElement), unSVGRadialGradientElement, gTypeSVGRadialGradientElement - , SVGRect(SVGRect), unSVGRect, gTypeSVGRect - , SVGRectElement(SVGRectElement), unSVGRectElement, gTypeSVGRectElement - , SVGRenderingIntent(SVGRenderingIntent), unSVGRenderingIntent, gTypeSVGRenderingIntent - , SVGSVGElement(SVGSVGElement), unSVGSVGElement, gTypeSVGSVGElement - , SVGScriptElement(SVGScriptElement), unSVGScriptElement, gTypeSVGScriptElement - , SVGSetElement(SVGSetElement), unSVGSetElement, gTypeSVGSetElement - , SVGStopElement(SVGStopElement), unSVGStopElement, gTypeSVGStopElement - , SVGStringList(SVGStringList), unSVGStringList, gTypeSVGStringList - , SVGStyleElement(SVGStyleElement), unSVGStyleElement, gTypeSVGStyleElement - , SVGSwitchElement(SVGSwitchElement), unSVGSwitchElement, gTypeSVGSwitchElement - , SVGSymbolElement(SVGSymbolElement), unSVGSymbolElement, gTypeSVGSymbolElement - , SVGTRefElement(SVGTRefElement), unSVGTRefElement, gTypeSVGTRefElement - , SVGTSpanElement(SVGTSpanElement), unSVGTSpanElement, gTypeSVGTSpanElement - , SVGTests(SVGTests), unSVGTests, IsSVGTests, toSVGTests, gTypeSVGTests - , SVGTextContentElement(SVGTextContentElement), unSVGTextContentElement, IsSVGTextContentElement, toSVGTextContentElement, gTypeSVGTextContentElement - , SVGTextElement(SVGTextElement), unSVGTextElement, gTypeSVGTextElement - , SVGTextPathElement(SVGTextPathElement), unSVGTextPathElement, gTypeSVGTextPathElement - , SVGTextPositioningElement(SVGTextPositioningElement), unSVGTextPositioningElement, IsSVGTextPositioningElement, toSVGTextPositioningElement, gTypeSVGTextPositioningElement - , SVGTitleElement(SVGTitleElement), unSVGTitleElement, gTypeSVGTitleElement - , SVGTransform(SVGTransform), unSVGTransform, gTypeSVGTransform - , SVGTransformList(SVGTransformList), unSVGTransformList, gTypeSVGTransformList - , SVGURIReference(SVGURIReference), unSVGURIReference, IsSVGURIReference, toSVGURIReference, gTypeSVGURIReference - , SVGUnitTypes(SVGUnitTypes), unSVGUnitTypes, gTypeSVGUnitTypes - , SVGUseElement(SVGUseElement), unSVGUseElement, gTypeSVGUseElement - , SVGVKernElement(SVGVKernElement), unSVGVKernElement, gTypeSVGVKernElement - , SVGViewElement(SVGViewElement), unSVGViewElement, gTypeSVGViewElement - , SVGViewSpec(SVGViewSpec), unSVGViewSpec, gTypeSVGViewSpec - , SVGZoomAndPan(SVGZoomAndPan), unSVGZoomAndPan, IsSVGZoomAndPan, toSVGZoomAndPan, gTypeSVGZoomAndPan - , SVGZoomEvent(SVGZoomEvent), unSVGZoomEvent, gTypeSVGZoomEvent - , Screen(Screen), unScreen, gTypeScreen - , ScriptProcessorNode(ScriptProcessorNode), unScriptProcessorNode, gTypeScriptProcessorNode - , ScrollToOptions(ScrollToOptions), unScrollToOptions, gTypeScrollToOptions - , SecurityPolicyViolationEvent(SecurityPolicyViolationEvent), unSecurityPolicyViolationEvent, gTypeSecurityPolicyViolationEvent - , SecurityPolicyViolationEventInit(SecurityPolicyViolationEventInit), unSecurityPolicyViolationEventInit, gTypeSecurityPolicyViolationEventInit - , Selection(Selection), unSelection, gTypeSelection - , ShadowRoot(ShadowRoot), unShadowRoot, gTypeShadowRoot - , ShadowRootInit(ShadowRootInit), unShadowRootInit, gTypeShadowRootInit - , Slotable(Slotable), unSlotable, IsSlotable, toSlotable, gTypeSlotable - , SourceBuffer(SourceBuffer), unSourceBuffer, gTypeSourceBuffer - , SourceBufferList(SourceBufferList), unSourceBufferList, gTypeSourceBufferList - , SpeechSynthesis(SpeechSynthesis), unSpeechSynthesis, gTypeSpeechSynthesis - , SpeechSynthesisEvent(SpeechSynthesisEvent), unSpeechSynthesisEvent, gTypeSpeechSynthesisEvent - , SpeechSynthesisUtterance(SpeechSynthesisUtterance), unSpeechSynthesisUtterance, gTypeSpeechSynthesisUtterance - , SpeechSynthesisVoice(SpeechSynthesisVoice), unSpeechSynthesisVoice, gTypeSpeechSynthesisVoice - , StaticRange(StaticRange), unStaticRange, gTypeStaticRange - , Storage(Storage), unStorage, gTypeStorage - , StorageEvent(StorageEvent), unStorageEvent, gTypeStorageEvent - , StorageEventInit(StorageEventInit), unStorageEventInit, gTypeStorageEventInit - , StorageInfo(StorageInfo), unStorageInfo, gTypeStorageInfo - , StorageQuota(StorageQuota), unStorageQuota, gTypeStorageQuota - , StyleMedia(StyleMedia), unStyleMedia, gTypeStyleMedia - , StyleSheet(StyleSheet), unStyleSheet, IsStyleSheet, toStyleSheet, gTypeStyleSheet - , StyleSheetList(StyleSheetList), unStyleSheetList, gTypeStyleSheetList - , SubtleCrypto(SubtleCrypto), unSubtleCrypto, gTypeSubtleCrypto - , Text(Text), unText, IsText, toText, gTypeText - , TextDecodeOptions(TextDecodeOptions), unTextDecodeOptions, gTypeTextDecodeOptions - , TextDecoder(TextDecoder), unTextDecoder, gTypeTextDecoder - , TextDecoderOptions(TextDecoderOptions), unTextDecoderOptions, gTypeTextDecoderOptions - , TextEncoder(TextEncoder), unTextEncoder, gTypeTextEncoder - , TextEvent(TextEvent), unTextEvent, gTypeTextEvent - , TextMetrics(TextMetrics), unTextMetrics, gTypeTextMetrics - , TextTrack(TextTrack), unTextTrack, gTypeTextTrack - , TextTrackCue(TextTrackCue), unTextTrackCue, IsTextTrackCue, toTextTrackCue, gTypeTextTrackCue - , TextTrackCueList(TextTrackCueList), unTextTrackCueList, gTypeTextTrackCueList - , TextTrackList(TextTrackList), unTextTrackList, gTypeTextTrackList - , TimeRanges(TimeRanges), unTimeRanges, gTypeTimeRanges - , Touch(Touch), unTouch, gTypeTouch - , TouchEvent(TouchEvent), unTouchEvent, gTypeTouchEvent - , TouchEventInit(TouchEventInit), unTouchEventInit, gTypeTouchEventInit - , TouchList(TouchList), unTouchList, gTypeTouchList - , TrackEvent(TrackEvent), unTrackEvent, gTypeTrackEvent - , TrackEventInit(TrackEventInit), unTrackEventInit, gTypeTrackEventInit - , TransitionEvent(TransitionEvent), unTransitionEvent, gTypeTransitionEvent - , TransitionEventInit(TransitionEventInit), unTransitionEventInit, gTypeTransitionEventInit - , TreeWalker(TreeWalker), unTreeWalker, gTypeTreeWalker - , UIEvent(UIEvent), unUIEvent, IsUIEvent, toUIEvent, gTypeUIEvent - , UIEventInit(UIEventInit), unUIEventInit, IsUIEventInit, toUIEventInit, gTypeUIEventInit - , URL(URL), unURL, gTypeURL - , URLSearchParams(URLSearchParams), unURLSearchParams, gTypeURLSearchParams - , UserMessageHandler(UserMessageHandler), unUserMessageHandler, gTypeUserMessageHandler - , UserMessageHandlersNamespace(UserMessageHandlersNamespace), unUserMessageHandlersNamespace, gTypeUserMessageHandlersNamespace - , VTTCue(VTTCue), unVTTCue, gTypeVTTCue - , VTTRegion(VTTRegion), unVTTRegion, gTypeVTTRegion - , VTTRegionList(VTTRegionList), unVTTRegionList, gTypeVTTRegionList - , ValidityState(ValidityState), unValidityState, gTypeValidityState - , VideoPlaybackQuality(VideoPlaybackQuality), unVideoPlaybackQuality, gTypeVideoPlaybackQuality - , VideoTrack(VideoTrack), unVideoTrack, gTypeVideoTrack - , VideoTrackList(VideoTrackList), unVideoTrackList, gTypeVideoTrackList - , WaveShaperNode(WaveShaperNode), unWaveShaperNode, gTypeWaveShaperNode - , WebGL2RenderingContext(WebGL2RenderingContext), unWebGL2RenderingContext, gTypeWebGL2RenderingContext - , WebGLActiveInfo(WebGLActiveInfo), unWebGLActiveInfo, gTypeWebGLActiveInfo - , WebGLBuffer(WebGLBuffer), unWebGLBuffer, gTypeWebGLBuffer - , WebGLCompressedTextureATC(WebGLCompressedTextureATC), unWebGLCompressedTextureATC, gTypeWebGLCompressedTextureATC - , WebGLCompressedTexturePVRTC(WebGLCompressedTexturePVRTC), unWebGLCompressedTexturePVRTC, gTypeWebGLCompressedTexturePVRTC - , WebGLCompressedTextureS3TC(WebGLCompressedTextureS3TC), unWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC - , WebGLContextAttributes(WebGLContextAttributes), unWebGLContextAttributes, gTypeWebGLContextAttributes - , WebGLContextEvent(WebGLContextEvent), unWebGLContextEvent, gTypeWebGLContextEvent - , WebGLContextEventInit(WebGLContextEventInit), unWebGLContextEventInit, gTypeWebGLContextEventInit - , WebGLDebugRendererInfo(WebGLDebugRendererInfo), unWebGLDebugRendererInfo, gTypeWebGLDebugRendererInfo - , WebGLDebugShaders(WebGLDebugShaders), unWebGLDebugShaders, gTypeWebGLDebugShaders - , WebGLDepthTexture(WebGLDepthTexture), unWebGLDepthTexture, gTypeWebGLDepthTexture - , WebGLDrawBuffers(WebGLDrawBuffers), unWebGLDrawBuffers, gTypeWebGLDrawBuffers - , WebGLFramebuffer(WebGLFramebuffer), unWebGLFramebuffer, gTypeWebGLFramebuffer - , WebGLLoseContext(WebGLLoseContext), unWebGLLoseContext, gTypeWebGLLoseContext - , WebGLProgram(WebGLProgram), unWebGLProgram, gTypeWebGLProgram - , WebGLQuery(WebGLQuery), unWebGLQuery, gTypeWebGLQuery - , WebGLRenderbuffer(WebGLRenderbuffer), unWebGLRenderbuffer, gTypeWebGLRenderbuffer - , WebGLRenderingContext(WebGLRenderingContext), unWebGLRenderingContext, gTypeWebGLRenderingContext - , WebGLRenderingContextBase(WebGLRenderingContextBase), unWebGLRenderingContextBase, IsWebGLRenderingContextBase, toWebGLRenderingContextBase, gTypeWebGLRenderingContextBase - , WebGLSampler(WebGLSampler), unWebGLSampler, gTypeWebGLSampler - , WebGLShader(WebGLShader), unWebGLShader, gTypeWebGLShader - , WebGLShaderPrecisionFormat(WebGLShaderPrecisionFormat), unWebGLShaderPrecisionFormat, gTypeWebGLShaderPrecisionFormat - , WebGLSync(WebGLSync), unWebGLSync, gTypeWebGLSync - , WebGLTexture(WebGLTexture), unWebGLTexture, gTypeWebGLTexture - , WebGLTransformFeedback(WebGLTransformFeedback), unWebGLTransformFeedback, gTypeWebGLTransformFeedback - , WebGLUniformLocation(WebGLUniformLocation), unWebGLUniformLocation, gTypeWebGLUniformLocation - , WebGLVertexArrayObject(WebGLVertexArrayObject), unWebGLVertexArrayObject, gTypeWebGLVertexArrayObject - , WebGLVertexArrayObjectOES(WebGLVertexArrayObjectOES), unWebGLVertexArrayObjectOES, gTypeWebGLVertexArrayObjectOES - , WebKitAnimationEvent(WebKitAnimationEvent), unWebKitAnimationEvent, gTypeWebKitAnimationEvent - , WebKitAnimationEventInit(WebKitAnimationEventInit), unWebKitAnimationEventInit, gTypeWebKitAnimationEventInit - , WebKitCSSMatrix(WebKitCSSMatrix), unWebKitCSSMatrix, gTypeWebKitCSSMatrix - , WebKitCSSRegionRule(WebKitCSSRegionRule), unWebKitCSSRegionRule, gTypeWebKitCSSRegionRule - , WebKitCSSViewportRule(WebKitCSSViewportRule), unWebKitCSSViewportRule, gTypeWebKitCSSViewportRule - , WebKitMediaKeyError(WebKitMediaKeyError), unWebKitMediaKeyError, gTypeWebKitMediaKeyError - , WebKitMediaKeyMessageEvent(WebKitMediaKeyMessageEvent), unWebKitMediaKeyMessageEvent, gTypeWebKitMediaKeyMessageEvent - , WebKitMediaKeyMessageEventInit(WebKitMediaKeyMessageEventInit), unWebKitMediaKeyMessageEventInit, gTypeWebKitMediaKeyMessageEventInit - , WebKitMediaKeyNeededEvent(WebKitMediaKeyNeededEvent), unWebKitMediaKeyNeededEvent, gTypeWebKitMediaKeyNeededEvent - , WebKitMediaKeyNeededEventInit(WebKitMediaKeyNeededEventInit), unWebKitMediaKeyNeededEventInit, gTypeWebKitMediaKeyNeededEventInit - , WebKitMediaKeySession(WebKitMediaKeySession), unWebKitMediaKeySession, gTypeWebKitMediaKeySession - , WebKitMediaKeys(WebKitMediaKeys), unWebKitMediaKeys, gTypeWebKitMediaKeys - , WebKitNamedFlow(WebKitNamedFlow), unWebKitNamedFlow, gTypeWebKitNamedFlow - , WebKitNamespace(WebKitNamespace), unWebKitNamespace, gTypeWebKitNamespace - , WebKitPlaybackTargetAvailabilityEvent(WebKitPlaybackTargetAvailabilityEvent), unWebKitPlaybackTargetAvailabilityEvent, gTypeWebKitPlaybackTargetAvailabilityEvent - , WebKitPlaybackTargetAvailabilityEventInit(WebKitPlaybackTargetAvailabilityEventInit), unWebKitPlaybackTargetAvailabilityEventInit, gTypeWebKitPlaybackTargetAvailabilityEventInit - , WebKitPoint(WebKitPoint), unWebKitPoint, gTypeWebKitPoint - , WebKitSubtleCrypto(WebKitSubtleCrypto), unWebKitSubtleCrypto, gTypeWebKitSubtleCrypto - , WebKitTransitionEvent(WebKitTransitionEvent), unWebKitTransitionEvent, gTypeWebKitTransitionEvent - , WebKitTransitionEventInit(WebKitTransitionEventInit), unWebKitTransitionEventInit, gTypeWebKitTransitionEventInit - , WebSocket(WebSocket), unWebSocket, gTypeWebSocket - , WheelEvent(WheelEvent), unWheelEvent, gTypeWheelEvent - , WheelEventInit(WheelEventInit), unWheelEventInit, gTypeWheelEventInit - , Window(Window), unWindow, gTypeWindow - , WindowEventHandlers(WindowEventHandlers), unWindowEventHandlers, IsWindowEventHandlers, toWindowEventHandlers, gTypeWindowEventHandlers - , WindowOrWorkerGlobalScope(WindowOrWorkerGlobalScope), unWindowOrWorkerGlobalScope, IsWindowOrWorkerGlobalScope, toWindowOrWorkerGlobalScope, gTypeWindowOrWorkerGlobalScope - , Worker(Worker), unWorker, gTypeWorker - , WorkerGlobalScope(WorkerGlobalScope), unWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope, gTypeWorkerGlobalScope - , WorkerLocation(WorkerLocation), unWorkerLocation, gTypeWorkerLocation - , WorkerNavigator(WorkerNavigator), unWorkerNavigator, gTypeWorkerNavigator - , WritableStream(WritableStream), unWritableStream, gTypeWritableStream - , XMLDocument(XMLDocument), unXMLDocument, gTypeXMLDocument - , XMLHttpRequest(XMLHttpRequest), unXMLHttpRequest, gTypeXMLHttpRequest - , XMLHttpRequestEventTarget(XMLHttpRequestEventTarget), unXMLHttpRequestEventTarget, IsXMLHttpRequestEventTarget, toXMLHttpRequestEventTarget, gTypeXMLHttpRequestEventTarget - , XMLHttpRequestProgressEvent(XMLHttpRequestProgressEvent), unXMLHttpRequestProgressEvent, gTypeXMLHttpRequestProgressEvent - , XMLHttpRequestUpload(XMLHttpRequestUpload), unXMLHttpRequestUpload, gTypeXMLHttpRequestUpload - , XMLSerializer(XMLSerializer), unXMLSerializer, gTypeXMLSerializer - , XPathEvaluator(XPathEvaluator), unXPathEvaluator, gTypeXPathEvaluator - , XPathException(XPathException), unXPathException, gTypeXPathException - , XPathExpression(XPathExpression), unXPathExpression, gTypeXPathExpression - , XPathNSResolver(XPathNSResolver), unXPathNSResolver, gTypeXPathNSResolver - , XPathResult(XPathResult), unXPathResult, gTypeXPathResult - , XSLTProcessor(XSLTProcessor), unXSLTProcessor, gTypeXSLTProcessor --- AUTO GENERATION ENDS HERE - ) where - -import Prelude () -import Prelude.Compat hiding((!!)) -import qualified Data.Text as T (unpack, Text) -import Control.Monad.IO.Class (MonadIO(..)) -import Data.Int (Int8, Int16, Int32, Int64) -import Data.Word (Word8, Word16, Word32, Word64) -import Data.Monoid ((<>)) -import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) -import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) -import Language.Javascript.JSaddle - (Object(..), valToBool, valNull, valToNumber, (!!), js, valToText, - JSVal, JSString, JSM, maybeNullOrUndefined, maybeNullOrUndefined', - valToStr, jsg, ToJSString(..), FromJSString(..), strToText, MakeObject(..), - Nullable(..), freeFunction, instanceOf, JSContextRef, - askJSM, runJSM, MonadJSM(..), liftJSM, strictEqual, function, js2) -import qualified Language.Javascript.JSaddle as JSaddle (Function(..)) -import Foreign.Ptr (nullPtr) -import Control.Lens.Operators ((^.)) -import Data.Maybe (catMaybes) -import Language.Javascript.JSaddle.Classes (ToJSVal(..)) -import Control.Monad ((>=>)) -import Control.Concurrent.MVar (newEmptyMVar, putMVar, takeMVar) -import Data.Coerce (coerce, Coercible) -import Data.Typeable (Typeable) -import Control.Monad.Trans.Reader (ReaderT(..), ask) -import Control.Exception (bracket, Exception(..), throwIO) -#if MIN_VERSION_base(4,9,0) -import GHC.Stack (HasCallStack) -#else -import GHC.Exts (Constraint) -type HasCallStack = (() :: Constraint) -#endif - --- | This is the same as 'JSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) -type DOM = JSM --- | This is the same as 'JSContextRef' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) -type DOMContext = JSContextRef --- | This is the same as 'MonadJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) -type MonadDOM = MonadJSM - --- | This is the same as 'liftJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) -liftDOM :: MonadDOM m => DOM a -> m a -liftDOM = liftJSM - --- | This is the same as 'askJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) -askDOM :: MonadDOM m => m DOMContext -askDOM = askJSM - --- | This is the same as 'runJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) -runDOM :: MonadIO m => DOM a -> DOMContext -> m a -runDOM = runJSM - -newtype GType = GType Object - -typeInstanceIsA :: ToJSVal value => value -> GType -> JSM Bool -typeInstanceIsA o (GType t) = o `instanceOf` t - --- | Safe but slow way to cast --- --- > castTo Element x >>= \case --- > Nothing -> error "Was not an element" --- > Just element -> ... -castTo :: forall obj obj' m. (Coercible obj JSVal, IsGObject obj', MonadJSM m) => (JSVal -> obj') -> obj -> m (Maybe obj') -castTo constructor obj = liftJSM $ do - GType gtype <- typeGType (undefined :: obj') - let jsval = coerce obj - jsval `instanceOf` gtype >>= \case - True -> return . Just $ constructor jsval - False -> return Nothing - --- | Unsafe way to cast. Slow but if it fails an error message will --- result and the message should be clear (uses HasCallStack). --- --- > element <- unsafeCastTo Element x -unsafeCastTo :: forall obj obj' m. (HasCallStack, Coercible obj JSVal, IsGObject obj', MonadJSM m) => (JSVal -> obj') -> obj -> m obj' -unsafeCastTo constructor obj = liftJSM $ do - GType gtype <- typeGType (undefined :: obj') - let jsval = coerce obj - jsval `instanceOf` gtype >>= \case - True -> return $ constructor jsval - False -> do - destType <- valToText (gtype ^. js "name") - error $ "unsafeCastTo :: invalid conversion to " - <> T.unpack destType <> " requested." - --- | Unsafe way to cast. Fast but if it fails you program --- will probably crash later on in some unpredictable way. --- --- > element <- uncheckedCastTo Element x -uncheckedCastTo :: (Coercible obj JSVal, IsGObject obj') => (JSVal -> obj') -> obj -> obj' -uncheckedCastTo constructor = constructor . coerce - --- | Determine if this is an instance of a particular type --- -isA :: IsGObject o => o -> GType -> JSM Bool -isA obj = typeInstanceIsA (unGObject $ toGObject obj) - -newtype GObject = GObject { unGObject :: JSVal } - -class (ToJSVal o, FromJSVal o, Coercible o JSVal) => IsGObject o where - -- | Given object get the GType of the type. The actual argument - -- passed in is ignored. - typeGType :: o -> JSM GType - --- | Safe upcast. -toGObject :: IsGObject o => o -> GObject -toGObject = GObject . coerce - -fromJSArray :: FromJSVal o => JSVal -> JSM [Maybe o] -fromJSArray a = do - l <- a ^. js "length" >>= valToNumber - mapM (\i -> a !! i >>= fromJSVal) [0..round l - 1] - -fromJSArrayUnchecked :: FromJSVal o => JSVal -> JSM [o] -fromJSArrayUnchecked = fromJSValUncheckedListOf - --- newtype Nullable a = Nullable JSVal - -nullableToMaybe :: FromJSVal a => JSVal -> JSM (Maybe a) -nullableToMaybe = fromJSVal -{-# INLINE nullableToMaybe #-} --- -maybeToNullable :: ToJSVal a => Maybe a -> JSM JSVal -maybeToNullable Nothing = return valNull -maybeToNullable (Just a) = toJSVal a -{-# INLINE maybeToNullable #-} - -instance PToJSVal GObject where - pToJSVal = unGObject - {-# INLINE pToJSVal #-} - -instance PFromJSVal GObject where - pFromJSVal = GObject - {-# INLINE pFromJSVal #-} - -instance ToJSVal GObject where - toJSVal = return . unGObject - {-# INLINE toJSVal #-} - -instance FromJSVal GObject where - fromJSVal val = fmap GObject <$> maybeNullOrUndefined val - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . GObject - {-# INLINE fromJSValUnchecked #-} - ---instance IsGObject o => PToJSVal o where --- pToJSVal = unGObject . toGObject --- {-# INLINE pToJSVal #-} --- ---instance IsGObject o => PFromJSVal o where --- pFromJSVal = unsafeCastGObject . GObject . castRef --- {-# INLINE pFromJSVal #-} --- ---instance IsGObject o => ToJSVal o where --- toJSVal = return . unGObject . toGObject --- {-# INLINE toJSVal #-} --- ---instance IsGObject o => FromJSVal o where --- fromJSVal = return . fmap (unsafeCastGObject . GObject . castRef) . maybeJSNullOrUndefined --- {-# INLINE fromJSVal #-} - -instance IsGObject GObject where - typeGType _ = gTypeGObject - {-# INLINE typeGType #-} - -#ifdef ghcjs_HOST_OS -foreign import javascript unsafe "Object" gTypeGObject :: IO GType -#else -gTypeGObject :: JSM GType -gTypeGObject = GType . Object <$> jsg "Object" -#endif - -objectToString :: (IsGObject self, FromJSString result) => self -> JSM result -objectToString self = fromJSValUnchecked (unGObject $ toGObject self) - --- | Fastest string type to use when you just --- want to take a string from the DOM then --- give it back as is. -type DOMString = JSString -type USVString = JSString -type ByteString = JSString - -fromJSStringArray :: FromJSString s => JSVal -> JSM [s] -fromJSStringArray a = do - l <- a ^. js "length" >>= valToNumber - mapM (\i -> fromJSString <$> (a !! i >>= valToStr)) [0..round l - 1] - -toMaybeJSString :: ToJSString a => Maybe a -> JSM JSVal -toMaybeJSString Nothing = return valNull -toMaybeJSString (Just a) = toJSVal (toJSString a) -{-# INLINE toMaybeJSString #-} - -fromMaybeJSString :: FromJSString a => JSVal -> JSM (Maybe a) -fromMaybeJSString = maybeNullOrUndefined' (fmap fromJSString . valToStr) -{-# INLINE fromMaybeJSString #-} - -integralToDoubleToJSVal :: Integral a => a -> JSM JSVal -integralToDoubleToJSVal a = toJSVal (fromIntegral a :: Double) - -integralFromDoubleFromJSVal :: Integral a => JSVal -> JSM (Maybe a) -integralFromDoubleFromJSVal = fmap (fmap round) . (fromJSVal :: JSVal -> JSM (Maybe Double)) - -integralFromDoubleFromJSValUnchecked :: Integral a => JSVal -> JSM a -integralFromDoubleFromJSValUnchecked = fmap round . (fromJSValUnchecked :: JSVal -> JSM Double) - -type ToDOMString s = ToJSString s -type FromDOMString s = FromJSString s -type IsDOMString s = (ToDOMString s, FromDOMString s) -type IsUSVString s = (ToDOMString s, FromDOMString s) -type IsByteString s = (ToDOMString s, FromDOMString s) - -newtype Function = Function { unFunction :: JSVal } - -instance PToJSVal Function where - pToJSVal = unFunction - {-# INLINE pToJSVal #-} - -instance PFromJSVal Function where - pFromJSVal = Function - {-# INLINE pFromJSVal #-} - -instance ToJSVal Function where - toJSVal = return . unFunction - {-# INLINE toJSVal #-} - -instance FromJSVal Function where - fromJSVal v = fmap Function <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Function - {-# INLINE fromJSValUnchecked #-} - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsFunction o - -toFunction :: IsFunction o => o -> Function -toFunction = Function . coerce - -instance IsFunction Function - --- Promise -newtype PromiseRejected = PromiseRejected { rejectionReason :: JSVal } deriving (Typeable) - -instance Show PromiseRejected where - show _ = "A promise was rejected" -instance Exception PromiseRejected - -readPromise :: JSVal -> JSM JSVal -readPromise promise = do - resultMVar <- liftIO newEmptyMVar - success <- function (\_ _ [result] -> liftIO . putMVar resultMVar $ Right result) - error <- function (\_ _ [reason] -> liftIO . putMVar resultMVar $ Left reason) - promise ^. js2 "then" success error - result <- liftIO $ takeMVar resultMVar - freeFunction success - freeFunction error - case result of - Left reason -> liftIO . throwIO $ PromiseRejected reason - Right x -> return x - --- Callbacks -newtype Callback a = Callback JSaddle.Function - -withCallback :: (MonadDOM m, Coercible c JSaddle.Function) - => JSM c -> (c -> JSM a) -> m a -withCallback aquire f = do - jsCtx <- askJSM - liftIO $ bracket - (runJSM aquire jsCtx) - ((`runJSM` jsCtx) . freeFunction . coerce) - (\t -> runJSM (f t) jsCtx) - -newtype AudioBufferCallback = AudioBufferCallback (Callback (JSVal -> IO ())) -instance ToJSVal AudioBufferCallback where toJSVal (AudioBufferCallback (Callback r)) = toJSVal r -newtype DatabaseCallback = DatabaseCallback (Callback (JSVal -> IO ())) -instance ToJSVal DatabaseCallback where toJSVal (DatabaseCallback (Callback r)) = toJSVal r -newtype IntersectionObserverCallback = IntersectionObserverCallback (Callback (JSVal -> JSVal -> IO ())) -instance ToJSVal IntersectionObserverCallback where toJSVal (IntersectionObserverCallback (Callback r)) = toJSVal r -newtype MediaQueryListListener = MediaQueryListListener (Callback (JSVal -> IO ())) -instance ToJSVal MediaQueryListListener where toJSVal (MediaQueryListListener (Callback r)) = toJSVal r -newtype MediaStreamTrackSourcesCallback = MediaStreamTrackSourcesCallback (Callback (JSVal -> IO ())) -instance ToJSVal MediaStreamTrackSourcesCallback where toJSVal (MediaStreamTrackSourcesCallback (Callback r)) = toJSVal r -newtype NavigatorUserMediaErrorCallback = NavigatorUserMediaErrorCallback (Callback (JSVal -> IO ())) -instance ToJSVal NavigatorUserMediaErrorCallback where toJSVal (NavigatorUserMediaErrorCallback (Callback r)) = toJSVal r -newtype NavigatorUserMediaSuccessCallback = NavigatorUserMediaSuccessCallback (Callback (JSVal -> IO ())) -instance ToJSVal NavigatorUserMediaSuccessCallback where toJSVal (NavigatorUserMediaSuccessCallback (Callback r)) = toJSVal r -newtype NotificationPermissionCallback permissions = NotificationPermissionCallback (Callback (JSVal -> IO ())) -instance ToJSVal (NotificationPermissionCallback permissions) where toJSVal (NotificationPermissionCallback (Callback r)) = toJSVal r -newtype NodeFilter = NodeFilter (Callback (JSVal -> IO ())) -instance ToJSVal NodeFilter where toJSVal (NodeFilter (Callback r)) = toJSVal r -newtype PositionCallback = PositionCallback (Callback (JSVal -> IO ())) -instance ToJSVal PositionCallback where toJSVal (PositionCallback (Callback r)) = toJSVal r -newtype PositionErrorCallback = PositionErrorCallback (Callback (JSVal -> IO ())) -instance ToJSVal PositionErrorCallback where toJSVal (PositionErrorCallback (Callback r)) = toJSVal r -newtype PerformanceObserverCallback = PerformanceObserverCallback (Callback (JSVal -> JSVal -> IO ())) -instance ToJSVal PerformanceObserverCallback where toJSVal (PerformanceObserverCallback (Callback r)) = toJSVal r -newtype RequestAnimationFrameCallback = RequestAnimationFrameCallback (Callback (JSVal -> IO ())) -instance ToJSVal RequestAnimationFrameCallback where toJSVal (RequestAnimationFrameCallback (Callback r)) = toJSVal r -newtype RTCPeerConnectionErrorCallback = RTCPeerConnectionErrorCallback (Callback (JSVal -> IO ())) -instance ToJSVal RTCPeerConnectionErrorCallback where toJSVal (RTCPeerConnectionErrorCallback (Callback r)) = toJSVal r -newtype RTCSessionDescriptionCallback = RTCSessionDescriptionCallback (Callback (JSVal -> IO ())) -instance ToJSVal RTCSessionDescriptionCallback where toJSVal (RTCSessionDescriptionCallback (Callback r)) = toJSVal r -newtype RTCStatsCallback = RTCStatsCallback (Callback (JSVal -> IO ())) -instance ToJSVal RTCStatsCallback where toJSVal (RTCStatsCallback (Callback r)) = toJSVal r -newtype SQLStatementCallback = SQLStatementCallback (Callback (JSVal -> JSVal -> IO ())) -instance ToJSVal SQLStatementCallback where toJSVal (SQLStatementCallback (Callback r)) = toJSVal r -newtype SQLStatementErrorCallback = SQLStatementErrorCallback (Callback (JSVal -> JSVal -> IO ())) -instance ToJSVal SQLStatementErrorCallback where toJSVal (SQLStatementErrorCallback (Callback r)) = toJSVal r -newtype SQLTransactionCallback = SQLTransactionCallback (Callback (JSVal -> IO ())) -instance ToJSVal SQLTransactionCallback where toJSVal (SQLTransactionCallback (Callback r)) = toJSVal r -newtype SQLTransactionErrorCallback = SQLTransactionErrorCallback (Callback (JSVal -> IO ())) -instance ToJSVal SQLTransactionErrorCallback where toJSVal (SQLTransactionErrorCallback (Callback r)) = toJSVal r -newtype StorageErrorCallback = StorageErrorCallback (Callback (JSVal -> IO ())) -instance ToJSVal StorageErrorCallback where toJSVal (StorageErrorCallback (Callback r)) = toJSVal r -newtype StorageQuotaCallback = StorageQuotaCallback (Callback (JSVal -> IO ())) -instance ToJSVal StorageQuotaCallback where toJSVal (StorageQuotaCallback (Callback r)) = toJSVal r -newtype StorageUsageCallback = StorageUsageCallback (Callback (JSVal -> JSVal -> IO ())) -instance ToJSVal StorageUsageCallback where toJSVal (StorageUsageCallback (Callback r)) = toJSVal r -newtype StringCallback s = StringCallback (Callback (JSVal -> IO ())) -instance ToJSVal (StringCallback s) where toJSVal (StringCallback (Callback r)) = toJSVal r -newtype VoidCallback = VoidCallback (Callback (IO ())) -instance ToJSVal VoidCallback where toJSVal (VoidCallback (Callback r)) = toJSVal r - --- Custom types -type DOMHighResTimeStamp = Double -type PerformanceEntryList = [PerformanceEntry] - --- Record Type -newtype Record key value = Record { unRecord :: JSVal } - -instance PToJSVal (Record key value) where - pToJSVal = unRecord - {-# INLINE pToJSVal #-} - -instance PFromJSVal (Record key value) where - pFromJSVal = Record - {-# INLINE pFromJSVal #-} - -instance ToJSVal (Record key value) where - toJSVal = return . unRecord - {-# INLINE toJSVal #-} - -instance FromJSVal (Record key value) where - fromJSVal v = fmap Record <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Record - {-# INLINE fromJSValUnchecked #-} - -newtype SerializedScriptValue = SerializedScriptValue { unSerializedScriptValue :: JSVal } - -instance PToJSVal SerializedScriptValue where - pToJSVal = unSerializedScriptValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal SerializedScriptValue where - pFromJSVal = SerializedScriptValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal SerializedScriptValue where - toJSVal = return . unSerializedScriptValue - {-# INLINE toJSVal #-} - -instance FromJSVal SerializedScriptValue where - fromJSVal v = fmap SerializedScriptValue <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SerializedScriptValue - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsSerializedScriptValue o -toSerializedScriptValue :: IsSerializedScriptValue o => o -> SerializedScriptValue -toSerializedScriptValue = SerializedScriptValue . coerce - -instance IsSerializedScriptValue SerializedScriptValue -instance IsGObject SerializedScriptValue where - typeGType _ = error "Unable to get the JavaScript type of SerializedScriptValue" - -newtype Dictionary = Dictionary { unDictionary :: JSVal } - -instance PToJSVal Dictionary where - pToJSVal = unDictionary - {-# INLINE pToJSVal #-} - -instance PFromJSVal Dictionary where - pFromJSVal = Dictionary - {-# INLINE pFromJSVal #-} - -instance ToJSVal Dictionary where - toJSVal = return . unDictionary - {-# INLINE toJSVal #-} - -instance FromJSVal Dictionary where - fromJSVal v = fmap Dictionary <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Dictionary - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsDictionary o -toDictionary :: IsDictionary o => o -> Dictionary -toDictionary = Dictionary . coerce - -instance IsDictionary Dictionary -instance IsGObject Dictionary where - typeGType _ = error "Unable to get the JavaScript type of Dictionary" - -newtype MutationCallback = MutationCallback { unMutationCallback :: JSVal } - -instance PToJSVal MutationCallback where - pToJSVal = unMutationCallback - {-# INLINE pToJSVal #-} - -instance PFromJSVal MutationCallback where - pFromJSVal = MutationCallback - {-# INLINE pFromJSVal #-} - -instance ToJSVal MutationCallback where - toJSVal = return . unMutationCallback - {-# INLINE toJSVal #-} - -instance FromJSVal MutationCallback where - fromJSVal v = fmap MutationCallback <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MutationCallback - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsMutationCallback o -toMutationCallback :: IsMutationCallback o => o -> MutationCallback -toMutationCallback = MutationCallback . coerce - -instance IsMutationCallback MutationCallback -instance IsGObject MutationCallback where - typeGType _ = error "Unable to get the JavaScript type of MutationCallback" - -newtype ArrayBuffer = ArrayBuffer { unArrayBuffer :: JSVal } - -instance PToJSVal ArrayBuffer where - pToJSVal = unArrayBuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal ArrayBuffer where - pFromJSVal = ArrayBuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal ArrayBuffer where - toJSVal = return . unArrayBuffer - {-# INLINE toJSVal #-} - -instance FromJSVal ArrayBuffer where - fromJSVal v = fmap ArrayBuffer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ArrayBuffer - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsArrayBuffer o -toArrayBuffer :: IsArrayBuffer o => o -> ArrayBuffer -toArrayBuffer = ArrayBuffer . coerce - -instance IsArrayBuffer ArrayBuffer -instance IsGObject ArrayBuffer where - typeGType _ = gTypeArrayBuffer - -gTypeArrayBuffer :: JSM GType -gTypeArrayBuffer = GType . Object <$> jsg "ArrayBuffer" - -newtype Float32Array = Float32Array { unFloat32Array :: JSVal } - -instance PToJSVal Float32Array where - pToJSVal = unFloat32Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Float32Array where - pFromJSVal = Float32Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Float32Array where - toJSVal = return . unFloat32Array - {-# INLINE toJSVal #-} - -instance FromJSVal Float32Array where - fromJSVal v = fmap Float32Array <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Float32Array - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsFloat32Array o -toFloat32Array :: IsFloat32Array o => o -> Float32Array -toFloat32Array = Float32Array . coerce - -instance IsFloat32Array Float32Array -instance IsGObject Float32Array where - typeGType _ = gTypeFloat32Array - -gTypeFloat32Array :: JSM GType -gTypeFloat32Array = GType . Object <$> jsg "Float32Array" - -newtype Float64Array = Float64Array { unFloat64Array :: JSVal } - -instance PToJSVal Float64Array where - pToJSVal = unFloat64Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Float64Array where - pFromJSVal = Float64Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Float64Array where - toJSVal = return . unFloat64Array - {-# INLINE toJSVal #-} - -instance FromJSVal Float64Array where - fromJSVal v = fmap Float64Array <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Float64Array - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsFloat64Array o -toFloat64Array :: IsFloat64Array o => o -> Float64Array -toFloat64Array = Float64Array . coerce - -instance IsFloat64Array Float64Array -instance IsGObject Float64Array where - typeGType _ = gTypeFloat64Array - -gTypeFloat64Array :: JSM GType -gTypeFloat64Array = GType . Object <$> jsg "Float64Array" - -newtype Uint8Array = Uint8Array { unUint8Array :: JSVal } - -instance PToJSVal Uint8Array where - pToJSVal = unUint8Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Uint8Array where - pFromJSVal = Uint8Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Uint8Array where - toJSVal = return . unUint8Array - {-# INLINE toJSVal #-} - -instance FromJSVal Uint8Array where - fromJSVal v = fmap Uint8Array <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Uint8Array - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsUint8Array o -toUint8Array :: IsUint8Array o => o -> Uint8Array -toUint8Array = Uint8Array . coerce - -instance IsUint8Array Uint8Array -instance IsGObject Uint8Array where - typeGType _ = gTypeUint8Array - -gTypeUint8Array :: JSM GType -gTypeUint8Array = GType . Object <$> jsg "Uint8Array" - -newtype Uint8ClampedArray = Uint8ClampedArray { unUint8ClampedArray :: JSVal } - -instance PToJSVal Uint8ClampedArray where - pToJSVal = unUint8ClampedArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal Uint8ClampedArray where - pFromJSVal = Uint8ClampedArray - {-# INLINE pFromJSVal #-} - -instance ToJSVal Uint8ClampedArray where - toJSVal = return . unUint8ClampedArray - {-# INLINE toJSVal #-} - -instance FromJSVal Uint8ClampedArray where - fromJSVal v = fmap Uint8ClampedArray <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Uint8ClampedArray - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsUint8ClampedArray o -toUint8ClampedArray :: IsUint8ClampedArray o => o -> Uint8ClampedArray -toUint8ClampedArray = Uint8ClampedArray . coerce - -instance IsUint8ClampedArray Uint8ClampedArray -instance IsGObject Uint8ClampedArray where - typeGType _ = gTypeUint8ClampedArray - -gTypeUint8ClampedArray :: JSM GType -gTypeUint8ClampedArray = GType . Object <$> jsg "Uint8ClampedArray" - -newtype Uint16Array = Uint16Array { unUint16Array :: JSVal } - -instance PToJSVal Uint16Array where - pToJSVal = unUint16Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Uint16Array where - pFromJSVal = Uint16Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Uint16Array where - toJSVal = return . unUint16Array - {-# INLINE toJSVal #-} - -instance FromJSVal Uint16Array where - fromJSVal v = fmap Uint16Array <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Uint16Array - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsUint16Array o -toUint16Array :: IsUint16Array o => o -> Uint16Array -toUint16Array = Uint16Array . coerce - -instance IsUint16Array Uint16Array -instance IsGObject Uint16Array where - typeGType _ = gTypeUint16Array - -gTypeUint16Array :: JSM GType -gTypeUint16Array = GType . Object <$> jsg "Uint16Array" - -newtype Uint32Array = Uint32Array { unUint32Array :: JSVal } - -instance PToJSVal Uint32Array where - pToJSVal = unUint32Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Uint32Array where - pFromJSVal = Uint32Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Uint32Array where - toJSVal = return . unUint32Array - {-# INLINE toJSVal #-} - -instance FromJSVal Uint32Array where - fromJSVal v = fmap Uint32Array <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Uint32Array - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsUint32Array o -toUint32Array :: IsUint32Array o => o -> Uint32Array -toUint32Array = Uint32Array . coerce - -instance IsUint32Array Uint32Array -instance IsGObject Uint32Array where - typeGType _ = gTypeUint32Array - -gTypeUint32Array :: JSM GType -gTypeUint32Array = GType . Object <$> jsg "Uint32Array" - -newtype Int8Array = Int8Array { unInt8Array :: JSVal } - -instance PToJSVal Int8Array where - pToJSVal = unInt8Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Int8Array where - pFromJSVal = Int8Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Int8Array where - toJSVal = return . unInt8Array - {-# INLINE toJSVal #-} - -instance FromJSVal Int8Array where - fromJSVal v = fmap Int8Array <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Int8Array - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsInt8Array o -toInt8Array :: IsInt8Array o => o -> Int8Array -toInt8Array = Int8Array . coerce - -instance IsInt8Array Int8Array -instance IsGObject Int8Array where - typeGType _ = gTypeInt8Array - -gTypeInt8Array :: JSM GType -gTypeInt8Array = GType . Object <$> jsg "Int8Array" - -newtype Int16Array = Int16Array { unInt16Array :: JSVal } - -instance PToJSVal Int16Array where - pToJSVal = unInt16Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Int16Array where - pFromJSVal = Int16Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Int16Array where - toJSVal = return . unInt16Array - {-# INLINE toJSVal #-} - -instance FromJSVal Int16Array where - fromJSVal v = fmap Int16Array <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Int16Array - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsInt16Array o -toInt16Array :: IsInt16Array o => o -> Int16Array -toInt16Array = Int16Array . coerce - -instance IsInt16Array Int16Array -instance IsGObject Int16Array where - typeGType _ = gTypeInt16Array - -gTypeInt16Array :: JSM GType -gTypeInt16Array = GType . Object <$> jsg "Int16Array" - -newtype Int32Array = Int32Array { unInt32Array :: JSVal } - -instance PToJSVal Int32Array where - pToJSVal = unInt32Array - {-# INLINE pToJSVal #-} - -instance PFromJSVal Int32Array where - pFromJSVal = Int32Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Int32Array where - toJSVal = return . unInt32Array - {-# INLINE toJSVal #-} - -instance FromJSVal Int32Array where - fromJSVal v = fmap Int32Array <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Int32Array - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsInt32Array o -toInt32Array :: IsInt32Array o => o -> Int32Array -toInt32Array = Int32Array . coerce - -instance IsInt32Array Int32Array -instance IsGObject Int32Array where - typeGType _ = gTypeInt32Array - -gTypeInt32Array :: JSM GType -gTypeInt32Array = GType . Object <$> jsg "Int32Array" - -newtype ObjectArray = ObjectArray { unObjectArray :: JSVal } - -instance PToJSVal ObjectArray where - pToJSVal = unObjectArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal ObjectArray where - pFromJSVal = ObjectArray - {-# INLINE pFromJSVal #-} - -instance ToJSVal ObjectArray where - toJSVal = return . unObjectArray - {-# INLINE toJSVal #-} - -instance FromJSVal ObjectArray where - fromJSVal v = fmap ObjectArray <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ObjectArray - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsObjectArray o -toObjectArray :: IsObjectArray o => o -> ObjectArray -toObjectArray = ObjectArray . coerce - -instance IsObjectArray ObjectArray -instance IsGObject ObjectArray where - typeGType _ = error "Unable to get the JavaScript type of ObjectArray" - -newtype ArrayBufferView = ArrayBufferView { unArrayBufferView :: JSVal } - -instance PToJSVal ArrayBufferView where - pToJSVal = unArrayBufferView - {-# INLINE pToJSVal #-} - -instance PFromJSVal ArrayBufferView where - pFromJSVal = ArrayBufferView - {-# INLINE pFromJSVal #-} - -instance ToJSVal ArrayBufferView where - toJSVal = return . unArrayBufferView - {-# INLINE toJSVal #-} - -instance FromJSVal ArrayBufferView where - fromJSVal v = fmap ArrayBufferView <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ArrayBufferView - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsArrayBufferView o -toArrayBufferView :: IsArrayBufferView o => o -> ArrayBufferView -toArrayBufferView = ArrayBufferView . coerce - -instance IsArrayBufferView ArrayBufferView -instance IsGObject ArrayBufferView where - typeGType _ = error "Unable to get the JavaScript type of ArrayBufferView" - -newtype Array = Array { unArray :: JSVal } - -instance PToJSVal Array where - pToJSVal = unArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal Array where - pFromJSVal = Array - {-# INLINE pFromJSVal #-} - -instance ToJSVal Array where - toJSVal = return . unArray - {-# INLINE toJSVal #-} - -instance FromJSVal Array where - fromJSVal v = fmap Array <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Array - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsArray o -toArray :: IsArray o => o -> Array -toArray = Array . coerce - -instance IsArray Array -instance IsGObject Array where - typeGType _ = gTypeArray - -gTypeArray :: JSM GType -gTypeArray = GType . Object <$> jsg "Array" - -newtype Date = Date { unDate :: JSVal } - -instance PToJSVal Date where - pToJSVal = unDate - {-# INLINE pToJSVal #-} - -instance PFromJSVal Date where - pFromJSVal = Date - {-# INLINE pFromJSVal #-} - -instance ToJSVal Date where - toJSVal = return . unDate - {-# INLINE toJSVal #-} - -instance FromJSVal Date where - fromJSVal v = fmap Date <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Date - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsDate o -toDate :: IsDate o => o -> Date -toDate = Date . coerce - -instance IsDate Date -instance IsGObject Date where - typeGType _ = gTypeDate - -gTypeDate :: JSM GType -gTypeDate = GType . Object <$> jsg "Date" - -newtype Algorithm = Algorithm { unAlgorithm :: JSVal } - -instance PToJSVal Algorithm where - pToJSVal = unAlgorithm - {-# INLINE pToJSVal #-} - -instance PFromJSVal Algorithm where - pFromJSVal = Algorithm - {-# INLINE pFromJSVal #-} - -instance ToJSVal Algorithm where - toJSVal = return . unAlgorithm - {-# INLINE toJSVal #-} - -instance FromJSVal Algorithm where - fromJSVal v = fmap Algorithm <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Algorithm - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsAlgorithm o -toAlgorithm :: IsAlgorithm o => o -> Algorithm -toAlgorithm = Algorithm . coerce - -instance IsAlgorithm Algorithm -instance IsGObject Algorithm where - typeGType _ = error "Unable to get the JavaScript type of Algorithm" - -newtype CryptoOperationData = CryptoOperationData { unCryptoOperationData :: JSVal } - -instance PToJSVal CryptoOperationData where - pToJSVal = unCryptoOperationData - {-# INLINE pToJSVal #-} - -instance PFromJSVal CryptoOperationData where - pFromJSVal = CryptoOperationData - {-# INLINE pFromJSVal #-} - -instance ToJSVal CryptoOperationData where - toJSVal = return . unCryptoOperationData - {-# INLINE toJSVal #-} - -instance FromJSVal CryptoOperationData where - fromJSVal v = fmap CryptoOperationData <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CryptoOperationData - {-# INLINE fromJSValUnchecked #-} - -class IsGObject o => IsCryptoOperationData o -toCryptoOperationData :: IsCryptoOperationData o => o -> CryptoOperationData -toCryptoOperationData = CryptoOperationData . coerce - -instance IsCryptoOperationData CryptoOperationData -instance IsGObject CryptoOperationData where - typeGType _ = error "Unable to get the JavaScript type of CryptoOperationData" -instance IsCryptoOperationData ArrayBuffer -instance IsCryptoOperationData ArrayBufferView - -type GLenum = Word32 -type GLboolean = Bool -type GLbitfield = Word32 -type GLbyte = Int8 -type GLshort = Int16 -type GLint = Int32 -type GLint64 = Int64 -type GLsizei = Int32 -type GLintptr = Int64 -type GLsizeiptr = Int64 -type GLubyte = Word8 -type GLushort = Word16 -type GLuint = Word32 -type GLuint64 = Word64 -type GLfloat = Double -type GLclampf = Double - --- AUTO GENERATION STARTS HERE --- The remainder of this file is generated from IDL files using domconv-webkit-jsffi -newtype AddEventListenerOptionsOrBool = AddEventListenerOptionsOrBool { unAddEventListenerOptionsOrBool :: JSVal } - -instance PToJSVal AddEventListenerOptionsOrBool where - pToJSVal = unAddEventListenerOptionsOrBool - {-# INLINE pToJSVal #-} - -instance PFromJSVal AddEventListenerOptionsOrBool where - pFromJSVal = AddEventListenerOptionsOrBool - {-# INLINE pFromJSVal #-} - -instance ToJSVal AddEventListenerOptionsOrBool where - toJSVal = return . unAddEventListenerOptionsOrBool - {-# INLINE toJSVal #-} - -instance FromJSVal AddEventListenerOptionsOrBool where - fromJSVal v = fmap AddEventListenerOptionsOrBool <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AddEventListenerOptionsOrBool - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AddEventListenerOptionsOrBool where - makeObject = makeObject . unAddEventListenerOptionsOrBool - -class (FromJSVal o, ToJSVal o, PToJSVal o) => IsAddEventListenerOptionsOrBool o - -toAddEventListenerOptionsOrBool :: IsAddEventListenerOptionsOrBool o => o -> AddEventListenerOptionsOrBool -toAddEventListenerOptionsOrBool = AddEventListenerOptionsOrBool . pToJSVal - -instance IsAddEventListenerOptionsOrBool AddEventListenerOptionsOrBool -instance IsAddEventListenerOptionsOrBool Bool -instance IsAddEventListenerOptionsOrBool AddEventListenerOptions - -newtype BinaryData = BinaryData { unBinaryData :: JSVal } - -instance PToJSVal BinaryData where - pToJSVal = unBinaryData - {-# INLINE pToJSVal #-} - -instance PFromJSVal BinaryData where - pFromJSVal = BinaryData - {-# INLINE pFromJSVal #-} - -instance ToJSVal BinaryData where - toJSVal = return . unBinaryData - {-# INLINE toJSVal #-} - -instance FromJSVal BinaryData where - fromJSVal v = fmap BinaryData <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BinaryData - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BinaryData where - makeObject = makeObject . unBinaryData - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsBinaryData o - -toBinaryData :: IsBinaryData o => o -> BinaryData -toBinaryData = BinaryData . coerce - -instance IsBinaryData BinaryData -instance IsBinaryData ArrayBuffer -instance IsBinaryData ArrayBufferView - -newtype BlobPart = BlobPart { unBlobPart :: JSVal } - -instance PToJSVal BlobPart where - pToJSVal = unBlobPart - {-# INLINE pToJSVal #-} - -instance PFromJSVal BlobPart where - pFromJSVal = BlobPart - {-# INLINE pFromJSVal #-} - -instance ToJSVal BlobPart where - toJSVal = return . unBlobPart - {-# INLINE toJSVal #-} - -instance FromJSVal BlobPart where - fromJSVal v = fmap BlobPart <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BlobPart - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BlobPart where - makeObject = makeObject . unBlobPart - -class (FromJSVal o, ToJSVal o) => IsBlobPart o - -instance IsBlobPart BlobPart -instance IsBlobPart BinaryData -instance IsBlobPart BufferSource -instance IsBlobPart ArrayBufferView -instance IsBlobPart ArrayBuffer -instance IsBlobPart Blob -instance IsBlobPart File -instance IsBlobPart Text -instance IsBlobPart JSString -instance IsBlobPart String - -newtype BodyInit = BodyInit { unBodyInit :: JSVal } - -instance PToJSVal BodyInit where - pToJSVal = unBodyInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal BodyInit where - pFromJSVal = BodyInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal BodyInit where - toJSVal = return . unBodyInit - {-# INLINE toJSVal #-} - -instance FromJSVal BodyInit where - fromJSVal v = fmap BodyInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BodyInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BodyInit where - makeObject = makeObject . unBodyInit - -class (FromJSVal o, ToJSVal o) => IsBodyInit o - -instance IsBodyInit BodyInit -instance IsBodyInit Text -instance IsBodyInit JSString -instance IsBodyInit String -instance IsBodyInit FormData -instance IsBodyInit BinaryData -instance IsBodyInit BufferSource -instance IsBodyInit ArrayBufferView -instance IsBodyInit ArrayBuffer -instance IsBodyInit Blob -instance IsBodyInit File - -newtype BufferDataSource = BufferDataSource { unBufferDataSource :: JSVal } - -instance PToJSVal BufferDataSource where - pToJSVal = unBufferDataSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal BufferDataSource where - pFromJSVal = BufferDataSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal BufferDataSource where - toJSVal = return . unBufferDataSource - {-# INLINE toJSVal #-} - -instance FromJSVal BufferDataSource where - fromJSVal v = fmap BufferDataSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BufferDataSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BufferDataSource where - makeObject = makeObject . unBufferDataSource - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsBufferDataSource o - -toBufferDataSource :: IsBufferDataSource o => o -> BufferDataSource -toBufferDataSource = BufferDataSource . coerce - -instance IsBufferDataSource BufferDataSource -instance IsBufferDataSource ArrayBuffer -instance IsBufferDataSource ArrayBufferView - -newtype BufferSource = BufferSource { unBufferSource :: JSVal } - -instance PToJSVal BufferSource where - pToJSVal = unBufferSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal BufferSource where - pFromJSVal = BufferSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal BufferSource where - toJSVal = return . unBufferSource - {-# INLINE toJSVal #-} - -instance FromJSVal BufferSource where - fromJSVal v = fmap BufferSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BufferSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BufferSource where - makeObject = makeObject . unBufferSource - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsBufferSource o - -toBufferSource :: IsBufferSource o => o -> BufferSource -toBufferSource = BufferSource . coerce - -instance IsBufferSource BufferSource -instance IsBufferSource ArrayBuffer -instance IsBufferSource ArrayBufferView - -newtype CanvasImageSource = CanvasImageSource { unCanvasImageSource :: JSVal } - -instance PToJSVal CanvasImageSource where - pToJSVal = unCanvasImageSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasImageSource where - pFromJSVal = CanvasImageSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasImageSource where - toJSVal = return . unCanvasImageSource - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasImageSource where - fromJSVal v = fmap CanvasImageSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CanvasImageSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CanvasImageSource where - makeObject = makeObject . unCanvasImageSource - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsCanvasImageSource o - -toCanvasImageSource :: IsCanvasImageSource o => o -> CanvasImageSource -toCanvasImageSource = CanvasImageSource . coerce - -instance IsCanvasImageSource CanvasImageSource -instance IsCanvasImageSource HTMLImageElement -instance IsCanvasImageSource HTMLVideoElement -instance IsCanvasImageSource HTMLCanvasElement - -newtype CanvasStyle = CanvasStyle { unCanvasStyle :: JSVal } - -instance PToJSVal CanvasStyle where - pToJSVal = unCanvasStyle - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasStyle where - pFromJSVal = CanvasStyle - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasStyle where - toJSVal = return . unCanvasStyle - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasStyle where - fromJSVal v = fmap CanvasStyle <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CanvasStyle - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CanvasStyle where - makeObject = makeObject . unCanvasStyle - -class (FromJSVal o, ToJSVal o) => IsCanvasStyle o - -instance IsCanvasStyle CanvasStyle -instance IsCanvasStyle CanvasPattern -instance IsCanvasStyle CanvasGradient -instance IsCanvasStyle Text -instance IsCanvasStyle JSString -instance IsCanvasStyle String - -newtype CryptoKeyOrKeyPair = CryptoKeyOrKeyPair { unCryptoKeyOrKeyPair :: JSVal } - -instance PToJSVal CryptoKeyOrKeyPair where - pToJSVal = unCryptoKeyOrKeyPair - {-# INLINE pToJSVal #-} - -instance PFromJSVal CryptoKeyOrKeyPair where - pFromJSVal = CryptoKeyOrKeyPair - {-# INLINE pFromJSVal #-} - -instance ToJSVal CryptoKeyOrKeyPair where - toJSVal = return . unCryptoKeyOrKeyPair - {-# INLINE toJSVal #-} - -instance FromJSVal CryptoKeyOrKeyPair where - fromJSVal v = fmap CryptoKeyOrKeyPair <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CryptoKeyOrKeyPair - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CryptoKeyOrKeyPair where - makeObject = makeObject . unCryptoKeyOrKeyPair - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsCryptoKeyOrKeyPair o - -toCryptoKeyOrKeyPair :: IsCryptoKeyOrKeyPair o => o -> CryptoKeyOrKeyPair -toCryptoKeyOrKeyPair = CryptoKeyOrKeyPair . coerce - -instance IsCryptoKeyOrKeyPair CryptoKeyOrKeyPair -instance IsCryptoKeyOrKeyPair CryptoKeyPair -instance IsCryptoKeyOrKeyPair CryptoKey - -newtype EventListenerOptionsOrBool = EventListenerOptionsOrBool { unEventListenerOptionsOrBool :: JSVal } - -instance PToJSVal EventListenerOptionsOrBool where - pToJSVal = unEventListenerOptionsOrBool - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventListenerOptionsOrBool where - pFromJSVal = EventListenerOptionsOrBool - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventListenerOptionsOrBool where - toJSVal = return . unEventListenerOptionsOrBool - {-# INLINE toJSVal #-} - -instance FromJSVal EventListenerOptionsOrBool where - fromJSVal v = fmap EventListenerOptionsOrBool <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EventListenerOptionsOrBool - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EventListenerOptionsOrBool where - makeObject = makeObject . unEventListenerOptionsOrBool - -class (FromJSVal o, ToJSVal o, PToJSVal o) => IsEventListenerOptionsOrBool o - -toEventListenerOptionsOrBool :: IsEventListenerOptionsOrBool o => o -> EventListenerOptionsOrBool -toEventListenerOptionsOrBool = EventListenerOptionsOrBool . pToJSVal - -instance IsEventListenerOptionsOrBool EventListenerOptionsOrBool -instance IsEventListenerOptionsOrBool Bool -instance IsEventListenerOptionsOrBool EventListenerOptions -instance IsEventListenerOptionsOrBool AddEventListenerOptions - -newtype Float32List = Float32List { unFloat32List :: JSVal } - -instance PToJSVal Float32List where - pToJSVal = unFloat32List - {-# INLINE pToJSVal #-} - -instance PFromJSVal Float32List where - pFromJSVal = Float32List - {-# INLINE pFromJSVal #-} - -instance ToJSVal Float32List where - toJSVal = return . unFloat32List - {-# INLINE toJSVal #-} - -instance FromJSVal Float32List where - fromJSVal v = fmap Float32List <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Float32List - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Float32List where - makeObject = makeObject . unFloat32List - -class (FromJSVal o, ToJSVal o) => IsFloat32List o - -instance IsFloat32List Float32List -instance IsFloat32List [GLfloat] -instance IsFloat32List Float32Array - -newtype HTMLCollectionOrElement = HTMLCollectionOrElement { unHTMLCollectionOrElement :: JSVal } - -instance PToJSVal HTMLCollectionOrElement where - pToJSVal = unHTMLCollectionOrElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLCollectionOrElement where - pFromJSVal = HTMLCollectionOrElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLCollectionOrElement where - toJSVal = return . unHTMLCollectionOrElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLCollectionOrElement where - fromJSVal v = fmap HTMLCollectionOrElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLCollectionOrElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLCollectionOrElement where - makeObject = makeObject . unHTMLCollectionOrElement - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsHTMLCollectionOrElement o - -toHTMLCollectionOrElement :: IsHTMLCollectionOrElement o => o -> HTMLCollectionOrElement -toHTMLCollectionOrElement = HTMLCollectionOrElement . coerce - -instance IsHTMLCollectionOrElement HTMLCollectionOrElement -instance IsHTMLCollectionOrElement Element -instance IsHTMLCollectionOrElement SVGViewElement -instance IsHTMLCollectionOrElement SVGVKernElement -instance IsHTMLCollectionOrElement SVGUseElement -instance IsHTMLCollectionOrElement SVGTitleElement -instance IsHTMLCollectionOrElement SVGTextPositioningElement -instance IsHTMLCollectionOrElement SVGTextPathElement -instance IsHTMLCollectionOrElement SVGTextElement -instance IsHTMLCollectionOrElement SVGTextContentElement -instance IsHTMLCollectionOrElement SVGTSpanElement -instance IsHTMLCollectionOrElement SVGTRefElement -instance IsHTMLCollectionOrElement SVGSymbolElement -instance IsHTMLCollectionOrElement SVGSwitchElement -instance IsHTMLCollectionOrElement SVGStyleElement -instance IsHTMLCollectionOrElement SVGStopElement -instance IsHTMLCollectionOrElement SVGSetElement -instance IsHTMLCollectionOrElement SVGScriptElement -instance IsHTMLCollectionOrElement SVGSVGElement -instance IsHTMLCollectionOrElement SVGRectElement -instance IsHTMLCollectionOrElement SVGRadialGradientElement -instance IsHTMLCollectionOrElement SVGPolylineElement -instance IsHTMLCollectionOrElement SVGPolygonElement -instance IsHTMLCollectionOrElement SVGPatternElement -instance IsHTMLCollectionOrElement SVGPathElement -instance IsHTMLCollectionOrElement SVGMissingGlyphElement -instance IsHTMLCollectionOrElement SVGMetadataElement -instance IsHTMLCollectionOrElement SVGMaskElement -instance IsHTMLCollectionOrElement SVGMarkerElement -instance IsHTMLCollectionOrElement SVGMPathElement -instance IsHTMLCollectionOrElement SVGLinearGradientElement -instance IsHTMLCollectionOrElement SVGLineElement -instance IsHTMLCollectionOrElement SVGImageElement -instance IsHTMLCollectionOrElement SVGHKernElement -instance IsHTMLCollectionOrElement SVGGraphicsElement -instance IsHTMLCollectionOrElement SVGGradientElement -instance IsHTMLCollectionOrElement SVGGlyphRefElement -instance IsHTMLCollectionOrElement SVGGlyphElement -instance IsHTMLCollectionOrElement SVGGElement -instance IsHTMLCollectionOrElement SVGForeignObjectElement -instance IsHTMLCollectionOrElement SVGFontFaceUriElement -instance IsHTMLCollectionOrElement SVGFontFaceSrcElement -instance IsHTMLCollectionOrElement SVGFontFaceNameElement -instance IsHTMLCollectionOrElement SVGFontFaceFormatElement -instance IsHTMLCollectionOrElement SVGFontFaceElement -instance IsHTMLCollectionOrElement SVGFontElement -instance IsHTMLCollectionOrElement SVGFilterElement -instance IsHTMLCollectionOrElement SVGFETurbulenceElement -instance IsHTMLCollectionOrElement SVGFETileElement -instance IsHTMLCollectionOrElement SVGFESpotLightElement -instance IsHTMLCollectionOrElement SVGFESpecularLightingElement -instance IsHTMLCollectionOrElement SVGFEPointLightElement -instance IsHTMLCollectionOrElement SVGFEOffsetElement -instance IsHTMLCollectionOrElement SVGFEMorphologyElement -instance IsHTMLCollectionOrElement SVGFEMergeNodeElement -instance IsHTMLCollectionOrElement SVGFEMergeElement -instance IsHTMLCollectionOrElement SVGFEImageElement -instance IsHTMLCollectionOrElement SVGFEGaussianBlurElement -instance IsHTMLCollectionOrElement SVGFEFuncRElement -instance IsHTMLCollectionOrElement SVGFEFuncGElement -instance IsHTMLCollectionOrElement SVGFEFuncBElement -instance IsHTMLCollectionOrElement SVGFEFuncAElement -instance IsHTMLCollectionOrElement SVGFEFloodElement -instance IsHTMLCollectionOrElement SVGFEDropShadowElement -instance IsHTMLCollectionOrElement SVGFEDistantLightElement -instance IsHTMLCollectionOrElement SVGFEDisplacementMapElement -instance IsHTMLCollectionOrElement SVGFEDiffuseLightingElement -instance IsHTMLCollectionOrElement SVGFEConvolveMatrixElement -instance IsHTMLCollectionOrElement SVGFECompositeElement -instance IsHTMLCollectionOrElement SVGFEComponentTransferElement -instance IsHTMLCollectionOrElement SVGFEColorMatrixElement -instance IsHTMLCollectionOrElement SVGFEBlendElement -instance IsHTMLCollectionOrElement SVGEllipseElement -instance IsHTMLCollectionOrElement SVGElement -instance IsHTMLCollectionOrElement SVGDescElement -instance IsHTMLCollectionOrElement SVGDefsElement -instance IsHTMLCollectionOrElement SVGCursorElement -instance IsHTMLCollectionOrElement SVGComponentTransferFunctionElement -instance IsHTMLCollectionOrElement SVGClipPathElement -instance IsHTMLCollectionOrElement SVGCircleElement -instance IsHTMLCollectionOrElement SVGAnimationElement -instance IsHTMLCollectionOrElement SVGAnimateTransformElement -instance IsHTMLCollectionOrElement SVGAnimateMotionElement -instance IsHTMLCollectionOrElement SVGAnimateElement -instance IsHTMLCollectionOrElement SVGAnimateColorElement -instance IsHTMLCollectionOrElement SVGAltGlyphItemElement -instance IsHTMLCollectionOrElement SVGAltGlyphElement -instance IsHTMLCollectionOrElement SVGAltGlyphDefElement -instance IsHTMLCollectionOrElement SVGAElement -instance IsHTMLCollectionOrElement HTMLVideoElement -instance IsHTMLCollectionOrElement HTMLUnknownElement -instance IsHTMLCollectionOrElement HTMLUListElement -instance IsHTMLCollectionOrElement HTMLTrackElement -instance IsHTMLCollectionOrElement HTMLTitleElement -instance IsHTMLCollectionOrElement HTMLTimeElement -instance IsHTMLCollectionOrElement HTMLTextAreaElement -instance IsHTMLCollectionOrElement HTMLTemplateElement -instance IsHTMLCollectionOrElement HTMLTableSectionElement -instance IsHTMLCollectionOrElement HTMLTableRowElement -instance IsHTMLCollectionOrElement HTMLTableElement -instance IsHTMLCollectionOrElement HTMLTableColElement -instance IsHTMLCollectionOrElement HTMLTableCellElement -instance IsHTMLCollectionOrElement HTMLTableCaptionElement -instance IsHTMLCollectionOrElement HTMLStyleElement -instance IsHTMLCollectionOrElement HTMLSpanElement -instance IsHTMLCollectionOrElement HTMLSourceElement -instance IsHTMLCollectionOrElement HTMLSlotElement -instance IsHTMLCollectionOrElement HTMLSelectElement -instance IsHTMLCollectionOrElement HTMLScriptElement -instance IsHTMLCollectionOrElement HTMLQuoteElement -instance IsHTMLCollectionOrElement HTMLProgressElement -instance IsHTMLCollectionOrElement HTMLPreElement -instance IsHTMLCollectionOrElement HTMLPictureElement -instance IsHTMLCollectionOrElement HTMLParamElement -instance IsHTMLCollectionOrElement HTMLParagraphElement -instance IsHTMLCollectionOrElement HTMLOutputElement -instance IsHTMLCollectionOrElement HTMLOptionElement -instance IsHTMLCollectionOrElement HTMLOptGroupElement -instance IsHTMLCollectionOrElement HTMLObjectElement -instance IsHTMLCollectionOrElement HTMLOListElement -instance IsHTMLCollectionOrElement HTMLModElement -instance IsHTMLCollectionOrElement HTMLMeterElement -instance IsHTMLCollectionOrElement HTMLMetaElement -instance IsHTMLCollectionOrElement HTMLMenuElement -instance IsHTMLCollectionOrElement HTMLMediaElement -instance IsHTMLCollectionOrElement HTMLMarqueeElement -instance IsHTMLCollectionOrElement HTMLMapElement -instance IsHTMLCollectionOrElement HTMLLinkElement -instance IsHTMLCollectionOrElement HTMLLegendElement -instance IsHTMLCollectionOrElement HTMLLabelElement -instance IsHTMLCollectionOrElement HTMLLIElement -instance IsHTMLCollectionOrElement HTMLKeygenElement -instance IsHTMLCollectionOrElement HTMLInputElement -instance IsHTMLCollectionOrElement HTMLImageElement -instance IsHTMLCollectionOrElement HTMLIFrameElement -instance IsHTMLCollectionOrElement HTMLHtmlElement -instance IsHTMLCollectionOrElement HTMLHeadingElement -instance IsHTMLCollectionOrElement HTMLHeadElement -instance IsHTMLCollectionOrElement HTMLHRElement -instance IsHTMLCollectionOrElement HTMLFrameSetElement -instance IsHTMLCollectionOrElement HTMLFrameElement -instance IsHTMLCollectionOrElement HTMLFormElement -instance IsHTMLCollectionOrElement HTMLFontElement -instance IsHTMLCollectionOrElement HTMLFieldSetElement -instance IsHTMLCollectionOrElement HTMLEmbedElement -instance IsHTMLCollectionOrElement HTMLElement -instance IsHTMLCollectionOrElement HTMLDivElement -instance IsHTMLCollectionOrElement HTMLDirectoryElement -instance IsHTMLCollectionOrElement HTMLDetailsElement -instance IsHTMLCollectionOrElement HTMLDataListElement -instance IsHTMLCollectionOrElement HTMLDataElement -instance IsHTMLCollectionOrElement HTMLDListElement -instance IsHTMLCollectionOrElement HTMLCanvasElement -instance IsHTMLCollectionOrElement HTMLButtonElement -instance IsHTMLCollectionOrElement HTMLBodyElement -instance IsHTMLCollectionOrElement HTMLBaseElement -instance IsHTMLCollectionOrElement HTMLBRElement -instance IsHTMLCollectionOrElement HTMLAudioElement -instance IsHTMLCollectionOrElement HTMLAttachmentElement -instance IsHTMLCollectionOrElement HTMLAreaElement -instance IsHTMLCollectionOrElement HTMLAppletElement -instance IsHTMLCollectionOrElement HTMLAnchorElement -instance IsHTMLCollectionOrElement HTMLCollection -instance IsHTMLCollectionOrElement HTMLOptionsCollection -instance IsHTMLCollectionOrElement HTMLFormControlsCollection - -newtype HTMLElementOrLong = HTMLElementOrLong { unHTMLElementOrLong :: JSVal } - -instance PToJSVal HTMLElementOrLong where - pToJSVal = unHTMLElementOrLong - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLElementOrLong where - pFromJSVal = HTMLElementOrLong - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLElementOrLong where - toJSVal = return . unHTMLElementOrLong - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLElementOrLong where - fromJSVal v = fmap HTMLElementOrLong <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLElementOrLong - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLElementOrLong where - makeObject = makeObject . unHTMLElementOrLong - -class (FromJSVal o, ToJSVal o) => IsHTMLElementOrLong o - -instance IsHTMLElementOrLong HTMLElementOrLong -instance IsHTMLElementOrLong Int -instance IsHTMLElementOrLong HTMLElement -instance IsHTMLElementOrLong HTMLVideoElement -instance IsHTMLElementOrLong HTMLUnknownElement -instance IsHTMLElementOrLong HTMLUListElement -instance IsHTMLElementOrLong HTMLTrackElement -instance IsHTMLElementOrLong HTMLTitleElement -instance IsHTMLElementOrLong HTMLTimeElement -instance IsHTMLElementOrLong HTMLTextAreaElement -instance IsHTMLElementOrLong HTMLTemplateElement -instance IsHTMLElementOrLong HTMLTableSectionElement -instance IsHTMLElementOrLong HTMLTableRowElement -instance IsHTMLElementOrLong HTMLTableElement -instance IsHTMLElementOrLong HTMLTableColElement -instance IsHTMLElementOrLong HTMLTableCellElement -instance IsHTMLElementOrLong HTMLTableCaptionElement -instance IsHTMLElementOrLong HTMLStyleElement -instance IsHTMLElementOrLong HTMLSpanElement -instance IsHTMLElementOrLong HTMLSourceElement -instance IsHTMLElementOrLong HTMLSlotElement -instance IsHTMLElementOrLong HTMLSelectElement -instance IsHTMLElementOrLong HTMLScriptElement -instance IsHTMLElementOrLong HTMLQuoteElement -instance IsHTMLElementOrLong HTMLProgressElement -instance IsHTMLElementOrLong HTMLPreElement -instance IsHTMLElementOrLong HTMLPictureElement -instance IsHTMLElementOrLong HTMLParamElement -instance IsHTMLElementOrLong HTMLParagraphElement -instance IsHTMLElementOrLong HTMLOutputElement -instance IsHTMLElementOrLong HTMLOptionElement -instance IsHTMLElementOrLong HTMLOptGroupElement -instance IsHTMLElementOrLong HTMLObjectElement -instance IsHTMLElementOrLong HTMLOListElement -instance IsHTMLElementOrLong HTMLModElement -instance IsHTMLElementOrLong HTMLMeterElement -instance IsHTMLElementOrLong HTMLMetaElement -instance IsHTMLElementOrLong HTMLMenuElement -instance IsHTMLElementOrLong HTMLMediaElement -instance IsHTMLElementOrLong HTMLMarqueeElement -instance IsHTMLElementOrLong HTMLMapElement -instance IsHTMLElementOrLong HTMLLinkElement -instance IsHTMLElementOrLong HTMLLegendElement -instance IsHTMLElementOrLong HTMLLabelElement -instance IsHTMLElementOrLong HTMLLIElement -instance IsHTMLElementOrLong HTMLKeygenElement -instance IsHTMLElementOrLong HTMLInputElement -instance IsHTMLElementOrLong HTMLImageElement -instance IsHTMLElementOrLong HTMLIFrameElement -instance IsHTMLElementOrLong HTMLHtmlElement -instance IsHTMLElementOrLong HTMLHeadingElement -instance IsHTMLElementOrLong HTMLHeadElement -instance IsHTMLElementOrLong HTMLHRElement -instance IsHTMLElementOrLong HTMLFrameSetElement -instance IsHTMLElementOrLong HTMLFrameElement -instance IsHTMLElementOrLong HTMLFormElement -instance IsHTMLElementOrLong HTMLFontElement -instance IsHTMLElementOrLong HTMLFieldSetElement -instance IsHTMLElementOrLong HTMLEmbedElement -instance IsHTMLElementOrLong HTMLDivElement -instance IsHTMLElementOrLong HTMLDirectoryElement -instance IsHTMLElementOrLong HTMLDetailsElement -instance IsHTMLElementOrLong HTMLDataListElement -instance IsHTMLElementOrLong HTMLDataElement -instance IsHTMLElementOrLong HTMLDListElement -instance IsHTMLElementOrLong HTMLCanvasElement -instance IsHTMLElementOrLong HTMLButtonElement -instance IsHTMLElementOrLong HTMLBodyElement -instance IsHTMLElementOrLong HTMLBaseElement -instance IsHTMLElementOrLong HTMLBRElement -instance IsHTMLElementOrLong HTMLAudioElement -instance IsHTMLElementOrLong HTMLAttachmentElement -instance IsHTMLElementOrLong HTMLAreaElement -instance IsHTMLElementOrLong HTMLAppletElement -instance IsHTMLElementOrLong HTMLAnchorElement - -newtype HTMLOptionElementOrGroup = HTMLOptionElementOrGroup { unHTMLOptionElementOrGroup :: JSVal } - -instance PToJSVal HTMLOptionElementOrGroup where - pToJSVal = unHTMLOptionElementOrGroup - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOptionElementOrGroup where - pFromJSVal = HTMLOptionElementOrGroup - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOptionElementOrGroup where - toJSVal = return . unHTMLOptionElementOrGroup - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOptionElementOrGroup where - fromJSVal v = fmap HTMLOptionElementOrGroup <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLOptionElementOrGroup - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLOptionElementOrGroup where - makeObject = makeObject . unHTMLOptionElementOrGroup - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsHTMLOptionElementOrGroup o - -toHTMLOptionElementOrGroup :: IsHTMLOptionElementOrGroup o => o -> HTMLOptionElementOrGroup -toHTMLOptionElementOrGroup = HTMLOptionElementOrGroup . coerce - -instance IsHTMLOptionElementOrGroup HTMLOptionElementOrGroup -instance IsHTMLOptionElementOrGroup HTMLOptGroupElement -instance IsHTMLOptionElementOrGroup HTMLOptionElement - -newtype IDBCursorSource = IDBCursorSource { unIDBCursorSource :: JSVal } - -instance PToJSVal IDBCursorSource where - pToJSVal = unIDBCursorSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBCursorSource where - pFromJSVal = IDBCursorSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBCursorSource where - toJSVal = return . unIDBCursorSource - {-# INLINE toJSVal #-} - -instance FromJSVal IDBCursorSource where - fromJSVal v = fmap IDBCursorSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBCursorSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBCursorSource where - makeObject = makeObject . unIDBCursorSource - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsIDBCursorSource o - -toIDBCursorSource :: IsIDBCursorSource o => o -> IDBCursorSource -toIDBCursorSource = IDBCursorSource . coerce - -instance IsIDBCursorSource IDBCursorSource -instance IsIDBCursorSource IDBIndex -instance IsIDBCursorSource IDBObjectStore - -newtype IDBKeyPath = IDBKeyPath { unIDBKeyPath :: JSVal } - -instance PToJSVal IDBKeyPath where - pToJSVal = unIDBKeyPath - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBKeyPath where - pFromJSVal = IDBKeyPath - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBKeyPath where - toJSVal = return . unIDBKeyPath - {-# INLINE toJSVal #-} - -instance FromJSVal IDBKeyPath where - fromJSVal v = fmap IDBKeyPath <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBKeyPath - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBKeyPath where - makeObject = makeObject . unIDBKeyPath - -class (FromJSVal o, ToJSVal o) => IsIDBKeyPath o - -instance IsIDBKeyPath IDBKeyPath -instance IsIDBKeyPath [Text] -instance IsIDBKeyPath [JSString] -instance IsIDBKeyPath [String] -instance IsIDBKeyPath Text -instance IsIDBKeyPath JSString -instance IsIDBKeyPath String - -newtype IDBRequestResult = IDBRequestResult { unIDBRequestResult :: JSVal } - -instance PToJSVal IDBRequestResult where - pToJSVal = unIDBRequestResult - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBRequestResult where - pFromJSVal = IDBRequestResult - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBRequestResult where - toJSVal = return . unIDBRequestResult - {-# INLINE toJSVal #-} - -instance FromJSVal IDBRequestResult where - fromJSVal v = fmap IDBRequestResult <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBRequestResult - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBRequestResult where - makeObject = makeObject . unIDBRequestResult - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsIDBRequestResult o - -toIDBRequestResult :: IsIDBRequestResult o => o -> IDBRequestResult -toIDBRequestResult = IDBRequestResult . coerce - -instance IsIDBRequestResult IDBRequestResult -instance IsIDBRequestResult JSVal -instance IsIDBRequestResult IDBDatabase -instance IsIDBRequestResult IDBCursor -instance IsIDBRequestResult IDBCursorWithValue - -newtype IDBRequestSource = IDBRequestSource { unIDBRequestSource :: JSVal } - -instance PToJSVal IDBRequestSource where - pToJSVal = unIDBRequestSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBRequestSource where - pFromJSVal = IDBRequestSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBRequestSource where - toJSVal = return . unIDBRequestSource - {-# INLINE toJSVal #-} - -instance FromJSVal IDBRequestSource where - fromJSVal v = fmap IDBRequestSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBRequestSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBRequestSource where - makeObject = makeObject . unIDBRequestSource - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsIDBRequestSource o - -toIDBRequestSource :: IsIDBRequestSource o => o -> IDBRequestSource -toIDBRequestSource = IDBRequestSource . coerce - -instance IsIDBRequestSource IDBRequestSource -instance IsIDBRequestSource IDBCursor -instance IsIDBRequestSource IDBCursorWithValue -instance IsIDBRequestSource IDBIndex -instance IsIDBRequestSource IDBObjectStore - -newtype Int32List = Int32List { unInt32List :: JSVal } - -instance PToJSVal Int32List where - pToJSVal = unInt32List - {-# INLINE pToJSVal #-} - -instance PFromJSVal Int32List where - pFromJSVal = Int32List - {-# INLINE pFromJSVal #-} - -instance ToJSVal Int32List where - toJSVal = return . unInt32List - {-# INLINE toJSVal #-} - -instance FromJSVal Int32List where - fromJSVal v = fmap Int32List <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Int32List - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Int32List where - makeObject = makeObject . unInt32List - -class (FromJSVal o, ToJSVal o) => IsInt32List o - -instance IsInt32List Int32List -instance IsInt32List [GLint] -instance IsInt32List Int32Array - -newtype KeyData = KeyData { unKeyData :: JSVal } - -instance PToJSVal KeyData where - pToJSVal = unKeyData - {-# INLINE pToJSVal #-} - -instance PFromJSVal KeyData where - pFromJSVal = KeyData - {-# INLINE pFromJSVal #-} - -instance ToJSVal KeyData where - toJSVal = return . unKeyData - {-# INLINE toJSVal #-} - -instance FromJSVal KeyData where - fromJSVal v = fmap KeyData <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . KeyData - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject KeyData where - makeObject = makeObject . unKeyData - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsKeyData o - -toKeyData :: IsKeyData o => o -> KeyData -toKeyData = KeyData . coerce - -instance IsKeyData KeyData -instance IsKeyData JsonWebKey -instance IsKeyData BinaryData -instance IsKeyData BufferSource -instance IsKeyData ArrayBufferView -instance IsKeyData ArrayBuffer - -newtype MediaProvider = MediaProvider { unMediaProvider :: JSVal } - -instance PToJSVal MediaProvider where - pToJSVal = unMediaProvider - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaProvider where - pFromJSVal = MediaProvider - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaProvider where - toJSVal = return . unMediaProvider - {-# INLINE toJSVal #-} - -instance FromJSVal MediaProvider where - fromJSVal v = fmap MediaProvider <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaProvider - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaProvider where - makeObject = makeObject . unMediaProvider - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsMediaProvider o - -toMediaProvider :: IsMediaProvider o => o -> MediaProvider -toMediaProvider = MediaProvider . coerce - -instance IsMediaProvider MediaProvider -instance IsMediaProvider MediaStream -instance IsMediaProvider MediaSource -instance IsMediaProvider Blob -instance IsMediaProvider File - -newtype MessageEventSource = MessageEventSource { unMessageEventSource :: JSVal } - -instance PToJSVal MessageEventSource where - pToJSVal = unMessageEventSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal MessageEventSource where - pFromJSVal = MessageEventSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal MessageEventSource where - toJSVal = return . unMessageEventSource - {-# INLINE toJSVal #-} - -instance FromJSVal MessageEventSource where - fromJSVal v = fmap MessageEventSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MessageEventSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MessageEventSource where - makeObject = makeObject . unMessageEventSource - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsMessageEventSource o - -toMessageEventSource :: IsMessageEventSource o => o -> MessageEventSource -toMessageEventSource = MessageEventSource . coerce - -instance IsMessageEventSource MessageEventSource -instance IsMessageEventSource MessagePort -instance IsMessageEventSource Window - -newtype NodeOrString = NodeOrString { unNodeOrString :: JSVal } - -instance PToJSVal NodeOrString where - pToJSVal = unNodeOrString - {-# INLINE pToJSVal #-} - -instance PFromJSVal NodeOrString where - pFromJSVal = NodeOrString - {-# INLINE pFromJSVal #-} - -instance ToJSVal NodeOrString where - toJSVal = return . unNodeOrString - {-# INLINE toJSVal #-} - -instance FromJSVal NodeOrString where - fromJSVal v = fmap NodeOrString <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NodeOrString - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NodeOrString where - makeObject = makeObject . unNodeOrString - -class (FromJSVal o, ToJSVal o) => IsNodeOrString o - -instance IsNodeOrString NodeOrString -instance IsNodeOrString Text -instance IsNodeOrString JSString -instance IsNodeOrString String -instance IsNodeOrString Node -instance IsNodeOrString XMLDocument -instance IsNodeOrString ShadowRoot -instance IsNodeOrString SVGViewElement -instance IsNodeOrString SVGVKernElement -instance IsNodeOrString SVGUseElement -instance IsNodeOrString SVGTitleElement -instance IsNodeOrString SVGTextPositioningElement -instance IsNodeOrString SVGTextPathElement -instance IsNodeOrString SVGTextElement -instance IsNodeOrString SVGTextContentElement -instance IsNodeOrString SVGTSpanElement -instance IsNodeOrString SVGTRefElement -instance IsNodeOrString SVGSymbolElement -instance IsNodeOrString SVGSwitchElement -instance IsNodeOrString SVGStyleElement -instance IsNodeOrString SVGStopElement -instance IsNodeOrString SVGSetElement -instance IsNodeOrString SVGScriptElement -instance IsNodeOrString SVGSVGElement -instance IsNodeOrString SVGRectElement -instance IsNodeOrString SVGRadialGradientElement -instance IsNodeOrString SVGPolylineElement -instance IsNodeOrString SVGPolygonElement -instance IsNodeOrString SVGPatternElement -instance IsNodeOrString SVGPathElement -instance IsNodeOrString SVGMissingGlyphElement -instance IsNodeOrString SVGMetadataElement -instance IsNodeOrString SVGMaskElement -instance IsNodeOrString SVGMarkerElement -instance IsNodeOrString SVGMPathElement -instance IsNodeOrString SVGLinearGradientElement -instance IsNodeOrString SVGLineElement -instance IsNodeOrString SVGImageElement -instance IsNodeOrString SVGHKernElement -instance IsNodeOrString SVGGraphicsElement -instance IsNodeOrString SVGGradientElement -instance IsNodeOrString SVGGlyphRefElement -instance IsNodeOrString SVGGlyphElement -instance IsNodeOrString SVGGElement -instance IsNodeOrString SVGForeignObjectElement -instance IsNodeOrString SVGFontFaceUriElement -instance IsNodeOrString SVGFontFaceSrcElement -instance IsNodeOrString SVGFontFaceNameElement -instance IsNodeOrString SVGFontFaceFormatElement -instance IsNodeOrString SVGFontFaceElement -instance IsNodeOrString SVGFontElement -instance IsNodeOrString SVGFilterElement -instance IsNodeOrString SVGFETurbulenceElement -instance IsNodeOrString SVGFETileElement -instance IsNodeOrString SVGFESpotLightElement -instance IsNodeOrString SVGFESpecularLightingElement -instance IsNodeOrString SVGFEPointLightElement -instance IsNodeOrString SVGFEOffsetElement -instance IsNodeOrString SVGFEMorphologyElement -instance IsNodeOrString SVGFEMergeNodeElement -instance IsNodeOrString SVGFEMergeElement -instance IsNodeOrString SVGFEImageElement -instance IsNodeOrString SVGFEGaussianBlurElement -instance IsNodeOrString SVGFEFuncRElement -instance IsNodeOrString SVGFEFuncGElement -instance IsNodeOrString SVGFEFuncBElement -instance IsNodeOrString SVGFEFuncAElement -instance IsNodeOrString SVGFEFloodElement -instance IsNodeOrString SVGFEDropShadowElement -instance IsNodeOrString SVGFEDistantLightElement -instance IsNodeOrString SVGFEDisplacementMapElement -instance IsNodeOrString SVGFEDiffuseLightingElement -instance IsNodeOrString SVGFEConvolveMatrixElement -instance IsNodeOrString SVGFECompositeElement -instance IsNodeOrString SVGFEComponentTransferElement -instance IsNodeOrString SVGFEColorMatrixElement -instance IsNodeOrString SVGFEBlendElement -instance IsNodeOrString SVGEllipseElement -instance IsNodeOrString SVGElement -instance IsNodeOrString SVGDescElement -instance IsNodeOrString SVGDefsElement -instance IsNodeOrString SVGCursorElement -instance IsNodeOrString SVGComponentTransferFunctionElement -instance IsNodeOrString SVGClipPathElement -instance IsNodeOrString SVGCircleElement -instance IsNodeOrString SVGAnimationElement -instance IsNodeOrString SVGAnimateTransformElement -instance IsNodeOrString SVGAnimateMotionElement -instance IsNodeOrString SVGAnimateElement -instance IsNodeOrString SVGAnimateColorElement -instance IsNodeOrString SVGAltGlyphItemElement -instance IsNodeOrString SVGAltGlyphElement -instance IsNodeOrString SVGAltGlyphDefElement -instance IsNodeOrString SVGAElement -instance IsNodeOrString ProcessingInstruction -instance IsNodeOrString HTMLVideoElement -instance IsNodeOrString HTMLUnknownElement -instance IsNodeOrString HTMLUListElement -instance IsNodeOrString HTMLTrackElement -instance IsNodeOrString HTMLTitleElement -instance IsNodeOrString HTMLTimeElement -instance IsNodeOrString HTMLTextAreaElement -instance IsNodeOrString HTMLTemplateElement -instance IsNodeOrString HTMLTableSectionElement -instance IsNodeOrString HTMLTableRowElement -instance IsNodeOrString HTMLTableElement -instance IsNodeOrString HTMLTableColElement -instance IsNodeOrString HTMLTableCellElement -instance IsNodeOrString HTMLTableCaptionElement -instance IsNodeOrString HTMLStyleElement -instance IsNodeOrString HTMLSpanElement -instance IsNodeOrString HTMLSourceElement -instance IsNodeOrString HTMLSlotElement -instance IsNodeOrString HTMLSelectElement -instance IsNodeOrString HTMLScriptElement -instance IsNodeOrString HTMLQuoteElement -instance IsNodeOrString HTMLProgressElement -instance IsNodeOrString HTMLPreElement -instance IsNodeOrString HTMLPictureElement -instance IsNodeOrString HTMLParamElement -instance IsNodeOrString HTMLParagraphElement -instance IsNodeOrString HTMLOutputElement -instance IsNodeOrString HTMLOptionElement -instance IsNodeOrString HTMLOptGroupElement -instance IsNodeOrString HTMLObjectElement -instance IsNodeOrString HTMLOListElement -instance IsNodeOrString HTMLModElement -instance IsNodeOrString HTMLMeterElement -instance IsNodeOrString HTMLMetaElement -instance IsNodeOrString HTMLMenuElement -instance IsNodeOrString HTMLMediaElement -instance IsNodeOrString HTMLMarqueeElement -instance IsNodeOrString HTMLMapElement -instance IsNodeOrString HTMLLinkElement -instance IsNodeOrString HTMLLegendElement -instance IsNodeOrString HTMLLabelElement -instance IsNodeOrString HTMLLIElement -instance IsNodeOrString HTMLKeygenElement -instance IsNodeOrString HTMLInputElement -instance IsNodeOrString HTMLImageElement -instance IsNodeOrString HTMLIFrameElement -instance IsNodeOrString HTMLHtmlElement -instance IsNodeOrString HTMLHeadingElement -instance IsNodeOrString HTMLHeadElement -instance IsNodeOrString HTMLHRElement -instance IsNodeOrString HTMLFrameSetElement -instance IsNodeOrString HTMLFrameElement -instance IsNodeOrString HTMLFormElement -instance IsNodeOrString HTMLFontElement -instance IsNodeOrString HTMLFieldSetElement -instance IsNodeOrString HTMLEmbedElement -instance IsNodeOrString HTMLElement -instance IsNodeOrString HTMLDocument -instance IsNodeOrString HTMLDivElement -instance IsNodeOrString HTMLDirectoryElement -instance IsNodeOrString HTMLDetailsElement -instance IsNodeOrString HTMLDataListElement -instance IsNodeOrString HTMLDataElement -instance IsNodeOrString HTMLDListElement -instance IsNodeOrString HTMLCanvasElement -instance IsNodeOrString HTMLButtonElement -instance IsNodeOrString HTMLBodyElement -instance IsNodeOrString HTMLBaseElement -instance IsNodeOrString HTMLBRElement -instance IsNodeOrString HTMLAudioElement -instance IsNodeOrString HTMLAttachmentElement -instance IsNodeOrString HTMLAreaElement -instance IsNodeOrString HTMLAppletElement -instance IsNodeOrString HTMLAnchorElement -instance IsNodeOrString Element -instance IsNodeOrString DocumentType -instance IsNodeOrString DocumentFragment -instance IsNodeOrString Document -instance IsNodeOrString Comment -instance IsNodeOrString CharacterData -instance IsNodeOrString CDATASection -instance IsNodeOrString Attr - -newtype RadioNodeListOrElement = RadioNodeListOrElement { unRadioNodeListOrElement :: JSVal } - -instance PToJSVal RadioNodeListOrElement where - pToJSVal = unRadioNodeListOrElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal RadioNodeListOrElement where - pFromJSVal = RadioNodeListOrElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal RadioNodeListOrElement where - toJSVal = return . unRadioNodeListOrElement - {-# INLINE toJSVal #-} - -instance FromJSVal RadioNodeListOrElement where - fromJSVal v = fmap RadioNodeListOrElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RadioNodeListOrElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RadioNodeListOrElement where - makeObject = makeObject . unRadioNodeListOrElement - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsRadioNodeListOrElement o - -toRadioNodeListOrElement :: IsRadioNodeListOrElement o => o -> RadioNodeListOrElement -toRadioNodeListOrElement = RadioNodeListOrElement . coerce - -instance IsRadioNodeListOrElement RadioNodeListOrElement -instance IsRadioNodeListOrElement Element -instance IsRadioNodeListOrElement SVGViewElement -instance IsRadioNodeListOrElement SVGVKernElement -instance IsRadioNodeListOrElement SVGUseElement -instance IsRadioNodeListOrElement SVGTitleElement -instance IsRadioNodeListOrElement SVGTextPositioningElement -instance IsRadioNodeListOrElement SVGTextPathElement -instance IsRadioNodeListOrElement SVGTextElement -instance IsRadioNodeListOrElement SVGTextContentElement -instance IsRadioNodeListOrElement SVGTSpanElement -instance IsRadioNodeListOrElement SVGTRefElement -instance IsRadioNodeListOrElement SVGSymbolElement -instance IsRadioNodeListOrElement SVGSwitchElement -instance IsRadioNodeListOrElement SVGStyleElement -instance IsRadioNodeListOrElement SVGStopElement -instance IsRadioNodeListOrElement SVGSetElement -instance IsRadioNodeListOrElement SVGScriptElement -instance IsRadioNodeListOrElement SVGSVGElement -instance IsRadioNodeListOrElement SVGRectElement -instance IsRadioNodeListOrElement SVGRadialGradientElement -instance IsRadioNodeListOrElement SVGPolylineElement -instance IsRadioNodeListOrElement SVGPolygonElement -instance IsRadioNodeListOrElement SVGPatternElement -instance IsRadioNodeListOrElement SVGPathElement -instance IsRadioNodeListOrElement SVGMissingGlyphElement -instance IsRadioNodeListOrElement SVGMetadataElement -instance IsRadioNodeListOrElement SVGMaskElement -instance IsRadioNodeListOrElement SVGMarkerElement -instance IsRadioNodeListOrElement SVGMPathElement -instance IsRadioNodeListOrElement SVGLinearGradientElement -instance IsRadioNodeListOrElement SVGLineElement -instance IsRadioNodeListOrElement SVGImageElement -instance IsRadioNodeListOrElement SVGHKernElement -instance IsRadioNodeListOrElement SVGGraphicsElement -instance IsRadioNodeListOrElement SVGGradientElement -instance IsRadioNodeListOrElement SVGGlyphRefElement -instance IsRadioNodeListOrElement SVGGlyphElement -instance IsRadioNodeListOrElement SVGGElement -instance IsRadioNodeListOrElement SVGForeignObjectElement -instance IsRadioNodeListOrElement SVGFontFaceUriElement -instance IsRadioNodeListOrElement SVGFontFaceSrcElement -instance IsRadioNodeListOrElement SVGFontFaceNameElement -instance IsRadioNodeListOrElement SVGFontFaceFormatElement -instance IsRadioNodeListOrElement SVGFontFaceElement -instance IsRadioNodeListOrElement SVGFontElement -instance IsRadioNodeListOrElement SVGFilterElement -instance IsRadioNodeListOrElement SVGFETurbulenceElement -instance IsRadioNodeListOrElement SVGFETileElement -instance IsRadioNodeListOrElement SVGFESpotLightElement -instance IsRadioNodeListOrElement SVGFESpecularLightingElement -instance IsRadioNodeListOrElement SVGFEPointLightElement -instance IsRadioNodeListOrElement SVGFEOffsetElement -instance IsRadioNodeListOrElement SVGFEMorphologyElement -instance IsRadioNodeListOrElement SVGFEMergeNodeElement -instance IsRadioNodeListOrElement SVGFEMergeElement -instance IsRadioNodeListOrElement SVGFEImageElement -instance IsRadioNodeListOrElement SVGFEGaussianBlurElement -instance IsRadioNodeListOrElement SVGFEFuncRElement -instance IsRadioNodeListOrElement SVGFEFuncGElement -instance IsRadioNodeListOrElement SVGFEFuncBElement -instance IsRadioNodeListOrElement SVGFEFuncAElement -instance IsRadioNodeListOrElement SVGFEFloodElement -instance IsRadioNodeListOrElement SVGFEDropShadowElement -instance IsRadioNodeListOrElement SVGFEDistantLightElement -instance IsRadioNodeListOrElement SVGFEDisplacementMapElement -instance IsRadioNodeListOrElement SVGFEDiffuseLightingElement -instance IsRadioNodeListOrElement SVGFEConvolveMatrixElement -instance IsRadioNodeListOrElement SVGFECompositeElement -instance IsRadioNodeListOrElement SVGFEComponentTransferElement -instance IsRadioNodeListOrElement SVGFEColorMatrixElement -instance IsRadioNodeListOrElement SVGFEBlendElement -instance IsRadioNodeListOrElement SVGEllipseElement -instance IsRadioNodeListOrElement SVGElement -instance IsRadioNodeListOrElement SVGDescElement -instance IsRadioNodeListOrElement SVGDefsElement -instance IsRadioNodeListOrElement SVGCursorElement -instance IsRadioNodeListOrElement SVGComponentTransferFunctionElement -instance IsRadioNodeListOrElement SVGClipPathElement -instance IsRadioNodeListOrElement SVGCircleElement -instance IsRadioNodeListOrElement SVGAnimationElement -instance IsRadioNodeListOrElement SVGAnimateTransformElement -instance IsRadioNodeListOrElement SVGAnimateMotionElement -instance IsRadioNodeListOrElement SVGAnimateElement -instance IsRadioNodeListOrElement SVGAnimateColorElement -instance IsRadioNodeListOrElement SVGAltGlyphItemElement -instance IsRadioNodeListOrElement SVGAltGlyphElement -instance IsRadioNodeListOrElement SVGAltGlyphDefElement -instance IsRadioNodeListOrElement SVGAElement -instance IsRadioNodeListOrElement HTMLVideoElement -instance IsRadioNodeListOrElement HTMLUnknownElement -instance IsRadioNodeListOrElement HTMLUListElement -instance IsRadioNodeListOrElement HTMLTrackElement -instance IsRadioNodeListOrElement HTMLTitleElement -instance IsRadioNodeListOrElement HTMLTimeElement -instance IsRadioNodeListOrElement HTMLTextAreaElement -instance IsRadioNodeListOrElement HTMLTemplateElement -instance IsRadioNodeListOrElement HTMLTableSectionElement -instance IsRadioNodeListOrElement HTMLTableRowElement -instance IsRadioNodeListOrElement HTMLTableElement -instance IsRadioNodeListOrElement HTMLTableColElement -instance IsRadioNodeListOrElement HTMLTableCellElement -instance IsRadioNodeListOrElement HTMLTableCaptionElement -instance IsRadioNodeListOrElement HTMLStyleElement -instance IsRadioNodeListOrElement HTMLSpanElement -instance IsRadioNodeListOrElement HTMLSourceElement -instance IsRadioNodeListOrElement HTMLSlotElement -instance IsRadioNodeListOrElement HTMLSelectElement -instance IsRadioNodeListOrElement HTMLScriptElement -instance IsRadioNodeListOrElement HTMLQuoteElement -instance IsRadioNodeListOrElement HTMLProgressElement -instance IsRadioNodeListOrElement HTMLPreElement -instance IsRadioNodeListOrElement HTMLPictureElement -instance IsRadioNodeListOrElement HTMLParamElement -instance IsRadioNodeListOrElement HTMLParagraphElement -instance IsRadioNodeListOrElement HTMLOutputElement -instance IsRadioNodeListOrElement HTMLOptionElement -instance IsRadioNodeListOrElement HTMLOptGroupElement -instance IsRadioNodeListOrElement HTMLObjectElement -instance IsRadioNodeListOrElement HTMLOListElement -instance IsRadioNodeListOrElement HTMLModElement -instance IsRadioNodeListOrElement HTMLMeterElement -instance IsRadioNodeListOrElement HTMLMetaElement -instance IsRadioNodeListOrElement HTMLMenuElement -instance IsRadioNodeListOrElement HTMLMediaElement -instance IsRadioNodeListOrElement HTMLMarqueeElement -instance IsRadioNodeListOrElement HTMLMapElement -instance IsRadioNodeListOrElement HTMLLinkElement -instance IsRadioNodeListOrElement HTMLLegendElement -instance IsRadioNodeListOrElement HTMLLabelElement -instance IsRadioNodeListOrElement HTMLLIElement -instance IsRadioNodeListOrElement HTMLKeygenElement -instance IsRadioNodeListOrElement HTMLInputElement -instance IsRadioNodeListOrElement HTMLImageElement -instance IsRadioNodeListOrElement HTMLIFrameElement -instance IsRadioNodeListOrElement HTMLHtmlElement -instance IsRadioNodeListOrElement HTMLHeadingElement -instance IsRadioNodeListOrElement HTMLHeadElement -instance IsRadioNodeListOrElement HTMLHRElement -instance IsRadioNodeListOrElement HTMLFrameSetElement -instance IsRadioNodeListOrElement HTMLFrameElement -instance IsRadioNodeListOrElement HTMLFormElement -instance IsRadioNodeListOrElement HTMLFontElement -instance IsRadioNodeListOrElement HTMLFieldSetElement -instance IsRadioNodeListOrElement HTMLEmbedElement -instance IsRadioNodeListOrElement HTMLElement -instance IsRadioNodeListOrElement HTMLDivElement -instance IsRadioNodeListOrElement HTMLDirectoryElement -instance IsRadioNodeListOrElement HTMLDetailsElement -instance IsRadioNodeListOrElement HTMLDataListElement -instance IsRadioNodeListOrElement HTMLDataElement -instance IsRadioNodeListOrElement HTMLDListElement -instance IsRadioNodeListOrElement HTMLCanvasElement -instance IsRadioNodeListOrElement HTMLButtonElement -instance IsRadioNodeListOrElement HTMLBodyElement -instance IsRadioNodeListOrElement HTMLBaseElement -instance IsRadioNodeListOrElement HTMLBRElement -instance IsRadioNodeListOrElement HTMLAudioElement -instance IsRadioNodeListOrElement HTMLAttachmentElement -instance IsRadioNodeListOrElement HTMLAreaElement -instance IsRadioNodeListOrElement HTMLAppletElement -instance IsRadioNodeListOrElement HTMLAnchorElement -instance IsRadioNodeListOrElement RadioNodeList - -newtype RenderingContext = RenderingContext { unRenderingContext :: JSVal } - -instance PToJSVal RenderingContext where - pToJSVal = unRenderingContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal RenderingContext where - pFromJSVal = RenderingContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal RenderingContext where - toJSVal = return . unRenderingContext - {-# INLINE toJSVal #-} - -instance FromJSVal RenderingContext where - fromJSVal v = fmap RenderingContext <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RenderingContext - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RenderingContext where - makeObject = makeObject . unRenderingContext - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsRenderingContext o - -toRenderingContext :: IsRenderingContext o => o -> RenderingContext -toRenderingContext = RenderingContext . coerce - -instance IsRenderingContext RenderingContext -instance IsRenderingContext WebGLRenderingContextBase -instance IsRenderingContext WebGLRenderingContext -instance IsRenderingContext WebGL2RenderingContext -instance IsRenderingContext CanvasRenderingContext2D - -newtype SQLValue = SQLValue { unSQLValue :: JSVal } - -instance PToJSVal SQLValue where - pToJSVal = unSQLValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLValue where - pFromJSVal = SQLValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLValue where - toJSVal = return . unSQLValue - {-# INLINE toJSVal #-} - -instance FromJSVal SQLValue where - fromJSVal v = fmap SQLValue <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SQLValue - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SQLValue where - makeObject = makeObject . unSQLValue - -class (FromJSVal o, ToJSVal o) => IsSQLValue o - -instance IsSQLValue SQLValue -instance IsSQLValue (Maybe Text) -instance IsSQLValue (Maybe JSString) -instance IsSQLValue (Maybe String) -instance IsSQLValue Double - -newtype StringOrArrayBuffer = StringOrArrayBuffer { unStringOrArrayBuffer :: JSVal } - -instance PToJSVal StringOrArrayBuffer where - pToJSVal = unStringOrArrayBuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal StringOrArrayBuffer where - pFromJSVal = StringOrArrayBuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal StringOrArrayBuffer where - toJSVal = return . unStringOrArrayBuffer - {-# INLINE toJSVal #-} - -instance FromJSVal StringOrArrayBuffer where - fromJSVal v = fmap StringOrArrayBuffer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StringOrArrayBuffer - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StringOrArrayBuffer where - makeObject = makeObject . unStringOrArrayBuffer - -class (FromJSVal o, ToJSVal o) => IsStringOrArrayBuffer o - -instance IsStringOrArrayBuffer StringOrArrayBuffer -instance IsStringOrArrayBuffer ArrayBuffer -instance IsStringOrArrayBuffer Text -instance IsStringOrArrayBuffer JSString -instance IsStringOrArrayBuffer String - -newtype StringOrBinaryData = StringOrBinaryData { unStringOrBinaryData :: JSVal } - -instance PToJSVal StringOrBinaryData where - pToJSVal = unStringOrBinaryData - {-# INLINE pToJSVal #-} - -instance PFromJSVal StringOrBinaryData where - pFromJSVal = StringOrBinaryData - {-# INLINE pFromJSVal #-} - -instance ToJSVal StringOrBinaryData where - toJSVal = return . unStringOrBinaryData - {-# INLINE toJSVal #-} - -instance FromJSVal StringOrBinaryData where - fromJSVal v = fmap StringOrBinaryData <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StringOrBinaryData - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StringOrBinaryData where - makeObject = makeObject . unStringOrBinaryData - -class (FromJSVal o, ToJSVal o) => IsStringOrBinaryData o - -instance IsStringOrBinaryData StringOrBinaryData -instance IsStringOrBinaryData BinaryData -instance IsStringOrBinaryData BufferSource -instance IsStringOrBinaryData ArrayBufferView -instance IsStringOrBinaryData ArrayBuffer -instance IsStringOrBinaryData Text -instance IsStringOrBinaryData JSString -instance IsStringOrBinaryData String - -newtype StringOrStrings = StringOrStrings { unStringOrStrings :: JSVal } - -instance PToJSVal StringOrStrings where - pToJSVal = unStringOrStrings - {-# INLINE pToJSVal #-} - -instance PFromJSVal StringOrStrings where - pFromJSVal = StringOrStrings - {-# INLINE pFromJSVal #-} - -instance ToJSVal StringOrStrings where - toJSVal = return . unStringOrStrings - {-# INLINE toJSVal #-} - -instance FromJSVal StringOrStrings where - fromJSVal v = fmap StringOrStrings <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StringOrStrings - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StringOrStrings where - makeObject = makeObject . unStringOrStrings - -class (FromJSVal o, ToJSVal o) => IsStringOrStrings o - -instance IsStringOrStrings StringOrStrings -instance IsStringOrStrings [Text] -instance IsStringOrStrings [JSString] -instance IsStringOrStrings [String] -instance IsStringOrStrings Text -instance IsStringOrStrings JSString -instance IsStringOrStrings String - -newtype TexImageSource = TexImageSource { unTexImageSource :: JSVal } - -instance PToJSVal TexImageSource where - pToJSVal = unTexImageSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal TexImageSource where - pFromJSVal = TexImageSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal TexImageSource where - toJSVal = return . unTexImageSource - {-# INLINE toJSVal #-} - -instance FromJSVal TexImageSource where - fromJSVal v = fmap TexImageSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TexImageSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TexImageSource where - makeObject = makeObject . unTexImageSource - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsTexImageSource o - -toTexImageSource :: IsTexImageSource o => o -> TexImageSource -toTexImageSource = TexImageSource . coerce - -instance IsTexImageSource TexImageSource -instance IsTexImageSource ImageData -instance IsTexImageSource HTMLImageElement -instance IsTexImageSource HTMLVideoElement -instance IsTexImageSource HTMLCanvasElement - -newtype Track = Track { unTrack :: JSVal } - -instance PToJSVal Track where - pToJSVal = unTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal Track where - pFromJSVal = Track - {-# INLINE pFromJSVal #-} - -instance ToJSVal Track where - toJSVal = return . unTrack - {-# INLINE toJSVal #-} - -instance FromJSVal Track where - fromJSVal v = fmap Track <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Track - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Track where - makeObject = makeObject . unTrack - -class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsTrack o - -toTrack :: IsTrack o => o -> Track -toTrack = Track . coerce - -instance IsTrack Track -instance IsTrack TextTrack -instance IsTrack AudioTrack -instance IsTrack VideoTrack - -newtype URLSearchParamsInit = URLSearchParamsInit { unURLSearchParamsInit :: JSVal } - -instance PToJSVal URLSearchParamsInit where - pToJSVal = unURLSearchParamsInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal URLSearchParamsInit where - pFromJSVal = URLSearchParamsInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal URLSearchParamsInit where - toJSVal = return . unURLSearchParamsInit - {-# INLINE toJSVal #-} - -instance FromJSVal URLSearchParamsInit where - fromJSVal v = fmap URLSearchParamsInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . URLSearchParamsInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject URLSearchParamsInit where - makeObject = makeObject . unURLSearchParamsInit - -class (FromJSVal o, ToJSVal o) => IsURLSearchParamsInit o - -instance IsURLSearchParamsInit URLSearchParamsInit -instance IsURLSearchParamsInit Text -instance IsURLSearchParamsInit JSString -instance IsURLSearchParamsInit String -instance IsURLSearchParamsInit [[Text]] -instance IsURLSearchParamsInit [[JSString]] -instance IsURLSearchParamsInit [[String]] - -newtype XMLHttpRequestBody = XMLHttpRequestBody { unXMLHttpRequestBody :: JSVal } - -instance PToJSVal XMLHttpRequestBody where - pToJSVal = unXMLHttpRequestBody - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLHttpRequestBody where - pFromJSVal = XMLHttpRequestBody - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLHttpRequestBody where - toJSVal = return . unXMLHttpRequestBody - {-# INLINE toJSVal #-} - -instance FromJSVal XMLHttpRequestBody where - fromJSVal v = fmap XMLHttpRequestBody <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XMLHttpRequestBody - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XMLHttpRequestBody where - makeObject = makeObject . unXMLHttpRequestBody - -class (FromJSVal o, ToJSVal o) => IsXMLHttpRequestBody o - -instance IsXMLHttpRequestBody XMLHttpRequestBody -instance IsXMLHttpRequestBody BodyInit -instance IsXMLHttpRequestBody Blob -instance IsXMLHttpRequestBody BinaryData -instance IsXMLHttpRequestBody BufferSource -instance IsXMLHttpRequestBody ArrayBufferView -instance IsXMLHttpRequestBody ArrayBuffer -instance IsXMLHttpRequestBody FormData -instance IsXMLHttpRequestBody Text -instance IsXMLHttpRequestBody JSString -instance IsXMLHttpRequestBody String -instance IsXMLHttpRequestBody Document -instance IsXMLHttpRequestBody XMLDocument -instance IsXMLHttpRequestBody HTMLDocument - - --- | Functions for this inteface are in "JSDOM.ANGLEInstancedArrays". --- --- -newtype ANGLEInstancedArrays = ANGLEInstancedArrays { unANGLEInstancedArrays :: JSVal } - -instance PToJSVal ANGLEInstancedArrays where - pToJSVal = unANGLEInstancedArrays - {-# INLINE pToJSVal #-} - -instance PFromJSVal ANGLEInstancedArrays where - pFromJSVal = ANGLEInstancedArrays - {-# INLINE pFromJSVal #-} - -instance ToJSVal ANGLEInstancedArrays where - toJSVal = return . unANGLEInstancedArrays - {-# INLINE toJSVal #-} - -instance FromJSVal ANGLEInstancedArrays where - fromJSVal v = fmap ANGLEInstancedArrays <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ANGLEInstancedArrays - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ANGLEInstancedArrays where - makeObject = makeObject . unANGLEInstancedArrays - -instance IsGObject ANGLEInstancedArrays where - typeGType _ = gTypeANGLEInstancedArrays - {-# INLINE typeGType #-} - -gTypeANGLEInstancedArrays :: JSM GType -gTypeANGLEInstancedArrays = GType . Object <$> jsg "ANGLEInstancedArrays" - --- | Functions for this inteface are in "JSDOM.AbstractWorker". --- --- -newtype AbstractWorker = AbstractWorker { unAbstractWorker :: JSVal } - -instance PToJSVal AbstractWorker where - pToJSVal = unAbstractWorker - {-# INLINE pToJSVal #-} - -instance PFromJSVal AbstractWorker where - pFromJSVal = AbstractWorker - {-# INLINE pFromJSVal #-} - -instance ToJSVal AbstractWorker where - toJSVal = return . unAbstractWorker - {-# INLINE toJSVal #-} - -instance FromJSVal AbstractWorker where - fromJSVal v = fmap AbstractWorker <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AbstractWorker - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AbstractWorker where - makeObject = makeObject . unAbstractWorker - -class (IsGObject o) => IsAbstractWorker o -toAbstractWorker :: IsAbstractWorker o => o -> AbstractWorker -toAbstractWorker = AbstractWorker . coerce - -instance IsAbstractWorker AbstractWorker -instance IsGObject AbstractWorker where - typeGType _ = gTypeAbstractWorker - {-# INLINE typeGType #-} - -gTypeAbstractWorker :: JSM GType -gTypeAbstractWorker = GType . Object <$> jsg "AbstractWorker" - --- | Functions for this inteface are in "JSDOM.Acceleration". --- --- -newtype Acceleration = Acceleration { unAcceleration :: JSVal } - -instance PToJSVal Acceleration where - pToJSVal = unAcceleration - {-# INLINE pToJSVal #-} - -instance PFromJSVal Acceleration where - pFromJSVal = Acceleration - {-# INLINE pFromJSVal #-} - -instance ToJSVal Acceleration where - toJSVal = return . unAcceleration - {-# INLINE toJSVal #-} - -instance FromJSVal Acceleration where - fromJSVal v = fmap Acceleration <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Acceleration - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Acceleration where - makeObject = makeObject . unAcceleration - -instance IsGObject Acceleration where - typeGType _ = gTypeAcceleration - {-# INLINE typeGType #-} - -gTypeAcceleration :: JSM GType -gTypeAcceleration = GType . Object <$> jsg "Acceleration" - --- | Functions for this inteface are in "JSDOM.AddEventListenerOptions". --- Base interface functions are in: --- --- * "JSDOM.EventListenerOptions" --- --- -newtype AddEventListenerOptions = AddEventListenerOptions { unAddEventListenerOptions :: JSVal } - -instance PToJSVal AddEventListenerOptions where - pToJSVal = unAddEventListenerOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal AddEventListenerOptions where - pFromJSVal = AddEventListenerOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal AddEventListenerOptions where - toJSVal = return . unAddEventListenerOptions - {-# INLINE toJSVal #-} - -instance FromJSVal AddEventListenerOptions where - fromJSVal v = fmap AddEventListenerOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AddEventListenerOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AddEventListenerOptions where - makeObject = makeObject . unAddEventListenerOptions - -instance IsEventListenerOptions AddEventListenerOptions -instance IsGObject AddEventListenerOptions where - typeGType _ = gTypeAddEventListenerOptions - {-# INLINE typeGType #-} - -gTypeAddEventListenerOptions :: JSM GType -gTypeAddEventListenerOptions = GType . Object <$> jsg "AddEventListenerOptions" - --- | Functions for this inteface are in "JSDOM.AesCbcParams". --- Base interface functions are in: --- --- * "JSDOM.CryptoAlgorithmParameters" --- --- -newtype AesCbcParams = AesCbcParams { unAesCbcParams :: JSVal } - -instance PToJSVal AesCbcParams where - pToJSVal = unAesCbcParams - {-# INLINE pToJSVal #-} - -instance PFromJSVal AesCbcParams where - pFromJSVal = AesCbcParams - {-# INLINE pFromJSVal #-} - -instance ToJSVal AesCbcParams where - toJSVal = return . unAesCbcParams - {-# INLINE toJSVal #-} - -instance FromJSVal AesCbcParams where - fromJSVal v = fmap AesCbcParams <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AesCbcParams - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AesCbcParams where - makeObject = makeObject . unAesCbcParams - -instance IsCryptoAlgorithmParameters AesCbcParams -instance IsGObject AesCbcParams where - typeGType _ = gTypeAesCbcParams - {-# INLINE typeGType #-} - -gTypeAesCbcParams :: JSM GType -gTypeAesCbcParams = GType . Object <$> jsg "AesCbcParams" - --- | Functions for this inteface are in "JSDOM.AesKeyGenParams". --- Base interface functions are in: --- --- * "JSDOM.CryptoAlgorithmParameters" --- --- -newtype AesKeyGenParams = AesKeyGenParams { unAesKeyGenParams :: JSVal } - -instance PToJSVal AesKeyGenParams where - pToJSVal = unAesKeyGenParams - {-# INLINE pToJSVal #-} - -instance PFromJSVal AesKeyGenParams where - pFromJSVal = AesKeyGenParams - {-# INLINE pFromJSVal #-} - -instance ToJSVal AesKeyGenParams where - toJSVal = return . unAesKeyGenParams - {-# INLINE toJSVal #-} - -instance FromJSVal AesKeyGenParams where - fromJSVal v = fmap AesKeyGenParams <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AesKeyGenParams - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AesKeyGenParams where - makeObject = makeObject . unAesKeyGenParams - -instance IsCryptoAlgorithmParameters AesKeyGenParams -instance IsGObject AesKeyGenParams where - typeGType _ = gTypeAesKeyGenParams - {-# INLINE typeGType #-} - -gTypeAesKeyGenParams :: JSM GType -gTypeAesKeyGenParams = GType . Object <$> jsg "AesKeyGenParams" - --- | Functions for this inteface are in "JSDOM.AnalyserNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype AnalyserNode = AnalyserNode { unAnalyserNode :: JSVal } - -instance PToJSVal AnalyserNode where - pToJSVal = unAnalyserNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal AnalyserNode where - pFromJSVal = AnalyserNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal AnalyserNode where - toJSVal = return . unAnalyserNode - {-# INLINE toJSVal #-} - -instance FromJSVal AnalyserNode where - fromJSVal v = fmap AnalyserNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AnalyserNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AnalyserNode where - makeObject = makeObject . unAnalyserNode - -instance IsAudioNode AnalyserNode -instance IsEventTarget AnalyserNode -instance IsGObject AnalyserNode where - typeGType _ = gTypeAnalyserNode - {-# INLINE typeGType #-} - -gTypeAnalyserNode :: JSM GType -gTypeAnalyserNode = GType . Object <$> jsg "AnalyserNode" - --- | Functions for this inteface are in "JSDOM.Animatable". --- --- -newtype Animatable = Animatable { unAnimatable :: JSVal } - -instance PToJSVal Animatable where - pToJSVal = unAnimatable - {-# INLINE pToJSVal #-} - -instance PFromJSVal Animatable where - pFromJSVal = Animatable - {-# INLINE pFromJSVal #-} - -instance ToJSVal Animatable where - toJSVal = return . unAnimatable - {-# INLINE toJSVal #-} - -instance FromJSVal Animatable where - fromJSVal v = fmap Animatable <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Animatable - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Animatable where - makeObject = makeObject . unAnimatable - -class (IsGObject o) => IsAnimatable o -toAnimatable :: IsAnimatable o => o -> Animatable -toAnimatable = Animatable . coerce - -instance IsAnimatable Animatable -instance IsGObject Animatable where - typeGType _ = gTypeAnimatable - {-# INLINE typeGType #-} - -gTypeAnimatable :: JSM GType -gTypeAnimatable = GType . Object <$> jsg "Animatable" - --- | Functions for this inteface are in "JSDOM.Animation". --- --- -newtype Animation = Animation { unAnimation :: JSVal } - -instance PToJSVal Animation where - pToJSVal = unAnimation - {-# INLINE pToJSVal #-} - -instance PFromJSVal Animation where - pFromJSVal = Animation - {-# INLINE pFromJSVal #-} - -instance ToJSVal Animation where - toJSVal = return . unAnimation - {-# INLINE toJSVal #-} - -instance FromJSVal Animation where - fromJSVal v = fmap Animation <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Animation - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Animation where - makeObject = makeObject . unAnimation - -instance IsGObject Animation where - typeGType _ = gTypeAnimation - {-# INLINE typeGType #-} - -gTypeAnimation :: JSM GType -gTypeAnimation = GType . Object <$> jsg "Animation" - --- | Functions for this inteface are in "JSDOM.AnimationEffect". --- --- -newtype AnimationEffect = AnimationEffect { unAnimationEffect :: JSVal } - -instance PToJSVal AnimationEffect where - pToJSVal = unAnimationEffect - {-# INLINE pToJSVal #-} - -instance PFromJSVal AnimationEffect where - pFromJSVal = AnimationEffect - {-# INLINE pFromJSVal #-} - -instance ToJSVal AnimationEffect where - toJSVal = return . unAnimationEffect - {-# INLINE toJSVal #-} - -instance FromJSVal AnimationEffect where - fromJSVal v = fmap AnimationEffect <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AnimationEffect - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AnimationEffect where - makeObject = makeObject . unAnimationEffect - -class (IsGObject o) => IsAnimationEffect o -toAnimationEffect :: IsAnimationEffect o => o -> AnimationEffect -toAnimationEffect = AnimationEffect . coerce - -instance IsAnimationEffect AnimationEffect -instance IsGObject AnimationEffect where - typeGType _ = gTypeAnimationEffect - {-# INLINE typeGType #-} - -gTypeAnimationEffect :: JSM GType -gTypeAnimationEffect = GType . Object <$> jsg "AnimationEffect" - --- | Functions for this inteface are in "JSDOM.AnimationEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype AnimationEvent = AnimationEvent { unAnimationEvent :: JSVal } - -instance PToJSVal AnimationEvent where - pToJSVal = unAnimationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal AnimationEvent where - pFromJSVal = AnimationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal AnimationEvent where - toJSVal = return . unAnimationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal AnimationEvent where - fromJSVal v = fmap AnimationEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AnimationEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AnimationEvent where - makeObject = makeObject . unAnimationEvent - -instance IsEvent AnimationEvent -instance IsGObject AnimationEvent where - typeGType _ = gTypeAnimationEvent - {-# INLINE typeGType #-} - -gTypeAnimationEvent :: JSM GType -gTypeAnimationEvent = GType . Object <$> jsg "AnimationEvent" - --- | Functions for this inteface are in "JSDOM.AnimationEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype AnimationEventInit = AnimationEventInit { unAnimationEventInit :: JSVal } - -instance PToJSVal AnimationEventInit where - pToJSVal = unAnimationEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal AnimationEventInit where - pFromJSVal = AnimationEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal AnimationEventInit where - toJSVal = return . unAnimationEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal AnimationEventInit where - fromJSVal v = fmap AnimationEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AnimationEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AnimationEventInit where - makeObject = makeObject . unAnimationEventInit - -instance IsEventInit AnimationEventInit -instance IsGObject AnimationEventInit where - typeGType _ = gTypeAnimationEventInit - {-# INLINE typeGType #-} - -gTypeAnimationEventInit :: JSM GType -gTypeAnimationEventInit = GType . Object <$> jsg "AnimationEventInit" - --- | Functions for this inteface are in "JSDOM.AnimationTimeline". --- --- -newtype AnimationTimeline = AnimationTimeline { unAnimationTimeline :: JSVal } - -instance PToJSVal AnimationTimeline where - pToJSVal = unAnimationTimeline - {-# INLINE pToJSVal #-} - -instance PFromJSVal AnimationTimeline where - pFromJSVal = AnimationTimeline - {-# INLINE pFromJSVal #-} - -instance ToJSVal AnimationTimeline where - toJSVal = return . unAnimationTimeline - {-# INLINE toJSVal #-} - -instance FromJSVal AnimationTimeline where - fromJSVal v = fmap AnimationTimeline <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AnimationTimeline - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AnimationTimeline where - makeObject = makeObject . unAnimationTimeline - -class (IsGObject o) => IsAnimationTimeline o -toAnimationTimeline :: IsAnimationTimeline o => o -> AnimationTimeline -toAnimationTimeline = AnimationTimeline . coerce - -instance IsAnimationTimeline AnimationTimeline -instance IsGObject AnimationTimeline where - typeGType _ = gTypeAnimationTimeline - {-# INLINE typeGType #-} - -gTypeAnimationTimeline :: JSM GType -gTypeAnimationTimeline = GType . Object <$> jsg "AnimationTimeline" - --- | Functions for this inteface are in "JSDOM.ApplePayLineItem". --- --- -newtype ApplePayLineItem = ApplePayLineItem { unApplePayLineItem :: JSVal } - -instance PToJSVal ApplePayLineItem where - pToJSVal = unApplePayLineItem - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayLineItem where - pFromJSVal = ApplePayLineItem - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayLineItem where - toJSVal = return . unApplePayLineItem - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayLineItem where - fromJSVal v = fmap ApplePayLineItem <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayLineItem - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayLineItem where - makeObject = makeObject . unApplePayLineItem - -instance IsGObject ApplePayLineItem where - typeGType _ = gTypeApplePayLineItem - {-# INLINE typeGType #-} - -gTypeApplePayLineItem :: JSM GType -gTypeApplePayLineItem = GType . Object <$> jsg "ApplePayLineItem" - --- | Functions for this inteface are in "JSDOM.ApplePayPayment". --- --- -newtype ApplePayPayment = ApplePayPayment { unApplePayPayment :: JSVal } - -instance PToJSVal ApplePayPayment where - pToJSVal = unApplePayPayment - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayPayment where - pFromJSVal = ApplePayPayment - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayPayment where - toJSVal = return . unApplePayPayment - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayPayment where - fromJSVal v = fmap ApplePayPayment <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayPayment - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayPayment where - makeObject = makeObject . unApplePayPayment - -instance IsGObject ApplePayPayment where - typeGType _ = gTypeApplePayPayment - {-# INLINE typeGType #-} - -gTypeApplePayPayment :: JSM GType -gTypeApplePayPayment = GType . Object <$> jsg "ApplePayPayment" - --- | Functions for this inteface are in "JSDOM.ApplePayPaymentAuthorizedEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype ApplePayPaymentAuthorizedEvent = ApplePayPaymentAuthorizedEvent { unApplePayPaymentAuthorizedEvent :: JSVal } - -instance PToJSVal ApplePayPaymentAuthorizedEvent where - pToJSVal = unApplePayPaymentAuthorizedEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayPaymentAuthorizedEvent where - pFromJSVal = ApplePayPaymentAuthorizedEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayPaymentAuthorizedEvent where - toJSVal = return . unApplePayPaymentAuthorizedEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayPaymentAuthorizedEvent where - fromJSVal v = fmap ApplePayPaymentAuthorizedEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayPaymentAuthorizedEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayPaymentAuthorizedEvent where - makeObject = makeObject . unApplePayPaymentAuthorizedEvent - -instance IsEvent ApplePayPaymentAuthorizedEvent -instance IsGObject ApplePayPaymentAuthorizedEvent where - typeGType _ = gTypeApplePayPaymentAuthorizedEvent - {-# INLINE typeGType #-} - -gTypeApplePayPaymentAuthorizedEvent :: JSM GType -gTypeApplePayPaymentAuthorizedEvent = GType . Object <$> jsg "ApplePayPaymentAuthorizedEvent" - --- | Functions for this inteface are in "JSDOM.ApplePayPaymentContact". --- --- -newtype ApplePayPaymentContact = ApplePayPaymentContact { unApplePayPaymentContact :: JSVal } - -instance PToJSVal ApplePayPaymentContact where - pToJSVal = unApplePayPaymentContact - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayPaymentContact where - pFromJSVal = ApplePayPaymentContact - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayPaymentContact where - toJSVal = return . unApplePayPaymentContact - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayPaymentContact where - fromJSVal v = fmap ApplePayPaymentContact <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayPaymentContact - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayPaymentContact where - makeObject = makeObject . unApplePayPaymentContact - -instance IsGObject ApplePayPaymentContact where - typeGType _ = gTypeApplePayPaymentContact - {-# INLINE typeGType #-} - -gTypeApplePayPaymentContact :: JSM GType -gTypeApplePayPaymentContact = GType . Object <$> jsg "ApplePayPaymentContact" - --- | Functions for this inteface are in "JSDOM.ApplePayPaymentMethod". --- --- -newtype ApplePayPaymentMethod = ApplePayPaymentMethod { unApplePayPaymentMethod :: JSVal } - -instance PToJSVal ApplePayPaymentMethod where - pToJSVal = unApplePayPaymentMethod - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayPaymentMethod where - pFromJSVal = ApplePayPaymentMethod - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayPaymentMethod where - toJSVal = return . unApplePayPaymentMethod - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayPaymentMethod where - fromJSVal v = fmap ApplePayPaymentMethod <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayPaymentMethod - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayPaymentMethod where - makeObject = makeObject . unApplePayPaymentMethod - -instance IsGObject ApplePayPaymentMethod where - typeGType _ = gTypeApplePayPaymentMethod - {-# INLINE typeGType #-} - -gTypeApplePayPaymentMethod :: JSM GType -gTypeApplePayPaymentMethod = GType . Object <$> jsg "ApplePayPaymentMethod" - --- | Functions for this inteface are in "JSDOM.ApplePayPaymentMethodSelectedEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype ApplePayPaymentMethodSelectedEvent = ApplePayPaymentMethodSelectedEvent { unApplePayPaymentMethodSelectedEvent :: JSVal } - -instance PToJSVal ApplePayPaymentMethodSelectedEvent where - pToJSVal = unApplePayPaymentMethodSelectedEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayPaymentMethodSelectedEvent where - pFromJSVal = ApplePayPaymentMethodSelectedEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayPaymentMethodSelectedEvent where - toJSVal = return . unApplePayPaymentMethodSelectedEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayPaymentMethodSelectedEvent where - fromJSVal v = fmap ApplePayPaymentMethodSelectedEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayPaymentMethodSelectedEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayPaymentMethodSelectedEvent where - makeObject = makeObject . unApplePayPaymentMethodSelectedEvent - -instance IsEvent ApplePayPaymentMethodSelectedEvent -instance IsGObject ApplePayPaymentMethodSelectedEvent where - typeGType _ = gTypeApplePayPaymentMethodSelectedEvent - {-# INLINE typeGType #-} - -gTypeApplePayPaymentMethodSelectedEvent :: JSM GType -gTypeApplePayPaymentMethodSelectedEvent = GType . Object <$> jsg "ApplePayPaymentMethodSelectedEvent" - --- | Functions for this inteface are in "JSDOM.ApplePayPaymentPass". --- --- -newtype ApplePayPaymentPass = ApplePayPaymentPass { unApplePayPaymentPass :: JSVal } - -instance PToJSVal ApplePayPaymentPass where - pToJSVal = unApplePayPaymentPass - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayPaymentPass where - pFromJSVal = ApplePayPaymentPass - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayPaymentPass where - toJSVal = return . unApplePayPaymentPass - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayPaymentPass where - fromJSVal v = fmap ApplePayPaymentPass <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayPaymentPass - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayPaymentPass where - makeObject = makeObject . unApplePayPaymentPass - -instance IsGObject ApplePayPaymentPass where - typeGType _ = gTypeApplePayPaymentPass - {-# INLINE typeGType #-} - -gTypeApplePayPaymentPass :: JSM GType -gTypeApplePayPaymentPass = GType . Object <$> jsg "ApplePayPaymentPass" - --- | Functions for this inteface are in "JSDOM.ApplePayPaymentRequest". --- --- -newtype ApplePayPaymentRequest = ApplePayPaymentRequest { unApplePayPaymentRequest :: JSVal } - -instance PToJSVal ApplePayPaymentRequest where - pToJSVal = unApplePayPaymentRequest - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayPaymentRequest where - pFromJSVal = ApplePayPaymentRequest - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayPaymentRequest where - toJSVal = return . unApplePayPaymentRequest - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayPaymentRequest where - fromJSVal v = fmap ApplePayPaymentRequest <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayPaymentRequest - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayPaymentRequest where - makeObject = makeObject . unApplePayPaymentRequest - -instance IsGObject ApplePayPaymentRequest where - typeGType _ = gTypeApplePayPaymentRequest - {-# INLINE typeGType #-} - -gTypeApplePayPaymentRequest :: JSM GType -gTypeApplePayPaymentRequest = GType . Object <$> jsg "ApplePayPaymentRequest" - --- | Functions for this inteface are in "JSDOM.ApplePayPaymentToken". --- --- -newtype ApplePayPaymentToken = ApplePayPaymentToken { unApplePayPaymentToken :: JSVal } - -instance PToJSVal ApplePayPaymentToken where - pToJSVal = unApplePayPaymentToken - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayPaymentToken where - pFromJSVal = ApplePayPaymentToken - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayPaymentToken where - toJSVal = return . unApplePayPaymentToken - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayPaymentToken where - fromJSVal v = fmap ApplePayPaymentToken <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayPaymentToken - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayPaymentToken where - makeObject = makeObject . unApplePayPaymentToken - -instance IsGObject ApplePayPaymentToken where - typeGType _ = gTypeApplePayPaymentToken - {-# INLINE typeGType #-} - -gTypeApplePayPaymentToken :: JSM GType -gTypeApplePayPaymentToken = GType . Object <$> jsg "ApplePayPaymentToken" - --- | Functions for this inteface are in "JSDOM.ApplePaySession". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype ApplePaySession = ApplePaySession { unApplePaySession :: JSVal } - -instance PToJSVal ApplePaySession where - pToJSVal = unApplePaySession - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePaySession where - pFromJSVal = ApplePaySession - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePaySession where - toJSVal = return . unApplePaySession - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePaySession where - fromJSVal v = fmap ApplePaySession <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePaySession - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePaySession where - makeObject = makeObject . unApplePaySession - -instance IsEventTarget ApplePaySession -instance IsGObject ApplePaySession where - typeGType _ = gTypeApplePaySession - {-# INLINE typeGType #-} - -gTypeApplePaySession :: JSM GType -gTypeApplePaySession = GType . Object <$> jsg "ApplePaySession" - --- | Functions for this inteface are in "JSDOM.ApplePayShippingContactSelectedEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype ApplePayShippingContactSelectedEvent = ApplePayShippingContactSelectedEvent { unApplePayShippingContactSelectedEvent :: JSVal } - -instance PToJSVal ApplePayShippingContactSelectedEvent where - pToJSVal = unApplePayShippingContactSelectedEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayShippingContactSelectedEvent where - pFromJSVal = ApplePayShippingContactSelectedEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayShippingContactSelectedEvent where - toJSVal = return . unApplePayShippingContactSelectedEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayShippingContactSelectedEvent where - fromJSVal v = fmap ApplePayShippingContactSelectedEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayShippingContactSelectedEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayShippingContactSelectedEvent where - makeObject = makeObject . unApplePayShippingContactSelectedEvent - -instance IsEvent ApplePayShippingContactSelectedEvent -instance IsGObject ApplePayShippingContactSelectedEvent where - typeGType _ = gTypeApplePayShippingContactSelectedEvent - {-# INLINE typeGType #-} - -gTypeApplePayShippingContactSelectedEvent :: JSM GType -gTypeApplePayShippingContactSelectedEvent = GType . Object <$> jsg "ApplePayShippingContactSelectedEvent" - --- | Functions for this inteface are in "JSDOM.ApplePayShippingMethod". --- --- -newtype ApplePayShippingMethod = ApplePayShippingMethod { unApplePayShippingMethod :: JSVal } - -instance PToJSVal ApplePayShippingMethod where - pToJSVal = unApplePayShippingMethod - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayShippingMethod where - pFromJSVal = ApplePayShippingMethod - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayShippingMethod where - toJSVal = return . unApplePayShippingMethod - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayShippingMethod where - fromJSVal v = fmap ApplePayShippingMethod <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayShippingMethod - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayShippingMethod where - makeObject = makeObject . unApplePayShippingMethod - -instance IsGObject ApplePayShippingMethod where - typeGType _ = gTypeApplePayShippingMethod - {-# INLINE typeGType #-} - -gTypeApplePayShippingMethod :: JSM GType -gTypeApplePayShippingMethod = GType . Object <$> jsg "ApplePayShippingMethod" - --- | Functions for this inteface are in "JSDOM.ApplePayShippingMethodSelectedEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype ApplePayShippingMethodSelectedEvent = ApplePayShippingMethodSelectedEvent { unApplePayShippingMethodSelectedEvent :: JSVal } - -instance PToJSVal ApplePayShippingMethodSelectedEvent where - pToJSVal = unApplePayShippingMethodSelectedEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayShippingMethodSelectedEvent where - pFromJSVal = ApplePayShippingMethodSelectedEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayShippingMethodSelectedEvent where - toJSVal = return . unApplePayShippingMethodSelectedEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayShippingMethodSelectedEvent where - fromJSVal v = fmap ApplePayShippingMethodSelectedEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayShippingMethodSelectedEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayShippingMethodSelectedEvent where - makeObject = makeObject . unApplePayShippingMethodSelectedEvent - -instance IsEvent ApplePayShippingMethodSelectedEvent -instance IsGObject ApplePayShippingMethodSelectedEvent where - typeGType _ = gTypeApplePayShippingMethodSelectedEvent - {-# INLINE typeGType #-} - -gTypeApplePayShippingMethodSelectedEvent :: JSM GType -gTypeApplePayShippingMethodSelectedEvent = GType . Object <$> jsg "ApplePayShippingMethodSelectedEvent" - --- | Functions for this inteface are in "JSDOM.ApplePayValidateMerchantEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype ApplePayValidateMerchantEvent = ApplePayValidateMerchantEvent { unApplePayValidateMerchantEvent :: JSVal } - -instance PToJSVal ApplePayValidateMerchantEvent where - pToJSVal = unApplePayValidateMerchantEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplePayValidateMerchantEvent where - pFromJSVal = ApplePayValidateMerchantEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplePayValidateMerchantEvent where - toJSVal = return . unApplePayValidateMerchantEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ApplePayValidateMerchantEvent where - fromJSVal v = fmap ApplePayValidateMerchantEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplePayValidateMerchantEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplePayValidateMerchantEvent where - makeObject = makeObject . unApplePayValidateMerchantEvent - -instance IsEvent ApplePayValidateMerchantEvent -instance IsGObject ApplePayValidateMerchantEvent where - typeGType _ = gTypeApplePayValidateMerchantEvent - {-# INLINE typeGType #-} - -gTypeApplePayValidateMerchantEvent :: JSM GType -gTypeApplePayValidateMerchantEvent = GType . Object <$> jsg "ApplePayValidateMerchantEvent" - --- | Functions for this inteface are in "JSDOM.ApplicationCache". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype ApplicationCache = ApplicationCache { unApplicationCache :: JSVal } - -instance PToJSVal ApplicationCache where - pToJSVal = unApplicationCache - {-# INLINE pToJSVal #-} - -instance PFromJSVal ApplicationCache where - pFromJSVal = ApplicationCache - {-# INLINE pFromJSVal #-} - -instance ToJSVal ApplicationCache where - toJSVal = return . unApplicationCache - {-# INLINE toJSVal #-} - -instance FromJSVal ApplicationCache where - fromJSVal v = fmap ApplicationCache <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ApplicationCache - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ApplicationCache where - makeObject = makeObject . unApplicationCache - -instance IsEventTarget ApplicationCache -instance IsGObject ApplicationCache where - typeGType _ = gTypeApplicationCache - {-# INLINE typeGType #-} - -gTypeApplicationCache :: JSM GType -gTypeApplicationCache = GType . Object <$> jsg "ApplicationCache" - --- | Functions for this inteface are in "JSDOM.AssignedNodesOptions". --- --- -newtype AssignedNodesOptions = AssignedNodesOptions { unAssignedNodesOptions :: JSVal } - -instance PToJSVal AssignedNodesOptions where - pToJSVal = unAssignedNodesOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal AssignedNodesOptions where - pFromJSVal = AssignedNodesOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal AssignedNodesOptions where - toJSVal = return . unAssignedNodesOptions - {-# INLINE toJSVal #-} - -instance FromJSVal AssignedNodesOptions where - fromJSVal v = fmap AssignedNodesOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AssignedNodesOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AssignedNodesOptions where - makeObject = makeObject . unAssignedNodesOptions - -instance IsGObject AssignedNodesOptions where - typeGType _ = gTypeAssignedNodesOptions - {-# INLINE typeGType #-} - -gTypeAssignedNodesOptions :: JSM GType -gTypeAssignedNodesOptions = GType . Object <$> jsg "AssignedNodesOptions" - --- | Functions for this inteface are in "JSDOM.Attr". --- Base interface functions are in: --- --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- --- -newtype Attr = Attr { unAttr :: JSVal } - -instance PToJSVal Attr where - pToJSVal = unAttr - {-# INLINE pToJSVal #-} - -instance PFromJSVal Attr where - pFromJSVal = Attr - {-# INLINE pFromJSVal #-} - -instance ToJSVal Attr where - toJSVal = return . unAttr - {-# INLINE toJSVal #-} - -instance FromJSVal Attr where - fromJSVal v = fmap Attr <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Attr - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Attr where - makeObject = makeObject . unAttr - -instance IsNode Attr -instance IsEventTarget Attr -instance IsGObject Attr where - typeGType _ = gTypeAttr - {-# INLINE typeGType #-} - -gTypeAttr :: JSM GType -gTypeAttr = GType . Object <$> jsg "Attr" - --- | Functions for this inteface are in "JSDOM.AudioBuffer". --- --- -newtype AudioBuffer = AudioBuffer { unAudioBuffer :: JSVal } - -instance PToJSVal AudioBuffer where - pToJSVal = unAudioBuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioBuffer where - pFromJSVal = AudioBuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioBuffer where - toJSVal = return . unAudioBuffer - {-# INLINE toJSVal #-} - -instance FromJSVal AudioBuffer where - fromJSVal v = fmap AudioBuffer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioBuffer - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioBuffer where - makeObject = makeObject . unAudioBuffer - -instance IsGObject AudioBuffer where - typeGType _ = gTypeAudioBuffer - {-# INLINE typeGType #-} - -gTypeAudioBuffer :: JSM GType -gTypeAudioBuffer = GType . Object <$> jsg "AudioBuffer" - --- | Functions for this inteface are in "JSDOM.AudioBufferSourceNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype AudioBufferSourceNode = AudioBufferSourceNode { unAudioBufferSourceNode :: JSVal } - -instance PToJSVal AudioBufferSourceNode where - pToJSVal = unAudioBufferSourceNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioBufferSourceNode where - pFromJSVal = AudioBufferSourceNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioBufferSourceNode where - toJSVal = return . unAudioBufferSourceNode - {-# INLINE toJSVal #-} - -instance FromJSVal AudioBufferSourceNode where - fromJSVal v = fmap AudioBufferSourceNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioBufferSourceNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioBufferSourceNode where - makeObject = makeObject . unAudioBufferSourceNode - -instance IsAudioNode AudioBufferSourceNode -instance IsEventTarget AudioBufferSourceNode -instance IsGObject AudioBufferSourceNode where - typeGType _ = gTypeAudioBufferSourceNode - {-# INLINE typeGType #-} - -gTypeAudioBufferSourceNode :: JSM GType -gTypeAudioBufferSourceNode = GType . Object <$> jsg "AudioBufferSourceNode" - --- | Functions for this inteface are in "JSDOM.AudioContext". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype AudioContext = AudioContext { unAudioContext :: JSVal } - -instance PToJSVal AudioContext where - pToJSVal = unAudioContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioContext where - pFromJSVal = AudioContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioContext where - toJSVal = return . unAudioContext - {-# INLINE toJSVal #-} - -instance FromJSVal AudioContext where - fromJSVal v = fmap AudioContext <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioContext - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioContext where - makeObject = makeObject . unAudioContext - -class (IsEventTarget o, IsGObject o) => IsAudioContext o -toAudioContext :: IsAudioContext o => o -> AudioContext -toAudioContext = AudioContext . coerce - -instance IsAudioContext AudioContext -instance IsEventTarget AudioContext -instance IsGObject AudioContext where - typeGType _ = gTypeAudioContext - {-# INLINE typeGType #-} - -gTypeAudioContext :: JSM GType -gTypeAudioContext = GType . Object <$> jsg "AudioContext" - --- | Functions for this inteface are in "JSDOM.AudioDestinationNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype AudioDestinationNode = AudioDestinationNode { unAudioDestinationNode :: JSVal } - -instance PToJSVal AudioDestinationNode where - pToJSVal = unAudioDestinationNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioDestinationNode where - pFromJSVal = AudioDestinationNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioDestinationNode where - toJSVal = return . unAudioDestinationNode - {-# INLINE toJSVal #-} - -instance FromJSVal AudioDestinationNode where - fromJSVal v = fmap AudioDestinationNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioDestinationNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioDestinationNode where - makeObject = makeObject . unAudioDestinationNode - -instance IsAudioNode AudioDestinationNode -instance IsEventTarget AudioDestinationNode -instance IsGObject AudioDestinationNode where - typeGType _ = gTypeAudioDestinationNode - {-# INLINE typeGType #-} - -gTypeAudioDestinationNode :: JSM GType -gTypeAudioDestinationNode = GType . Object <$> jsg "AudioDestinationNode" - --- | Functions for this inteface are in "JSDOM.AudioListener". --- --- -newtype AudioListener = AudioListener { unAudioListener :: JSVal } - -instance PToJSVal AudioListener where - pToJSVal = unAudioListener - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioListener where - pFromJSVal = AudioListener - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioListener where - toJSVal = return . unAudioListener - {-# INLINE toJSVal #-} - -instance FromJSVal AudioListener where - fromJSVal v = fmap AudioListener <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioListener - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioListener where - makeObject = makeObject . unAudioListener - -instance IsGObject AudioListener where - typeGType _ = gTypeAudioListener - {-# INLINE typeGType #-} - -gTypeAudioListener :: JSM GType -gTypeAudioListener = GType . Object <$> jsg "AudioListener" - --- | Functions for this inteface are in "JSDOM.AudioNode". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype AudioNode = AudioNode { unAudioNode :: JSVal } - -instance PToJSVal AudioNode where - pToJSVal = unAudioNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioNode where - pFromJSVal = AudioNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioNode where - toJSVal = return . unAudioNode - {-# INLINE toJSVal #-} - -instance FromJSVal AudioNode where - fromJSVal v = fmap AudioNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioNode where - makeObject = makeObject . unAudioNode - -class (IsEventTarget o, IsGObject o) => IsAudioNode o -toAudioNode :: IsAudioNode o => o -> AudioNode -toAudioNode = AudioNode . coerce - -instance IsAudioNode AudioNode -instance IsEventTarget AudioNode -instance IsGObject AudioNode where - typeGType _ = gTypeAudioNode - {-# INLINE typeGType #-} - -gTypeAudioNode :: JSM GType -gTypeAudioNode = GType . Object <$> jsg "AudioNode" - --- | Functions for this inteface are in "JSDOM.AudioParam". --- --- -newtype AudioParam = AudioParam { unAudioParam :: JSVal } - -instance PToJSVal AudioParam where - pToJSVal = unAudioParam - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioParam where - pFromJSVal = AudioParam - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioParam where - toJSVal = return . unAudioParam - {-# INLINE toJSVal #-} - -instance FromJSVal AudioParam where - fromJSVal v = fmap AudioParam <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioParam - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioParam where - makeObject = makeObject . unAudioParam - -instance IsGObject AudioParam where - typeGType _ = gTypeAudioParam - {-# INLINE typeGType #-} - -gTypeAudioParam :: JSM GType -gTypeAudioParam = GType . Object <$> jsg "AudioParam" - --- | Functions for this inteface are in "JSDOM.AudioProcessingEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype AudioProcessingEvent = AudioProcessingEvent { unAudioProcessingEvent :: JSVal } - -instance PToJSVal AudioProcessingEvent where - pToJSVal = unAudioProcessingEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioProcessingEvent where - pFromJSVal = AudioProcessingEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioProcessingEvent where - toJSVal = return . unAudioProcessingEvent - {-# INLINE toJSVal #-} - -instance FromJSVal AudioProcessingEvent where - fromJSVal v = fmap AudioProcessingEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioProcessingEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioProcessingEvent where - makeObject = makeObject . unAudioProcessingEvent - -instance IsEvent AudioProcessingEvent -instance IsGObject AudioProcessingEvent where - typeGType _ = gTypeAudioProcessingEvent - {-# INLINE typeGType #-} - -gTypeAudioProcessingEvent :: JSM GType -gTypeAudioProcessingEvent = GType . Object <$> jsg "AudioProcessingEvent" - --- | Functions for this inteface are in "JSDOM.AudioTrack". --- --- -newtype AudioTrack = AudioTrack { unAudioTrack :: JSVal } - -instance PToJSVal AudioTrack where - pToJSVal = unAudioTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioTrack where - pFromJSVal = AudioTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioTrack where - toJSVal = return . unAudioTrack - {-# INLINE toJSVal #-} - -instance FromJSVal AudioTrack where - fromJSVal v = fmap AudioTrack <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioTrack - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioTrack where - makeObject = makeObject . unAudioTrack - -instance IsGObject AudioTrack where - typeGType _ = gTypeAudioTrack - {-# INLINE typeGType #-} - -gTypeAudioTrack :: JSM GType -gTypeAudioTrack = GType . Object <$> jsg "AudioTrack" - --- | Functions for this inteface are in "JSDOM.AudioTrackList". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype AudioTrackList = AudioTrackList { unAudioTrackList :: JSVal } - -instance PToJSVal AudioTrackList where - pToJSVal = unAudioTrackList - {-# INLINE pToJSVal #-} - -instance PFromJSVal AudioTrackList where - pFromJSVal = AudioTrackList - {-# INLINE pFromJSVal #-} - -instance ToJSVal AudioTrackList where - toJSVal = return . unAudioTrackList - {-# INLINE toJSVal #-} - -instance FromJSVal AudioTrackList where - fromJSVal v = fmap AudioTrackList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AudioTrackList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AudioTrackList where - makeObject = makeObject . unAudioTrackList - -instance IsEventTarget AudioTrackList -instance IsGObject AudioTrackList where - typeGType _ = gTypeAudioTrackList - {-# INLINE typeGType #-} - -gTypeAudioTrackList :: JSM GType -gTypeAudioTrackList = GType . Object <$> jsg "AudioTrackList" - --- | Functions for this inteface are in "JSDOM.AutocompleteErrorEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype AutocompleteErrorEvent = AutocompleteErrorEvent { unAutocompleteErrorEvent :: JSVal } - -instance PToJSVal AutocompleteErrorEvent where - pToJSVal = unAutocompleteErrorEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal AutocompleteErrorEvent where - pFromJSVal = AutocompleteErrorEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal AutocompleteErrorEvent where - toJSVal = return . unAutocompleteErrorEvent - {-# INLINE toJSVal #-} - -instance FromJSVal AutocompleteErrorEvent where - fromJSVal v = fmap AutocompleteErrorEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AutocompleteErrorEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AutocompleteErrorEvent where - makeObject = makeObject . unAutocompleteErrorEvent - -instance IsEvent AutocompleteErrorEvent -instance IsGObject AutocompleteErrorEvent where - typeGType _ = gTypeAutocompleteErrorEvent - {-# INLINE typeGType #-} - -gTypeAutocompleteErrorEvent :: JSM GType -gTypeAutocompleteErrorEvent = GType . Object <$> jsg "AutocompleteErrorEvent" - --- | Functions for this inteface are in "JSDOM.AutocompleteErrorEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype AutocompleteErrorEventInit = AutocompleteErrorEventInit { unAutocompleteErrorEventInit :: JSVal } - -instance PToJSVal AutocompleteErrorEventInit where - pToJSVal = unAutocompleteErrorEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal AutocompleteErrorEventInit where - pFromJSVal = AutocompleteErrorEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal AutocompleteErrorEventInit where - toJSVal = return . unAutocompleteErrorEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal AutocompleteErrorEventInit where - fromJSVal v = fmap AutocompleteErrorEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . AutocompleteErrorEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject AutocompleteErrorEventInit where - makeObject = makeObject . unAutocompleteErrorEventInit - -instance IsEventInit AutocompleteErrorEventInit -instance IsGObject AutocompleteErrorEventInit where - typeGType _ = gTypeAutocompleteErrorEventInit - {-# INLINE typeGType #-} - -gTypeAutocompleteErrorEventInit :: JSM GType -gTypeAutocompleteErrorEventInit = GType . Object <$> jsg "AutocompleteErrorEventInit" - --- | Functions for this inteface are in "JSDOM.BarProp". --- --- -newtype BarProp = BarProp { unBarProp :: JSVal } - -instance PToJSVal BarProp where - pToJSVal = unBarProp - {-# INLINE pToJSVal #-} - -instance PFromJSVal BarProp where - pFromJSVal = BarProp - {-# INLINE pFromJSVal #-} - -instance ToJSVal BarProp where - toJSVal = return . unBarProp - {-# INLINE toJSVal #-} - -instance FromJSVal BarProp where - fromJSVal v = fmap BarProp <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BarProp - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BarProp where - makeObject = makeObject . unBarProp - -instance IsGObject BarProp where - typeGType _ = gTypeBarProp - {-# INLINE typeGType #-} - -gTypeBarProp :: JSM GType -gTypeBarProp = GType . Object <$> jsg "BarProp" - --- | Functions for this inteface are in "JSDOM.BeforeLoadEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype BeforeLoadEvent = BeforeLoadEvent { unBeforeLoadEvent :: JSVal } - -instance PToJSVal BeforeLoadEvent where - pToJSVal = unBeforeLoadEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal BeforeLoadEvent where - pFromJSVal = BeforeLoadEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal BeforeLoadEvent where - toJSVal = return . unBeforeLoadEvent - {-# INLINE toJSVal #-} - -instance FromJSVal BeforeLoadEvent where - fromJSVal v = fmap BeforeLoadEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BeforeLoadEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BeforeLoadEvent where - makeObject = makeObject . unBeforeLoadEvent - -instance IsEvent BeforeLoadEvent -instance IsGObject BeforeLoadEvent where - typeGType _ = gTypeBeforeLoadEvent - {-# INLINE typeGType #-} - -gTypeBeforeLoadEvent :: JSM GType -gTypeBeforeLoadEvent = GType . Object <$> jsg "BeforeLoadEvent" - --- | Functions for this inteface are in "JSDOM.BeforeLoadEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype BeforeLoadEventInit = BeforeLoadEventInit { unBeforeLoadEventInit :: JSVal } - -instance PToJSVal BeforeLoadEventInit where - pToJSVal = unBeforeLoadEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal BeforeLoadEventInit where - pFromJSVal = BeforeLoadEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal BeforeLoadEventInit where - toJSVal = return . unBeforeLoadEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal BeforeLoadEventInit where - fromJSVal v = fmap BeforeLoadEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BeforeLoadEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BeforeLoadEventInit where - makeObject = makeObject . unBeforeLoadEventInit - -instance IsEventInit BeforeLoadEventInit -instance IsGObject BeforeLoadEventInit where - typeGType _ = gTypeBeforeLoadEventInit - {-# INLINE typeGType #-} - -gTypeBeforeLoadEventInit :: JSM GType -gTypeBeforeLoadEventInit = GType . Object <$> jsg "BeforeLoadEventInit" - --- | Functions for this inteface are in "JSDOM.BeforeUnloadEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype BeforeUnloadEvent = BeforeUnloadEvent { unBeforeUnloadEvent :: JSVal } - -instance PToJSVal BeforeUnloadEvent where - pToJSVal = unBeforeUnloadEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal BeforeUnloadEvent where - pFromJSVal = BeforeUnloadEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal BeforeUnloadEvent where - toJSVal = return . unBeforeUnloadEvent - {-# INLINE toJSVal #-} - -instance FromJSVal BeforeUnloadEvent where - fromJSVal v = fmap BeforeUnloadEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BeforeUnloadEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BeforeUnloadEvent where - makeObject = makeObject . unBeforeUnloadEvent - -instance IsEvent BeforeUnloadEvent -instance IsGObject BeforeUnloadEvent where - typeGType _ = gTypeBeforeUnloadEvent - {-# INLINE typeGType #-} - -gTypeBeforeUnloadEvent :: JSM GType -gTypeBeforeUnloadEvent = GType . Object <$> jsg "BeforeUnloadEvent" - --- | Functions for this inteface are in "JSDOM.BiquadFilterNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype BiquadFilterNode = BiquadFilterNode { unBiquadFilterNode :: JSVal } - -instance PToJSVal BiquadFilterNode where - pToJSVal = unBiquadFilterNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal BiquadFilterNode where - pFromJSVal = BiquadFilterNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal BiquadFilterNode where - toJSVal = return . unBiquadFilterNode - {-# INLINE toJSVal #-} - -instance FromJSVal BiquadFilterNode where - fromJSVal v = fmap BiquadFilterNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BiquadFilterNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BiquadFilterNode where - makeObject = makeObject . unBiquadFilterNode - -instance IsAudioNode BiquadFilterNode -instance IsEventTarget BiquadFilterNode -instance IsGObject BiquadFilterNode where - typeGType _ = gTypeBiquadFilterNode - {-# INLINE typeGType #-} - -gTypeBiquadFilterNode :: JSM GType -gTypeBiquadFilterNode = GType . Object <$> jsg "BiquadFilterNode" - --- | Functions for this inteface are in "JSDOM.Blob". --- --- -newtype Blob = Blob { unBlob :: JSVal } - -instance PToJSVal Blob where - pToJSVal = unBlob - {-# INLINE pToJSVal #-} - -instance PFromJSVal Blob where - pFromJSVal = Blob - {-# INLINE pFromJSVal #-} - -instance ToJSVal Blob where - toJSVal = return . unBlob - {-# INLINE toJSVal #-} - -instance FromJSVal Blob where - fromJSVal v = fmap Blob <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Blob - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Blob where - makeObject = makeObject . unBlob - -class (IsGObject o) => IsBlob o -toBlob :: IsBlob o => o -> Blob -toBlob = Blob . coerce - -instance IsBlob Blob -instance IsGObject Blob where - typeGType _ = gTypeBlob - {-# INLINE typeGType #-} - -gTypeBlob :: JSM GType -gTypeBlob = GType . Object <$> jsg "Blob" - --- | Functions for this inteface are in "JSDOM.BlobPropertyBag". --- --- -newtype BlobPropertyBag = BlobPropertyBag { unBlobPropertyBag :: JSVal } - -instance PToJSVal BlobPropertyBag where - pToJSVal = unBlobPropertyBag - {-# INLINE pToJSVal #-} - -instance PFromJSVal BlobPropertyBag where - pFromJSVal = BlobPropertyBag - {-# INLINE pFromJSVal #-} - -instance ToJSVal BlobPropertyBag where - toJSVal = return . unBlobPropertyBag - {-# INLINE toJSVal #-} - -instance FromJSVal BlobPropertyBag where - fromJSVal v = fmap BlobPropertyBag <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . BlobPropertyBag - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject BlobPropertyBag where - makeObject = makeObject . unBlobPropertyBag - -class (IsGObject o) => IsBlobPropertyBag o -toBlobPropertyBag :: IsBlobPropertyBag o => o -> BlobPropertyBag -toBlobPropertyBag = BlobPropertyBag . coerce - -instance IsBlobPropertyBag BlobPropertyBag -instance IsGObject BlobPropertyBag where - typeGType _ = gTypeBlobPropertyBag - {-# INLINE typeGType #-} - -gTypeBlobPropertyBag :: JSM GType -gTypeBlobPropertyBag = GType . Object <$> jsg "BlobPropertyBag" - --- | Functions for this inteface are in "JSDOM.Body". --- --- -newtype Body = Body { unBody :: JSVal } - -instance PToJSVal Body where - pToJSVal = unBody - {-# INLINE pToJSVal #-} - -instance PFromJSVal Body where - pFromJSVal = Body - {-# INLINE pFromJSVal #-} - -instance ToJSVal Body where - toJSVal = return . unBody - {-# INLINE toJSVal #-} - -instance FromJSVal Body where - fromJSVal v = fmap Body <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Body - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Body where - makeObject = makeObject . unBody - -class (IsGObject o) => IsBody o -toBody :: IsBody o => o -> Body -toBody = Body . coerce - -instance IsBody Body -instance IsGObject Body where - typeGType _ = gTypeBody - {-# INLINE typeGType #-} - -gTypeBody :: JSM GType -gTypeBody = GType . Object <$> jsg "Body" - --- | Functions for this inteface are in "JSDOM.ByteLengthQueuingStrategy". --- --- -newtype ByteLengthQueuingStrategy = ByteLengthQueuingStrategy { unByteLengthQueuingStrategy :: JSVal } - -instance PToJSVal ByteLengthQueuingStrategy where - pToJSVal = unByteLengthQueuingStrategy - {-# INLINE pToJSVal #-} - -instance PFromJSVal ByteLengthQueuingStrategy where - pFromJSVal = ByteLengthQueuingStrategy - {-# INLINE pFromJSVal #-} - -instance ToJSVal ByteLengthQueuingStrategy where - toJSVal = return . unByteLengthQueuingStrategy - {-# INLINE toJSVal #-} - -instance FromJSVal ByteLengthQueuingStrategy where - fromJSVal v = fmap ByteLengthQueuingStrategy <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ByteLengthQueuingStrategy - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ByteLengthQueuingStrategy where - makeObject = makeObject . unByteLengthQueuingStrategy - -instance IsGObject ByteLengthQueuingStrategy where - typeGType _ = gTypeByteLengthQueuingStrategy - {-# INLINE typeGType #-} - -gTypeByteLengthQueuingStrategy :: JSM GType -gTypeByteLengthQueuingStrategy = GType . Object <$> jsg "ByteLengthQueuingStrategy" - --- | Functions for this inteface are in "JSDOM.CDATASection". --- Base interface functions are in: --- --- * "JSDOM.Text" --- * "JSDOM.CharacterData" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Slotable" --- --- -newtype CDATASection = CDATASection { unCDATASection :: JSVal } - -instance PToJSVal CDATASection where - pToJSVal = unCDATASection - {-# INLINE pToJSVal #-} - -instance PFromJSVal CDATASection where - pFromJSVal = CDATASection - {-# INLINE pFromJSVal #-} - -instance ToJSVal CDATASection where - toJSVal = return . unCDATASection - {-# INLINE toJSVal #-} - -instance FromJSVal CDATASection where - fromJSVal v = fmap CDATASection <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CDATASection - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CDATASection where - makeObject = makeObject . unCDATASection - -instance IsText CDATASection -instance IsCharacterData CDATASection -instance IsNode CDATASection -instance IsEventTarget CDATASection -instance IsNonDocumentTypeChildNode CDATASection -instance IsChildNode CDATASection -instance IsSlotable CDATASection -instance IsGObject CDATASection where - typeGType _ = gTypeCDATASection - {-# INLINE typeGType #-} - -gTypeCDATASection :: JSM GType -gTypeCDATASection = GType . Object <$> jsg "CDATASection" - --- | Functions for this inteface are in "JSDOM.CSS". --- --- -newtype CSS = CSS { unCSS :: JSVal } - -instance PToJSVal CSS where - pToJSVal = unCSS - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSS where - pFromJSVal = CSS - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSS where - toJSVal = return . unCSS - {-# INLINE toJSVal #-} - -instance FromJSVal CSS where - fromJSVal v = fmap CSS <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSS - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSS where - makeObject = makeObject . unCSS - -instance IsGObject CSS where - typeGType _ = gTypeCSS - {-# INLINE typeGType #-} - -gTypeCSS :: JSM GType -gTypeCSS = GType . Object <$> jsg "CSS" - --- | Functions for this inteface are in "JSDOM.CSSFontFaceLoadEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype CSSFontFaceLoadEvent = CSSFontFaceLoadEvent { unCSSFontFaceLoadEvent :: JSVal } - -instance PToJSVal CSSFontFaceLoadEvent where - pToJSVal = unCSSFontFaceLoadEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSFontFaceLoadEvent where - pFromJSVal = CSSFontFaceLoadEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSFontFaceLoadEvent where - toJSVal = return . unCSSFontFaceLoadEvent - {-# INLINE toJSVal #-} - -instance FromJSVal CSSFontFaceLoadEvent where - fromJSVal v = fmap CSSFontFaceLoadEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSFontFaceLoadEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSFontFaceLoadEvent where - makeObject = makeObject . unCSSFontFaceLoadEvent - -instance IsEvent CSSFontFaceLoadEvent -instance IsGObject CSSFontFaceLoadEvent where - typeGType _ = gTypeCSSFontFaceLoadEvent - {-# INLINE typeGType #-} - -gTypeCSSFontFaceLoadEvent :: JSM GType -gTypeCSSFontFaceLoadEvent = GType . Object <$> jsg "CSSFontFaceLoadEvent" - --- | Functions for this inteface are in "JSDOM.CSSFontFaceLoadEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype CSSFontFaceLoadEventInit = CSSFontFaceLoadEventInit { unCSSFontFaceLoadEventInit :: JSVal } - -instance PToJSVal CSSFontFaceLoadEventInit where - pToJSVal = unCSSFontFaceLoadEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSFontFaceLoadEventInit where - pFromJSVal = CSSFontFaceLoadEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSFontFaceLoadEventInit where - toJSVal = return . unCSSFontFaceLoadEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal CSSFontFaceLoadEventInit where - fromJSVal v = fmap CSSFontFaceLoadEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSFontFaceLoadEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSFontFaceLoadEventInit where - makeObject = makeObject . unCSSFontFaceLoadEventInit - -instance IsEventInit CSSFontFaceLoadEventInit -instance IsGObject CSSFontFaceLoadEventInit where - typeGType _ = gTypeCSSFontFaceLoadEventInit - {-# INLINE typeGType #-} - -gTypeCSSFontFaceLoadEventInit :: JSM GType -gTypeCSSFontFaceLoadEventInit = GType . Object <$> jsg "CSSFontFaceLoadEventInit" - --- | Functions for this inteface are in "JSDOM.CSSFontFaceRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSFontFaceRule = CSSFontFaceRule { unCSSFontFaceRule :: JSVal } - -instance PToJSVal CSSFontFaceRule where - pToJSVal = unCSSFontFaceRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSFontFaceRule where - pFromJSVal = CSSFontFaceRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSFontFaceRule where - toJSVal = return . unCSSFontFaceRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSFontFaceRule where - fromJSVal v = fmap CSSFontFaceRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSFontFaceRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSFontFaceRule where - makeObject = makeObject . unCSSFontFaceRule - -instance IsCSSRule CSSFontFaceRule -instance IsGObject CSSFontFaceRule where - typeGType _ = gTypeCSSFontFaceRule - {-# INLINE typeGType #-} - -gTypeCSSFontFaceRule :: JSM GType -gTypeCSSFontFaceRule = GType . Object <$> jsg "CSSFontFaceRule" - --- | Functions for this inteface are in "JSDOM.CSSImportRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSImportRule = CSSImportRule { unCSSImportRule :: JSVal } - -instance PToJSVal CSSImportRule where - pToJSVal = unCSSImportRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSImportRule where - pFromJSVal = CSSImportRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSImportRule where - toJSVal = return . unCSSImportRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSImportRule where - fromJSVal v = fmap CSSImportRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSImportRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSImportRule where - makeObject = makeObject . unCSSImportRule - -instance IsCSSRule CSSImportRule -instance IsGObject CSSImportRule where - typeGType _ = gTypeCSSImportRule - {-# INLINE typeGType #-} - -gTypeCSSImportRule :: JSM GType -gTypeCSSImportRule = GType . Object <$> jsg "CSSImportRule" - --- | Functions for this inteface are in "JSDOM.CSSKeyframeRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSKeyframeRule = CSSKeyframeRule { unCSSKeyframeRule :: JSVal } - -instance PToJSVal CSSKeyframeRule where - pToJSVal = unCSSKeyframeRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSKeyframeRule where - pFromJSVal = CSSKeyframeRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSKeyframeRule where - toJSVal = return . unCSSKeyframeRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSKeyframeRule where - fromJSVal v = fmap CSSKeyframeRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSKeyframeRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSKeyframeRule where - makeObject = makeObject . unCSSKeyframeRule - -instance IsCSSRule CSSKeyframeRule -instance IsGObject CSSKeyframeRule where - typeGType _ = gTypeCSSKeyframeRule - {-# INLINE typeGType #-} - -gTypeCSSKeyframeRule :: JSM GType -gTypeCSSKeyframeRule = GType . Object <$> jsg "CSSKeyframeRule" - --- | Functions for this inteface are in "JSDOM.CSSKeyframesRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSKeyframesRule = CSSKeyframesRule { unCSSKeyframesRule :: JSVal } - -instance PToJSVal CSSKeyframesRule where - pToJSVal = unCSSKeyframesRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSKeyframesRule where - pFromJSVal = CSSKeyframesRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSKeyframesRule where - toJSVal = return . unCSSKeyframesRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSKeyframesRule where - fromJSVal v = fmap CSSKeyframesRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSKeyframesRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSKeyframesRule where - makeObject = makeObject . unCSSKeyframesRule - -instance IsCSSRule CSSKeyframesRule -instance IsGObject CSSKeyframesRule where - typeGType _ = gTypeCSSKeyframesRule - {-# INLINE typeGType #-} - -gTypeCSSKeyframesRule :: JSM GType -gTypeCSSKeyframesRule = GType . Object <$> jsg "CSSKeyframesRule" - --- | Functions for this inteface are in "JSDOM.CSSMediaRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSMediaRule = CSSMediaRule { unCSSMediaRule :: JSVal } - -instance PToJSVal CSSMediaRule where - pToJSVal = unCSSMediaRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSMediaRule where - pFromJSVal = CSSMediaRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSMediaRule where - toJSVal = return . unCSSMediaRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSMediaRule where - fromJSVal v = fmap CSSMediaRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSMediaRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSMediaRule where - makeObject = makeObject . unCSSMediaRule - -instance IsCSSRule CSSMediaRule -instance IsGObject CSSMediaRule where - typeGType _ = gTypeCSSMediaRule - {-# INLINE typeGType #-} - -gTypeCSSMediaRule :: JSM GType -gTypeCSSMediaRule = GType . Object <$> jsg "CSSMediaRule" - --- | Functions for this inteface are in "JSDOM.CSSNamespaceRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSNamespaceRule = CSSNamespaceRule { unCSSNamespaceRule :: JSVal } - -instance PToJSVal CSSNamespaceRule where - pToJSVal = unCSSNamespaceRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSNamespaceRule where - pFromJSVal = CSSNamespaceRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSNamespaceRule where - toJSVal = return . unCSSNamespaceRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSNamespaceRule where - fromJSVal v = fmap CSSNamespaceRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSNamespaceRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSNamespaceRule where - makeObject = makeObject . unCSSNamespaceRule - -instance IsCSSRule CSSNamespaceRule -instance IsGObject CSSNamespaceRule where - typeGType _ = gTypeCSSNamespaceRule - {-# INLINE typeGType #-} - -gTypeCSSNamespaceRule :: JSM GType -gTypeCSSNamespaceRule = GType . Object <$> jsg "CSSNamespaceRule" - --- | Functions for this inteface are in "JSDOM.CSSPageRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSPageRule = CSSPageRule { unCSSPageRule :: JSVal } - -instance PToJSVal CSSPageRule where - pToJSVal = unCSSPageRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSPageRule where - pFromJSVal = CSSPageRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSPageRule where - toJSVal = return . unCSSPageRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSPageRule where - fromJSVal v = fmap CSSPageRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSPageRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSPageRule where - makeObject = makeObject . unCSSPageRule - -instance IsCSSRule CSSPageRule -instance IsGObject CSSPageRule where - typeGType _ = gTypeCSSPageRule - {-# INLINE typeGType #-} - -gTypeCSSPageRule :: JSM GType -gTypeCSSPageRule = GType . Object <$> jsg "CSSPageRule" - --- | Functions for this inteface are in "JSDOM.CSSPrimitiveValue". --- Base interface functions are in: --- --- * "JSDOM.CSSValue" --- --- -newtype CSSPrimitiveValue = CSSPrimitiveValue { unCSSPrimitiveValue :: JSVal } - -instance PToJSVal CSSPrimitiveValue where - pToJSVal = unCSSPrimitiveValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSPrimitiveValue where - pFromJSVal = CSSPrimitiveValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSPrimitiveValue where - toJSVal = return . unCSSPrimitiveValue - {-# INLINE toJSVal #-} - -instance FromJSVal CSSPrimitiveValue where - fromJSVal v = fmap CSSPrimitiveValue <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSPrimitiveValue - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSPrimitiveValue where - makeObject = makeObject . unCSSPrimitiveValue - -instance IsCSSValue CSSPrimitiveValue -instance IsGObject CSSPrimitiveValue where - typeGType _ = gTypeCSSPrimitiveValue - {-# INLINE typeGType #-} - -gTypeCSSPrimitiveValue :: JSM GType -gTypeCSSPrimitiveValue = GType . Object <$> jsg "CSSPrimitiveValue" - --- | Functions for this inteface are in "JSDOM.CSSRule". --- --- -newtype CSSRule = CSSRule { unCSSRule :: JSVal } - -instance PToJSVal CSSRule where - pToJSVal = unCSSRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSRule where - pFromJSVal = CSSRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSRule where - toJSVal = return . unCSSRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSRule where - fromJSVal v = fmap CSSRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSRule where - makeObject = makeObject . unCSSRule - -class (IsGObject o) => IsCSSRule o -toCSSRule :: IsCSSRule o => o -> CSSRule -toCSSRule = CSSRule . coerce - -instance IsCSSRule CSSRule -instance IsGObject CSSRule where - typeGType _ = gTypeCSSRule - {-# INLINE typeGType #-} - -gTypeCSSRule :: JSM GType -gTypeCSSRule = GType . Object <$> jsg "CSSRule" - --- | Functions for this inteface are in "JSDOM.CSSRuleList". --- --- -newtype CSSRuleList = CSSRuleList { unCSSRuleList :: JSVal } - -instance PToJSVal CSSRuleList where - pToJSVal = unCSSRuleList - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSRuleList where - pFromJSVal = CSSRuleList - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSRuleList where - toJSVal = return . unCSSRuleList - {-# INLINE toJSVal #-} - -instance FromJSVal CSSRuleList where - fromJSVal v = fmap CSSRuleList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSRuleList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSRuleList where - makeObject = makeObject . unCSSRuleList - -instance IsGObject CSSRuleList where - typeGType _ = gTypeCSSRuleList - {-# INLINE typeGType #-} - -gTypeCSSRuleList :: JSM GType -gTypeCSSRuleList = GType . Object <$> jsg "CSSRuleList" - --- | Functions for this inteface are in "JSDOM.CSSStyleDeclaration". --- --- -newtype CSSStyleDeclaration = CSSStyleDeclaration { unCSSStyleDeclaration :: JSVal } - -instance PToJSVal CSSStyleDeclaration where - pToJSVal = unCSSStyleDeclaration - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSStyleDeclaration where - pFromJSVal = CSSStyleDeclaration - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSStyleDeclaration where - toJSVal = return . unCSSStyleDeclaration - {-# INLINE toJSVal #-} - -instance FromJSVal CSSStyleDeclaration where - fromJSVal v = fmap CSSStyleDeclaration <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSStyleDeclaration - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSStyleDeclaration where - makeObject = makeObject . unCSSStyleDeclaration - -instance IsGObject CSSStyleDeclaration where - typeGType _ = gTypeCSSStyleDeclaration - {-# INLINE typeGType #-} - -gTypeCSSStyleDeclaration :: JSM GType -gTypeCSSStyleDeclaration = GType . Object <$> jsg "CSSStyleDeclaration" - --- | Functions for this inteface are in "JSDOM.CSSStyleRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSStyleRule = CSSStyleRule { unCSSStyleRule :: JSVal } - -instance PToJSVal CSSStyleRule where - pToJSVal = unCSSStyleRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSStyleRule where - pFromJSVal = CSSStyleRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSStyleRule where - toJSVal = return . unCSSStyleRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSStyleRule where - fromJSVal v = fmap CSSStyleRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSStyleRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSStyleRule where - makeObject = makeObject . unCSSStyleRule - -instance IsCSSRule CSSStyleRule -instance IsGObject CSSStyleRule where - typeGType _ = gTypeCSSStyleRule - {-# INLINE typeGType #-} - -gTypeCSSStyleRule :: JSM GType -gTypeCSSStyleRule = GType . Object <$> jsg "CSSStyleRule" - --- | Functions for this inteface are in "JSDOM.CSSStyleSheet". --- Base interface functions are in: --- --- * "JSDOM.StyleSheet" --- --- -newtype CSSStyleSheet = CSSStyleSheet { unCSSStyleSheet :: JSVal } - -instance PToJSVal CSSStyleSheet where - pToJSVal = unCSSStyleSheet - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSStyleSheet where - pFromJSVal = CSSStyleSheet - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSStyleSheet where - toJSVal = return . unCSSStyleSheet - {-# INLINE toJSVal #-} - -instance FromJSVal CSSStyleSheet where - fromJSVal v = fmap CSSStyleSheet <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSStyleSheet - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSStyleSheet where - makeObject = makeObject . unCSSStyleSheet - -instance IsStyleSheet CSSStyleSheet -instance IsGObject CSSStyleSheet where - typeGType _ = gTypeCSSStyleSheet - {-# INLINE typeGType #-} - -gTypeCSSStyleSheet :: JSM GType -gTypeCSSStyleSheet = GType . Object <$> jsg "CSSStyleSheet" - --- | Functions for this inteface are in "JSDOM.CSSSupportsRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSSupportsRule = CSSSupportsRule { unCSSSupportsRule :: JSVal } - -instance PToJSVal CSSSupportsRule where - pToJSVal = unCSSSupportsRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSSupportsRule where - pFromJSVal = CSSSupportsRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSSupportsRule where - toJSVal = return . unCSSSupportsRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSSupportsRule where - fromJSVal v = fmap CSSSupportsRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSSupportsRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSSupportsRule where - makeObject = makeObject . unCSSSupportsRule - -instance IsCSSRule CSSSupportsRule -instance IsGObject CSSSupportsRule where - typeGType _ = gTypeCSSSupportsRule - {-# INLINE typeGType #-} - -gTypeCSSSupportsRule :: JSM GType -gTypeCSSSupportsRule = GType . Object <$> jsg "CSSSupportsRule" - --- | Functions for this inteface are in "JSDOM.CSSUnknownRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype CSSUnknownRule = CSSUnknownRule { unCSSUnknownRule :: JSVal } - -instance PToJSVal CSSUnknownRule where - pToJSVal = unCSSUnknownRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSUnknownRule where - pFromJSVal = CSSUnknownRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSUnknownRule where - toJSVal = return . unCSSUnknownRule - {-# INLINE toJSVal #-} - -instance FromJSVal CSSUnknownRule where - fromJSVal v = fmap CSSUnknownRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSUnknownRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSUnknownRule where - makeObject = makeObject . unCSSUnknownRule - -instance IsCSSRule CSSUnknownRule -instance IsGObject CSSUnknownRule where - typeGType _ = gTypeCSSUnknownRule - {-# INLINE typeGType #-} - -gTypeCSSUnknownRule :: JSM GType -gTypeCSSUnknownRule = GType . Object <$> jsg "CSSUnknownRule" - --- | Functions for this inteface are in "JSDOM.CSSValue". --- --- -newtype CSSValue = CSSValue { unCSSValue :: JSVal } - -instance PToJSVal CSSValue where - pToJSVal = unCSSValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSValue where - pFromJSVal = CSSValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSValue where - toJSVal = return . unCSSValue - {-# INLINE toJSVal #-} - -instance FromJSVal CSSValue where - fromJSVal v = fmap CSSValue <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSValue - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSValue where - makeObject = makeObject . unCSSValue - -class (IsGObject o) => IsCSSValue o -toCSSValue :: IsCSSValue o => o -> CSSValue -toCSSValue = CSSValue . coerce - -instance IsCSSValue CSSValue -instance IsGObject CSSValue where - typeGType _ = gTypeCSSValue - {-# INLINE typeGType #-} - -gTypeCSSValue :: JSM GType -gTypeCSSValue = GType . Object <$> jsg "CSSValue" - --- | Functions for this inteface are in "JSDOM.CSSValueList". --- Base interface functions are in: --- --- * "JSDOM.CSSValue" --- --- -newtype CSSValueList = CSSValueList { unCSSValueList :: JSVal } - -instance PToJSVal CSSValueList where - pToJSVal = unCSSValueList - {-# INLINE pToJSVal #-} - -instance PFromJSVal CSSValueList where - pFromJSVal = CSSValueList - {-# INLINE pFromJSVal #-} - -instance ToJSVal CSSValueList where - toJSVal = return . unCSSValueList - {-# INLINE toJSVal #-} - -instance FromJSVal CSSValueList where - fromJSVal v = fmap CSSValueList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CSSValueList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CSSValueList where - makeObject = makeObject . unCSSValueList - -instance IsCSSValue CSSValueList -instance IsGObject CSSValueList where - typeGType _ = gTypeCSSValueList - {-# INLINE typeGType #-} - -gTypeCSSValueList :: JSM GType -gTypeCSSValueList = GType . Object <$> jsg "CSSValueList" - --- | Functions for this inteface are in "JSDOM.CanvasGradient". --- --- -newtype CanvasGradient = CanvasGradient { unCanvasGradient :: JSVal } - -instance PToJSVal CanvasGradient where - pToJSVal = unCanvasGradient - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasGradient where - pFromJSVal = CanvasGradient - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasGradient where - toJSVal = return . unCanvasGradient - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasGradient where - fromJSVal v = fmap CanvasGradient <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CanvasGradient - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CanvasGradient where - makeObject = makeObject . unCanvasGradient - -instance IsGObject CanvasGradient where - typeGType _ = gTypeCanvasGradient - {-# INLINE typeGType #-} - -gTypeCanvasGradient :: JSM GType -gTypeCanvasGradient = GType . Object <$> jsg "CanvasGradient" - --- | Functions for this inteface are in "JSDOM.CanvasPath". --- --- -newtype CanvasPath = CanvasPath { unCanvasPath :: JSVal } - -instance PToJSVal CanvasPath where - pToJSVal = unCanvasPath - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasPath where - pFromJSVal = CanvasPath - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasPath where - toJSVal = return . unCanvasPath - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasPath where - fromJSVal v = fmap CanvasPath <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CanvasPath - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CanvasPath where - makeObject = makeObject . unCanvasPath - -class (IsGObject o) => IsCanvasPath o -toCanvasPath :: IsCanvasPath o => o -> CanvasPath -toCanvasPath = CanvasPath . coerce - -instance IsCanvasPath CanvasPath -instance IsGObject CanvasPath where - typeGType _ = gTypeCanvasPath - {-# INLINE typeGType #-} - -gTypeCanvasPath :: JSM GType -gTypeCanvasPath = GType . Object <$> jsg "CanvasPath" - --- | Functions for this inteface are in "JSDOM.CanvasPattern". --- --- -newtype CanvasPattern = CanvasPattern { unCanvasPattern :: JSVal } - -instance PToJSVal CanvasPattern where - pToJSVal = unCanvasPattern - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasPattern where - pFromJSVal = CanvasPattern - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasPattern where - toJSVal = return . unCanvasPattern - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasPattern where - fromJSVal v = fmap CanvasPattern <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CanvasPattern - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CanvasPattern where - makeObject = makeObject . unCanvasPattern - -instance IsGObject CanvasPattern where - typeGType _ = gTypeCanvasPattern - {-# INLINE typeGType #-} - -gTypeCanvasPattern :: JSM GType -gTypeCanvasPattern = GType . Object <$> jsg "CanvasPattern" - --- | Functions for this inteface are in "JSDOM.CanvasProxy". --- --- -newtype CanvasProxy = CanvasProxy { unCanvasProxy :: JSVal } - -instance PToJSVal CanvasProxy where - pToJSVal = unCanvasProxy - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasProxy where - pFromJSVal = CanvasProxy - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasProxy where - toJSVal = return . unCanvasProxy - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasProxy where - fromJSVal v = fmap CanvasProxy <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CanvasProxy - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CanvasProxy where - makeObject = makeObject . unCanvasProxy - -instance IsGObject CanvasProxy where - typeGType _ = gTypeCanvasProxy - {-# INLINE typeGType #-} - -gTypeCanvasProxy :: JSM GType -gTypeCanvasProxy = GType . Object <$> jsg "CanvasProxy" - --- | Functions for this inteface are in "JSDOM.CanvasRenderingContext2D". --- Base interface functions are in: --- --- * "JSDOM.CanvasPath" --- --- -newtype CanvasRenderingContext2D = CanvasRenderingContext2D { unCanvasRenderingContext2D :: JSVal } - -instance PToJSVal CanvasRenderingContext2D where - pToJSVal = unCanvasRenderingContext2D - {-# INLINE pToJSVal #-} - -instance PFromJSVal CanvasRenderingContext2D where - pFromJSVal = CanvasRenderingContext2D - {-# INLINE pFromJSVal #-} - -instance ToJSVal CanvasRenderingContext2D where - toJSVal = return . unCanvasRenderingContext2D - {-# INLINE toJSVal #-} - -instance FromJSVal CanvasRenderingContext2D where - fromJSVal v = fmap CanvasRenderingContext2D <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CanvasRenderingContext2D - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CanvasRenderingContext2D where - makeObject = makeObject . unCanvasRenderingContext2D - -instance IsCanvasPath CanvasRenderingContext2D -instance IsGObject CanvasRenderingContext2D where - typeGType _ = gTypeCanvasRenderingContext2D - {-# INLINE typeGType #-} - -gTypeCanvasRenderingContext2D :: JSM GType -gTypeCanvasRenderingContext2D = GType . Object <$> jsg "CanvasRenderingContext2D" - --- | Functions for this inteface are in "JSDOM.ChannelMergerNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype ChannelMergerNode = ChannelMergerNode { unChannelMergerNode :: JSVal } - -instance PToJSVal ChannelMergerNode where - pToJSVal = unChannelMergerNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ChannelMergerNode where - pFromJSVal = ChannelMergerNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ChannelMergerNode where - toJSVal = return . unChannelMergerNode - {-# INLINE toJSVal #-} - -instance FromJSVal ChannelMergerNode where - fromJSVal v = fmap ChannelMergerNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ChannelMergerNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ChannelMergerNode where - makeObject = makeObject . unChannelMergerNode - -instance IsAudioNode ChannelMergerNode -instance IsEventTarget ChannelMergerNode -instance IsGObject ChannelMergerNode where - typeGType _ = gTypeChannelMergerNode - {-# INLINE typeGType #-} - -gTypeChannelMergerNode :: JSM GType -gTypeChannelMergerNode = GType . Object <$> jsg "ChannelMergerNode" - --- | Functions for this inteface are in "JSDOM.ChannelSplitterNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype ChannelSplitterNode = ChannelSplitterNode { unChannelSplitterNode :: JSVal } - -instance PToJSVal ChannelSplitterNode where - pToJSVal = unChannelSplitterNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ChannelSplitterNode where - pFromJSVal = ChannelSplitterNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ChannelSplitterNode where - toJSVal = return . unChannelSplitterNode - {-# INLINE toJSVal #-} - -instance FromJSVal ChannelSplitterNode where - fromJSVal v = fmap ChannelSplitterNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ChannelSplitterNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ChannelSplitterNode where - makeObject = makeObject . unChannelSplitterNode - -instance IsAudioNode ChannelSplitterNode -instance IsEventTarget ChannelSplitterNode -instance IsGObject ChannelSplitterNode where - typeGType _ = gTypeChannelSplitterNode - {-# INLINE typeGType #-} - -gTypeChannelSplitterNode :: JSM GType -gTypeChannelSplitterNode = GType . Object <$> jsg "ChannelSplitterNode" - --- | Functions for this inteface are in "JSDOM.CharacterData". --- Base interface functions are in: --- --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- --- -newtype CharacterData = CharacterData { unCharacterData :: JSVal } - -instance PToJSVal CharacterData where - pToJSVal = unCharacterData - {-# INLINE pToJSVal #-} - -instance PFromJSVal CharacterData where - pFromJSVal = CharacterData - {-# INLINE pFromJSVal #-} - -instance ToJSVal CharacterData where - toJSVal = return . unCharacterData - {-# INLINE toJSVal #-} - -instance FromJSVal CharacterData where - fromJSVal v = fmap CharacterData <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CharacterData - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CharacterData where - makeObject = makeObject . unCharacterData - -class (IsNode o, IsEventTarget o, IsNonDocumentTypeChildNode o, IsChildNode o, IsGObject o) => IsCharacterData o -toCharacterData :: IsCharacterData o => o -> CharacterData -toCharacterData = CharacterData . coerce - -instance IsCharacterData CharacterData -instance IsNode CharacterData -instance IsEventTarget CharacterData -instance IsNonDocumentTypeChildNode CharacterData -instance IsChildNode CharacterData -instance IsGObject CharacterData where - typeGType _ = gTypeCharacterData - {-# INLINE typeGType #-} - -gTypeCharacterData :: JSM GType -gTypeCharacterData = GType . Object <$> jsg "CharacterData" - --- | Functions for this inteface are in "JSDOM.ChildNode". --- --- -newtype ChildNode = ChildNode { unChildNode :: JSVal } - -instance PToJSVal ChildNode where - pToJSVal = unChildNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ChildNode where - pFromJSVal = ChildNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ChildNode where - toJSVal = return . unChildNode - {-# INLINE toJSVal #-} - -instance FromJSVal ChildNode where - fromJSVal v = fmap ChildNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ChildNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ChildNode where - makeObject = makeObject . unChildNode - -class (IsGObject o) => IsChildNode o -toChildNode :: IsChildNode o => o -> ChildNode -toChildNode = ChildNode . coerce - -instance IsChildNode ChildNode -instance IsGObject ChildNode where - typeGType _ = gTypeChildNode - {-# INLINE typeGType #-} - -gTypeChildNode :: JSM GType -gTypeChildNode = GType . Object <$> jsg "ChildNode" - --- | Functions for this inteface are in "JSDOM.ClientRect". --- --- -newtype ClientRect = ClientRect { unClientRect :: JSVal } - -instance PToJSVal ClientRect where - pToJSVal = unClientRect - {-# INLINE pToJSVal #-} - -instance PFromJSVal ClientRect where - pFromJSVal = ClientRect - {-# INLINE pFromJSVal #-} - -instance ToJSVal ClientRect where - toJSVal = return . unClientRect - {-# INLINE toJSVal #-} - -instance FromJSVal ClientRect where - fromJSVal v = fmap ClientRect <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ClientRect - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ClientRect where - makeObject = makeObject . unClientRect - -instance IsGObject ClientRect where - typeGType _ = gTypeClientRect - {-# INLINE typeGType #-} - -gTypeClientRect :: JSM GType -gTypeClientRect = GType . Object <$> jsg "ClientRect" - --- | Functions for this inteface are in "JSDOM.ClientRectList". --- --- -newtype ClientRectList = ClientRectList { unClientRectList :: JSVal } - -instance PToJSVal ClientRectList where - pToJSVal = unClientRectList - {-# INLINE pToJSVal #-} - -instance PFromJSVal ClientRectList where - pFromJSVal = ClientRectList - {-# INLINE pFromJSVal #-} - -instance ToJSVal ClientRectList where - toJSVal = return . unClientRectList - {-# INLINE toJSVal #-} - -instance FromJSVal ClientRectList where - fromJSVal v = fmap ClientRectList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ClientRectList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ClientRectList where - makeObject = makeObject . unClientRectList - -instance IsGObject ClientRectList where - typeGType _ = gTypeClientRectList - {-# INLINE typeGType #-} - -gTypeClientRectList :: JSM GType -gTypeClientRectList = GType . Object <$> jsg "ClientRectList" - --- | Functions for this inteface are in "JSDOM.ClipboardEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype ClipboardEvent = ClipboardEvent { unClipboardEvent :: JSVal } - -instance PToJSVal ClipboardEvent where - pToJSVal = unClipboardEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ClipboardEvent where - pFromJSVal = ClipboardEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ClipboardEvent where - toJSVal = return . unClipboardEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ClipboardEvent where - fromJSVal v = fmap ClipboardEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ClipboardEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ClipboardEvent where - makeObject = makeObject . unClipboardEvent - -instance IsEvent ClipboardEvent -instance IsGObject ClipboardEvent where - typeGType _ = gTypeClipboardEvent - {-# INLINE typeGType #-} - -gTypeClipboardEvent :: JSM GType -gTypeClipboardEvent = GType . Object <$> jsg "ClipboardEvent" - --- | Functions for this inteface are in "JSDOM.ClipboardEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype ClipboardEventInit = ClipboardEventInit { unClipboardEventInit :: JSVal } - -instance PToJSVal ClipboardEventInit where - pToJSVal = unClipboardEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal ClipboardEventInit where - pFromJSVal = ClipboardEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal ClipboardEventInit where - toJSVal = return . unClipboardEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal ClipboardEventInit where - fromJSVal v = fmap ClipboardEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ClipboardEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ClipboardEventInit where - makeObject = makeObject . unClipboardEventInit - -instance IsEventInit ClipboardEventInit -instance IsGObject ClipboardEventInit where - typeGType _ = gTypeClipboardEventInit - {-# INLINE typeGType #-} - -gTypeClipboardEventInit :: JSM GType -gTypeClipboardEventInit = GType . Object <$> jsg "ClipboardEventInit" - --- | Functions for this inteface are in "JSDOM.CloseEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype CloseEvent = CloseEvent { unCloseEvent :: JSVal } - -instance PToJSVal CloseEvent where - pToJSVal = unCloseEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal CloseEvent where - pFromJSVal = CloseEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal CloseEvent where - toJSVal = return . unCloseEvent - {-# INLINE toJSVal #-} - -instance FromJSVal CloseEvent where - fromJSVal v = fmap CloseEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CloseEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CloseEvent where - makeObject = makeObject . unCloseEvent - -instance IsEvent CloseEvent -instance IsGObject CloseEvent where - typeGType _ = gTypeCloseEvent - {-# INLINE typeGType #-} - -gTypeCloseEvent :: JSM GType -gTypeCloseEvent = GType . Object <$> jsg "CloseEvent" - --- | Functions for this inteface are in "JSDOM.CloseEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype CloseEventInit = CloseEventInit { unCloseEventInit :: JSVal } - -instance PToJSVal CloseEventInit where - pToJSVal = unCloseEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal CloseEventInit where - pFromJSVal = CloseEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal CloseEventInit where - toJSVal = return . unCloseEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal CloseEventInit where - fromJSVal v = fmap CloseEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CloseEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CloseEventInit where - makeObject = makeObject . unCloseEventInit - -instance IsEventInit CloseEventInit -instance IsGObject CloseEventInit where - typeGType _ = gTypeCloseEventInit - {-# INLINE typeGType #-} - -gTypeCloseEventInit :: JSM GType -gTypeCloseEventInit = GType . Object <$> jsg "CloseEventInit" - --- | Functions for this inteface are in "JSDOM.CommandLineAPIHost". --- --- -newtype CommandLineAPIHost = CommandLineAPIHost { unCommandLineAPIHost :: JSVal } - -instance PToJSVal CommandLineAPIHost where - pToJSVal = unCommandLineAPIHost - {-# INLINE pToJSVal #-} - -instance PFromJSVal CommandLineAPIHost where - pFromJSVal = CommandLineAPIHost - {-# INLINE pFromJSVal #-} - -instance ToJSVal CommandLineAPIHost where - toJSVal = return . unCommandLineAPIHost - {-# INLINE toJSVal #-} - -instance FromJSVal CommandLineAPIHost where - fromJSVal v = fmap CommandLineAPIHost <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CommandLineAPIHost - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CommandLineAPIHost where - makeObject = makeObject . unCommandLineAPIHost - -instance IsGObject CommandLineAPIHost where - typeGType _ = gTypeCommandLineAPIHost - {-# INLINE typeGType #-} - -gTypeCommandLineAPIHost :: JSM GType -gTypeCommandLineAPIHost = GType . Object <$> jsg "CommandLineAPIHost" - --- | Functions for this inteface are in "JSDOM.Comment". --- Base interface functions are in: --- --- * "JSDOM.CharacterData" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- --- -newtype Comment = Comment { unComment :: JSVal } - -instance PToJSVal Comment where - pToJSVal = unComment - {-# INLINE pToJSVal #-} - -instance PFromJSVal Comment where - pFromJSVal = Comment - {-# INLINE pFromJSVal #-} - -instance ToJSVal Comment where - toJSVal = return . unComment - {-# INLINE toJSVal #-} - -instance FromJSVal Comment where - fromJSVal v = fmap Comment <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Comment - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Comment where - makeObject = makeObject . unComment - -instance IsCharacterData Comment -instance IsNode Comment -instance IsEventTarget Comment -instance IsNonDocumentTypeChildNode Comment -instance IsChildNode Comment -instance IsGObject Comment where - typeGType _ = gTypeComment - {-# INLINE typeGType #-} - -gTypeComment :: JSM GType -gTypeComment = GType . Object <$> jsg "Comment" - --- | Functions for this inteface are in "JSDOM.CompositionEvent". --- Base interface functions are in: --- --- * "JSDOM.UIEvent" --- * "JSDOM.Event" --- --- -newtype CompositionEvent = CompositionEvent { unCompositionEvent :: JSVal } - -instance PToJSVal CompositionEvent where - pToJSVal = unCompositionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal CompositionEvent where - pFromJSVal = CompositionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal CompositionEvent where - toJSVal = return . unCompositionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal CompositionEvent where - fromJSVal v = fmap CompositionEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CompositionEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CompositionEvent where - makeObject = makeObject . unCompositionEvent - -instance IsUIEvent CompositionEvent -instance IsEvent CompositionEvent -instance IsGObject CompositionEvent where - typeGType _ = gTypeCompositionEvent - {-# INLINE typeGType #-} - -gTypeCompositionEvent :: JSM GType -gTypeCompositionEvent = GType . Object <$> jsg "CompositionEvent" - --- | Functions for this inteface are in "JSDOM.CompositionEventInit". --- Base interface functions are in: --- --- * "JSDOM.UIEventInit" --- * "JSDOM.EventInit" --- --- -newtype CompositionEventInit = CompositionEventInit { unCompositionEventInit :: JSVal } - -instance PToJSVal CompositionEventInit where - pToJSVal = unCompositionEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal CompositionEventInit where - pFromJSVal = CompositionEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal CompositionEventInit where - toJSVal = return . unCompositionEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal CompositionEventInit where - fromJSVal v = fmap CompositionEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CompositionEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CompositionEventInit where - makeObject = makeObject . unCompositionEventInit - -instance IsUIEventInit CompositionEventInit -instance IsEventInit CompositionEventInit -instance IsGObject CompositionEventInit where - typeGType _ = gTypeCompositionEventInit - {-# INLINE typeGType #-} - -gTypeCompositionEventInit :: JSM GType -gTypeCompositionEventInit = GType . Object <$> jsg "CompositionEventInit" - --- | Functions for this inteface are in "JSDOM.ConstrainBooleanParameters". --- --- -newtype ConstrainBooleanParameters = ConstrainBooleanParameters { unConstrainBooleanParameters :: JSVal } - -instance PToJSVal ConstrainBooleanParameters where - pToJSVal = unConstrainBooleanParameters - {-# INLINE pToJSVal #-} - -instance PFromJSVal ConstrainBooleanParameters where - pFromJSVal = ConstrainBooleanParameters - {-# INLINE pFromJSVal #-} - -instance ToJSVal ConstrainBooleanParameters where - toJSVal = return . unConstrainBooleanParameters - {-# INLINE toJSVal #-} - -instance FromJSVal ConstrainBooleanParameters where - fromJSVal v = fmap ConstrainBooleanParameters <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ConstrainBooleanParameters - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ConstrainBooleanParameters where - makeObject = makeObject . unConstrainBooleanParameters - -instance IsGObject ConstrainBooleanParameters where - typeGType _ = gTypeConstrainBooleanParameters - {-# INLINE typeGType #-} - -gTypeConstrainBooleanParameters :: JSM GType -gTypeConstrainBooleanParameters = GType . Object <$> jsg "ConstrainBooleanParameters" - --- | Functions for this inteface are in "JSDOM.ConstrainDOMStringParameters". --- --- -newtype ConstrainDOMStringParameters = ConstrainDOMStringParameters { unConstrainDOMStringParameters :: JSVal } - -instance PToJSVal ConstrainDOMStringParameters where - pToJSVal = unConstrainDOMStringParameters - {-# INLINE pToJSVal #-} - -instance PFromJSVal ConstrainDOMStringParameters where - pFromJSVal = ConstrainDOMStringParameters - {-# INLINE pFromJSVal #-} - -instance ToJSVal ConstrainDOMStringParameters where - toJSVal = return . unConstrainDOMStringParameters - {-# INLINE toJSVal #-} - -instance FromJSVal ConstrainDOMStringParameters where - fromJSVal v = fmap ConstrainDOMStringParameters <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ConstrainDOMStringParameters - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ConstrainDOMStringParameters where - makeObject = makeObject . unConstrainDOMStringParameters - -instance IsGObject ConstrainDOMStringParameters where - typeGType _ = gTypeConstrainDOMStringParameters - {-# INLINE typeGType #-} - -gTypeConstrainDOMStringParameters :: JSM GType -gTypeConstrainDOMStringParameters = GType . Object <$> jsg "ConstrainDOMStringParameters" - --- | Functions for this inteface are in "JSDOM.ConstrainDoubleRange". --- Base interface functions are in: --- --- * "JSDOM.DoubleRange" --- --- -newtype ConstrainDoubleRange = ConstrainDoubleRange { unConstrainDoubleRange :: JSVal } - -instance PToJSVal ConstrainDoubleRange where - pToJSVal = unConstrainDoubleRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal ConstrainDoubleRange where - pFromJSVal = ConstrainDoubleRange - {-# INLINE pFromJSVal #-} - -instance ToJSVal ConstrainDoubleRange where - toJSVal = return . unConstrainDoubleRange - {-# INLINE toJSVal #-} - -instance FromJSVal ConstrainDoubleRange where - fromJSVal v = fmap ConstrainDoubleRange <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ConstrainDoubleRange - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ConstrainDoubleRange where - makeObject = makeObject . unConstrainDoubleRange - -instance IsDoubleRange ConstrainDoubleRange -instance IsGObject ConstrainDoubleRange where - typeGType _ = gTypeConstrainDoubleRange - {-# INLINE typeGType #-} - -gTypeConstrainDoubleRange :: JSM GType -gTypeConstrainDoubleRange = GType . Object <$> jsg "ConstrainDoubleRange" - --- | Functions for this inteface are in "JSDOM.ConstrainLongRange". --- Base interface functions are in: --- --- * "JSDOM.LongRange" --- --- -newtype ConstrainLongRange = ConstrainLongRange { unConstrainLongRange :: JSVal } - -instance PToJSVal ConstrainLongRange where - pToJSVal = unConstrainLongRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal ConstrainLongRange where - pFromJSVal = ConstrainLongRange - {-# INLINE pFromJSVal #-} - -instance ToJSVal ConstrainLongRange where - toJSVal = return . unConstrainLongRange - {-# INLINE toJSVal #-} - -instance FromJSVal ConstrainLongRange where - fromJSVal v = fmap ConstrainLongRange <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ConstrainLongRange - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ConstrainLongRange where - makeObject = makeObject . unConstrainLongRange - -instance IsLongRange ConstrainLongRange -instance IsGObject ConstrainLongRange where - typeGType _ = gTypeConstrainLongRange - {-# INLINE typeGType #-} - -gTypeConstrainLongRange :: JSM GType -gTypeConstrainLongRange = GType . Object <$> jsg "ConstrainLongRange" - --- | Functions for this inteface are in "JSDOM.ConvolverNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype ConvolverNode = ConvolverNode { unConvolverNode :: JSVal } - -instance PToJSVal ConvolverNode where - pToJSVal = unConvolverNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ConvolverNode where - pFromJSVal = ConvolverNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ConvolverNode where - toJSVal = return . unConvolverNode - {-# INLINE toJSVal #-} - -instance FromJSVal ConvolverNode where - fromJSVal v = fmap ConvolverNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ConvolverNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ConvolverNode where - makeObject = makeObject . unConvolverNode - -instance IsAudioNode ConvolverNode -instance IsEventTarget ConvolverNode -instance IsGObject ConvolverNode where - typeGType _ = gTypeConvolverNode - {-# INLINE typeGType #-} - -gTypeConvolverNode :: JSM GType -gTypeConvolverNode = GType . Object <$> jsg "ConvolverNode" - --- | Functions for this inteface are in "JSDOM.Coordinates". --- --- -newtype Coordinates = Coordinates { unCoordinates :: JSVal } - -instance PToJSVal Coordinates where - pToJSVal = unCoordinates - {-# INLINE pToJSVal #-} - -instance PFromJSVal Coordinates where - pFromJSVal = Coordinates - {-# INLINE pFromJSVal #-} - -instance ToJSVal Coordinates where - toJSVal = return . unCoordinates - {-# INLINE toJSVal #-} - -instance FromJSVal Coordinates where - fromJSVal v = fmap Coordinates <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Coordinates - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Coordinates where - makeObject = makeObject . unCoordinates - -instance IsGObject Coordinates where - typeGType _ = gTypeCoordinates - {-# INLINE typeGType #-} - -gTypeCoordinates :: JSM GType -gTypeCoordinates = GType . Object <$> jsg "Coordinates" - --- | Functions for this inteface are in "JSDOM.CountQueuingStrategy". --- --- -newtype CountQueuingStrategy = CountQueuingStrategy { unCountQueuingStrategy :: JSVal } - -instance PToJSVal CountQueuingStrategy where - pToJSVal = unCountQueuingStrategy - {-# INLINE pToJSVal #-} - -instance PFromJSVal CountQueuingStrategy where - pFromJSVal = CountQueuingStrategy - {-# INLINE pFromJSVal #-} - -instance ToJSVal CountQueuingStrategy where - toJSVal = return . unCountQueuingStrategy - {-# INLINE toJSVal #-} - -instance FromJSVal CountQueuingStrategy where - fromJSVal v = fmap CountQueuingStrategy <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CountQueuingStrategy - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CountQueuingStrategy where - makeObject = makeObject . unCountQueuingStrategy - -instance IsGObject CountQueuingStrategy where - typeGType _ = gTypeCountQueuingStrategy - {-# INLINE typeGType #-} - -gTypeCountQueuingStrategy :: JSM GType -gTypeCountQueuingStrategy = GType . Object <$> jsg "CountQueuingStrategy" - --- | Functions for this inteface are in "JSDOM.Counter". --- --- -newtype Counter = Counter { unCounter :: JSVal } - -instance PToJSVal Counter where - pToJSVal = unCounter - {-# INLINE pToJSVal #-} - -instance PFromJSVal Counter where - pFromJSVal = Counter - {-# INLINE pFromJSVal #-} - -instance ToJSVal Counter where - toJSVal = return . unCounter - {-# INLINE toJSVal #-} - -instance FromJSVal Counter where - fromJSVal v = fmap Counter <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Counter - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Counter where - makeObject = makeObject . unCounter - -instance IsGObject Counter where - typeGType _ = gTypeCounter - {-# INLINE typeGType #-} - -gTypeCounter :: JSM GType -gTypeCounter = GType . Object <$> jsg "Counter" - --- | Functions for this inteface are in "JSDOM.Crypto". --- --- -newtype Crypto = Crypto { unCrypto :: JSVal } - -instance PToJSVal Crypto where - pToJSVal = unCrypto - {-# INLINE pToJSVal #-} - -instance PFromJSVal Crypto where - pFromJSVal = Crypto - {-# INLINE pFromJSVal #-} - -instance ToJSVal Crypto where - toJSVal = return . unCrypto - {-# INLINE toJSVal #-} - -instance FromJSVal Crypto where - fromJSVal v = fmap Crypto <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Crypto - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Crypto where - makeObject = makeObject . unCrypto - -instance IsGObject Crypto where - typeGType _ = gTypeCrypto - {-# INLINE typeGType #-} - -gTypeCrypto :: JSM GType -gTypeCrypto = GType . Object <$> jsg "Crypto" - --- | Functions for this inteface are in "JSDOM.CryptoAlgorithmParameters". --- --- -newtype CryptoAlgorithmParameters = CryptoAlgorithmParameters { unCryptoAlgorithmParameters :: JSVal } - -instance PToJSVal CryptoAlgorithmParameters where - pToJSVal = unCryptoAlgorithmParameters - {-# INLINE pToJSVal #-} - -instance PFromJSVal CryptoAlgorithmParameters where - pFromJSVal = CryptoAlgorithmParameters - {-# INLINE pFromJSVal #-} - -instance ToJSVal CryptoAlgorithmParameters where - toJSVal = return . unCryptoAlgorithmParameters - {-# INLINE toJSVal #-} - -instance FromJSVal CryptoAlgorithmParameters where - fromJSVal v = fmap CryptoAlgorithmParameters <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CryptoAlgorithmParameters - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CryptoAlgorithmParameters where - makeObject = makeObject . unCryptoAlgorithmParameters - -class (IsGObject o) => IsCryptoAlgorithmParameters o -toCryptoAlgorithmParameters :: IsCryptoAlgorithmParameters o => o -> CryptoAlgorithmParameters -toCryptoAlgorithmParameters = CryptoAlgorithmParameters . coerce - -instance IsCryptoAlgorithmParameters CryptoAlgorithmParameters -instance IsGObject CryptoAlgorithmParameters where - typeGType _ = gTypeCryptoAlgorithmParameters - {-# INLINE typeGType #-} - -gTypeCryptoAlgorithmParameters :: JSM GType -gTypeCryptoAlgorithmParameters = GType . Object <$> jsg "CryptoAlgorithmParameters" - --- | Functions for this inteface are in "JSDOM.CryptoKey". --- --- -newtype CryptoKey = CryptoKey { unCryptoKey :: JSVal } - -instance PToJSVal CryptoKey where - pToJSVal = unCryptoKey - {-# INLINE pToJSVal #-} - -instance PFromJSVal CryptoKey where - pFromJSVal = CryptoKey - {-# INLINE pFromJSVal #-} - -instance ToJSVal CryptoKey where - toJSVal = return . unCryptoKey - {-# INLINE toJSVal #-} - -instance FromJSVal CryptoKey where - fromJSVal v = fmap CryptoKey <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CryptoKey - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CryptoKey where - makeObject = makeObject . unCryptoKey - -instance IsGObject CryptoKey where - typeGType _ = gTypeCryptoKey - {-# INLINE typeGType #-} - -gTypeCryptoKey :: JSM GType -gTypeCryptoKey = GType . Object <$> jsg "CryptoKey" - --- | Functions for this inteface are in "JSDOM.CryptoKeyPair". --- --- -newtype CryptoKeyPair = CryptoKeyPair { unCryptoKeyPair :: JSVal } - -instance PToJSVal CryptoKeyPair where - pToJSVal = unCryptoKeyPair - {-# INLINE pToJSVal #-} - -instance PFromJSVal CryptoKeyPair where - pFromJSVal = CryptoKeyPair - {-# INLINE pFromJSVal #-} - -instance ToJSVal CryptoKeyPair where - toJSVal = return . unCryptoKeyPair - {-# INLINE toJSVal #-} - -instance FromJSVal CryptoKeyPair where - fromJSVal v = fmap CryptoKeyPair <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CryptoKeyPair - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CryptoKeyPair where - makeObject = makeObject . unCryptoKeyPair - -instance IsGObject CryptoKeyPair where - typeGType _ = gTypeCryptoKeyPair - {-# INLINE typeGType #-} - -gTypeCryptoKeyPair :: JSM GType -gTypeCryptoKeyPair = GType . Object <$> jsg "CryptoKeyPair" - --- | Functions for this inteface are in "JSDOM.CustomElementRegistry". --- --- -newtype CustomElementRegistry = CustomElementRegistry { unCustomElementRegistry :: JSVal } - -instance PToJSVal CustomElementRegistry where - pToJSVal = unCustomElementRegistry - {-# INLINE pToJSVal #-} - -instance PFromJSVal CustomElementRegistry where - pFromJSVal = CustomElementRegistry - {-# INLINE pFromJSVal #-} - -instance ToJSVal CustomElementRegistry where - toJSVal = return . unCustomElementRegistry - {-# INLINE toJSVal #-} - -instance FromJSVal CustomElementRegistry where - fromJSVal v = fmap CustomElementRegistry <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CustomElementRegistry - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CustomElementRegistry where - makeObject = makeObject . unCustomElementRegistry - -instance IsGObject CustomElementRegistry where - typeGType _ = gTypeCustomElementRegistry - {-# INLINE typeGType #-} - -gTypeCustomElementRegistry :: JSM GType -gTypeCustomElementRegistry = GType . Object <$> jsg "CustomElementRegistry" - --- | Functions for this inteface are in "JSDOM.CustomEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype CustomEvent = CustomEvent { unCustomEvent :: JSVal } - -instance PToJSVal CustomEvent where - pToJSVal = unCustomEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal CustomEvent where - pFromJSVal = CustomEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal CustomEvent where - toJSVal = return . unCustomEvent - {-# INLINE toJSVal #-} - -instance FromJSVal CustomEvent where - fromJSVal v = fmap CustomEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CustomEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CustomEvent where - makeObject = makeObject . unCustomEvent - -instance IsEvent CustomEvent -instance IsGObject CustomEvent where - typeGType _ = gTypeCustomEvent - {-# INLINE typeGType #-} - -gTypeCustomEvent :: JSM GType -gTypeCustomEvent = GType . Object <$> jsg "CustomEvent" - --- | Functions for this inteface are in "JSDOM.CustomEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype CustomEventInit = CustomEventInit { unCustomEventInit :: JSVal } - -instance PToJSVal CustomEventInit where - pToJSVal = unCustomEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal CustomEventInit where - pFromJSVal = CustomEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal CustomEventInit where - toJSVal = return . unCustomEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal CustomEventInit where - fromJSVal v = fmap CustomEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . CustomEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject CustomEventInit where - makeObject = makeObject . unCustomEventInit - -instance IsEventInit CustomEventInit -instance IsGObject CustomEventInit where - typeGType _ = gTypeCustomEventInit - {-# INLINE typeGType #-} - -gTypeCustomEventInit :: JSM GType -gTypeCustomEventInit = GType . Object <$> jsg "CustomEventInit" - --- | Functions for this inteface are in "JSDOM.DOMError". --- --- -newtype DOMError = DOMError { unDOMError :: JSVal } - -instance PToJSVal DOMError where - pToJSVal = unDOMError - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMError where - pFromJSVal = DOMError - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMError where - toJSVal = return . unDOMError - {-# INLINE toJSVal #-} - -instance FromJSVal DOMError where - fromJSVal v = fmap DOMError <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMError - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMError where - makeObject = makeObject . unDOMError - -class (IsGObject o) => IsDOMError o -toDOMError :: IsDOMError o => o -> DOMError -toDOMError = DOMError . coerce - -instance IsDOMError DOMError -instance IsGObject DOMError where - typeGType _ = gTypeDOMError - {-# INLINE typeGType #-} - -gTypeDOMError :: JSM GType -gTypeDOMError = GType . Object <$> jsg "DOMError" - --- | Functions for this inteface are in "JSDOM.DOMException". --- --- -newtype DOMException = DOMException { unDOMException :: JSVal } - -instance PToJSVal DOMException where - pToJSVal = unDOMException - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMException where - pFromJSVal = DOMException - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMException where - toJSVal = return . unDOMException - {-# INLINE toJSVal #-} - -instance FromJSVal DOMException where - fromJSVal v = fmap DOMException <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMException - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMException where - makeObject = makeObject . unDOMException - -instance IsGObject DOMException where - typeGType _ = gTypeDOMException - {-# INLINE typeGType #-} - -gTypeDOMException :: JSM GType -gTypeDOMException = GType . Object <$> jsg "DOMException" - --- | Functions for this inteface are in "JSDOM.DOMImplementation". --- --- -newtype DOMImplementation = DOMImplementation { unDOMImplementation :: JSVal } - -instance PToJSVal DOMImplementation where - pToJSVal = unDOMImplementation - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMImplementation where - pFromJSVal = DOMImplementation - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMImplementation where - toJSVal = return . unDOMImplementation - {-# INLINE toJSVal #-} - -instance FromJSVal DOMImplementation where - fromJSVal v = fmap DOMImplementation <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMImplementation - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMImplementation where - makeObject = makeObject . unDOMImplementation - -instance IsGObject DOMImplementation where - typeGType _ = gTypeDOMImplementation - {-# INLINE typeGType #-} - -gTypeDOMImplementation :: JSM GType -gTypeDOMImplementation = GType . Object <$> jsg "DOMImplementation" - --- | Functions for this inteface are in "JSDOM.DOMNamedFlowCollection". --- --- -newtype DOMNamedFlowCollection = DOMNamedFlowCollection { unDOMNamedFlowCollection :: JSVal } - -instance PToJSVal DOMNamedFlowCollection where - pToJSVal = unDOMNamedFlowCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMNamedFlowCollection where - pFromJSVal = DOMNamedFlowCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMNamedFlowCollection where - toJSVal = return . unDOMNamedFlowCollection - {-# INLINE toJSVal #-} - -instance FromJSVal DOMNamedFlowCollection where - fromJSVal v = fmap DOMNamedFlowCollection <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMNamedFlowCollection - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMNamedFlowCollection where - makeObject = makeObject . unDOMNamedFlowCollection - -instance IsGObject DOMNamedFlowCollection where - typeGType _ = gTypeDOMNamedFlowCollection - {-# INLINE typeGType #-} - -gTypeDOMNamedFlowCollection :: JSM GType -gTypeDOMNamedFlowCollection = GType . Object <$> jsg "WebKitNamedFlowCollection" - --- | Functions for this inteface are in "JSDOM.DOMParser". --- --- -newtype DOMParser = DOMParser { unDOMParser :: JSVal } - -instance PToJSVal DOMParser where - pToJSVal = unDOMParser - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMParser where - pFromJSVal = DOMParser - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMParser where - toJSVal = return . unDOMParser - {-# INLINE toJSVal #-} - -instance FromJSVal DOMParser where - fromJSVal v = fmap DOMParser <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMParser - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMParser where - makeObject = makeObject . unDOMParser - -instance IsGObject DOMParser where - typeGType _ = gTypeDOMParser - {-# INLINE typeGType #-} - -gTypeDOMParser :: JSM GType -gTypeDOMParser = GType . Object <$> jsg "DOMParser" - --- | Functions for this inteface are in "JSDOM.DOMPoint". --- Base interface functions are in: --- --- * "JSDOM.DOMPointReadOnly" --- --- -newtype DOMPoint = DOMPoint { unDOMPoint :: JSVal } - -instance PToJSVal DOMPoint where - pToJSVal = unDOMPoint - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMPoint where - pFromJSVal = DOMPoint - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMPoint where - toJSVal = return . unDOMPoint - {-# INLINE toJSVal #-} - -instance FromJSVal DOMPoint where - fromJSVal v = fmap DOMPoint <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMPoint - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMPoint where - makeObject = makeObject . unDOMPoint - -instance IsDOMPointReadOnly DOMPoint -instance IsGObject DOMPoint where - typeGType _ = gTypeDOMPoint - {-# INLINE typeGType #-} - -gTypeDOMPoint :: JSM GType -gTypeDOMPoint = GType . Object <$> jsg "DOMPoint" - --- | Functions for this inteface are in "JSDOM.DOMPointInit". --- --- -newtype DOMPointInit = DOMPointInit { unDOMPointInit :: JSVal } - -instance PToJSVal DOMPointInit where - pToJSVal = unDOMPointInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMPointInit where - pFromJSVal = DOMPointInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMPointInit where - toJSVal = return . unDOMPointInit - {-# INLINE toJSVal #-} - -instance FromJSVal DOMPointInit where - fromJSVal v = fmap DOMPointInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMPointInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMPointInit where - makeObject = makeObject . unDOMPointInit - -instance IsGObject DOMPointInit where - typeGType _ = gTypeDOMPointInit - {-# INLINE typeGType #-} - -gTypeDOMPointInit :: JSM GType -gTypeDOMPointInit = GType . Object <$> jsg "DOMPointInit" - --- | Functions for this inteface are in "JSDOM.DOMPointReadOnly". --- --- -newtype DOMPointReadOnly = DOMPointReadOnly { unDOMPointReadOnly :: JSVal } - -instance PToJSVal DOMPointReadOnly where - pToJSVal = unDOMPointReadOnly - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMPointReadOnly where - pFromJSVal = DOMPointReadOnly - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMPointReadOnly where - toJSVal = return . unDOMPointReadOnly - {-# INLINE toJSVal #-} - -instance FromJSVal DOMPointReadOnly where - fromJSVal v = fmap DOMPointReadOnly <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMPointReadOnly - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMPointReadOnly where - makeObject = makeObject . unDOMPointReadOnly - -class (IsGObject o) => IsDOMPointReadOnly o -toDOMPointReadOnly :: IsDOMPointReadOnly o => o -> DOMPointReadOnly -toDOMPointReadOnly = DOMPointReadOnly . coerce - -instance IsDOMPointReadOnly DOMPointReadOnly -instance IsGObject DOMPointReadOnly where - typeGType _ = gTypeDOMPointReadOnly - {-# INLINE typeGType #-} - -gTypeDOMPointReadOnly :: JSM GType -gTypeDOMPointReadOnly = GType . Object <$> jsg "DOMPointReadOnly" - --- | Functions for this inteface are in "JSDOM.DOMRect". --- Base interface functions are in: --- --- * "JSDOM.DOMRectReadOnly" --- --- -newtype DOMRect = DOMRect { unDOMRect :: JSVal } - -instance PToJSVal DOMRect where - pToJSVal = unDOMRect - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMRect where - pFromJSVal = DOMRect - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMRect where - toJSVal = return . unDOMRect - {-# INLINE toJSVal #-} - -instance FromJSVal DOMRect where - fromJSVal v = fmap DOMRect <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMRect - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMRect where - makeObject = makeObject . unDOMRect - -instance IsDOMRectReadOnly DOMRect -instance IsGObject DOMRect where - typeGType _ = gTypeDOMRect - {-# INLINE typeGType #-} - -gTypeDOMRect :: JSM GType -gTypeDOMRect = GType . Object <$> jsg "DOMRect" - --- | Functions for this inteface are in "JSDOM.DOMRectInit". --- --- -newtype DOMRectInit = DOMRectInit { unDOMRectInit :: JSVal } - -instance PToJSVal DOMRectInit where - pToJSVal = unDOMRectInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMRectInit where - pFromJSVal = DOMRectInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMRectInit where - toJSVal = return . unDOMRectInit - {-# INLINE toJSVal #-} - -instance FromJSVal DOMRectInit where - fromJSVal v = fmap DOMRectInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMRectInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMRectInit where - makeObject = makeObject . unDOMRectInit - -instance IsGObject DOMRectInit where - typeGType _ = gTypeDOMRectInit - {-# INLINE typeGType #-} - -gTypeDOMRectInit :: JSM GType -gTypeDOMRectInit = GType . Object <$> jsg "DOMRectInit" - --- | Functions for this inteface are in "JSDOM.DOMRectReadOnly". --- --- -newtype DOMRectReadOnly = DOMRectReadOnly { unDOMRectReadOnly :: JSVal } - -instance PToJSVal DOMRectReadOnly where - pToJSVal = unDOMRectReadOnly - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMRectReadOnly where - pFromJSVal = DOMRectReadOnly - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMRectReadOnly where - toJSVal = return . unDOMRectReadOnly - {-# INLINE toJSVal #-} - -instance FromJSVal DOMRectReadOnly where - fromJSVal v = fmap DOMRectReadOnly <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMRectReadOnly - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMRectReadOnly where - makeObject = makeObject . unDOMRectReadOnly - -class (IsGObject o) => IsDOMRectReadOnly o -toDOMRectReadOnly :: IsDOMRectReadOnly o => o -> DOMRectReadOnly -toDOMRectReadOnly = DOMRectReadOnly . coerce - -instance IsDOMRectReadOnly DOMRectReadOnly -instance IsGObject DOMRectReadOnly where - typeGType _ = gTypeDOMRectReadOnly - {-# INLINE typeGType #-} - -gTypeDOMRectReadOnly :: JSM GType -gTypeDOMRectReadOnly = GType . Object <$> jsg "DOMRectReadOnly" - --- | Functions for this inteface are in "JSDOM.DOMStringList". --- --- -newtype DOMStringList = DOMStringList { unDOMStringList :: JSVal } - -instance PToJSVal DOMStringList where - pToJSVal = unDOMStringList - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMStringList where - pFromJSVal = DOMStringList - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMStringList where - toJSVal = return . unDOMStringList - {-# INLINE toJSVal #-} - -instance FromJSVal DOMStringList where - fromJSVal v = fmap DOMStringList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMStringList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMStringList where - makeObject = makeObject . unDOMStringList - -instance IsGObject DOMStringList where - typeGType _ = gTypeDOMStringList - {-# INLINE typeGType #-} - -gTypeDOMStringList :: JSM GType -gTypeDOMStringList = GType . Object <$> jsg "DOMStringList" - --- | Functions for this inteface are in "JSDOM.DOMStringMap". --- --- -newtype DOMStringMap = DOMStringMap { unDOMStringMap :: JSVal } - -instance PToJSVal DOMStringMap where - pToJSVal = unDOMStringMap - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMStringMap where - pFromJSVal = DOMStringMap - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMStringMap where - toJSVal = return . unDOMStringMap - {-# INLINE toJSVal #-} - -instance FromJSVal DOMStringMap where - fromJSVal v = fmap DOMStringMap <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMStringMap - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMStringMap where - makeObject = makeObject . unDOMStringMap - -instance IsGObject DOMStringMap where - typeGType _ = gTypeDOMStringMap - {-# INLINE typeGType #-} - -gTypeDOMStringMap :: JSM GType -gTypeDOMStringMap = GType . Object <$> jsg "DOMStringMap" - --- | Functions for this inteface are in "JSDOM.DOMTokenList". --- --- -newtype DOMTokenList = DOMTokenList { unDOMTokenList :: JSVal } - -instance PToJSVal DOMTokenList where - pToJSVal = unDOMTokenList - {-# INLINE pToJSVal #-} - -instance PFromJSVal DOMTokenList where - pFromJSVal = DOMTokenList - {-# INLINE pFromJSVal #-} - -instance ToJSVal DOMTokenList where - toJSVal = return . unDOMTokenList - {-# INLINE toJSVal #-} - -instance FromJSVal DOMTokenList where - fromJSVal v = fmap DOMTokenList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DOMTokenList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DOMTokenList where - makeObject = makeObject . unDOMTokenList - -instance IsGObject DOMTokenList where - typeGType _ = gTypeDOMTokenList - {-# INLINE typeGType #-} - -gTypeDOMTokenList :: JSM GType -gTypeDOMTokenList = GType . Object <$> jsg "DOMTokenList" - --- | Functions for this inteface are in "JSDOM.DataCue". --- Base interface functions are in: --- --- * "JSDOM.TextTrackCue" --- * "JSDOM.EventTarget" --- --- -newtype DataCue = DataCue { unDataCue :: JSVal } - -instance PToJSVal DataCue where - pToJSVal = unDataCue - {-# INLINE pToJSVal #-} - -instance PFromJSVal DataCue where - pFromJSVal = DataCue - {-# INLINE pFromJSVal #-} - -instance ToJSVal DataCue where - toJSVal = return . unDataCue - {-# INLINE toJSVal #-} - -instance FromJSVal DataCue where - fromJSVal v = fmap DataCue <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DataCue - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DataCue where - makeObject = makeObject . unDataCue - -instance IsTextTrackCue DataCue -instance IsEventTarget DataCue -instance IsGObject DataCue where - typeGType _ = gTypeDataCue - {-# INLINE typeGType #-} - -gTypeDataCue :: JSM GType -gTypeDataCue = GType . Object <$> jsg "WebKitDataCue" - --- | Functions for this inteface are in "JSDOM.DataTransfer". --- --- -newtype DataTransfer = DataTransfer { unDataTransfer :: JSVal } - -instance PToJSVal DataTransfer where - pToJSVal = unDataTransfer - {-# INLINE pToJSVal #-} - -instance PFromJSVal DataTransfer where - pFromJSVal = DataTransfer - {-# INLINE pFromJSVal #-} - -instance ToJSVal DataTransfer where - toJSVal = return . unDataTransfer - {-# INLINE toJSVal #-} - -instance FromJSVal DataTransfer where - fromJSVal v = fmap DataTransfer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DataTransfer - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DataTransfer where - makeObject = makeObject . unDataTransfer - -instance IsGObject DataTransfer where - typeGType _ = gTypeDataTransfer - {-# INLINE typeGType #-} - -gTypeDataTransfer :: JSM GType -gTypeDataTransfer = GType . Object <$> jsg "DataTransfer" - --- | Functions for this inteface are in "JSDOM.DataTransferItem". --- --- -newtype DataTransferItem = DataTransferItem { unDataTransferItem :: JSVal } - -instance PToJSVal DataTransferItem where - pToJSVal = unDataTransferItem - {-# INLINE pToJSVal #-} - -instance PFromJSVal DataTransferItem where - pFromJSVal = DataTransferItem - {-# INLINE pFromJSVal #-} - -instance ToJSVal DataTransferItem where - toJSVal = return . unDataTransferItem - {-# INLINE toJSVal #-} - -instance FromJSVal DataTransferItem where - fromJSVal v = fmap DataTransferItem <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DataTransferItem - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DataTransferItem where - makeObject = makeObject . unDataTransferItem - -instance IsGObject DataTransferItem where - typeGType _ = gTypeDataTransferItem - {-# INLINE typeGType #-} - -gTypeDataTransferItem :: JSM GType -gTypeDataTransferItem = GType . Object <$> jsg "DataTransferItem" - --- | Functions for this inteface are in "JSDOM.DataTransferItemList". --- --- -newtype DataTransferItemList = DataTransferItemList { unDataTransferItemList :: JSVal } - -instance PToJSVal DataTransferItemList where - pToJSVal = unDataTransferItemList - {-# INLINE pToJSVal #-} - -instance PFromJSVal DataTransferItemList where - pFromJSVal = DataTransferItemList - {-# INLINE pFromJSVal #-} - -instance ToJSVal DataTransferItemList where - toJSVal = return . unDataTransferItemList - {-# INLINE toJSVal #-} - -instance FromJSVal DataTransferItemList where - fromJSVal v = fmap DataTransferItemList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DataTransferItemList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DataTransferItemList where - makeObject = makeObject . unDataTransferItemList - -instance IsGObject DataTransferItemList where - typeGType _ = gTypeDataTransferItemList - {-# INLINE typeGType #-} - -gTypeDataTransferItemList :: JSM GType -gTypeDataTransferItemList = GType . Object <$> jsg "DataTransferItemList" - --- | Functions for this inteface are in "JSDOM.Database". --- --- -newtype Database = Database { unDatabase :: JSVal } - -instance PToJSVal Database where - pToJSVal = unDatabase - {-# INLINE pToJSVal #-} - -instance PFromJSVal Database where - pFromJSVal = Database - {-# INLINE pFromJSVal #-} - -instance ToJSVal Database where - toJSVal = return . unDatabase - {-# INLINE toJSVal #-} - -instance FromJSVal Database where - fromJSVal v = fmap Database <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Database - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Database where - makeObject = makeObject . unDatabase - -instance IsGObject Database where - typeGType _ = gTypeDatabase - {-# INLINE typeGType #-} - -gTypeDatabase :: JSM GType -gTypeDatabase = GType . Object <$> jsg "Database" - --- | Functions for this inteface are in "JSDOM.DedicatedWorkerGlobalScope". --- Base interface functions are in: --- --- * "JSDOM.WorkerGlobalScope" --- * "JSDOM.EventTarget" --- * "JSDOM.WindowOrWorkerGlobalScope" --- * "JSDOM.GlobalPerformance" --- * "JSDOM.GlobalCrypto" --- --- -newtype DedicatedWorkerGlobalScope = DedicatedWorkerGlobalScope { unDedicatedWorkerGlobalScope :: JSVal } - -instance PToJSVal DedicatedWorkerGlobalScope where - pToJSVal = unDedicatedWorkerGlobalScope - {-# INLINE pToJSVal #-} - -instance PFromJSVal DedicatedWorkerGlobalScope where - pFromJSVal = DedicatedWorkerGlobalScope - {-# INLINE pFromJSVal #-} - -instance ToJSVal DedicatedWorkerGlobalScope where - toJSVal = return . unDedicatedWorkerGlobalScope - {-# INLINE toJSVal #-} - -instance FromJSVal DedicatedWorkerGlobalScope where - fromJSVal v = fmap DedicatedWorkerGlobalScope <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DedicatedWorkerGlobalScope - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DedicatedWorkerGlobalScope where - makeObject = makeObject . unDedicatedWorkerGlobalScope - -instance IsWorkerGlobalScope DedicatedWorkerGlobalScope -instance IsEventTarget DedicatedWorkerGlobalScope -instance IsWindowOrWorkerGlobalScope DedicatedWorkerGlobalScope -instance IsGlobalPerformance DedicatedWorkerGlobalScope -instance IsGlobalCrypto DedicatedWorkerGlobalScope -instance IsGObject DedicatedWorkerGlobalScope where - typeGType _ = gTypeDedicatedWorkerGlobalScope - {-# INLINE typeGType #-} - -gTypeDedicatedWorkerGlobalScope :: JSM GType -gTypeDedicatedWorkerGlobalScope = GType . Object <$> jsg "DedicatedWorkerGlobalScope" - --- | Functions for this inteface are in "JSDOM.DelayNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype DelayNode = DelayNode { unDelayNode :: JSVal } - -instance PToJSVal DelayNode where - pToJSVal = unDelayNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal DelayNode where - pFromJSVal = DelayNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal DelayNode where - toJSVal = return . unDelayNode - {-# INLINE toJSVal #-} - -instance FromJSVal DelayNode where - fromJSVal v = fmap DelayNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DelayNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DelayNode where - makeObject = makeObject . unDelayNode - -instance IsAudioNode DelayNode -instance IsEventTarget DelayNode -instance IsGObject DelayNode where - typeGType _ = gTypeDelayNode - {-# INLINE typeGType #-} - -gTypeDelayNode :: JSM GType -gTypeDelayNode = GType . Object <$> jsg "DelayNode" - --- | Functions for this inteface are in "JSDOM.DeviceMotionEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype DeviceMotionEvent = DeviceMotionEvent { unDeviceMotionEvent :: JSVal } - -instance PToJSVal DeviceMotionEvent where - pToJSVal = unDeviceMotionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal DeviceMotionEvent where - pFromJSVal = DeviceMotionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal DeviceMotionEvent where - toJSVal = return . unDeviceMotionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal DeviceMotionEvent where - fromJSVal v = fmap DeviceMotionEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DeviceMotionEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DeviceMotionEvent where - makeObject = makeObject . unDeviceMotionEvent - -instance IsEvent DeviceMotionEvent -instance IsGObject DeviceMotionEvent where - typeGType _ = gTypeDeviceMotionEvent - {-# INLINE typeGType #-} - -gTypeDeviceMotionEvent :: JSM GType -gTypeDeviceMotionEvent = GType . Object <$> jsg "DeviceMotionEvent" - --- | Functions for this inteface are in "JSDOM.DeviceOrientationEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype DeviceOrientationEvent = DeviceOrientationEvent { unDeviceOrientationEvent :: JSVal } - -instance PToJSVal DeviceOrientationEvent where - pToJSVal = unDeviceOrientationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal DeviceOrientationEvent where - pFromJSVal = DeviceOrientationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal DeviceOrientationEvent where - toJSVal = return . unDeviceOrientationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal DeviceOrientationEvent where - fromJSVal v = fmap DeviceOrientationEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DeviceOrientationEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DeviceOrientationEvent where - makeObject = makeObject . unDeviceOrientationEvent - -instance IsEvent DeviceOrientationEvent -instance IsGObject DeviceOrientationEvent where - typeGType _ = gTypeDeviceOrientationEvent - {-# INLINE typeGType #-} - -gTypeDeviceOrientationEvent :: JSM GType -gTypeDeviceOrientationEvent = GType . Object <$> jsg "DeviceOrientationEvent" - --- | Functions for this inteface are in "JSDOM.DeviceProximityEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype DeviceProximityEvent = DeviceProximityEvent { unDeviceProximityEvent :: JSVal } - -instance PToJSVal DeviceProximityEvent where - pToJSVal = unDeviceProximityEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal DeviceProximityEvent where - pFromJSVal = DeviceProximityEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal DeviceProximityEvent where - toJSVal = return . unDeviceProximityEvent - {-# INLINE toJSVal #-} - -instance FromJSVal DeviceProximityEvent where - fromJSVal v = fmap DeviceProximityEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DeviceProximityEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DeviceProximityEvent where - makeObject = makeObject . unDeviceProximityEvent - -instance IsEvent DeviceProximityEvent -instance IsGObject DeviceProximityEvent where - typeGType _ = gTypeDeviceProximityEvent - {-# INLINE typeGType #-} - -gTypeDeviceProximityEvent :: JSM GType -gTypeDeviceProximityEvent = GType . Object <$> jsg "DeviceProximityEvent" - --- | Functions for this inteface are in "JSDOM.DeviceProximityEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype DeviceProximityEventInit = DeviceProximityEventInit { unDeviceProximityEventInit :: JSVal } - -instance PToJSVal DeviceProximityEventInit where - pToJSVal = unDeviceProximityEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal DeviceProximityEventInit where - pFromJSVal = DeviceProximityEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal DeviceProximityEventInit where - toJSVal = return . unDeviceProximityEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal DeviceProximityEventInit where - fromJSVal v = fmap DeviceProximityEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DeviceProximityEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DeviceProximityEventInit where - makeObject = makeObject . unDeviceProximityEventInit - -instance IsEventInit DeviceProximityEventInit -instance IsGObject DeviceProximityEventInit where - typeGType _ = gTypeDeviceProximityEventInit - {-# INLINE typeGType #-} - -gTypeDeviceProximityEventInit :: JSM GType -gTypeDeviceProximityEventInit = GType . Object <$> jsg "DeviceProximityEventInit" - --- | Functions for this inteface are in "JSDOM.Document". --- Base interface functions are in: --- --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.DocumentOrShadowRoot" --- * "JSDOM.NonElementParentNode" --- * "JSDOM.ParentNode" --- --- -newtype Document = Document { unDocument :: JSVal } - -instance PToJSVal Document where - pToJSVal = unDocument - {-# INLINE pToJSVal #-} - -instance PFromJSVal Document where - pFromJSVal = Document - {-# INLINE pFromJSVal #-} - -instance ToJSVal Document where - toJSVal = return . unDocument - {-# INLINE toJSVal #-} - -instance FromJSVal Document where - fromJSVal v = fmap Document <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Document - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Document where - makeObject = makeObject . unDocument - -class (IsNode o, IsEventTarget o, IsGlobalEventHandlers o, IsDocumentOrShadowRoot o, IsNonElementParentNode o, IsParentNode o, IsGObject o) => IsDocument o -toDocument :: IsDocument o => o -> Document -toDocument = Document . coerce - -instance IsDocument Document -instance IsNode Document -instance IsEventTarget Document -instance IsGlobalEventHandlers Document -instance IsDocumentOrShadowRoot Document -instance IsNonElementParentNode Document -instance IsParentNode Document -instance IsGObject Document where - typeGType _ = gTypeDocument - {-# INLINE typeGType #-} - -gTypeDocument :: JSM GType -gTypeDocument = GType . Object <$> jsg "Document" - --- | Functions for this inteface are in "JSDOM.DocumentFragment". --- Base interface functions are in: --- --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.NonElementParentNode" --- * "JSDOM.ParentNode" --- --- -newtype DocumentFragment = DocumentFragment { unDocumentFragment :: JSVal } - -instance PToJSVal DocumentFragment where - pToJSVal = unDocumentFragment - {-# INLINE pToJSVal #-} - -instance PFromJSVal DocumentFragment where - pFromJSVal = DocumentFragment - {-# INLINE pFromJSVal #-} - -instance ToJSVal DocumentFragment where - toJSVal = return . unDocumentFragment - {-# INLINE toJSVal #-} - -instance FromJSVal DocumentFragment where - fromJSVal v = fmap DocumentFragment <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DocumentFragment - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DocumentFragment where - makeObject = makeObject . unDocumentFragment - -class (IsNode o, IsEventTarget o, IsNonElementParentNode o, IsParentNode o, IsGObject o) => IsDocumentFragment o -toDocumentFragment :: IsDocumentFragment o => o -> DocumentFragment -toDocumentFragment = DocumentFragment . coerce - -instance IsDocumentFragment DocumentFragment -instance IsNode DocumentFragment -instance IsEventTarget DocumentFragment -instance IsNonElementParentNode DocumentFragment -instance IsParentNode DocumentFragment -instance IsGObject DocumentFragment where - typeGType _ = gTypeDocumentFragment - {-# INLINE typeGType #-} - -gTypeDocumentFragment :: JSM GType -gTypeDocumentFragment = GType . Object <$> jsg "DocumentFragment" - --- | Functions for this inteface are in "JSDOM.DocumentOrShadowRoot". --- --- -newtype DocumentOrShadowRoot = DocumentOrShadowRoot { unDocumentOrShadowRoot :: JSVal } - -instance PToJSVal DocumentOrShadowRoot where - pToJSVal = unDocumentOrShadowRoot - {-# INLINE pToJSVal #-} - -instance PFromJSVal DocumentOrShadowRoot where - pFromJSVal = DocumentOrShadowRoot - {-# INLINE pFromJSVal #-} - -instance ToJSVal DocumentOrShadowRoot where - toJSVal = return . unDocumentOrShadowRoot - {-# INLINE toJSVal #-} - -instance FromJSVal DocumentOrShadowRoot where - fromJSVal v = fmap DocumentOrShadowRoot <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DocumentOrShadowRoot - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DocumentOrShadowRoot where - makeObject = makeObject . unDocumentOrShadowRoot - -class (IsGObject o) => IsDocumentOrShadowRoot o -toDocumentOrShadowRoot :: IsDocumentOrShadowRoot o => o -> DocumentOrShadowRoot -toDocumentOrShadowRoot = DocumentOrShadowRoot . coerce - -instance IsDocumentOrShadowRoot DocumentOrShadowRoot -instance IsGObject DocumentOrShadowRoot where - typeGType _ = gTypeDocumentOrShadowRoot - {-# INLINE typeGType #-} - -gTypeDocumentOrShadowRoot :: JSM GType -gTypeDocumentOrShadowRoot = GType . Object <$> jsg "DocumentOrShadowRoot" - --- | Functions for this inteface are in "JSDOM.DocumentTimeline". --- Base interface functions are in: --- --- * "JSDOM.AnimationTimeline" --- --- -newtype DocumentTimeline = DocumentTimeline { unDocumentTimeline :: JSVal } - -instance PToJSVal DocumentTimeline where - pToJSVal = unDocumentTimeline - {-# INLINE pToJSVal #-} - -instance PFromJSVal DocumentTimeline where - pFromJSVal = DocumentTimeline - {-# INLINE pFromJSVal #-} - -instance ToJSVal DocumentTimeline where - toJSVal = return . unDocumentTimeline - {-# INLINE toJSVal #-} - -instance FromJSVal DocumentTimeline where - fromJSVal v = fmap DocumentTimeline <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DocumentTimeline - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DocumentTimeline where - makeObject = makeObject . unDocumentTimeline - -instance IsAnimationTimeline DocumentTimeline -instance IsGObject DocumentTimeline where - typeGType _ = gTypeDocumentTimeline - {-# INLINE typeGType #-} - -gTypeDocumentTimeline :: JSM GType -gTypeDocumentTimeline = GType . Object <$> jsg "DocumentTimeline" - --- | Functions for this inteface are in "JSDOM.DocumentType". --- Base interface functions are in: --- --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.ChildNode" --- --- -newtype DocumentType = DocumentType { unDocumentType :: JSVal } - -instance PToJSVal DocumentType where - pToJSVal = unDocumentType - {-# INLINE pToJSVal #-} - -instance PFromJSVal DocumentType where - pFromJSVal = DocumentType - {-# INLINE pFromJSVal #-} - -instance ToJSVal DocumentType where - toJSVal = return . unDocumentType - {-# INLINE toJSVal #-} - -instance FromJSVal DocumentType where - fromJSVal v = fmap DocumentType <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DocumentType - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DocumentType where - makeObject = makeObject . unDocumentType - -instance IsNode DocumentType -instance IsEventTarget DocumentType -instance IsChildNode DocumentType -instance IsGObject DocumentType where - typeGType _ = gTypeDocumentType - {-# INLINE typeGType #-} - -gTypeDocumentType :: JSM GType -gTypeDocumentType = GType . Object <$> jsg "DocumentType" - --- | Functions for this inteface are in "JSDOM.DoubleRange". --- --- -newtype DoubleRange = DoubleRange { unDoubleRange :: JSVal } - -instance PToJSVal DoubleRange where - pToJSVal = unDoubleRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal DoubleRange where - pFromJSVal = DoubleRange - {-# INLINE pFromJSVal #-} - -instance ToJSVal DoubleRange where - toJSVal = return . unDoubleRange - {-# INLINE toJSVal #-} - -instance FromJSVal DoubleRange where - fromJSVal v = fmap DoubleRange <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DoubleRange - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DoubleRange where - makeObject = makeObject . unDoubleRange - -class (IsGObject o) => IsDoubleRange o -toDoubleRange :: IsDoubleRange o => o -> DoubleRange -toDoubleRange = DoubleRange . coerce - -instance IsDoubleRange DoubleRange -instance IsGObject DoubleRange where - typeGType _ = gTypeDoubleRange - {-# INLINE typeGType #-} - -gTypeDoubleRange :: JSM GType -gTypeDoubleRange = GType . Object <$> jsg "DoubleRange" - --- | Functions for this inteface are in "JSDOM.DynamicsCompressorNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype DynamicsCompressorNode = DynamicsCompressorNode { unDynamicsCompressorNode :: JSVal } - -instance PToJSVal DynamicsCompressorNode where - pToJSVal = unDynamicsCompressorNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal DynamicsCompressorNode where - pFromJSVal = DynamicsCompressorNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal DynamicsCompressorNode where - toJSVal = return . unDynamicsCompressorNode - {-# INLINE toJSVal #-} - -instance FromJSVal DynamicsCompressorNode where - fromJSVal v = fmap DynamicsCompressorNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . DynamicsCompressorNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject DynamicsCompressorNode where - makeObject = makeObject . unDynamicsCompressorNode - -instance IsAudioNode DynamicsCompressorNode -instance IsEventTarget DynamicsCompressorNode -instance IsGObject DynamicsCompressorNode where - typeGType _ = gTypeDynamicsCompressorNode - {-# INLINE typeGType #-} - -gTypeDynamicsCompressorNode :: JSM GType -gTypeDynamicsCompressorNode = GType . Object <$> jsg "DynamicsCompressorNode" - --- | Functions for this inteface are in "JSDOM.EXTBlendMinMax". --- --- -newtype EXTBlendMinMax = EXTBlendMinMax { unEXTBlendMinMax :: JSVal } - -instance PToJSVal EXTBlendMinMax where - pToJSVal = unEXTBlendMinMax - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTBlendMinMax where - pFromJSVal = EXTBlendMinMax - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTBlendMinMax where - toJSVal = return . unEXTBlendMinMax - {-# INLINE toJSVal #-} - -instance FromJSVal EXTBlendMinMax where - fromJSVal v = fmap EXTBlendMinMax <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EXTBlendMinMax - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EXTBlendMinMax where - makeObject = makeObject . unEXTBlendMinMax - -instance IsGObject EXTBlendMinMax where - typeGType _ = gTypeEXTBlendMinMax - {-# INLINE typeGType #-} - -gTypeEXTBlendMinMax :: JSM GType -gTypeEXTBlendMinMax = GType . Object <$> jsg "EXTBlendMinMax" - --- | Functions for this inteface are in "JSDOM.EXTFragDepth". --- --- -newtype EXTFragDepth = EXTFragDepth { unEXTFragDepth :: JSVal } - -instance PToJSVal EXTFragDepth where - pToJSVal = unEXTFragDepth - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTFragDepth where - pFromJSVal = EXTFragDepth - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTFragDepth where - toJSVal = return . unEXTFragDepth - {-# INLINE toJSVal #-} - -instance FromJSVal EXTFragDepth where - fromJSVal v = fmap EXTFragDepth <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EXTFragDepth - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EXTFragDepth where - makeObject = makeObject . unEXTFragDepth - -instance IsGObject EXTFragDepth where - typeGType _ = gTypeEXTFragDepth - {-# INLINE typeGType #-} - -gTypeEXTFragDepth :: JSM GType -gTypeEXTFragDepth = GType . Object <$> jsg "EXTFragDepth" - --- | Functions for this inteface are in "JSDOM.EXTShaderTextureLOD". --- --- -newtype EXTShaderTextureLOD = EXTShaderTextureLOD { unEXTShaderTextureLOD :: JSVal } - -instance PToJSVal EXTShaderTextureLOD where - pToJSVal = unEXTShaderTextureLOD - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTShaderTextureLOD where - pFromJSVal = EXTShaderTextureLOD - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTShaderTextureLOD where - toJSVal = return . unEXTShaderTextureLOD - {-# INLINE toJSVal #-} - -instance FromJSVal EXTShaderTextureLOD where - fromJSVal v = fmap EXTShaderTextureLOD <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EXTShaderTextureLOD - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EXTShaderTextureLOD where - makeObject = makeObject . unEXTShaderTextureLOD - -instance IsGObject EXTShaderTextureLOD where - typeGType _ = gTypeEXTShaderTextureLOD - {-# INLINE typeGType #-} - -gTypeEXTShaderTextureLOD :: JSM GType -gTypeEXTShaderTextureLOD = GType . Object <$> jsg "EXTShaderTextureLOD" - --- | Functions for this inteface are in "JSDOM.EXTTextureFilterAnisotropic". --- --- -newtype EXTTextureFilterAnisotropic = EXTTextureFilterAnisotropic { unEXTTextureFilterAnisotropic :: JSVal } - -instance PToJSVal EXTTextureFilterAnisotropic where - pToJSVal = unEXTTextureFilterAnisotropic - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTTextureFilterAnisotropic where - pFromJSVal = EXTTextureFilterAnisotropic - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTTextureFilterAnisotropic where - toJSVal = return . unEXTTextureFilterAnisotropic - {-# INLINE toJSVal #-} - -instance FromJSVal EXTTextureFilterAnisotropic where - fromJSVal v = fmap EXTTextureFilterAnisotropic <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EXTTextureFilterAnisotropic - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EXTTextureFilterAnisotropic where - makeObject = makeObject . unEXTTextureFilterAnisotropic - -instance IsGObject EXTTextureFilterAnisotropic where - typeGType _ = gTypeEXTTextureFilterAnisotropic - {-# INLINE typeGType #-} - -gTypeEXTTextureFilterAnisotropic :: JSM GType -gTypeEXTTextureFilterAnisotropic = GType . Object <$> jsg "EXTTextureFilterAnisotropic" - --- | Functions for this inteface are in "JSDOM.EXTsRGB". --- --- -newtype EXTsRGB = EXTsRGB { unEXTsRGB :: JSVal } - -instance PToJSVal EXTsRGB where - pToJSVal = unEXTsRGB - {-# INLINE pToJSVal #-} - -instance PFromJSVal EXTsRGB where - pFromJSVal = EXTsRGB - {-# INLINE pFromJSVal #-} - -instance ToJSVal EXTsRGB where - toJSVal = return . unEXTsRGB - {-# INLINE toJSVal #-} - -instance FromJSVal EXTsRGB where - fromJSVal v = fmap EXTsRGB <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EXTsRGB - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EXTsRGB where - makeObject = makeObject . unEXTsRGB - -instance IsGObject EXTsRGB where - typeGType _ = gTypeEXTsRGB - {-# INLINE typeGType #-} - -gTypeEXTsRGB :: JSM GType -gTypeEXTsRGB = GType . Object <$> jsg "EXTsRGB" - --- | Functions for this inteface are in "JSDOM.Element". --- Base interface functions are in: --- --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- --- -newtype Element = Element { unElement :: JSVal } - -instance PToJSVal Element where - pToJSVal = unElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal Element where - pFromJSVal = Element - {-# INLINE pFromJSVal #-} - -instance ToJSVal Element where - toJSVal = return . unElement - {-# INLINE toJSVal #-} - -instance FromJSVal Element where - fromJSVal v = fmap Element <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Element - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Element where - makeObject = makeObject . unElement - -class (IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGObject o) => IsElement o -toElement :: IsElement o => o -> Element -toElement = Element . coerce - -instance IsElement Element -instance IsNode Element -instance IsEventTarget Element -instance IsSlotable Element -instance IsParentNode Element -instance IsNonDocumentTypeChildNode Element -instance IsChildNode Element -instance IsAnimatable Element -instance IsGObject Element where - typeGType _ = gTypeElement - {-# INLINE typeGType #-} - -gTypeElement :: JSM GType -gTypeElement = GType . Object <$> jsg "Element" - --- | Functions for this inteface are in "JSDOM.ErrorEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype ErrorEvent = ErrorEvent { unErrorEvent :: JSVal } - -instance PToJSVal ErrorEvent where - pToJSVal = unErrorEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ErrorEvent where - pFromJSVal = ErrorEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ErrorEvent where - toJSVal = return . unErrorEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ErrorEvent where - fromJSVal v = fmap ErrorEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ErrorEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ErrorEvent where - makeObject = makeObject . unErrorEvent - -instance IsEvent ErrorEvent -instance IsGObject ErrorEvent where - typeGType _ = gTypeErrorEvent - {-# INLINE typeGType #-} - -gTypeErrorEvent :: JSM GType -gTypeErrorEvent = GType . Object <$> jsg "ErrorEvent" - --- | Functions for this inteface are in "JSDOM.ErrorEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype ErrorEventInit = ErrorEventInit { unErrorEventInit :: JSVal } - -instance PToJSVal ErrorEventInit where - pToJSVal = unErrorEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal ErrorEventInit where - pFromJSVal = ErrorEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal ErrorEventInit where - toJSVal = return . unErrorEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal ErrorEventInit where - fromJSVal v = fmap ErrorEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ErrorEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ErrorEventInit where - makeObject = makeObject . unErrorEventInit - -instance IsEventInit ErrorEventInit -instance IsGObject ErrorEventInit where - typeGType _ = gTypeErrorEventInit - {-# INLINE typeGType #-} - -gTypeErrorEventInit :: JSM GType -gTypeErrorEventInit = GType . Object <$> jsg "ErrorEventInit" - --- | Functions for this inteface are in "JSDOM.Event". --- --- -newtype Event = Event { unEvent :: JSVal } - -instance PToJSVal Event where - pToJSVal = unEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal Event where - pFromJSVal = Event - {-# INLINE pFromJSVal #-} - -instance ToJSVal Event where - toJSVal = return . unEvent - {-# INLINE toJSVal #-} - -instance FromJSVal Event where - fromJSVal v = fmap Event <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Event - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Event where - makeObject = makeObject . unEvent - -class (IsGObject o) => IsEvent o -toEvent :: IsEvent o => o -> Event -toEvent = Event . coerce - -instance IsEvent Event -instance IsGObject Event where - typeGType _ = gTypeEvent - {-# INLINE typeGType #-} - -gTypeEvent :: JSM GType -gTypeEvent = GType . Object <$> jsg "Event" - --- | Functions for this inteface are in "JSDOM.EventInit". --- --- -newtype EventInit = EventInit { unEventInit :: JSVal } - -instance PToJSVal EventInit where - pToJSVal = unEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventInit where - pFromJSVal = EventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventInit where - toJSVal = return . unEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal EventInit where - fromJSVal v = fmap EventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EventInit where - makeObject = makeObject . unEventInit - -class (IsGObject o) => IsEventInit o -toEventInit :: IsEventInit o => o -> EventInit -toEventInit = EventInit . coerce - -instance IsEventInit EventInit -instance IsGObject EventInit where - typeGType _ = gTypeEventInit - {-# INLINE typeGType #-} - -gTypeEventInit :: JSM GType -gTypeEventInit = GType . Object <$> jsg "EventInit" - --- | Functions for this inteface are in "JSDOM.EventListener". --- --- -newtype EventListener = EventListener { unEventListener :: JSVal } - -instance PToJSVal EventListener where - pToJSVal = unEventListener - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventListener where - pFromJSVal = EventListener - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventListener where - toJSVal = return . unEventListener - {-# INLINE toJSVal #-} - -instance FromJSVal EventListener where - fromJSVal v = fmap EventListener <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EventListener - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EventListener where - makeObject = makeObject . unEventListener - -instance IsGObject EventListener where - typeGType _ = gTypeEventListener - {-# INLINE typeGType #-} - -gTypeEventListener :: JSM GType -gTypeEventListener = GType . Object <$> jsg "EventListener" - --- | Functions for this inteface are in "JSDOM.EventListenerOptions". --- --- -newtype EventListenerOptions = EventListenerOptions { unEventListenerOptions :: JSVal } - -instance PToJSVal EventListenerOptions where - pToJSVal = unEventListenerOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventListenerOptions where - pFromJSVal = EventListenerOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventListenerOptions where - toJSVal = return . unEventListenerOptions - {-# INLINE toJSVal #-} - -instance FromJSVal EventListenerOptions where - fromJSVal v = fmap EventListenerOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EventListenerOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EventListenerOptions where - makeObject = makeObject . unEventListenerOptions - -class (IsGObject o) => IsEventListenerOptions o -toEventListenerOptions :: IsEventListenerOptions o => o -> EventListenerOptions -toEventListenerOptions = EventListenerOptions . coerce - -instance IsEventListenerOptions EventListenerOptions -instance IsGObject EventListenerOptions where - typeGType _ = gTypeEventListenerOptions - {-# INLINE typeGType #-} - -gTypeEventListenerOptions :: JSM GType -gTypeEventListenerOptions = GType . Object <$> jsg "EventListenerOptions" - --- | Functions for this inteface are in "JSDOM.EventModifierInit". --- Base interface functions are in: --- --- * "JSDOM.UIEventInit" --- * "JSDOM.EventInit" --- --- -newtype EventModifierInit = EventModifierInit { unEventModifierInit :: JSVal } - -instance PToJSVal EventModifierInit where - pToJSVal = unEventModifierInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventModifierInit where - pFromJSVal = EventModifierInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventModifierInit where - toJSVal = return . unEventModifierInit - {-# INLINE toJSVal #-} - -instance FromJSVal EventModifierInit where - fromJSVal v = fmap EventModifierInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EventModifierInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EventModifierInit where - makeObject = makeObject . unEventModifierInit - -class (IsUIEventInit o, IsEventInit o, IsGObject o) => IsEventModifierInit o -toEventModifierInit :: IsEventModifierInit o => o -> EventModifierInit -toEventModifierInit = EventModifierInit . coerce - -instance IsEventModifierInit EventModifierInit -instance IsUIEventInit EventModifierInit -instance IsEventInit EventModifierInit -instance IsGObject EventModifierInit where - typeGType _ = gTypeEventModifierInit - {-# INLINE typeGType #-} - -gTypeEventModifierInit :: JSM GType -gTypeEventModifierInit = GType . Object <$> jsg "EventModifierInit" - --- | Functions for this inteface are in "JSDOM.EventSource". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype EventSource = EventSource { unEventSource :: JSVal } - -instance PToJSVal EventSource where - pToJSVal = unEventSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventSource where - pFromJSVal = EventSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventSource where - toJSVal = return . unEventSource - {-# INLINE toJSVal #-} - -instance FromJSVal EventSource where - fromJSVal v = fmap EventSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EventSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EventSource where - makeObject = makeObject . unEventSource - -instance IsEventTarget EventSource -instance IsGObject EventSource where - typeGType _ = gTypeEventSource - {-# INLINE typeGType #-} - -gTypeEventSource :: JSM GType -gTypeEventSource = GType . Object <$> jsg "EventSource" - --- | Functions for this inteface are in "JSDOM.EventSourceInit". --- --- -newtype EventSourceInit = EventSourceInit { unEventSourceInit :: JSVal } - -instance PToJSVal EventSourceInit where - pToJSVal = unEventSourceInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventSourceInit where - pFromJSVal = EventSourceInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventSourceInit where - toJSVal = return . unEventSourceInit - {-# INLINE toJSVal #-} - -instance FromJSVal EventSourceInit where - fromJSVal v = fmap EventSourceInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EventSourceInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EventSourceInit where - makeObject = makeObject . unEventSourceInit - -instance IsGObject EventSourceInit where - typeGType _ = gTypeEventSourceInit - {-# INLINE typeGType #-} - -gTypeEventSourceInit :: JSM GType -gTypeEventSourceInit = GType . Object <$> jsg "EventSourceInit" - --- | Functions for this inteface are in "JSDOM.EventTarget". --- --- -newtype EventTarget = EventTarget { unEventTarget :: JSVal } - -instance PToJSVal EventTarget where - pToJSVal = unEventTarget - {-# INLINE pToJSVal #-} - -instance PFromJSVal EventTarget where - pFromJSVal = EventTarget - {-# INLINE pFromJSVal #-} - -instance ToJSVal EventTarget where - toJSVal = return . unEventTarget - {-# INLINE toJSVal #-} - -instance FromJSVal EventTarget where - fromJSVal v = fmap EventTarget <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . EventTarget - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject EventTarget where - makeObject = makeObject . unEventTarget - -class (IsGObject o) => IsEventTarget o -toEventTarget :: IsEventTarget o => o -> EventTarget -toEventTarget = EventTarget . coerce - -instance IsEventTarget EventTarget -instance IsGObject EventTarget where - typeGType _ = gTypeEventTarget - {-# INLINE typeGType #-} - -gTypeEventTarget :: JSM GType -gTypeEventTarget = GType . Object <$> jsg "EventTarget" - --- | Functions for this inteface are in "JSDOM.File". --- Base interface functions are in: --- --- * "JSDOM.Blob" --- --- -newtype File = File { unFile :: JSVal } - -instance PToJSVal File where - pToJSVal = unFile - {-# INLINE pToJSVal #-} - -instance PFromJSVal File where - pFromJSVal = File - {-# INLINE pFromJSVal #-} - -instance ToJSVal File where - toJSVal = return . unFile - {-# INLINE toJSVal #-} - -instance FromJSVal File where - fromJSVal v = fmap File <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . File - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject File where - makeObject = makeObject . unFile - -instance IsBlob File -instance IsGObject File where - typeGType _ = gTypeFile - {-# INLINE typeGType #-} - -gTypeFile :: JSM GType -gTypeFile = GType . Object <$> jsg "File" - --- | Functions for this inteface are in "JSDOM.FileError". --- --- -newtype FileError = FileError { unFileError :: JSVal } - -instance PToJSVal FileError where - pToJSVal = unFileError - {-# INLINE pToJSVal #-} - -instance PFromJSVal FileError where - pFromJSVal = FileError - {-# INLINE pFromJSVal #-} - -instance ToJSVal FileError where - toJSVal = return . unFileError - {-# INLINE toJSVal #-} - -instance FromJSVal FileError where - fromJSVal v = fmap FileError <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FileError - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FileError where - makeObject = makeObject . unFileError - -instance IsGObject FileError where - typeGType _ = gTypeFileError - {-# INLINE typeGType #-} - -gTypeFileError :: JSM GType -gTypeFileError = GType . Object <$> jsg "FileError" - --- | Functions for this inteface are in "JSDOM.FileException". --- --- -newtype FileException = FileException { unFileException :: JSVal } - -instance PToJSVal FileException where - pToJSVal = unFileException - {-# INLINE pToJSVal #-} - -instance PFromJSVal FileException where - pFromJSVal = FileException - {-# INLINE pFromJSVal #-} - -instance ToJSVal FileException where - toJSVal = return . unFileException - {-# INLINE toJSVal #-} - -instance FromJSVal FileException where - fromJSVal v = fmap FileException <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FileException - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FileException where - makeObject = makeObject . unFileException - -instance IsGObject FileException where - typeGType _ = gTypeFileException - {-# INLINE typeGType #-} - -gTypeFileException :: JSM GType -gTypeFileException = GType . Object <$> jsg "FileException" - --- | Functions for this inteface are in "JSDOM.FileList". --- --- -newtype FileList = FileList { unFileList :: JSVal } - -instance PToJSVal FileList where - pToJSVal = unFileList - {-# INLINE pToJSVal #-} - -instance PFromJSVal FileList where - pFromJSVal = FileList - {-# INLINE pFromJSVal #-} - -instance ToJSVal FileList where - toJSVal = return . unFileList - {-# INLINE toJSVal #-} - -instance FromJSVal FileList where - fromJSVal v = fmap FileList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FileList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FileList where - makeObject = makeObject . unFileList - -instance IsGObject FileList where - typeGType _ = gTypeFileList - {-# INLINE typeGType #-} - -gTypeFileList :: JSM GType -gTypeFileList = GType . Object <$> jsg "FileList" - --- | Functions for this inteface are in "JSDOM.FilePropertyBag". --- Base interface functions are in: --- --- * "JSDOM.BlobPropertyBag" --- --- -newtype FilePropertyBag = FilePropertyBag { unFilePropertyBag :: JSVal } - -instance PToJSVal FilePropertyBag where - pToJSVal = unFilePropertyBag - {-# INLINE pToJSVal #-} - -instance PFromJSVal FilePropertyBag where - pFromJSVal = FilePropertyBag - {-# INLINE pFromJSVal #-} - -instance ToJSVal FilePropertyBag where - toJSVal = return . unFilePropertyBag - {-# INLINE toJSVal #-} - -instance FromJSVal FilePropertyBag where - fromJSVal v = fmap FilePropertyBag <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FilePropertyBag - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FilePropertyBag where - makeObject = makeObject . unFilePropertyBag - -instance IsBlobPropertyBag FilePropertyBag -instance IsGObject FilePropertyBag where - typeGType _ = gTypeFilePropertyBag - {-# INLINE typeGType #-} - -gTypeFilePropertyBag :: JSM GType -gTypeFilePropertyBag = GType . Object <$> jsg "FilePropertyBag" - --- | Functions for this inteface are in "JSDOM.FileReader". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype FileReader = FileReader { unFileReader :: JSVal } - -instance PToJSVal FileReader where - pToJSVal = unFileReader - {-# INLINE pToJSVal #-} - -instance PFromJSVal FileReader where - pFromJSVal = FileReader - {-# INLINE pFromJSVal #-} - -instance ToJSVal FileReader where - toJSVal = return . unFileReader - {-# INLINE toJSVal #-} - -instance FromJSVal FileReader where - fromJSVal v = fmap FileReader <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FileReader - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FileReader where - makeObject = makeObject . unFileReader - -instance IsEventTarget FileReader -instance IsGObject FileReader where - typeGType _ = gTypeFileReader - {-# INLINE typeGType #-} - -gTypeFileReader :: JSM GType -gTypeFileReader = GType . Object <$> jsg "FileReader" - --- | Functions for this inteface are in "JSDOM.FileReaderSync". --- --- -newtype FileReaderSync = FileReaderSync { unFileReaderSync :: JSVal } - -instance PToJSVal FileReaderSync where - pToJSVal = unFileReaderSync - {-# INLINE pToJSVal #-} - -instance PFromJSVal FileReaderSync where - pFromJSVal = FileReaderSync - {-# INLINE pFromJSVal #-} - -instance ToJSVal FileReaderSync where - toJSVal = return . unFileReaderSync - {-# INLINE toJSVal #-} - -instance FromJSVal FileReaderSync where - fromJSVal v = fmap FileReaderSync <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FileReaderSync - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FileReaderSync where - makeObject = makeObject . unFileReaderSync - -instance IsGObject FileReaderSync where - typeGType _ = gTypeFileReaderSync - {-# INLINE typeGType #-} - -gTypeFileReaderSync :: JSM GType -gTypeFileReaderSync = GType . Object <$> jsg "FileReaderSync" - --- | Functions for this inteface are in "JSDOM.FocusEvent". --- Base interface functions are in: --- --- * "JSDOM.UIEvent" --- * "JSDOM.Event" --- --- -newtype FocusEvent = FocusEvent { unFocusEvent :: JSVal } - -instance PToJSVal FocusEvent where - pToJSVal = unFocusEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal FocusEvent where - pFromJSVal = FocusEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal FocusEvent where - toJSVal = return . unFocusEvent - {-# INLINE toJSVal #-} - -instance FromJSVal FocusEvent where - fromJSVal v = fmap FocusEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FocusEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FocusEvent where - makeObject = makeObject . unFocusEvent - -instance IsUIEvent FocusEvent -instance IsEvent FocusEvent -instance IsGObject FocusEvent where - typeGType _ = gTypeFocusEvent - {-# INLINE typeGType #-} - -gTypeFocusEvent :: JSM GType -gTypeFocusEvent = GType . Object <$> jsg "FocusEvent" - --- | Functions for this inteface are in "JSDOM.FocusEventInit". --- Base interface functions are in: --- --- * "JSDOM.UIEventInit" --- * "JSDOM.EventInit" --- --- -newtype FocusEventInit = FocusEventInit { unFocusEventInit :: JSVal } - -instance PToJSVal FocusEventInit where - pToJSVal = unFocusEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal FocusEventInit where - pFromJSVal = FocusEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal FocusEventInit where - toJSVal = return . unFocusEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal FocusEventInit where - fromJSVal v = fmap FocusEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FocusEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FocusEventInit where - makeObject = makeObject . unFocusEventInit - -instance IsUIEventInit FocusEventInit -instance IsEventInit FocusEventInit -instance IsGObject FocusEventInit where - typeGType _ = gTypeFocusEventInit - {-# INLINE typeGType #-} - -gTypeFocusEventInit :: JSM GType -gTypeFocusEventInit = GType . Object <$> jsg "FocusEventInit" - --- | Functions for this inteface are in "JSDOM.FontFace". --- --- -newtype FontFace = FontFace { unFontFace :: JSVal } - -instance PToJSVal FontFace where - pToJSVal = unFontFace - {-# INLINE pToJSVal #-} - -instance PFromJSVal FontFace where - pFromJSVal = FontFace - {-# INLINE pFromJSVal #-} - -instance ToJSVal FontFace where - toJSVal = return . unFontFace - {-# INLINE toJSVal #-} - -instance FromJSVal FontFace where - fromJSVal v = fmap FontFace <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FontFace - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FontFace where - makeObject = makeObject . unFontFace - -instance IsGObject FontFace where - typeGType _ = gTypeFontFace - {-# INLINE typeGType #-} - -gTypeFontFace :: JSM GType -gTypeFontFace = GType . Object <$> jsg "FontFace" - --- | Functions for this inteface are in "JSDOM.FontFaceDescriptors". --- --- -newtype FontFaceDescriptors = FontFaceDescriptors { unFontFaceDescriptors :: JSVal } - -instance PToJSVal FontFaceDescriptors where - pToJSVal = unFontFaceDescriptors - {-# INLINE pToJSVal #-} - -instance PFromJSVal FontFaceDescriptors where - pFromJSVal = FontFaceDescriptors - {-# INLINE pFromJSVal #-} - -instance ToJSVal FontFaceDescriptors where - toJSVal = return . unFontFaceDescriptors - {-# INLINE toJSVal #-} - -instance FromJSVal FontFaceDescriptors where - fromJSVal v = fmap FontFaceDescriptors <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FontFaceDescriptors - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FontFaceDescriptors where - makeObject = makeObject . unFontFaceDescriptors - -instance IsGObject FontFaceDescriptors where - typeGType _ = gTypeFontFaceDescriptors - {-# INLINE typeGType #-} - -gTypeFontFaceDescriptors :: JSM GType -gTypeFontFaceDescriptors = GType . Object <$> jsg "FontFaceDescriptors" - --- | Functions for this inteface are in "JSDOM.FontFaceSet". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype FontFaceSet = FontFaceSet { unFontFaceSet :: JSVal } - -instance PToJSVal FontFaceSet where - pToJSVal = unFontFaceSet - {-# INLINE pToJSVal #-} - -instance PFromJSVal FontFaceSet where - pFromJSVal = FontFaceSet - {-# INLINE pFromJSVal #-} - -instance ToJSVal FontFaceSet where - toJSVal = return . unFontFaceSet - {-# INLINE toJSVal #-} - -instance FromJSVal FontFaceSet where - fromJSVal v = fmap FontFaceSet <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FontFaceSet - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FontFaceSet where - makeObject = makeObject . unFontFaceSet - -instance IsEventTarget FontFaceSet -instance IsGObject FontFaceSet where - typeGType _ = gTypeFontFaceSet - {-# INLINE typeGType #-} - -gTypeFontFaceSet :: JSM GType -gTypeFontFaceSet = GType . Object <$> jsg "FontFaceSet" - --- | Functions for this inteface are in "JSDOM.FormData". --- --- -newtype FormData = FormData { unFormData :: JSVal } - -instance PToJSVal FormData where - pToJSVal = unFormData - {-# INLINE pToJSVal #-} - -instance PFromJSVal FormData where - pFromJSVal = FormData - {-# INLINE pFromJSVal #-} - -instance ToJSVal FormData where - toJSVal = return . unFormData - {-# INLINE toJSVal #-} - -instance FromJSVal FormData where - fromJSVal v = fmap FormData <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . FormData - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject FormData where - makeObject = makeObject . unFormData - -instance IsGObject FormData where - typeGType _ = gTypeFormData - {-# INLINE typeGType #-} - -gTypeFormData :: JSM GType -gTypeFormData = GType . Object <$> jsg "FormData" - --- | Functions for this inteface are in "JSDOM.GainNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype GainNode = GainNode { unGainNode :: JSVal } - -instance PToJSVal GainNode where - pToJSVal = unGainNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal GainNode where - pFromJSVal = GainNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal GainNode where - toJSVal = return . unGainNode - {-# INLINE toJSVal #-} - -instance FromJSVal GainNode where - fromJSVal v = fmap GainNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . GainNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject GainNode where - makeObject = makeObject . unGainNode - -instance IsAudioNode GainNode -instance IsEventTarget GainNode -instance IsGObject GainNode where - typeGType _ = gTypeGainNode - {-# INLINE typeGType #-} - -gTypeGainNode :: JSM GType -gTypeGainNode = GType . Object <$> jsg "GainNode" - --- | Functions for this inteface are in "JSDOM.Gamepad". --- --- -newtype Gamepad = Gamepad { unGamepad :: JSVal } - -instance PToJSVal Gamepad where - pToJSVal = unGamepad - {-# INLINE pToJSVal #-} - -instance PFromJSVal Gamepad where - pFromJSVal = Gamepad - {-# INLINE pFromJSVal #-} - -instance ToJSVal Gamepad where - toJSVal = return . unGamepad - {-# INLINE toJSVal #-} - -instance FromJSVal Gamepad where - fromJSVal v = fmap Gamepad <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Gamepad - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Gamepad where - makeObject = makeObject . unGamepad - -instance IsGObject Gamepad where - typeGType _ = gTypeGamepad - {-# INLINE typeGType #-} - -gTypeGamepad :: JSM GType -gTypeGamepad = GType . Object <$> jsg "Gamepad" - --- | Functions for this inteface are in "JSDOM.GamepadButton". --- --- -newtype GamepadButton = GamepadButton { unGamepadButton :: JSVal } - -instance PToJSVal GamepadButton where - pToJSVal = unGamepadButton - {-# INLINE pToJSVal #-} - -instance PFromJSVal GamepadButton where - pFromJSVal = GamepadButton - {-# INLINE pFromJSVal #-} - -instance ToJSVal GamepadButton where - toJSVal = return . unGamepadButton - {-# INLINE toJSVal #-} - -instance FromJSVal GamepadButton where - fromJSVal v = fmap GamepadButton <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . GamepadButton - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject GamepadButton where - makeObject = makeObject . unGamepadButton - -instance IsGObject GamepadButton where - typeGType _ = gTypeGamepadButton - {-# INLINE typeGType #-} - -gTypeGamepadButton :: JSM GType -gTypeGamepadButton = GType . Object <$> jsg "GamepadButton" - --- | Functions for this inteface are in "JSDOM.GamepadEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype GamepadEvent = GamepadEvent { unGamepadEvent :: JSVal } - -instance PToJSVal GamepadEvent where - pToJSVal = unGamepadEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal GamepadEvent where - pFromJSVal = GamepadEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal GamepadEvent where - toJSVal = return . unGamepadEvent - {-# INLINE toJSVal #-} - -instance FromJSVal GamepadEvent where - fromJSVal v = fmap GamepadEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . GamepadEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject GamepadEvent where - makeObject = makeObject . unGamepadEvent - -instance IsEvent GamepadEvent -instance IsGObject GamepadEvent where - typeGType _ = gTypeGamepadEvent - {-# INLINE typeGType #-} - -gTypeGamepadEvent :: JSM GType -gTypeGamepadEvent = GType . Object <$> jsg "GamepadEvent" - --- | Functions for this inteface are in "JSDOM.GamepadEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype GamepadEventInit = GamepadEventInit { unGamepadEventInit :: JSVal } - -instance PToJSVal GamepadEventInit where - pToJSVal = unGamepadEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal GamepadEventInit where - pFromJSVal = GamepadEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal GamepadEventInit where - toJSVal = return . unGamepadEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal GamepadEventInit where - fromJSVal v = fmap GamepadEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . GamepadEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject GamepadEventInit where - makeObject = makeObject . unGamepadEventInit - -instance IsEventInit GamepadEventInit -instance IsGObject GamepadEventInit where - typeGType _ = gTypeGamepadEventInit - {-# INLINE typeGType #-} - -gTypeGamepadEventInit :: JSM GType -gTypeGamepadEventInit = GType . Object <$> jsg "GamepadEventInit" - --- | Functions for this inteface are in "JSDOM.Geolocation". --- --- -newtype Geolocation = Geolocation { unGeolocation :: JSVal } - -instance PToJSVal Geolocation where - pToJSVal = unGeolocation - {-# INLINE pToJSVal #-} - -instance PFromJSVal Geolocation where - pFromJSVal = Geolocation - {-# INLINE pFromJSVal #-} - -instance ToJSVal Geolocation where - toJSVal = return . unGeolocation - {-# INLINE toJSVal #-} - -instance FromJSVal Geolocation where - fromJSVal v = fmap Geolocation <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Geolocation - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Geolocation where - makeObject = makeObject . unGeolocation - -instance IsGObject Geolocation where - typeGType _ = gTypeGeolocation - {-# INLINE typeGType #-} - -gTypeGeolocation :: JSM GType -gTypeGeolocation = GType . Object <$> jsg "Geolocation" - --- | Functions for this inteface are in "JSDOM.Geoposition". --- --- -newtype Geoposition = Geoposition { unGeoposition :: JSVal } - -instance PToJSVal Geoposition where - pToJSVal = unGeoposition - {-# INLINE pToJSVal #-} - -instance PFromJSVal Geoposition where - pFromJSVal = Geoposition - {-# INLINE pFromJSVal #-} - -instance ToJSVal Geoposition where - toJSVal = return . unGeoposition - {-# INLINE toJSVal #-} - -instance FromJSVal Geoposition where - fromJSVal v = fmap Geoposition <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Geoposition - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Geoposition where - makeObject = makeObject . unGeoposition - -instance IsGObject Geoposition where - typeGType _ = gTypeGeoposition - {-# INLINE typeGType #-} - -gTypeGeoposition :: JSM GType -gTypeGeoposition = GType . Object <$> jsg "Geoposition" - --- | Functions for this inteface are in "JSDOM.GetRootNodeOptions". --- --- -newtype GetRootNodeOptions = GetRootNodeOptions { unGetRootNodeOptions :: JSVal } - -instance PToJSVal GetRootNodeOptions where - pToJSVal = unGetRootNodeOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal GetRootNodeOptions where - pFromJSVal = GetRootNodeOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal GetRootNodeOptions where - toJSVal = return . unGetRootNodeOptions - {-# INLINE toJSVal #-} - -instance FromJSVal GetRootNodeOptions where - fromJSVal v = fmap GetRootNodeOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . GetRootNodeOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject GetRootNodeOptions where - makeObject = makeObject . unGetRootNodeOptions - -instance IsGObject GetRootNodeOptions where - typeGType _ = gTypeGetRootNodeOptions - {-# INLINE typeGType #-} - -gTypeGetRootNodeOptions :: JSM GType -gTypeGetRootNodeOptions = GType . Object <$> jsg "GetRootNodeOptions" - --- | Functions for this inteface are in "JSDOM.GlobalCrypto". --- --- -newtype GlobalCrypto = GlobalCrypto { unGlobalCrypto :: JSVal } - -instance PToJSVal GlobalCrypto where - pToJSVal = unGlobalCrypto - {-# INLINE pToJSVal #-} - -instance PFromJSVal GlobalCrypto where - pFromJSVal = GlobalCrypto - {-# INLINE pFromJSVal #-} - -instance ToJSVal GlobalCrypto where - toJSVal = return . unGlobalCrypto - {-# INLINE toJSVal #-} - -instance FromJSVal GlobalCrypto where - fromJSVal v = fmap GlobalCrypto <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . GlobalCrypto - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject GlobalCrypto where - makeObject = makeObject . unGlobalCrypto - -class (IsGObject o) => IsGlobalCrypto o -toGlobalCrypto :: IsGlobalCrypto o => o -> GlobalCrypto -toGlobalCrypto = GlobalCrypto . coerce - -instance IsGlobalCrypto GlobalCrypto -instance IsGObject GlobalCrypto where - typeGType _ = gTypeGlobalCrypto - {-# INLINE typeGType #-} - -gTypeGlobalCrypto :: JSM GType -gTypeGlobalCrypto = GType . Object <$> jsg "GlobalCrypto" - --- | Functions for this inteface are in "JSDOM.GlobalEventHandlers". --- --- -newtype GlobalEventHandlers = GlobalEventHandlers { unGlobalEventHandlers :: JSVal } - -instance PToJSVal GlobalEventHandlers where - pToJSVal = unGlobalEventHandlers - {-# INLINE pToJSVal #-} - -instance PFromJSVal GlobalEventHandlers where - pFromJSVal = GlobalEventHandlers - {-# INLINE pFromJSVal #-} - -instance ToJSVal GlobalEventHandlers where - toJSVal = return . unGlobalEventHandlers - {-# INLINE toJSVal #-} - -instance FromJSVal GlobalEventHandlers where - fromJSVal v = fmap GlobalEventHandlers <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . GlobalEventHandlers - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject GlobalEventHandlers where - makeObject = makeObject . unGlobalEventHandlers - -class (IsGObject o) => IsGlobalEventHandlers o -toGlobalEventHandlers :: IsGlobalEventHandlers o => o -> GlobalEventHandlers -toGlobalEventHandlers = GlobalEventHandlers . coerce - -instance IsGlobalEventHandlers GlobalEventHandlers -instance IsGObject GlobalEventHandlers where - typeGType _ = gTypeGlobalEventHandlers - {-# INLINE typeGType #-} - -gTypeGlobalEventHandlers :: JSM GType -gTypeGlobalEventHandlers = GType . Object <$> jsg "GlobalEventHandlers" - --- | Functions for this inteface are in "JSDOM.GlobalPerformance". --- --- -newtype GlobalPerformance = GlobalPerformance { unGlobalPerformance :: JSVal } - -instance PToJSVal GlobalPerformance where - pToJSVal = unGlobalPerformance - {-# INLINE pToJSVal #-} - -instance PFromJSVal GlobalPerformance where - pFromJSVal = GlobalPerformance - {-# INLINE pFromJSVal #-} - -instance ToJSVal GlobalPerformance where - toJSVal = return . unGlobalPerformance - {-# INLINE toJSVal #-} - -instance FromJSVal GlobalPerformance where - fromJSVal v = fmap GlobalPerformance <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . GlobalPerformance - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject GlobalPerformance where - makeObject = makeObject . unGlobalPerformance - -class (IsGObject o) => IsGlobalPerformance o -toGlobalPerformance :: IsGlobalPerformance o => o -> GlobalPerformance -toGlobalPerformance = GlobalPerformance . coerce - -instance IsGlobalPerformance GlobalPerformance -instance IsGObject GlobalPerformance where - typeGType _ = gTypeGlobalPerformance - {-# INLINE typeGType #-} - -gTypeGlobalPerformance :: JSM GType -gTypeGlobalPerformance = GType . Object <$> jsg "GlobalPerformance" - --- | Functions for this inteface are in "JSDOM.HTMLAllCollection". --- --- -newtype HTMLAllCollection = HTMLAllCollection { unHTMLAllCollection :: JSVal } - -instance PToJSVal HTMLAllCollection where - pToJSVal = unHTMLAllCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAllCollection where - pFromJSVal = HTMLAllCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAllCollection where - toJSVal = return . unHTMLAllCollection - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAllCollection where - fromJSVal v = fmap HTMLAllCollection <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLAllCollection - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLAllCollection where - makeObject = makeObject . unHTMLAllCollection - -instance IsGObject HTMLAllCollection where - typeGType _ = gTypeHTMLAllCollection - {-# INLINE typeGType #-} - -gTypeHTMLAllCollection :: JSM GType -gTypeHTMLAllCollection = GType . Object <$> jsg "HTMLAllCollection" - --- | Functions for this inteface are in "JSDOM.HTMLAnchorElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.HTMLHyperlinkElementUtils" --- --- -newtype HTMLAnchorElement = HTMLAnchorElement { unHTMLAnchorElement :: JSVal } - -instance PToJSVal HTMLAnchorElement where - pToJSVal = unHTMLAnchorElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAnchorElement where - pFromJSVal = HTMLAnchorElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAnchorElement where - toJSVal = return . unHTMLAnchorElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAnchorElement where - fromJSVal v = fmap HTMLAnchorElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLAnchorElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLAnchorElement where - makeObject = makeObject . unHTMLAnchorElement - -instance IsHTMLElement HTMLAnchorElement -instance IsElement HTMLAnchorElement -instance IsNode HTMLAnchorElement -instance IsEventTarget HTMLAnchorElement -instance IsSlotable HTMLAnchorElement -instance IsParentNode HTMLAnchorElement -instance IsNonDocumentTypeChildNode HTMLAnchorElement -instance IsChildNode HTMLAnchorElement -instance IsAnimatable HTMLAnchorElement -instance IsGlobalEventHandlers HTMLAnchorElement -instance IsHTMLHyperlinkElementUtils HTMLAnchorElement -instance IsGObject HTMLAnchorElement where - typeGType _ = gTypeHTMLAnchorElement - {-# INLINE typeGType #-} - -gTypeHTMLAnchorElement :: JSM GType -gTypeHTMLAnchorElement = GType . Object <$> jsg "HTMLAnchorElement" - --- | Functions for this inteface are in "JSDOM.HTMLAppletElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLAppletElement = HTMLAppletElement { unHTMLAppletElement :: JSVal } - -instance PToJSVal HTMLAppletElement where - pToJSVal = unHTMLAppletElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAppletElement where - pFromJSVal = HTMLAppletElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAppletElement where - toJSVal = return . unHTMLAppletElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAppletElement where - fromJSVal v = fmap HTMLAppletElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLAppletElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLAppletElement where - makeObject = makeObject . unHTMLAppletElement - -instance IsHTMLElement HTMLAppletElement -instance IsElement HTMLAppletElement -instance IsNode HTMLAppletElement -instance IsEventTarget HTMLAppletElement -instance IsSlotable HTMLAppletElement -instance IsParentNode HTMLAppletElement -instance IsNonDocumentTypeChildNode HTMLAppletElement -instance IsChildNode HTMLAppletElement -instance IsAnimatable HTMLAppletElement -instance IsGlobalEventHandlers HTMLAppletElement -instance IsGObject HTMLAppletElement where - typeGType _ = gTypeHTMLAppletElement - {-# INLINE typeGType #-} - -gTypeHTMLAppletElement :: JSM GType -gTypeHTMLAppletElement = GType . Object <$> jsg "HTMLAppletElement" - --- | Functions for this inteface are in "JSDOM.HTMLAreaElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.HTMLHyperlinkElementUtils" --- --- -newtype HTMLAreaElement = HTMLAreaElement { unHTMLAreaElement :: JSVal } - -instance PToJSVal HTMLAreaElement where - pToJSVal = unHTMLAreaElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAreaElement where - pFromJSVal = HTMLAreaElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAreaElement where - toJSVal = return . unHTMLAreaElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAreaElement where - fromJSVal v = fmap HTMLAreaElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLAreaElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLAreaElement where - makeObject = makeObject . unHTMLAreaElement - -instance IsHTMLElement HTMLAreaElement -instance IsElement HTMLAreaElement -instance IsNode HTMLAreaElement -instance IsEventTarget HTMLAreaElement -instance IsSlotable HTMLAreaElement -instance IsParentNode HTMLAreaElement -instance IsNonDocumentTypeChildNode HTMLAreaElement -instance IsChildNode HTMLAreaElement -instance IsAnimatable HTMLAreaElement -instance IsGlobalEventHandlers HTMLAreaElement -instance IsHTMLHyperlinkElementUtils HTMLAreaElement -instance IsGObject HTMLAreaElement where - typeGType _ = gTypeHTMLAreaElement - {-# INLINE typeGType #-} - -gTypeHTMLAreaElement :: JSM GType -gTypeHTMLAreaElement = GType . Object <$> jsg "HTMLAreaElement" - --- | Functions for this inteface are in "JSDOM.HTMLAttachmentElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLAttachmentElement = HTMLAttachmentElement { unHTMLAttachmentElement :: JSVal } - -instance PToJSVal HTMLAttachmentElement where - pToJSVal = unHTMLAttachmentElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAttachmentElement where - pFromJSVal = HTMLAttachmentElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAttachmentElement where - toJSVal = return . unHTMLAttachmentElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAttachmentElement where - fromJSVal v = fmap HTMLAttachmentElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLAttachmentElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLAttachmentElement where - makeObject = makeObject . unHTMLAttachmentElement - -instance IsHTMLElement HTMLAttachmentElement -instance IsElement HTMLAttachmentElement -instance IsNode HTMLAttachmentElement -instance IsEventTarget HTMLAttachmentElement -instance IsSlotable HTMLAttachmentElement -instance IsParentNode HTMLAttachmentElement -instance IsNonDocumentTypeChildNode HTMLAttachmentElement -instance IsChildNode HTMLAttachmentElement -instance IsAnimatable HTMLAttachmentElement -instance IsGlobalEventHandlers HTMLAttachmentElement -instance IsGObject HTMLAttachmentElement where - typeGType _ = gTypeHTMLAttachmentElement - {-# INLINE typeGType #-} - -gTypeHTMLAttachmentElement :: JSM GType -gTypeHTMLAttachmentElement = GType . Object <$> jsg "HTMLAttachmentElement" - --- | Functions for this inteface are in "JSDOM.HTMLAudioElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLMediaElement" --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLAudioElement = HTMLAudioElement { unHTMLAudioElement :: JSVal } - -instance PToJSVal HTMLAudioElement where - pToJSVal = unHTMLAudioElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLAudioElement where - pFromJSVal = HTMLAudioElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLAudioElement where - toJSVal = return . unHTMLAudioElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLAudioElement where - fromJSVal v = fmap HTMLAudioElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLAudioElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLAudioElement where - makeObject = makeObject . unHTMLAudioElement - -instance IsHTMLMediaElement HTMLAudioElement -instance IsHTMLElement HTMLAudioElement -instance IsElement HTMLAudioElement -instance IsNode HTMLAudioElement -instance IsEventTarget HTMLAudioElement -instance IsSlotable HTMLAudioElement -instance IsParentNode HTMLAudioElement -instance IsNonDocumentTypeChildNode HTMLAudioElement -instance IsChildNode HTMLAudioElement -instance IsAnimatable HTMLAudioElement -instance IsGlobalEventHandlers HTMLAudioElement -instance IsGObject HTMLAudioElement where - typeGType _ = gTypeHTMLAudioElement - {-# INLINE typeGType #-} - -gTypeHTMLAudioElement :: JSM GType -gTypeHTMLAudioElement = GType . Object <$> jsg "HTMLAudioElement" - --- | Functions for this inteface are in "JSDOM.HTMLBRElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLBRElement = HTMLBRElement { unHTMLBRElement :: JSVal } - -instance PToJSVal HTMLBRElement where - pToJSVal = unHTMLBRElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLBRElement where - pFromJSVal = HTMLBRElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLBRElement where - toJSVal = return . unHTMLBRElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLBRElement where - fromJSVal v = fmap HTMLBRElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLBRElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLBRElement where - makeObject = makeObject . unHTMLBRElement - -instance IsHTMLElement HTMLBRElement -instance IsElement HTMLBRElement -instance IsNode HTMLBRElement -instance IsEventTarget HTMLBRElement -instance IsSlotable HTMLBRElement -instance IsParentNode HTMLBRElement -instance IsNonDocumentTypeChildNode HTMLBRElement -instance IsChildNode HTMLBRElement -instance IsAnimatable HTMLBRElement -instance IsGlobalEventHandlers HTMLBRElement -instance IsGObject HTMLBRElement where - typeGType _ = gTypeHTMLBRElement - {-# INLINE typeGType #-} - -gTypeHTMLBRElement :: JSM GType -gTypeHTMLBRElement = GType . Object <$> jsg "HTMLBRElement" - --- | Functions for this inteface are in "JSDOM.HTMLBaseElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLBaseElement = HTMLBaseElement { unHTMLBaseElement :: JSVal } - -instance PToJSVal HTMLBaseElement where - pToJSVal = unHTMLBaseElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLBaseElement where - pFromJSVal = HTMLBaseElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLBaseElement where - toJSVal = return . unHTMLBaseElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLBaseElement where - fromJSVal v = fmap HTMLBaseElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLBaseElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLBaseElement where - makeObject = makeObject . unHTMLBaseElement - -instance IsHTMLElement HTMLBaseElement -instance IsElement HTMLBaseElement -instance IsNode HTMLBaseElement -instance IsEventTarget HTMLBaseElement -instance IsSlotable HTMLBaseElement -instance IsParentNode HTMLBaseElement -instance IsNonDocumentTypeChildNode HTMLBaseElement -instance IsChildNode HTMLBaseElement -instance IsAnimatable HTMLBaseElement -instance IsGlobalEventHandlers HTMLBaseElement -instance IsGObject HTMLBaseElement where - typeGType _ = gTypeHTMLBaseElement - {-# INLINE typeGType #-} - -gTypeHTMLBaseElement :: JSM GType -gTypeHTMLBaseElement = GType . Object <$> jsg "HTMLBaseElement" - --- | Functions for this inteface are in "JSDOM.HTMLBodyElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.WindowEventHandlers" --- --- -newtype HTMLBodyElement = HTMLBodyElement { unHTMLBodyElement :: JSVal } - -instance PToJSVal HTMLBodyElement where - pToJSVal = unHTMLBodyElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLBodyElement where - pFromJSVal = HTMLBodyElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLBodyElement where - toJSVal = return . unHTMLBodyElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLBodyElement where - fromJSVal v = fmap HTMLBodyElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLBodyElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLBodyElement where - makeObject = makeObject . unHTMLBodyElement - -instance IsHTMLElement HTMLBodyElement -instance IsElement HTMLBodyElement -instance IsNode HTMLBodyElement -instance IsEventTarget HTMLBodyElement -instance IsSlotable HTMLBodyElement -instance IsParentNode HTMLBodyElement -instance IsNonDocumentTypeChildNode HTMLBodyElement -instance IsChildNode HTMLBodyElement -instance IsAnimatable HTMLBodyElement -instance IsGlobalEventHandlers HTMLBodyElement -instance IsWindowEventHandlers HTMLBodyElement -instance IsGObject HTMLBodyElement where - typeGType _ = gTypeHTMLBodyElement - {-# INLINE typeGType #-} - -gTypeHTMLBodyElement :: JSM GType -gTypeHTMLBodyElement = GType . Object <$> jsg "HTMLBodyElement" - --- | Functions for this inteface are in "JSDOM.HTMLButtonElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLButtonElement = HTMLButtonElement { unHTMLButtonElement :: JSVal } - -instance PToJSVal HTMLButtonElement where - pToJSVal = unHTMLButtonElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLButtonElement where - pFromJSVal = HTMLButtonElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLButtonElement where - toJSVal = return . unHTMLButtonElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLButtonElement where - fromJSVal v = fmap HTMLButtonElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLButtonElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLButtonElement where - makeObject = makeObject . unHTMLButtonElement - -instance IsHTMLElement HTMLButtonElement -instance IsElement HTMLButtonElement -instance IsNode HTMLButtonElement -instance IsEventTarget HTMLButtonElement -instance IsSlotable HTMLButtonElement -instance IsParentNode HTMLButtonElement -instance IsNonDocumentTypeChildNode HTMLButtonElement -instance IsChildNode HTMLButtonElement -instance IsAnimatable HTMLButtonElement -instance IsGlobalEventHandlers HTMLButtonElement -instance IsGObject HTMLButtonElement where - typeGType _ = gTypeHTMLButtonElement - {-# INLINE typeGType #-} - -gTypeHTMLButtonElement :: JSM GType -gTypeHTMLButtonElement = GType . Object <$> jsg "HTMLButtonElement" - --- | Functions for this inteface are in "JSDOM.HTMLCanvasElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLCanvasElement = HTMLCanvasElement { unHTMLCanvasElement :: JSVal } - -instance PToJSVal HTMLCanvasElement where - pToJSVal = unHTMLCanvasElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLCanvasElement where - pFromJSVal = HTMLCanvasElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLCanvasElement where - toJSVal = return . unHTMLCanvasElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLCanvasElement where - fromJSVal v = fmap HTMLCanvasElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLCanvasElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLCanvasElement where - makeObject = makeObject . unHTMLCanvasElement - -instance IsHTMLElement HTMLCanvasElement -instance IsElement HTMLCanvasElement -instance IsNode HTMLCanvasElement -instance IsEventTarget HTMLCanvasElement -instance IsSlotable HTMLCanvasElement -instance IsParentNode HTMLCanvasElement -instance IsNonDocumentTypeChildNode HTMLCanvasElement -instance IsChildNode HTMLCanvasElement -instance IsAnimatable HTMLCanvasElement -instance IsGlobalEventHandlers HTMLCanvasElement -instance IsGObject HTMLCanvasElement where - typeGType _ = gTypeHTMLCanvasElement - {-# INLINE typeGType #-} - -gTypeHTMLCanvasElement :: JSM GType -gTypeHTMLCanvasElement = GType . Object <$> jsg "HTMLCanvasElement" - --- | Functions for this inteface are in "JSDOM.HTMLCollection". --- --- -newtype HTMLCollection = HTMLCollection { unHTMLCollection :: JSVal } - -instance PToJSVal HTMLCollection where - pToJSVal = unHTMLCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLCollection where - pFromJSVal = HTMLCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLCollection where - toJSVal = return . unHTMLCollection - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLCollection where - fromJSVal v = fmap HTMLCollection <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLCollection - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLCollection where - makeObject = makeObject . unHTMLCollection - -class (IsGObject o) => IsHTMLCollection o -toHTMLCollection :: IsHTMLCollection o => o -> HTMLCollection -toHTMLCollection = HTMLCollection . coerce - -instance IsHTMLCollection HTMLCollection -instance IsGObject HTMLCollection where - typeGType _ = gTypeHTMLCollection - {-# INLINE typeGType #-} - -gTypeHTMLCollection :: JSM GType -gTypeHTMLCollection = GType . Object <$> jsg "HTMLCollection" - --- | Functions for this inteface are in "JSDOM.HTMLDListElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLDListElement = HTMLDListElement { unHTMLDListElement :: JSVal } - -instance PToJSVal HTMLDListElement where - pToJSVal = unHTMLDListElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDListElement where - pFromJSVal = HTMLDListElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDListElement where - toJSVal = return . unHTMLDListElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDListElement where - fromJSVal v = fmap HTMLDListElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLDListElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLDListElement where - makeObject = makeObject . unHTMLDListElement - -instance IsHTMLElement HTMLDListElement -instance IsElement HTMLDListElement -instance IsNode HTMLDListElement -instance IsEventTarget HTMLDListElement -instance IsSlotable HTMLDListElement -instance IsParentNode HTMLDListElement -instance IsNonDocumentTypeChildNode HTMLDListElement -instance IsChildNode HTMLDListElement -instance IsAnimatable HTMLDListElement -instance IsGlobalEventHandlers HTMLDListElement -instance IsGObject HTMLDListElement where - typeGType _ = gTypeHTMLDListElement - {-# INLINE typeGType #-} - -gTypeHTMLDListElement :: JSM GType -gTypeHTMLDListElement = GType . Object <$> jsg "HTMLDListElement" - --- | Functions for this inteface are in "JSDOM.HTMLDataElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLDataElement = HTMLDataElement { unHTMLDataElement :: JSVal } - -instance PToJSVal HTMLDataElement where - pToJSVal = unHTMLDataElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDataElement where - pFromJSVal = HTMLDataElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDataElement where - toJSVal = return . unHTMLDataElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDataElement where - fromJSVal v = fmap HTMLDataElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLDataElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLDataElement where - makeObject = makeObject . unHTMLDataElement - -instance IsHTMLElement HTMLDataElement -instance IsElement HTMLDataElement -instance IsNode HTMLDataElement -instance IsEventTarget HTMLDataElement -instance IsSlotable HTMLDataElement -instance IsParentNode HTMLDataElement -instance IsNonDocumentTypeChildNode HTMLDataElement -instance IsChildNode HTMLDataElement -instance IsAnimatable HTMLDataElement -instance IsGlobalEventHandlers HTMLDataElement -instance IsGObject HTMLDataElement where - typeGType _ = gTypeHTMLDataElement - {-# INLINE typeGType #-} - -gTypeHTMLDataElement :: JSM GType -gTypeHTMLDataElement = GType . Object <$> jsg "HTMLDataElement" - --- | Functions for this inteface are in "JSDOM.HTMLDataListElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLDataListElement = HTMLDataListElement { unHTMLDataListElement :: JSVal } - -instance PToJSVal HTMLDataListElement where - pToJSVal = unHTMLDataListElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDataListElement where - pFromJSVal = HTMLDataListElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDataListElement where - toJSVal = return . unHTMLDataListElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDataListElement where - fromJSVal v = fmap HTMLDataListElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLDataListElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLDataListElement where - makeObject = makeObject . unHTMLDataListElement - -instance IsHTMLElement HTMLDataListElement -instance IsElement HTMLDataListElement -instance IsNode HTMLDataListElement -instance IsEventTarget HTMLDataListElement -instance IsSlotable HTMLDataListElement -instance IsParentNode HTMLDataListElement -instance IsNonDocumentTypeChildNode HTMLDataListElement -instance IsChildNode HTMLDataListElement -instance IsAnimatable HTMLDataListElement -instance IsGlobalEventHandlers HTMLDataListElement -instance IsGObject HTMLDataListElement where - typeGType _ = gTypeHTMLDataListElement - {-# INLINE typeGType #-} - -gTypeHTMLDataListElement :: JSM GType -gTypeHTMLDataListElement = GType . Object <$> jsg "HTMLDataListElement" - --- | Functions for this inteface are in "JSDOM.HTMLDetailsElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLDetailsElement = HTMLDetailsElement { unHTMLDetailsElement :: JSVal } - -instance PToJSVal HTMLDetailsElement where - pToJSVal = unHTMLDetailsElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDetailsElement where - pFromJSVal = HTMLDetailsElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDetailsElement where - toJSVal = return . unHTMLDetailsElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDetailsElement where - fromJSVal v = fmap HTMLDetailsElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLDetailsElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLDetailsElement where - makeObject = makeObject . unHTMLDetailsElement - -instance IsHTMLElement HTMLDetailsElement -instance IsElement HTMLDetailsElement -instance IsNode HTMLDetailsElement -instance IsEventTarget HTMLDetailsElement -instance IsSlotable HTMLDetailsElement -instance IsParentNode HTMLDetailsElement -instance IsNonDocumentTypeChildNode HTMLDetailsElement -instance IsChildNode HTMLDetailsElement -instance IsAnimatable HTMLDetailsElement -instance IsGlobalEventHandlers HTMLDetailsElement -instance IsGObject HTMLDetailsElement where - typeGType _ = gTypeHTMLDetailsElement - {-# INLINE typeGType #-} - -gTypeHTMLDetailsElement :: JSM GType -gTypeHTMLDetailsElement = GType . Object <$> jsg "HTMLDetailsElement" - --- | Functions for this inteface are in "JSDOM.HTMLDirectoryElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLDirectoryElement = HTMLDirectoryElement { unHTMLDirectoryElement :: JSVal } - -instance PToJSVal HTMLDirectoryElement where - pToJSVal = unHTMLDirectoryElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDirectoryElement where - pFromJSVal = HTMLDirectoryElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDirectoryElement where - toJSVal = return . unHTMLDirectoryElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDirectoryElement where - fromJSVal v = fmap HTMLDirectoryElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLDirectoryElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLDirectoryElement where - makeObject = makeObject . unHTMLDirectoryElement - -instance IsHTMLElement HTMLDirectoryElement -instance IsElement HTMLDirectoryElement -instance IsNode HTMLDirectoryElement -instance IsEventTarget HTMLDirectoryElement -instance IsSlotable HTMLDirectoryElement -instance IsParentNode HTMLDirectoryElement -instance IsNonDocumentTypeChildNode HTMLDirectoryElement -instance IsChildNode HTMLDirectoryElement -instance IsAnimatable HTMLDirectoryElement -instance IsGlobalEventHandlers HTMLDirectoryElement -instance IsGObject HTMLDirectoryElement where - typeGType _ = gTypeHTMLDirectoryElement - {-# INLINE typeGType #-} - -gTypeHTMLDirectoryElement :: JSM GType -gTypeHTMLDirectoryElement = GType . Object <$> jsg "HTMLDirectoryElement" - --- | Functions for this inteface are in "JSDOM.HTMLDivElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLDivElement = HTMLDivElement { unHTMLDivElement :: JSVal } - -instance PToJSVal HTMLDivElement where - pToJSVal = unHTMLDivElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDivElement where - pFromJSVal = HTMLDivElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDivElement where - toJSVal = return . unHTMLDivElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDivElement where - fromJSVal v = fmap HTMLDivElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLDivElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLDivElement where - makeObject = makeObject . unHTMLDivElement - -instance IsHTMLElement HTMLDivElement -instance IsElement HTMLDivElement -instance IsNode HTMLDivElement -instance IsEventTarget HTMLDivElement -instance IsSlotable HTMLDivElement -instance IsParentNode HTMLDivElement -instance IsNonDocumentTypeChildNode HTMLDivElement -instance IsChildNode HTMLDivElement -instance IsAnimatable HTMLDivElement -instance IsGlobalEventHandlers HTMLDivElement -instance IsGObject HTMLDivElement where - typeGType _ = gTypeHTMLDivElement - {-# INLINE typeGType #-} - -gTypeHTMLDivElement :: JSM GType -gTypeHTMLDivElement = GType . Object <$> jsg "HTMLDivElement" - --- | Functions for this inteface are in "JSDOM.HTMLDocument". --- Base interface functions are in: --- --- * "JSDOM.Document" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.DocumentOrShadowRoot" --- * "JSDOM.NonElementParentNode" --- * "JSDOM.ParentNode" --- --- -newtype HTMLDocument = HTMLDocument { unHTMLDocument :: JSVal } - -instance PToJSVal HTMLDocument where - pToJSVal = unHTMLDocument - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLDocument where - pFromJSVal = HTMLDocument - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLDocument where - toJSVal = return . unHTMLDocument - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLDocument where - fromJSVal v = fmap HTMLDocument <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLDocument - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLDocument where - makeObject = makeObject . unHTMLDocument - -instance IsDocument HTMLDocument -instance IsNode HTMLDocument -instance IsEventTarget HTMLDocument -instance IsGlobalEventHandlers HTMLDocument -instance IsDocumentOrShadowRoot HTMLDocument -instance IsNonElementParentNode HTMLDocument -instance IsParentNode HTMLDocument -instance IsGObject HTMLDocument where - typeGType _ = gTypeHTMLDocument - {-# INLINE typeGType #-} - -gTypeHTMLDocument :: JSM GType -gTypeHTMLDocument = GType . Object <$> jsg "HTMLDocument" - --- | Functions for this inteface are in "JSDOM.HTMLElement". --- Base interface functions are in: --- --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLElement = HTMLElement { unHTMLElement :: JSVal } - -instance PToJSVal HTMLElement where - pToJSVal = unHTMLElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLElement where - pFromJSVal = HTMLElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLElement where - toJSVal = return . unHTMLElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLElement where - fromJSVal v = fmap HTMLElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLElement where - makeObject = makeObject . unHTMLElement - -class (IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsGObject o) => IsHTMLElement o -toHTMLElement :: IsHTMLElement o => o -> HTMLElement -toHTMLElement = HTMLElement . coerce - -instance IsHTMLElement HTMLElement -instance IsElement HTMLElement -instance IsNode HTMLElement -instance IsEventTarget HTMLElement -instance IsSlotable HTMLElement -instance IsParentNode HTMLElement -instance IsNonDocumentTypeChildNode HTMLElement -instance IsChildNode HTMLElement -instance IsAnimatable HTMLElement -instance IsGlobalEventHandlers HTMLElement -instance IsGObject HTMLElement where - typeGType _ = gTypeHTMLElement - {-# INLINE typeGType #-} - -gTypeHTMLElement :: JSM GType -gTypeHTMLElement = GType . Object <$> jsg "HTMLElement" - --- | Functions for this inteface are in "JSDOM.HTMLEmbedElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLEmbedElement = HTMLEmbedElement { unHTMLEmbedElement :: JSVal } - -instance PToJSVal HTMLEmbedElement where - pToJSVal = unHTMLEmbedElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLEmbedElement where - pFromJSVal = HTMLEmbedElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLEmbedElement where - toJSVal = return . unHTMLEmbedElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLEmbedElement where - fromJSVal v = fmap HTMLEmbedElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLEmbedElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLEmbedElement where - makeObject = makeObject . unHTMLEmbedElement - -instance IsHTMLElement HTMLEmbedElement -instance IsElement HTMLEmbedElement -instance IsNode HTMLEmbedElement -instance IsEventTarget HTMLEmbedElement -instance IsSlotable HTMLEmbedElement -instance IsParentNode HTMLEmbedElement -instance IsNonDocumentTypeChildNode HTMLEmbedElement -instance IsChildNode HTMLEmbedElement -instance IsAnimatable HTMLEmbedElement -instance IsGlobalEventHandlers HTMLEmbedElement -instance IsGObject HTMLEmbedElement where - typeGType _ = gTypeHTMLEmbedElement - {-# INLINE typeGType #-} - -gTypeHTMLEmbedElement :: JSM GType -gTypeHTMLEmbedElement = GType . Object <$> jsg "HTMLEmbedElement" - --- | Functions for this inteface are in "JSDOM.HTMLFieldSetElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLFieldSetElement = HTMLFieldSetElement { unHTMLFieldSetElement :: JSVal } - -instance PToJSVal HTMLFieldSetElement where - pToJSVal = unHTMLFieldSetElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFieldSetElement where - pFromJSVal = HTMLFieldSetElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFieldSetElement where - toJSVal = return . unHTMLFieldSetElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFieldSetElement where - fromJSVal v = fmap HTMLFieldSetElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLFieldSetElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLFieldSetElement where - makeObject = makeObject . unHTMLFieldSetElement - -instance IsHTMLElement HTMLFieldSetElement -instance IsElement HTMLFieldSetElement -instance IsNode HTMLFieldSetElement -instance IsEventTarget HTMLFieldSetElement -instance IsSlotable HTMLFieldSetElement -instance IsParentNode HTMLFieldSetElement -instance IsNonDocumentTypeChildNode HTMLFieldSetElement -instance IsChildNode HTMLFieldSetElement -instance IsAnimatable HTMLFieldSetElement -instance IsGlobalEventHandlers HTMLFieldSetElement -instance IsGObject HTMLFieldSetElement where - typeGType _ = gTypeHTMLFieldSetElement - {-# INLINE typeGType #-} - -gTypeHTMLFieldSetElement :: JSM GType -gTypeHTMLFieldSetElement = GType . Object <$> jsg "HTMLFieldSetElement" - --- | Functions for this inteface are in "JSDOM.HTMLFontElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLFontElement = HTMLFontElement { unHTMLFontElement :: JSVal } - -instance PToJSVal HTMLFontElement where - pToJSVal = unHTMLFontElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFontElement where - pFromJSVal = HTMLFontElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFontElement where - toJSVal = return . unHTMLFontElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFontElement where - fromJSVal v = fmap HTMLFontElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLFontElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLFontElement where - makeObject = makeObject . unHTMLFontElement - -instance IsHTMLElement HTMLFontElement -instance IsElement HTMLFontElement -instance IsNode HTMLFontElement -instance IsEventTarget HTMLFontElement -instance IsSlotable HTMLFontElement -instance IsParentNode HTMLFontElement -instance IsNonDocumentTypeChildNode HTMLFontElement -instance IsChildNode HTMLFontElement -instance IsAnimatable HTMLFontElement -instance IsGlobalEventHandlers HTMLFontElement -instance IsGObject HTMLFontElement where - typeGType _ = gTypeHTMLFontElement - {-# INLINE typeGType #-} - -gTypeHTMLFontElement :: JSM GType -gTypeHTMLFontElement = GType . Object <$> jsg "HTMLFontElement" - --- | Functions for this inteface are in "JSDOM.HTMLFormControlsCollection". --- Base interface functions are in: --- --- * "JSDOM.HTMLCollection" --- --- -newtype HTMLFormControlsCollection = HTMLFormControlsCollection { unHTMLFormControlsCollection :: JSVal } - -instance PToJSVal HTMLFormControlsCollection where - pToJSVal = unHTMLFormControlsCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFormControlsCollection where - pFromJSVal = HTMLFormControlsCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFormControlsCollection where - toJSVal = return . unHTMLFormControlsCollection - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFormControlsCollection where - fromJSVal v = fmap HTMLFormControlsCollection <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLFormControlsCollection - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLFormControlsCollection where - makeObject = makeObject . unHTMLFormControlsCollection - -instance IsHTMLCollection HTMLFormControlsCollection -instance IsGObject HTMLFormControlsCollection where - typeGType _ = gTypeHTMLFormControlsCollection - {-# INLINE typeGType #-} - -gTypeHTMLFormControlsCollection :: JSM GType -gTypeHTMLFormControlsCollection = GType . Object <$> jsg "HTMLFormControlsCollection" - --- | Functions for this inteface are in "JSDOM.HTMLFormElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLFormElement = HTMLFormElement { unHTMLFormElement :: JSVal } - -instance PToJSVal HTMLFormElement where - pToJSVal = unHTMLFormElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFormElement where - pFromJSVal = HTMLFormElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFormElement where - toJSVal = return . unHTMLFormElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFormElement where - fromJSVal v = fmap HTMLFormElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLFormElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLFormElement where - makeObject = makeObject . unHTMLFormElement - -instance IsHTMLElement HTMLFormElement -instance IsElement HTMLFormElement -instance IsNode HTMLFormElement -instance IsEventTarget HTMLFormElement -instance IsSlotable HTMLFormElement -instance IsParentNode HTMLFormElement -instance IsNonDocumentTypeChildNode HTMLFormElement -instance IsChildNode HTMLFormElement -instance IsAnimatable HTMLFormElement -instance IsGlobalEventHandlers HTMLFormElement -instance IsGObject HTMLFormElement where - typeGType _ = gTypeHTMLFormElement - {-# INLINE typeGType #-} - -gTypeHTMLFormElement :: JSM GType -gTypeHTMLFormElement = GType . Object <$> jsg "HTMLFormElement" - --- | Functions for this inteface are in "JSDOM.HTMLFrameElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLFrameElement = HTMLFrameElement { unHTMLFrameElement :: JSVal } - -instance PToJSVal HTMLFrameElement where - pToJSVal = unHTMLFrameElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFrameElement where - pFromJSVal = HTMLFrameElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFrameElement where - toJSVal = return . unHTMLFrameElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFrameElement where - fromJSVal v = fmap HTMLFrameElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLFrameElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLFrameElement where - makeObject = makeObject . unHTMLFrameElement - -instance IsHTMLElement HTMLFrameElement -instance IsElement HTMLFrameElement -instance IsNode HTMLFrameElement -instance IsEventTarget HTMLFrameElement -instance IsSlotable HTMLFrameElement -instance IsParentNode HTMLFrameElement -instance IsNonDocumentTypeChildNode HTMLFrameElement -instance IsChildNode HTMLFrameElement -instance IsAnimatable HTMLFrameElement -instance IsGlobalEventHandlers HTMLFrameElement -instance IsGObject HTMLFrameElement where - typeGType _ = gTypeHTMLFrameElement - {-# INLINE typeGType #-} - -gTypeHTMLFrameElement :: JSM GType -gTypeHTMLFrameElement = GType . Object <$> jsg "HTMLFrameElement" - --- | Functions for this inteface are in "JSDOM.HTMLFrameSetElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.WindowEventHandlers" --- --- -newtype HTMLFrameSetElement = HTMLFrameSetElement { unHTMLFrameSetElement :: JSVal } - -instance PToJSVal HTMLFrameSetElement where - pToJSVal = unHTMLFrameSetElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLFrameSetElement where - pFromJSVal = HTMLFrameSetElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLFrameSetElement where - toJSVal = return . unHTMLFrameSetElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLFrameSetElement where - fromJSVal v = fmap HTMLFrameSetElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLFrameSetElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLFrameSetElement where - makeObject = makeObject . unHTMLFrameSetElement - -instance IsHTMLElement HTMLFrameSetElement -instance IsElement HTMLFrameSetElement -instance IsNode HTMLFrameSetElement -instance IsEventTarget HTMLFrameSetElement -instance IsSlotable HTMLFrameSetElement -instance IsParentNode HTMLFrameSetElement -instance IsNonDocumentTypeChildNode HTMLFrameSetElement -instance IsChildNode HTMLFrameSetElement -instance IsAnimatable HTMLFrameSetElement -instance IsGlobalEventHandlers HTMLFrameSetElement -instance IsWindowEventHandlers HTMLFrameSetElement -instance IsGObject HTMLFrameSetElement where - typeGType _ = gTypeHTMLFrameSetElement - {-# INLINE typeGType #-} - -gTypeHTMLFrameSetElement :: JSM GType -gTypeHTMLFrameSetElement = GType . Object <$> jsg "HTMLFrameSetElement" - --- | Functions for this inteface are in "JSDOM.HTMLHRElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLHRElement = HTMLHRElement { unHTMLHRElement :: JSVal } - -instance PToJSVal HTMLHRElement where - pToJSVal = unHTMLHRElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLHRElement where - pFromJSVal = HTMLHRElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLHRElement where - toJSVal = return . unHTMLHRElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLHRElement where - fromJSVal v = fmap HTMLHRElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLHRElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLHRElement where - makeObject = makeObject . unHTMLHRElement - -instance IsHTMLElement HTMLHRElement -instance IsElement HTMLHRElement -instance IsNode HTMLHRElement -instance IsEventTarget HTMLHRElement -instance IsSlotable HTMLHRElement -instance IsParentNode HTMLHRElement -instance IsNonDocumentTypeChildNode HTMLHRElement -instance IsChildNode HTMLHRElement -instance IsAnimatable HTMLHRElement -instance IsGlobalEventHandlers HTMLHRElement -instance IsGObject HTMLHRElement where - typeGType _ = gTypeHTMLHRElement - {-# INLINE typeGType #-} - -gTypeHTMLHRElement :: JSM GType -gTypeHTMLHRElement = GType . Object <$> jsg "HTMLHRElement" - --- | Functions for this inteface are in "JSDOM.HTMLHeadElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLHeadElement = HTMLHeadElement { unHTMLHeadElement :: JSVal } - -instance PToJSVal HTMLHeadElement where - pToJSVal = unHTMLHeadElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLHeadElement where - pFromJSVal = HTMLHeadElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLHeadElement where - toJSVal = return . unHTMLHeadElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLHeadElement where - fromJSVal v = fmap HTMLHeadElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLHeadElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLHeadElement where - makeObject = makeObject . unHTMLHeadElement - -instance IsHTMLElement HTMLHeadElement -instance IsElement HTMLHeadElement -instance IsNode HTMLHeadElement -instance IsEventTarget HTMLHeadElement -instance IsSlotable HTMLHeadElement -instance IsParentNode HTMLHeadElement -instance IsNonDocumentTypeChildNode HTMLHeadElement -instance IsChildNode HTMLHeadElement -instance IsAnimatable HTMLHeadElement -instance IsGlobalEventHandlers HTMLHeadElement -instance IsGObject HTMLHeadElement where - typeGType _ = gTypeHTMLHeadElement - {-# INLINE typeGType #-} - -gTypeHTMLHeadElement :: JSM GType -gTypeHTMLHeadElement = GType . Object <$> jsg "HTMLHeadElement" - --- | Functions for this inteface are in "JSDOM.HTMLHeadingElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLHeadingElement = HTMLHeadingElement { unHTMLHeadingElement :: JSVal } - -instance PToJSVal HTMLHeadingElement where - pToJSVal = unHTMLHeadingElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLHeadingElement where - pFromJSVal = HTMLHeadingElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLHeadingElement where - toJSVal = return . unHTMLHeadingElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLHeadingElement where - fromJSVal v = fmap HTMLHeadingElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLHeadingElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLHeadingElement where - makeObject = makeObject . unHTMLHeadingElement - -instance IsHTMLElement HTMLHeadingElement -instance IsElement HTMLHeadingElement -instance IsNode HTMLHeadingElement -instance IsEventTarget HTMLHeadingElement -instance IsSlotable HTMLHeadingElement -instance IsParentNode HTMLHeadingElement -instance IsNonDocumentTypeChildNode HTMLHeadingElement -instance IsChildNode HTMLHeadingElement -instance IsAnimatable HTMLHeadingElement -instance IsGlobalEventHandlers HTMLHeadingElement -instance IsGObject HTMLHeadingElement where - typeGType _ = gTypeHTMLHeadingElement - {-# INLINE typeGType #-} - -gTypeHTMLHeadingElement :: JSM GType -gTypeHTMLHeadingElement = GType . Object <$> jsg "HTMLHeadingElement" - --- | Functions for this inteface are in "JSDOM.HTMLHtmlElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLHtmlElement = HTMLHtmlElement { unHTMLHtmlElement :: JSVal } - -instance PToJSVal HTMLHtmlElement where - pToJSVal = unHTMLHtmlElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLHtmlElement where - pFromJSVal = HTMLHtmlElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLHtmlElement where - toJSVal = return . unHTMLHtmlElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLHtmlElement where - fromJSVal v = fmap HTMLHtmlElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLHtmlElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLHtmlElement where - makeObject = makeObject . unHTMLHtmlElement - -instance IsHTMLElement HTMLHtmlElement -instance IsElement HTMLHtmlElement -instance IsNode HTMLHtmlElement -instance IsEventTarget HTMLHtmlElement -instance IsSlotable HTMLHtmlElement -instance IsParentNode HTMLHtmlElement -instance IsNonDocumentTypeChildNode HTMLHtmlElement -instance IsChildNode HTMLHtmlElement -instance IsAnimatable HTMLHtmlElement -instance IsGlobalEventHandlers HTMLHtmlElement -instance IsGObject HTMLHtmlElement where - typeGType _ = gTypeHTMLHtmlElement - {-# INLINE typeGType #-} - -gTypeHTMLHtmlElement :: JSM GType -gTypeHTMLHtmlElement = GType . Object <$> jsg "HTMLHtmlElement" - --- | Functions for this inteface are in "JSDOM.HTMLHyperlinkElementUtils". --- --- -newtype HTMLHyperlinkElementUtils = HTMLHyperlinkElementUtils { unHTMLHyperlinkElementUtils :: JSVal } - -instance PToJSVal HTMLHyperlinkElementUtils where - pToJSVal = unHTMLHyperlinkElementUtils - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLHyperlinkElementUtils where - pFromJSVal = HTMLHyperlinkElementUtils - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLHyperlinkElementUtils where - toJSVal = return . unHTMLHyperlinkElementUtils - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLHyperlinkElementUtils where - fromJSVal v = fmap HTMLHyperlinkElementUtils <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLHyperlinkElementUtils - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLHyperlinkElementUtils where - makeObject = makeObject . unHTMLHyperlinkElementUtils - -class (IsGObject o) => IsHTMLHyperlinkElementUtils o -toHTMLHyperlinkElementUtils :: IsHTMLHyperlinkElementUtils o => o -> HTMLHyperlinkElementUtils -toHTMLHyperlinkElementUtils = HTMLHyperlinkElementUtils . coerce - -instance IsHTMLHyperlinkElementUtils HTMLHyperlinkElementUtils -instance IsGObject HTMLHyperlinkElementUtils where - typeGType _ = gTypeHTMLHyperlinkElementUtils - {-# INLINE typeGType #-} - -gTypeHTMLHyperlinkElementUtils :: JSM GType -gTypeHTMLHyperlinkElementUtils = GType . Object <$> jsg "HTMLHyperlinkElementUtils" - --- | Functions for this inteface are in "JSDOM.HTMLIFrameElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLIFrameElement = HTMLIFrameElement { unHTMLIFrameElement :: JSVal } - -instance PToJSVal HTMLIFrameElement where - pToJSVal = unHTMLIFrameElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLIFrameElement where - pFromJSVal = HTMLIFrameElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLIFrameElement where - toJSVal = return . unHTMLIFrameElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLIFrameElement where - fromJSVal v = fmap HTMLIFrameElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLIFrameElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLIFrameElement where - makeObject = makeObject . unHTMLIFrameElement - -instance IsHTMLElement HTMLIFrameElement -instance IsElement HTMLIFrameElement -instance IsNode HTMLIFrameElement -instance IsEventTarget HTMLIFrameElement -instance IsSlotable HTMLIFrameElement -instance IsParentNode HTMLIFrameElement -instance IsNonDocumentTypeChildNode HTMLIFrameElement -instance IsChildNode HTMLIFrameElement -instance IsAnimatable HTMLIFrameElement -instance IsGlobalEventHandlers HTMLIFrameElement -instance IsGObject HTMLIFrameElement where - typeGType _ = gTypeHTMLIFrameElement - {-# INLINE typeGType #-} - -gTypeHTMLIFrameElement :: JSM GType -gTypeHTMLIFrameElement = GType . Object <$> jsg "HTMLIFrameElement" - --- | Functions for this inteface are in "JSDOM.HTMLImageElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLImageElement = HTMLImageElement { unHTMLImageElement :: JSVal } - -instance PToJSVal HTMLImageElement where - pToJSVal = unHTMLImageElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLImageElement where - pFromJSVal = HTMLImageElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLImageElement where - toJSVal = return . unHTMLImageElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLImageElement where - fromJSVal v = fmap HTMLImageElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLImageElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLImageElement where - makeObject = makeObject . unHTMLImageElement - -instance IsHTMLElement HTMLImageElement -instance IsElement HTMLImageElement -instance IsNode HTMLImageElement -instance IsEventTarget HTMLImageElement -instance IsSlotable HTMLImageElement -instance IsParentNode HTMLImageElement -instance IsNonDocumentTypeChildNode HTMLImageElement -instance IsChildNode HTMLImageElement -instance IsAnimatable HTMLImageElement -instance IsGlobalEventHandlers HTMLImageElement -instance IsGObject HTMLImageElement where - typeGType _ = gTypeHTMLImageElement - {-# INLINE typeGType #-} - -gTypeHTMLImageElement :: JSM GType -gTypeHTMLImageElement = GType . Object <$> jsg "HTMLImageElement" - --- | Functions for this inteface are in "JSDOM.HTMLInputElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLInputElement = HTMLInputElement { unHTMLInputElement :: JSVal } - -instance PToJSVal HTMLInputElement where - pToJSVal = unHTMLInputElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLInputElement where - pFromJSVal = HTMLInputElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLInputElement where - toJSVal = return . unHTMLInputElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLInputElement where - fromJSVal v = fmap HTMLInputElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLInputElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLInputElement where - makeObject = makeObject . unHTMLInputElement - -instance IsHTMLElement HTMLInputElement -instance IsElement HTMLInputElement -instance IsNode HTMLInputElement -instance IsEventTarget HTMLInputElement -instance IsSlotable HTMLInputElement -instance IsParentNode HTMLInputElement -instance IsNonDocumentTypeChildNode HTMLInputElement -instance IsChildNode HTMLInputElement -instance IsAnimatable HTMLInputElement -instance IsGlobalEventHandlers HTMLInputElement -instance IsGObject HTMLInputElement where - typeGType _ = gTypeHTMLInputElement - {-# INLINE typeGType #-} - -gTypeHTMLInputElement :: JSM GType -gTypeHTMLInputElement = GType . Object <$> jsg "HTMLInputElement" - --- | Functions for this inteface are in "JSDOM.HTMLKeygenElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLKeygenElement = HTMLKeygenElement { unHTMLKeygenElement :: JSVal } - -instance PToJSVal HTMLKeygenElement where - pToJSVal = unHTMLKeygenElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLKeygenElement where - pFromJSVal = HTMLKeygenElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLKeygenElement where - toJSVal = return . unHTMLKeygenElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLKeygenElement where - fromJSVal v = fmap HTMLKeygenElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLKeygenElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLKeygenElement where - makeObject = makeObject . unHTMLKeygenElement - -instance IsHTMLElement HTMLKeygenElement -instance IsElement HTMLKeygenElement -instance IsNode HTMLKeygenElement -instance IsEventTarget HTMLKeygenElement -instance IsSlotable HTMLKeygenElement -instance IsParentNode HTMLKeygenElement -instance IsNonDocumentTypeChildNode HTMLKeygenElement -instance IsChildNode HTMLKeygenElement -instance IsAnimatable HTMLKeygenElement -instance IsGlobalEventHandlers HTMLKeygenElement -instance IsGObject HTMLKeygenElement where - typeGType _ = gTypeHTMLKeygenElement - {-# INLINE typeGType #-} - -gTypeHTMLKeygenElement :: JSM GType -gTypeHTMLKeygenElement = GType . Object <$> jsg "HTMLKeygenElement" - --- | Functions for this inteface are in "JSDOM.HTMLLIElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLLIElement = HTMLLIElement { unHTMLLIElement :: JSVal } - -instance PToJSVal HTMLLIElement where - pToJSVal = unHTMLLIElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLLIElement where - pFromJSVal = HTMLLIElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLLIElement where - toJSVal = return . unHTMLLIElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLLIElement where - fromJSVal v = fmap HTMLLIElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLLIElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLLIElement where - makeObject = makeObject . unHTMLLIElement - -instance IsHTMLElement HTMLLIElement -instance IsElement HTMLLIElement -instance IsNode HTMLLIElement -instance IsEventTarget HTMLLIElement -instance IsSlotable HTMLLIElement -instance IsParentNode HTMLLIElement -instance IsNonDocumentTypeChildNode HTMLLIElement -instance IsChildNode HTMLLIElement -instance IsAnimatable HTMLLIElement -instance IsGlobalEventHandlers HTMLLIElement -instance IsGObject HTMLLIElement where - typeGType _ = gTypeHTMLLIElement - {-# INLINE typeGType #-} - -gTypeHTMLLIElement :: JSM GType -gTypeHTMLLIElement = GType . Object <$> jsg "HTMLLIElement" - --- | Functions for this inteface are in "JSDOM.HTMLLabelElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLLabelElement = HTMLLabelElement { unHTMLLabelElement :: JSVal } - -instance PToJSVal HTMLLabelElement where - pToJSVal = unHTMLLabelElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLLabelElement where - pFromJSVal = HTMLLabelElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLLabelElement where - toJSVal = return . unHTMLLabelElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLLabelElement where - fromJSVal v = fmap HTMLLabelElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLLabelElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLLabelElement where - makeObject = makeObject . unHTMLLabelElement - -instance IsHTMLElement HTMLLabelElement -instance IsElement HTMLLabelElement -instance IsNode HTMLLabelElement -instance IsEventTarget HTMLLabelElement -instance IsSlotable HTMLLabelElement -instance IsParentNode HTMLLabelElement -instance IsNonDocumentTypeChildNode HTMLLabelElement -instance IsChildNode HTMLLabelElement -instance IsAnimatable HTMLLabelElement -instance IsGlobalEventHandlers HTMLLabelElement -instance IsGObject HTMLLabelElement where - typeGType _ = gTypeHTMLLabelElement - {-# INLINE typeGType #-} - -gTypeHTMLLabelElement :: JSM GType -gTypeHTMLLabelElement = GType . Object <$> jsg "HTMLLabelElement" - --- | Functions for this inteface are in "JSDOM.HTMLLegendElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLLegendElement = HTMLLegendElement { unHTMLLegendElement :: JSVal } - -instance PToJSVal HTMLLegendElement where - pToJSVal = unHTMLLegendElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLLegendElement where - pFromJSVal = HTMLLegendElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLLegendElement where - toJSVal = return . unHTMLLegendElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLLegendElement where - fromJSVal v = fmap HTMLLegendElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLLegendElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLLegendElement where - makeObject = makeObject . unHTMLLegendElement - -instance IsHTMLElement HTMLLegendElement -instance IsElement HTMLLegendElement -instance IsNode HTMLLegendElement -instance IsEventTarget HTMLLegendElement -instance IsSlotable HTMLLegendElement -instance IsParentNode HTMLLegendElement -instance IsNonDocumentTypeChildNode HTMLLegendElement -instance IsChildNode HTMLLegendElement -instance IsAnimatable HTMLLegendElement -instance IsGlobalEventHandlers HTMLLegendElement -instance IsGObject HTMLLegendElement where - typeGType _ = gTypeHTMLLegendElement - {-# INLINE typeGType #-} - -gTypeHTMLLegendElement :: JSM GType -gTypeHTMLLegendElement = GType . Object <$> jsg "HTMLLegendElement" - --- | Functions for this inteface are in "JSDOM.HTMLLinkElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLLinkElement = HTMLLinkElement { unHTMLLinkElement :: JSVal } - -instance PToJSVal HTMLLinkElement where - pToJSVal = unHTMLLinkElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLLinkElement where - pFromJSVal = HTMLLinkElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLLinkElement where - toJSVal = return . unHTMLLinkElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLLinkElement where - fromJSVal v = fmap HTMLLinkElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLLinkElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLLinkElement where - makeObject = makeObject . unHTMLLinkElement - -instance IsHTMLElement HTMLLinkElement -instance IsElement HTMLLinkElement -instance IsNode HTMLLinkElement -instance IsEventTarget HTMLLinkElement -instance IsSlotable HTMLLinkElement -instance IsParentNode HTMLLinkElement -instance IsNonDocumentTypeChildNode HTMLLinkElement -instance IsChildNode HTMLLinkElement -instance IsAnimatable HTMLLinkElement -instance IsGlobalEventHandlers HTMLLinkElement -instance IsGObject HTMLLinkElement where - typeGType _ = gTypeHTMLLinkElement - {-# INLINE typeGType #-} - -gTypeHTMLLinkElement :: JSM GType -gTypeHTMLLinkElement = GType . Object <$> jsg "HTMLLinkElement" - --- | Functions for this inteface are in "JSDOM.HTMLMapElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLMapElement = HTMLMapElement { unHTMLMapElement :: JSVal } - -instance PToJSVal HTMLMapElement where - pToJSVal = unHTMLMapElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMapElement where - pFromJSVal = HTMLMapElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMapElement where - toJSVal = return . unHTMLMapElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMapElement where - fromJSVal v = fmap HTMLMapElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLMapElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLMapElement where - makeObject = makeObject . unHTMLMapElement - -instance IsHTMLElement HTMLMapElement -instance IsElement HTMLMapElement -instance IsNode HTMLMapElement -instance IsEventTarget HTMLMapElement -instance IsSlotable HTMLMapElement -instance IsParentNode HTMLMapElement -instance IsNonDocumentTypeChildNode HTMLMapElement -instance IsChildNode HTMLMapElement -instance IsAnimatable HTMLMapElement -instance IsGlobalEventHandlers HTMLMapElement -instance IsGObject HTMLMapElement where - typeGType _ = gTypeHTMLMapElement - {-# INLINE typeGType #-} - -gTypeHTMLMapElement :: JSM GType -gTypeHTMLMapElement = GType . Object <$> jsg "HTMLMapElement" - --- | Functions for this inteface are in "JSDOM.HTMLMarqueeElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLMarqueeElement = HTMLMarqueeElement { unHTMLMarqueeElement :: JSVal } - -instance PToJSVal HTMLMarqueeElement where - pToJSVal = unHTMLMarqueeElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMarqueeElement where - pFromJSVal = HTMLMarqueeElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMarqueeElement where - toJSVal = return . unHTMLMarqueeElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMarqueeElement where - fromJSVal v = fmap HTMLMarqueeElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLMarqueeElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLMarqueeElement where - makeObject = makeObject . unHTMLMarqueeElement - -instance IsHTMLElement HTMLMarqueeElement -instance IsElement HTMLMarqueeElement -instance IsNode HTMLMarqueeElement -instance IsEventTarget HTMLMarqueeElement -instance IsSlotable HTMLMarqueeElement -instance IsParentNode HTMLMarqueeElement -instance IsNonDocumentTypeChildNode HTMLMarqueeElement -instance IsChildNode HTMLMarqueeElement -instance IsAnimatable HTMLMarqueeElement -instance IsGlobalEventHandlers HTMLMarqueeElement -instance IsGObject HTMLMarqueeElement where - typeGType _ = gTypeHTMLMarqueeElement - {-# INLINE typeGType #-} - -gTypeHTMLMarqueeElement :: JSM GType -gTypeHTMLMarqueeElement = GType . Object <$> jsg "HTMLMarqueeElement" - --- | Functions for this inteface are in "JSDOM.HTMLMediaElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLMediaElement = HTMLMediaElement { unHTMLMediaElement :: JSVal } - -instance PToJSVal HTMLMediaElement where - pToJSVal = unHTMLMediaElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMediaElement where - pFromJSVal = HTMLMediaElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMediaElement where - toJSVal = return . unHTMLMediaElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMediaElement where - fromJSVal v = fmap HTMLMediaElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLMediaElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLMediaElement where - makeObject = makeObject . unHTMLMediaElement - -class (IsHTMLElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsGObject o) => IsHTMLMediaElement o -toHTMLMediaElement :: IsHTMLMediaElement o => o -> HTMLMediaElement -toHTMLMediaElement = HTMLMediaElement . coerce - -instance IsHTMLMediaElement HTMLMediaElement -instance IsHTMLElement HTMLMediaElement -instance IsElement HTMLMediaElement -instance IsNode HTMLMediaElement -instance IsEventTarget HTMLMediaElement -instance IsSlotable HTMLMediaElement -instance IsParentNode HTMLMediaElement -instance IsNonDocumentTypeChildNode HTMLMediaElement -instance IsChildNode HTMLMediaElement -instance IsAnimatable HTMLMediaElement -instance IsGlobalEventHandlers HTMLMediaElement -instance IsGObject HTMLMediaElement where - typeGType _ = gTypeHTMLMediaElement - {-# INLINE typeGType #-} - -gTypeHTMLMediaElement :: JSM GType -gTypeHTMLMediaElement = GType . Object <$> jsg "HTMLMediaElement" - --- | Functions for this inteface are in "JSDOM.HTMLMenuElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLMenuElement = HTMLMenuElement { unHTMLMenuElement :: JSVal } - -instance PToJSVal HTMLMenuElement where - pToJSVal = unHTMLMenuElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMenuElement where - pFromJSVal = HTMLMenuElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMenuElement where - toJSVal = return . unHTMLMenuElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMenuElement where - fromJSVal v = fmap HTMLMenuElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLMenuElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLMenuElement where - makeObject = makeObject . unHTMLMenuElement - -instance IsHTMLElement HTMLMenuElement -instance IsElement HTMLMenuElement -instance IsNode HTMLMenuElement -instance IsEventTarget HTMLMenuElement -instance IsSlotable HTMLMenuElement -instance IsParentNode HTMLMenuElement -instance IsNonDocumentTypeChildNode HTMLMenuElement -instance IsChildNode HTMLMenuElement -instance IsAnimatable HTMLMenuElement -instance IsGlobalEventHandlers HTMLMenuElement -instance IsGObject HTMLMenuElement where - typeGType _ = gTypeHTMLMenuElement - {-# INLINE typeGType #-} - -gTypeHTMLMenuElement :: JSM GType -gTypeHTMLMenuElement = GType . Object <$> jsg "HTMLMenuElement" - --- | Functions for this inteface are in "JSDOM.HTMLMetaElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLMetaElement = HTMLMetaElement { unHTMLMetaElement :: JSVal } - -instance PToJSVal HTMLMetaElement where - pToJSVal = unHTMLMetaElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMetaElement where - pFromJSVal = HTMLMetaElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMetaElement where - toJSVal = return . unHTMLMetaElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMetaElement where - fromJSVal v = fmap HTMLMetaElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLMetaElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLMetaElement where - makeObject = makeObject . unHTMLMetaElement - -instance IsHTMLElement HTMLMetaElement -instance IsElement HTMLMetaElement -instance IsNode HTMLMetaElement -instance IsEventTarget HTMLMetaElement -instance IsSlotable HTMLMetaElement -instance IsParentNode HTMLMetaElement -instance IsNonDocumentTypeChildNode HTMLMetaElement -instance IsChildNode HTMLMetaElement -instance IsAnimatable HTMLMetaElement -instance IsGlobalEventHandlers HTMLMetaElement -instance IsGObject HTMLMetaElement where - typeGType _ = gTypeHTMLMetaElement - {-# INLINE typeGType #-} - -gTypeHTMLMetaElement :: JSM GType -gTypeHTMLMetaElement = GType . Object <$> jsg "HTMLMetaElement" - --- | Functions for this inteface are in "JSDOM.HTMLMeterElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLMeterElement = HTMLMeterElement { unHTMLMeterElement :: JSVal } - -instance PToJSVal HTMLMeterElement where - pToJSVal = unHTMLMeterElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLMeterElement where - pFromJSVal = HTMLMeterElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLMeterElement where - toJSVal = return . unHTMLMeterElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLMeterElement where - fromJSVal v = fmap HTMLMeterElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLMeterElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLMeterElement where - makeObject = makeObject . unHTMLMeterElement - -instance IsHTMLElement HTMLMeterElement -instance IsElement HTMLMeterElement -instance IsNode HTMLMeterElement -instance IsEventTarget HTMLMeterElement -instance IsSlotable HTMLMeterElement -instance IsParentNode HTMLMeterElement -instance IsNonDocumentTypeChildNode HTMLMeterElement -instance IsChildNode HTMLMeterElement -instance IsAnimatable HTMLMeterElement -instance IsGlobalEventHandlers HTMLMeterElement -instance IsGObject HTMLMeterElement where - typeGType _ = gTypeHTMLMeterElement - {-# INLINE typeGType #-} - -gTypeHTMLMeterElement :: JSM GType -gTypeHTMLMeterElement = GType . Object <$> jsg "HTMLMeterElement" - --- | Functions for this inteface are in "JSDOM.HTMLModElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLModElement = HTMLModElement { unHTMLModElement :: JSVal } - -instance PToJSVal HTMLModElement where - pToJSVal = unHTMLModElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLModElement where - pFromJSVal = HTMLModElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLModElement where - toJSVal = return . unHTMLModElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLModElement where - fromJSVal v = fmap HTMLModElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLModElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLModElement where - makeObject = makeObject . unHTMLModElement - -instance IsHTMLElement HTMLModElement -instance IsElement HTMLModElement -instance IsNode HTMLModElement -instance IsEventTarget HTMLModElement -instance IsSlotable HTMLModElement -instance IsParentNode HTMLModElement -instance IsNonDocumentTypeChildNode HTMLModElement -instance IsChildNode HTMLModElement -instance IsAnimatable HTMLModElement -instance IsGlobalEventHandlers HTMLModElement -instance IsGObject HTMLModElement where - typeGType _ = gTypeHTMLModElement - {-# INLINE typeGType #-} - -gTypeHTMLModElement :: JSM GType -gTypeHTMLModElement = GType . Object <$> jsg "HTMLModElement" - --- | Functions for this inteface are in "JSDOM.HTMLOListElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLOListElement = HTMLOListElement { unHTMLOListElement :: JSVal } - -instance PToJSVal HTMLOListElement where - pToJSVal = unHTMLOListElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOListElement where - pFromJSVal = HTMLOListElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOListElement where - toJSVal = return . unHTMLOListElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOListElement where - fromJSVal v = fmap HTMLOListElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLOListElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLOListElement where - makeObject = makeObject . unHTMLOListElement - -instance IsHTMLElement HTMLOListElement -instance IsElement HTMLOListElement -instance IsNode HTMLOListElement -instance IsEventTarget HTMLOListElement -instance IsSlotable HTMLOListElement -instance IsParentNode HTMLOListElement -instance IsNonDocumentTypeChildNode HTMLOListElement -instance IsChildNode HTMLOListElement -instance IsAnimatable HTMLOListElement -instance IsGlobalEventHandlers HTMLOListElement -instance IsGObject HTMLOListElement where - typeGType _ = gTypeHTMLOListElement - {-# INLINE typeGType #-} - -gTypeHTMLOListElement :: JSM GType -gTypeHTMLOListElement = GType . Object <$> jsg "HTMLOListElement" - --- | Functions for this inteface are in "JSDOM.HTMLObjectElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLObjectElement = HTMLObjectElement { unHTMLObjectElement :: JSVal } - -instance PToJSVal HTMLObjectElement where - pToJSVal = unHTMLObjectElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLObjectElement where - pFromJSVal = HTMLObjectElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLObjectElement where - toJSVal = return . unHTMLObjectElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLObjectElement where - fromJSVal v = fmap HTMLObjectElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLObjectElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLObjectElement where - makeObject = makeObject . unHTMLObjectElement - -instance IsHTMLElement HTMLObjectElement -instance IsElement HTMLObjectElement -instance IsNode HTMLObjectElement -instance IsEventTarget HTMLObjectElement -instance IsSlotable HTMLObjectElement -instance IsParentNode HTMLObjectElement -instance IsNonDocumentTypeChildNode HTMLObjectElement -instance IsChildNode HTMLObjectElement -instance IsAnimatable HTMLObjectElement -instance IsGlobalEventHandlers HTMLObjectElement -instance IsGObject HTMLObjectElement where - typeGType _ = gTypeHTMLObjectElement - {-# INLINE typeGType #-} - -gTypeHTMLObjectElement :: JSM GType -gTypeHTMLObjectElement = GType . Object <$> jsg "HTMLObjectElement" - --- | Functions for this inteface are in "JSDOM.HTMLOptGroupElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLOptGroupElement = HTMLOptGroupElement { unHTMLOptGroupElement :: JSVal } - -instance PToJSVal HTMLOptGroupElement where - pToJSVal = unHTMLOptGroupElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOptGroupElement where - pFromJSVal = HTMLOptGroupElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOptGroupElement where - toJSVal = return . unHTMLOptGroupElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOptGroupElement where - fromJSVal v = fmap HTMLOptGroupElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLOptGroupElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLOptGroupElement where - makeObject = makeObject . unHTMLOptGroupElement - -instance IsHTMLElement HTMLOptGroupElement -instance IsElement HTMLOptGroupElement -instance IsNode HTMLOptGroupElement -instance IsEventTarget HTMLOptGroupElement -instance IsSlotable HTMLOptGroupElement -instance IsParentNode HTMLOptGroupElement -instance IsNonDocumentTypeChildNode HTMLOptGroupElement -instance IsChildNode HTMLOptGroupElement -instance IsAnimatable HTMLOptGroupElement -instance IsGlobalEventHandlers HTMLOptGroupElement -instance IsGObject HTMLOptGroupElement where - typeGType _ = gTypeHTMLOptGroupElement - {-# INLINE typeGType #-} - -gTypeHTMLOptGroupElement :: JSM GType -gTypeHTMLOptGroupElement = GType . Object <$> jsg "HTMLOptGroupElement" - --- | Functions for this inteface are in "JSDOM.HTMLOptionElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLOptionElement = HTMLOptionElement { unHTMLOptionElement :: JSVal } - -instance PToJSVal HTMLOptionElement where - pToJSVal = unHTMLOptionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOptionElement where - pFromJSVal = HTMLOptionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOptionElement where - toJSVal = return . unHTMLOptionElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOptionElement where - fromJSVal v = fmap HTMLOptionElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLOptionElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLOptionElement where - makeObject = makeObject . unHTMLOptionElement - -instance IsHTMLElement HTMLOptionElement -instance IsElement HTMLOptionElement -instance IsNode HTMLOptionElement -instance IsEventTarget HTMLOptionElement -instance IsSlotable HTMLOptionElement -instance IsParentNode HTMLOptionElement -instance IsNonDocumentTypeChildNode HTMLOptionElement -instance IsChildNode HTMLOptionElement -instance IsAnimatable HTMLOptionElement -instance IsGlobalEventHandlers HTMLOptionElement -instance IsGObject HTMLOptionElement where - typeGType _ = gTypeHTMLOptionElement - {-# INLINE typeGType #-} - -gTypeHTMLOptionElement :: JSM GType -gTypeHTMLOptionElement = GType . Object <$> jsg "HTMLOptionElement" - --- | Functions for this inteface are in "JSDOM.HTMLOptionsCollection". --- Base interface functions are in: --- --- * "JSDOM.HTMLCollection" --- --- -newtype HTMLOptionsCollection = HTMLOptionsCollection { unHTMLOptionsCollection :: JSVal } - -instance PToJSVal HTMLOptionsCollection where - pToJSVal = unHTMLOptionsCollection - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOptionsCollection where - pFromJSVal = HTMLOptionsCollection - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOptionsCollection where - toJSVal = return . unHTMLOptionsCollection - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOptionsCollection where - fromJSVal v = fmap HTMLOptionsCollection <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLOptionsCollection - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLOptionsCollection where - makeObject = makeObject . unHTMLOptionsCollection - -instance IsHTMLCollection HTMLOptionsCollection -instance IsGObject HTMLOptionsCollection where - typeGType _ = gTypeHTMLOptionsCollection - {-# INLINE typeGType #-} - -gTypeHTMLOptionsCollection :: JSM GType -gTypeHTMLOptionsCollection = GType . Object <$> jsg "HTMLOptionsCollection" - --- | Functions for this inteface are in "JSDOM.HTMLOutputElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLOutputElement = HTMLOutputElement { unHTMLOutputElement :: JSVal } - -instance PToJSVal HTMLOutputElement where - pToJSVal = unHTMLOutputElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLOutputElement where - pFromJSVal = HTMLOutputElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLOutputElement where - toJSVal = return . unHTMLOutputElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLOutputElement where - fromJSVal v = fmap HTMLOutputElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLOutputElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLOutputElement where - makeObject = makeObject . unHTMLOutputElement - -instance IsHTMLElement HTMLOutputElement -instance IsElement HTMLOutputElement -instance IsNode HTMLOutputElement -instance IsEventTarget HTMLOutputElement -instance IsSlotable HTMLOutputElement -instance IsParentNode HTMLOutputElement -instance IsNonDocumentTypeChildNode HTMLOutputElement -instance IsChildNode HTMLOutputElement -instance IsAnimatable HTMLOutputElement -instance IsGlobalEventHandlers HTMLOutputElement -instance IsGObject HTMLOutputElement where - typeGType _ = gTypeHTMLOutputElement - {-# INLINE typeGType #-} - -gTypeHTMLOutputElement :: JSM GType -gTypeHTMLOutputElement = GType . Object <$> jsg "HTMLOutputElement" - --- | Functions for this inteface are in "JSDOM.HTMLParagraphElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLParagraphElement = HTMLParagraphElement { unHTMLParagraphElement :: JSVal } - -instance PToJSVal HTMLParagraphElement where - pToJSVal = unHTMLParagraphElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLParagraphElement where - pFromJSVal = HTMLParagraphElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLParagraphElement where - toJSVal = return . unHTMLParagraphElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLParagraphElement where - fromJSVal v = fmap HTMLParagraphElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLParagraphElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLParagraphElement where - makeObject = makeObject . unHTMLParagraphElement - -instance IsHTMLElement HTMLParagraphElement -instance IsElement HTMLParagraphElement -instance IsNode HTMLParagraphElement -instance IsEventTarget HTMLParagraphElement -instance IsSlotable HTMLParagraphElement -instance IsParentNode HTMLParagraphElement -instance IsNonDocumentTypeChildNode HTMLParagraphElement -instance IsChildNode HTMLParagraphElement -instance IsAnimatable HTMLParagraphElement -instance IsGlobalEventHandlers HTMLParagraphElement -instance IsGObject HTMLParagraphElement where - typeGType _ = gTypeHTMLParagraphElement - {-# INLINE typeGType #-} - -gTypeHTMLParagraphElement :: JSM GType -gTypeHTMLParagraphElement = GType . Object <$> jsg "HTMLParagraphElement" - --- | Functions for this inteface are in "JSDOM.HTMLParamElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLParamElement = HTMLParamElement { unHTMLParamElement :: JSVal } - -instance PToJSVal HTMLParamElement where - pToJSVal = unHTMLParamElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLParamElement where - pFromJSVal = HTMLParamElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLParamElement where - toJSVal = return . unHTMLParamElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLParamElement where - fromJSVal v = fmap HTMLParamElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLParamElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLParamElement where - makeObject = makeObject . unHTMLParamElement - -instance IsHTMLElement HTMLParamElement -instance IsElement HTMLParamElement -instance IsNode HTMLParamElement -instance IsEventTarget HTMLParamElement -instance IsSlotable HTMLParamElement -instance IsParentNode HTMLParamElement -instance IsNonDocumentTypeChildNode HTMLParamElement -instance IsChildNode HTMLParamElement -instance IsAnimatable HTMLParamElement -instance IsGlobalEventHandlers HTMLParamElement -instance IsGObject HTMLParamElement where - typeGType _ = gTypeHTMLParamElement - {-# INLINE typeGType #-} - -gTypeHTMLParamElement :: JSM GType -gTypeHTMLParamElement = GType . Object <$> jsg "HTMLParamElement" - --- | Functions for this inteface are in "JSDOM.HTMLPictureElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLPictureElement = HTMLPictureElement { unHTMLPictureElement :: JSVal } - -instance PToJSVal HTMLPictureElement where - pToJSVal = unHTMLPictureElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLPictureElement where - pFromJSVal = HTMLPictureElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLPictureElement where - toJSVal = return . unHTMLPictureElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLPictureElement where - fromJSVal v = fmap HTMLPictureElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLPictureElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLPictureElement where - makeObject = makeObject . unHTMLPictureElement - -instance IsHTMLElement HTMLPictureElement -instance IsElement HTMLPictureElement -instance IsNode HTMLPictureElement -instance IsEventTarget HTMLPictureElement -instance IsSlotable HTMLPictureElement -instance IsParentNode HTMLPictureElement -instance IsNonDocumentTypeChildNode HTMLPictureElement -instance IsChildNode HTMLPictureElement -instance IsAnimatable HTMLPictureElement -instance IsGlobalEventHandlers HTMLPictureElement -instance IsGObject HTMLPictureElement where - typeGType _ = gTypeHTMLPictureElement - {-# INLINE typeGType #-} - -gTypeHTMLPictureElement :: JSM GType -gTypeHTMLPictureElement = GType . Object <$> jsg "HTMLPictureElement" - --- | Functions for this inteface are in "JSDOM.HTMLPreElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLPreElement = HTMLPreElement { unHTMLPreElement :: JSVal } - -instance PToJSVal HTMLPreElement where - pToJSVal = unHTMLPreElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLPreElement where - pFromJSVal = HTMLPreElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLPreElement where - toJSVal = return . unHTMLPreElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLPreElement where - fromJSVal v = fmap HTMLPreElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLPreElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLPreElement where - makeObject = makeObject . unHTMLPreElement - -instance IsHTMLElement HTMLPreElement -instance IsElement HTMLPreElement -instance IsNode HTMLPreElement -instance IsEventTarget HTMLPreElement -instance IsSlotable HTMLPreElement -instance IsParentNode HTMLPreElement -instance IsNonDocumentTypeChildNode HTMLPreElement -instance IsChildNode HTMLPreElement -instance IsAnimatable HTMLPreElement -instance IsGlobalEventHandlers HTMLPreElement -instance IsGObject HTMLPreElement where - typeGType _ = gTypeHTMLPreElement - {-# INLINE typeGType #-} - -gTypeHTMLPreElement :: JSM GType -gTypeHTMLPreElement = GType . Object <$> jsg "HTMLPreElement" - --- | Functions for this inteface are in "JSDOM.HTMLProgressElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLProgressElement = HTMLProgressElement { unHTMLProgressElement :: JSVal } - -instance PToJSVal HTMLProgressElement where - pToJSVal = unHTMLProgressElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLProgressElement where - pFromJSVal = HTMLProgressElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLProgressElement where - toJSVal = return . unHTMLProgressElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLProgressElement where - fromJSVal v = fmap HTMLProgressElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLProgressElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLProgressElement where - makeObject = makeObject . unHTMLProgressElement - -instance IsHTMLElement HTMLProgressElement -instance IsElement HTMLProgressElement -instance IsNode HTMLProgressElement -instance IsEventTarget HTMLProgressElement -instance IsSlotable HTMLProgressElement -instance IsParentNode HTMLProgressElement -instance IsNonDocumentTypeChildNode HTMLProgressElement -instance IsChildNode HTMLProgressElement -instance IsAnimatable HTMLProgressElement -instance IsGlobalEventHandlers HTMLProgressElement -instance IsGObject HTMLProgressElement where - typeGType _ = gTypeHTMLProgressElement - {-# INLINE typeGType #-} - -gTypeHTMLProgressElement :: JSM GType -gTypeHTMLProgressElement = GType . Object <$> jsg "HTMLProgressElement" - --- | Functions for this inteface are in "JSDOM.HTMLQuoteElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLQuoteElement = HTMLQuoteElement { unHTMLQuoteElement :: JSVal } - -instance PToJSVal HTMLQuoteElement where - pToJSVal = unHTMLQuoteElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLQuoteElement where - pFromJSVal = HTMLQuoteElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLQuoteElement where - toJSVal = return . unHTMLQuoteElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLQuoteElement where - fromJSVal v = fmap HTMLQuoteElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLQuoteElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLQuoteElement where - makeObject = makeObject . unHTMLQuoteElement - -instance IsHTMLElement HTMLQuoteElement -instance IsElement HTMLQuoteElement -instance IsNode HTMLQuoteElement -instance IsEventTarget HTMLQuoteElement -instance IsSlotable HTMLQuoteElement -instance IsParentNode HTMLQuoteElement -instance IsNonDocumentTypeChildNode HTMLQuoteElement -instance IsChildNode HTMLQuoteElement -instance IsAnimatable HTMLQuoteElement -instance IsGlobalEventHandlers HTMLQuoteElement -instance IsGObject HTMLQuoteElement where - typeGType _ = gTypeHTMLQuoteElement - {-# INLINE typeGType #-} - -gTypeHTMLQuoteElement :: JSM GType -gTypeHTMLQuoteElement = GType . Object <$> jsg "HTMLQuoteElement" - --- | Functions for this inteface are in "JSDOM.HTMLScriptElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLScriptElement = HTMLScriptElement { unHTMLScriptElement :: JSVal } - -instance PToJSVal HTMLScriptElement where - pToJSVal = unHTMLScriptElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLScriptElement where - pFromJSVal = HTMLScriptElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLScriptElement where - toJSVal = return . unHTMLScriptElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLScriptElement where - fromJSVal v = fmap HTMLScriptElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLScriptElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLScriptElement where - makeObject = makeObject . unHTMLScriptElement - -instance IsHTMLElement HTMLScriptElement -instance IsElement HTMLScriptElement -instance IsNode HTMLScriptElement -instance IsEventTarget HTMLScriptElement -instance IsSlotable HTMLScriptElement -instance IsParentNode HTMLScriptElement -instance IsNonDocumentTypeChildNode HTMLScriptElement -instance IsChildNode HTMLScriptElement -instance IsAnimatable HTMLScriptElement -instance IsGlobalEventHandlers HTMLScriptElement -instance IsGObject HTMLScriptElement where - typeGType _ = gTypeHTMLScriptElement - {-# INLINE typeGType #-} - -gTypeHTMLScriptElement :: JSM GType -gTypeHTMLScriptElement = GType . Object <$> jsg "HTMLScriptElement" - --- | Functions for this inteface are in "JSDOM.HTMLSelectElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLSelectElement = HTMLSelectElement { unHTMLSelectElement :: JSVal } - -instance PToJSVal HTMLSelectElement where - pToJSVal = unHTMLSelectElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLSelectElement where - pFromJSVal = HTMLSelectElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLSelectElement where - toJSVal = return . unHTMLSelectElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLSelectElement where - fromJSVal v = fmap HTMLSelectElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLSelectElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLSelectElement where - makeObject = makeObject . unHTMLSelectElement - -instance IsHTMLElement HTMLSelectElement -instance IsElement HTMLSelectElement -instance IsNode HTMLSelectElement -instance IsEventTarget HTMLSelectElement -instance IsSlotable HTMLSelectElement -instance IsParentNode HTMLSelectElement -instance IsNonDocumentTypeChildNode HTMLSelectElement -instance IsChildNode HTMLSelectElement -instance IsAnimatable HTMLSelectElement -instance IsGlobalEventHandlers HTMLSelectElement -instance IsGObject HTMLSelectElement where - typeGType _ = gTypeHTMLSelectElement - {-# INLINE typeGType #-} - -gTypeHTMLSelectElement :: JSM GType -gTypeHTMLSelectElement = GType . Object <$> jsg "HTMLSelectElement" - --- | Functions for this inteface are in "JSDOM.HTMLSlotElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLSlotElement = HTMLSlotElement { unHTMLSlotElement :: JSVal } - -instance PToJSVal HTMLSlotElement where - pToJSVal = unHTMLSlotElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLSlotElement where - pFromJSVal = HTMLSlotElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLSlotElement where - toJSVal = return . unHTMLSlotElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLSlotElement where - fromJSVal v = fmap HTMLSlotElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLSlotElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLSlotElement where - makeObject = makeObject . unHTMLSlotElement - -instance IsHTMLElement HTMLSlotElement -instance IsElement HTMLSlotElement -instance IsNode HTMLSlotElement -instance IsEventTarget HTMLSlotElement -instance IsSlotable HTMLSlotElement -instance IsParentNode HTMLSlotElement -instance IsNonDocumentTypeChildNode HTMLSlotElement -instance IsChildNode HTMLSlotElement -instance IsAnimatable HTMLSlotElement -instance IsGlobalEventHandlers HTMLSlotElement -instance IsGObject HTMLSlotElement where - typeGType _ = gTypeHTMLSlotElement - {-# INLINE typeGType #-} - -gTypeHTMLSlotElement :: JSM GType -gTypeHTMLSlotElement = GType . Object <$> jsg "HTMLSlotElement" - --- | Functions for this inteface are in "JSDOM.HTMLSourceElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLSourceElement = HTMLSourceElement { unHTMLSourceElement :: JSVal } - -instance PToJSVal HTMLSourceElement where - pToJSVal = unHTMLSourceElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLSourceElement where - pFromJSVal = HTMLSourceElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLSourceElement where - toJSVal = return . unHTMLSourceElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLSourceElement where - fromJSVal v = fmap HTMLSourceElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLSourceElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLSourceElement where - makeObject = makeObject . unHTMLSourceElement - -instance IsHTMLElement HTMLSourceElement -instance IsElement HTMLSourceElement -instance IsNode HTMLSourceElement -instance IsEventTarget HTMLSourceElement -instance IsSlotable HTMLSourceElement -instance IsParentNode HTMLSourceElement -instance IsNonDocumentTypeChildNode HTMLSourceElement -instance IsChildNode HTMLSourceElement -instance IsAnimatable HTMLSourceElement -instance IsGlobalEventHandlers HTMLSourceElement -instance IsGObject HTMLSourceElement where - typeGType _ = gTypeHTMLSourceElement - {-# INLINE typeGType #-} - -gTypeHTMLSourceElement :: JSM GType -gTypeHTMLSourceElement = GType . Object <$> jsg "HTMLSourceElement" - --- | Functions for this inteface are in "JSDOM.HTMLSpanElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLSpanElement = HTMLSpanElement { unHTMLSpanElement :: JSVal } - -instance PToJSVal HTMLSpanElement where - pToJSVal = unHTMLSpanElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLSpanElement where - pFromJSVal = HTMLSpanElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLSpanElement where - toJSVal = return . unHTMLSpanElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLSpanElement where - fromJSVal v = fmap HTMLSpanElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLSpanElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLSpanElement where - makeObject = makeObject . unHTMLSpanElement - -instance IsHTMLElement HTMLSpanElement -instance IsElement HTMLSpanElement -instance IsNode HTMLSpanElement -instance IsEventTarget HTMLSpanElement -instance IsSlotable HTMLSpanElement -instance IsParentNode HTMLSpanElement -instance IsNonDocumentTypeChildNode HTMLSpanElement -instance IsChildNode HTMLSpanElement -instance IsAnimatable HTMLSpanElement -instance IsGlobalEventHandlers HTMLSpanElement -instance IsGObject HTMLSpanElement where - typeGType _ = gTypeHTMLSpanElement - {-# INLINE typeGType #-} - -gTypeHTMLSpanElement :: JSM GType -gTypeHTMLSpanElement = GType . Object <$> jsg "HTMLSpanElement" - --- | Functions for this inteface are in "JSDOM.HTMLStyleElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLStyleElement = HTMLStyleElement { unHTMLStyleElement :: JSVal } - -instance PToJSVal HTMLStyleElement where - pToJSVal = unHTMLStyleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLStyleElement where - pFromJSVal = HTMLStyleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLStyleElement where - toJSVal = return . unHTMLStyleElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLStyleElement where - fromJSVal v = fmap HTMLStyleElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLStyleElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLStyleElement where - makeObject = makeObject . unHTMLStyleElement - -instance IsHTMLElement HTMLStyleElement -instance IsElement HTMLStyleElement -instance IsNode HTMLStyleElement -instance IsEventTarget HTMLStyleElement -instance IsSlotable HTMLStyleElement -instance IsParentNode HTMLStyleElement -instance IsNonDocumentTypeChildNode HTMLStyleElement -instance IsChildNode HTMLStyleElement -instance IsAnimatable HTMLStyleElement -instance IsGlobalEventHandlers HTMLStyleElement -instance IsGObject HTMLStyleElement where - typeGType _ = gTypeHTMLStyleElement - {-# INLINE typeGType #-} - -gTypeHTMLStyleElement :: JSM GType -gTypeHTMLStyleElement = GType . Object <$> jsg "HTMLStyleElement" - --- | Functions for this inteface are in "JSDOM.HTMLTableCaptionElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTableCaptionElement = HTMLTableCaptionElement { unHTMLTableCaptionElement :: JSVal } - -instance PToJSVal HTMLTableCaptionElement where - pToJSVal = unHTMLTableCaptionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableCaptionElement where - pFromJSVal = HTMLTableCaptionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableCaptionElement where - toJSVal = return . unHTMLTableCaptionElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableCaptionElement where - fromJSVal v = fmap HTMLTableCaptionElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTableCaptionElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTableCaptionElement where - makeObject = makeObject . unHTMLTableCaptionElement - -instance IsHTMLElement HTMLTableCaptionElement -instance IsElement HTMLTableCaptionElement -instance IsNode HTMLTableCaptionElement -instance IsEventTarget HTMLTableCaptionElement -instance IsSlotable HTMLTableCaptionElement -instance IsParentNode HTMLTableCaptionElement -instance IsNonDocumentTypeChildNode HTMLTableCaptionElement -instance IsChildNode HTMLTableCaptionElement -instance IsAnimatable HTMLTableCaptionElement -instance IsGlobalEventHandlers HTMLTableCaptionElement -instance IsGObject HTMLTableCaptionElement where - typeGType _ = gTypeHTMLTableCaptionElement - {-# INLINE typeGType #-} - -gTypeHTMLTableCaptionElement :: JSM GType -gTypeHTMLTableCaptionElement = GType . Object <$> jsg "HTMLTableCaptionElement" - --- | Functions for this inteface are in "JSDOM.HTMLTableCellElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTableCellElement = HTMLTableCellElement { unHTMLTableCellElement :: JSVal } - -instance PToJSVal HTMLTableCellElement where - pToJSVal = unHTMLTableCellElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableCellElement where - pFromJSVal = HTMLTableCellElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableCellElement where - toJSVal = return . unHTMLTableCellElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableCellElement where - fromJSVal v = fmap HTMLTableCellElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTableCellElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTableCellElement where - makeObject = makeObject . unHTMLTableCellElement - -instance IsHTMLElement HTMLTableCellElement -instance IsElement HTMLTableCellElement -instance IsNode HTMLTableCellElement -instance IsEventTarget HTMLTableCellElement -instance IsSlotable HTMLTableCellElement -instance IsParentNode HTMLTableCellElement -instance IsNonDocumentTypeChildNode HTMLTableCellElement -instance IsChildNode HTMLTableCellElement -instance IsAnimatable HTMLTableCellElement -instance IsGlobalEventHandlers HTMLTableCellElement -instance IsGObject HTMLTableCellElement where - typeGType _ = gTypeHTMLTableCellElement - {-# INLINE typeGType #-} - -gTypeHTMLTableCellElement :: JSM GType -gTypeHTMLTableCellElement = GType . Object <$> jsg "HTMLTableCellElement" - --- | Functions for this inteface are in "JSDOM.HTMLTableColElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTableColElement = HTMLTableColElement { unHTMLTableColElement :: JSVal } - -instance PToJSVal HTMLTableColElement where - pToJSVal = unHTMLTableColElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableColElement where - pFromJSVal = HTMLTableColElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableColElement where - toJSVal = return . unHTMLTableColElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableColElement where - fromJSVal v = fmap HTMLTableColElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTableColElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTableColElement where - makeObject = makeObject . unHTMLTableColElement - -instance IsHTMLElement HTMLTableColElement -instance IsElement HTMLTableColElement -instance IsNode HTMLTableColElement -instance IsEventTarget HTMLTableColElement -instance IsSlotable HTMLTableColElement -instance IsParentNode HTMLTableColElement -instance IsNonDocumentTypeChildNode HTMLTableColElement -instance IsChildNode HTMLTableColElement -instance IsAnimatable HTMLTableColElement -instance IsGlobalEventHandlers HTMLTableColElement -instance IsGObject HTMLTableColElement where - typeGType _ = gTypeHTMLTableColElement - {-# INLINE typeGType #-} - -gTypeHTMLTableColElement :: JSM GType -gTypeHTMLTableColElement = GType . Object <$> jsg "HTMLTableColElement" - --- | Functions for this inteface are in "JSDOM.HTMLTableElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTableElement = HTMLTableElement { unHTMLTableElement :: JSVal } - -instance PToJSVal HTMLTableElement where - pToJSVal = unHTMLTableElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableElement where - pFromJSVal = HTMLTableElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableElement where - toJSVal = return . unHTMLTableElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableElement where - fromJSVal v = fmap HTMLTableElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTableElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTableElement where - makeObject = makeObject . unHTMLTableElement - -instance IsHTMLElement HTMLTableElement -instance IsElement HTMLTableElement -instance IsNode HTMLTableElement -instance IsEventTarget HTMLTableElement -instance IsSlotable HTMLTableElement -instance IsParentNode HTMLTableElement -instance IsNonDocumentTypeChildNode HTMLTableElement -instance IsChildNode HTMLTableElement -instance IsAnimatable HTMLTableElement -instance IsGlobalEventHandlers HTMLTableElement -instance IsGObject HTMLTableElement where - typeGType _ = gTypeHTMLTableElement - {-# INLINE typeGType #-} - -gTypeHTMLTableElement :: JSM GType -gTypeHTMLTableElement = GType . Object <$> jsg "HTMLTableElement" - --- | Functions for this inteface are in "JSDOM.HTMLTableRowElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTableRowElement = HTMLTableRowElement { unHTMLTableRowElement :: JSVal } - -instance PToJSVal HTMLTableRowElement where - pToJSVal = unHTMLTableRowElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableRowElement where - pFromJSVal = HTMLTableRowElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableRowElement where - toJSVal = return . unHTMLTableRowElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableRowElement where - fromJSVal v = fmap HTMLTableRowElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTableRowElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTableRowElement where - makeObject = makeObject . unHTMLTableRowElement - -instance IsHTMLElement HTMLTableRowElement -instance IsElement HTMLTableRowElement -instance IsNode HTMLTableRowElement -instance IsEventTarget HTMLTableRowElement -instance IsSlotable HTMLTableRowElement -instance IsParentNode HTMLTableRowElement -instance IsNonDocumentTypeChildNode HTMLTableRowElement -instance IsChildNode HTMLTableRowElement -instance IsAnimatable HTMLTableRowElement -instance IsGlobalEventHandlers HTMLTableRowElement -instance IsGObject HTMLTableRowElement where - typeGType _ = gTypeHTMLTableRowElement - {-# INLINE typeGType #-} - -gTypeHTMLTableRowElement :: JSM GType -gTypeHTMLTableRowElement = GType . Object <$> jsg "HTMLTableRowElement" - --- | Functions for this inteface are in "JSDOM.HTMLTableSectionElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTableSectionElement = HTMLTableSectionElement { unHTMLTableSectionElement :: JSVal } - -instance PToJSVal HTMLTableSectionElement where - pToJSVal = unHTMLTableSectionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTableSectionElement where - pFromJSVal = HTMLTableSectionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTableSectionElement where - toJSVal = return . unHTMLTableSectionElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTableSectionElement where - fromJSVal v = fmap HTMLTableSectionElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTableSectionElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTableSectionElement where - makeObject = makeObject . unHTMLTableSectionElement - -instance IsHTMLElement HTMLTableSectionElement -instance IsElement HTMLTableSectionElement -instance IsNode HTMLTableSectionElement -instance IsEventTarget HTMLTableSectionElement -instance IsSlotable HTMLTableSectionElement -instance IsParentNode HTMLTableSectionElement -instance IsNonDocumentTypeChildNode HTMLTableSectionElement -instance IsChildNode HTMLTableSectionElement -instance IsAnimatable HTMLTableSectionElement -instance IsGlobalEventHandlers HTMLTableSectionElement -instance IsGObject HTMLTableSectionElement where - typeGType _ = gTypeHTMLTableSectionElement - {-# INLINE typeGType #-} - -gTypeHTMLTableSectionElement :: JSM GType -gTypeHTMLTableSectionElement = GType . Object <$> jsg "HTMLTableSectionElement" - --- | Functions for this inteface are in "JSDOM.HTMLTemplateElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTemplateElement = HTMLTemplateElement { unHTMLTemplateElement :: JSVal } - -instance PToJSVal HTMLTemplateElement where - pToJSVal = unHTMLTemplateElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTemplateElement where - pFromJSVal = HTMLTemplateElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTemplateElement where - toJSVal = return . unHTMLTemplateElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTemplateElement where - fromJSVal v = fmap HTMLTemplateElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTemplateElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTemplateElement where - makeObject = makeObject . unHTMLTemplateElement - -instance IsHTMLElement HTMLTemplateElement -instance IsElement HTMLTemplateElement -instance IsNode HTMLTemplateElement -instance IsEventTarget HTMLTemplateElement -instance IsSlotable HTMLTemplateElement -instance IsParentNode HTMLTemplateElement -instance IsNonDocumentTypeChildNode HTMLTemplateElement -instance IsChildNode HTMLTemplateElement -instance IsAnimatable HTMLTemplateElement -instance IsGlobalEventHandlers HTMLTemplateElement -instance IsGObject HTMLTemplateElement where - typeGType _ = gTypeHTMLTemplateElement - {-# INLINE typeGType #-} - -gTypeHTMLTemplateElement :: JSM GType -gTypeHTMLTemplateElement = GType . Object <$> jsg "HTMLTemplateElement" - --- | Functions for this inteface are in "JSDOM.HTMLTextAreaElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTextAreaElement = HTMLTextAreaElement { unHTMLTextAreaElement :: JSVal } - -instance PToJSVal HTMLTextAreaElement where - pToJSVal = unHTMLTextAreaElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTextAreaElement where - pFromJSVal = HTMLTextAreaElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTextAreaElement where - toJSVal = return . unHTMLTextAreaElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTextAreaElement where - fromJSVal v = fmap HTMLTextAreaElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTextAreaElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTextAreaElement where - makeObject = makeObject . unHTMLTextAreaElement - -instance IsHTMLElement HTMLTextAreaElement -instance IsElement HTMLTextAreaElement -instance IsNode HTMLTextAreaElement -instance IsEventTarget HTMLTextAreaElement -instance IsSlotable HTMLTextAreaElement -instance IsParentNode HTMLTextAreaElement -instance IsNonDocumentTypeChildNode HTMLTextAreaElement -instance IsChildNode HTMLTextAreaElement -instance IsAnimatable HTMLTextAreaElement -instance IsGlobalEventHandlers HTMLTextAreaElement -instance IsGObject HTMLTextAreaElement where - typeGType _ = gTypeHTMLTextAreaElement - {-# INLINE typeGType #-} - -gTypeHTMLTextAreaElement :: JSM GType -gTypeHTMLTextAreaElement = GType . Object <$> jsg "HTMLTextAreaElement" - --- | Functions for this inteface are in "JSDOM.HTMLTimeElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTimeElement = HTMLTimeElement { unHTMLTimeElement :: JSVal } - -instance PToJSVal HTMLTimeElement where - pToJSVal = unHTMLTimeElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTimeElement where - pFromJSVal = HTMLTimeElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTimeElement where - toJSVal = return . unHTMLTimeElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTimeElement where - fromJSVal v = fmap HTMLTimeElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTimeElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTimeElement where - makeObject = makeObject . unHTMLTimeElement - -instance IsHTMLElement HTMLTimeElement -instance IsElement HTMLTimeElement -instance IsNode HTMLTimeElement -instance IsEventTarget HTMLTimeElement -instance IsSlotable HTMLTimeElement -instance IsParentNode HTMLTimeElement -instance IsNonDocumentTypeChildNode HTMLTimeElement -instance IsChildNode HTMLTimeElement -instance IsAnimatable HTMLTimeElement -instance IsGlobalEventHandlers HTMLTimeElement -instance IsGObject HTMLTimeElement where - typeGType _ = gTypeHTMLTimeElement - {-# INLINE typeGType #-} - -gTypeHTMLTimeElement :: JSM GType -gTypeHTMLTimeElement = GType . Object <$> jsg "HTMLTimeElement" - --- | Functions for this inteface are in "JSDOM.HTMLTitleElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTitleElement = HTMLTitleElement { unHTMLTitleElement :: JSVal } - -instance PToJSVal HTMLTitleElement where - pToJSVal = unHTMLTitleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTitleElement where - pFromJSVal = HTMLTitleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTitleElement where - toJSVal = return . unHTMLTitleElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTitleElement where - fromJSVal v = fmap HTMLTitleElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTitleElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTitleElement where - makeObject = makeObject . unHTMLTitleElement - -instance IsHTMLElement HTMLTitleElement -instance IsElement HTMLTitleElement -instance IsNode HTMLTitleElement -instance IsEventTarget HTMLTitleElement -instance IsSlotable HTMLTitleElement -instance IsParentNode HTMLTitleElement -instance IsNonDocumentTypeChildNode HTMLTitleElement -instance IsChildNode HTMLTitleElement -instance IsAnimatable HTMLTitleElement -instance IsGlobalEventHandlers HTMLTitleElement -instance IsGObject HTMLTitleElement where - typeGType _ = gTypeHTMLTitleElement - {-# INLINE typeGType #-} - -gTypeHTMLTitleElement :: JSM GType -gTypeHTMLTitleElement = GType . Object <$> jsg "HTMLTitleElement" - --- | Functions for this inteface are in "JSDOM.HTMLTrackElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLTrackElement = HTMLTrackElement { unHTMLTrackElement :: JSVal } - -instance PToJSVal HTMLTrackElement where - pToJSVal = unHTMLTrackElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLTrackElement where - pFromJSVal = HTMLTrackElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLTrackElement where - toJSVal = return . unHTMLTrackElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLTrackElement where - fromJSVal v = fmap HTMLTrackElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLTrackElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLTrackElement where - makeObject = makeObject . unHTMLTrackElement - -instance IsHTMLElement HTMLTrackElement -instance IsElement HTMLTrackElement -instance IsNode HTMLTrackElement -instance IsEventTarget HTMLTrackElement -instance IsSlotable HTMLTrackElement -instance IsParentNode HTMLTrackElement -instance IsNonDocumentTypeChildNode HTMLTrackElement -instance IsChildNode HTMLTrackElement -instance IsAnimatable HTMLTrackElement -instance IsGlobalEventHandlers HTMLTrackElement -instance IsGObject HTMLTrackElement where - typeGType _ = gTypeHTMLTrackElement - {-# INLINE typeGType #-} - -gTypeHTMLTrackElement :: JSM GType -gTypeHTMLTrackElement = GType . Object <$> jsg "HTMLTrackElement" - --- | Functions for this inteface are in "JSDOM.HTMLUListElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLUListElement = HTMLUListElement { unHTMLUListElement :: JSVal } - -instance PToJSVal HTMLUListElement where - pToJSVal = unHTMLUListElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLUListElement where - pFromJSVal = HTMLUListElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLUListElement where - toJSVal = return . unHTMLUListElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLUListElement where - fromJSVal v = fmap HTMLUListElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLUListElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLUListElement where - makeObject = makeObject . unHTMLUListElement - -instance IsHTMLElement HTMLUListElement -instance IsElement HTMLUListElement -instance IsNode HTMLUListElement -instance IsEventTarget HTMLUListElement -instance IsSlotable HTMLUListElement -instance IsParentNode HTMLUListElement -instance IsNonDocumentTypeChildNode HTMLUListElement -instance IsChildNode HTMLUListElement -instance IsAnimatable HTMLUListElement -instance IsGlobalEventHandlers HTMLUListElement -instance IsGObject HTMLUListElement where - typeGType _ = gTypeHTMLUListElement - {-# INLINE typeGType #-} - -gTypeHTMLUListElement :: JSM GType -gTypeHTMLUListElement = GType . Object <$> jsg "HTMLUListElement" - --- | Functions for this inteface are in "JSDOM.HTMLUnknownElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLUnknownElement = HTMLUnknownElement { unHTMLUnknownElement :: JSVal } - -instance PToJSVal HTMLUnknownElement where - pToJSVal = unHTMLUnknownElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLUnknownElement where - pFromJSVal = HTMLUnknownElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLUnknownElement where - toJSVal = return . unHTMLUnknownElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLUnknownElement where - fromJSVal v = fmap HTMLUnknownElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLUnknownElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLUnknownElement where - makeObject = makeObject . unHTMLUnknownElement - -instance IsHTMLElement HTMLUnknownElement -instance IsElement HTMLUnknownElement -instance IsNode HTMLUnknownElement -instance IsEventTarget HTMLUnknownElement -instance IsSlotable HTMLUnknownElement -instance IsParentNode HTMLUnknownElement -instance IsNonDocumentTypeChildNode HTMLUnknownElement -instance IsChildNode HTMLUnknownElement -instance IsAnimatable HTMLUnknownElement -instance IsGlobalEventHandlers HTMLUnknownElement -instance IsGObject HTMLUnknownElement where - typeGType _ = gTypeHTMLUnknownElement - {-# INLINE typeGType #-} - -gTypeHTMLUnknownElement :: JSM GType -gTypeHTMLUnknownElement = GType . Object <$> jsg "HTMLUnknownElement" - --- | Functions for this inteface are in "JSDOM.HTMLVideoElement". --- Base interface functions are in: --- --- * "JSDOM.HTMLMediaElement" --- * "JSDOM.HTMLElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype HTMLVideoElement = HTMLVideoElement { unHTMLVideoElement :: JSVal } - -instance PToJSVal HTMLVideoElement where - pToJSVal = unHTMLVideoElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal HTMLVideoElement where - pFromJSVal = HTMLVideoElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal HTMLVideoElement where - toJSVal = return . unHTMLVideoElement - {-# INLINE toJSVal #-} - -instance FromJSVal HTMLVideoElement where - fromJSVal v = fmap HTMLVideoElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HTMLVideoElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HTMLVideoElement where - makeObject = makeObject . unHTMLVideoElement - -instance IsHTMLMediaElement HTMLVideoElement -instance IsHTMLElement HTMLVideoElement -instance IsElement HTMLVideoElement -instance IsNode HTMLVideoElement -instance IsEventTarget HTMLVideoElement -instance IsSlotable HTMLVideoElement -instance IsParentNode HTMLVideoElement -instance IsNonDocumentTypeChildNode HTMLVideoElement -instance IsChildNode HTMLVideoElement -instance IsAnimatable HTMLVideoElement -instance IsGlobalEventHandlers HTMLVideoElement -instance IsGObject HTMLVideoElement where - typeGType _ = gTypeHTMLVideoElement - {-# INLINE typeGType #-} - -gTypeHTMLVideoElement :: JSM GType -gTypeHTMLVideoElement = GType . Object <$> jsg "HTMLVideoElement" - --- | Functions for this inteface are in "JSDOM.HashChangeEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype HashChangeEvent = HashChangeEvent { unHashChangeEvent :: JSVal } - -instance PToJSVal HashChangeEvent where - pToJSVal = unHashChangeEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal HashChangeEvent where - pFromJSVal = HashChangeEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal HashChangeEvent where - toJSVal = return . unHashChangeEvent - {-# INLINE toJSVal #-} - -instance FromJSVal HashChangeEvent where - fromJSVal v = fmap HashChangeEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HashChangeEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HashChangeEvent where - makeObject = makeObject . unHashChangeEvent - -instance IsEvent HashChangeEvent -instance IsGObject HashChangeEvent where - typeGType _ = gTypeHashChangeEvent - {-# INLINE typeGType #-} - -gTypeHashChangeEvent :: JSM GType -gTypeHashChangeEvent = GType . Object <$> jsg "HashChangeEvent" - --- | Functions for this inteface are in "JSDOM.HashChangeEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype HashChangeEventInit = HashChangeEventInit { unHashChangeEventInit :: JSVal } - -instance PToJSVal HashChangeEventInit where - pToJSVal = unHashChangeEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal HashChangeEventInit where - pFromJSVal = HashChangeEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal HashChangeEventInit where - toJSVal = return . unHashChangeEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal HashChangeEventInit where - fromJSVal v = fmap HashChangeEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HashChangeEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HashChangeEventInit where - makeObject = makeObject . unHashChangeEventInit - -instance IsEventInit HashChangeEventInit -instance IsGObject HashChangeEventInit where - typeGType _ = gTypeHashChangeEventInit - {-# INLINE typeGType #-} - -gTypeHashChangeEventInit :: JSM GType -gTypeHashChangeEventInit = GType . Object <$> jsg "HashChangeEventInit" - --- | Functions for this inteface are in "JSDOM.Headers". --- --- -newtype Headers = Headers { unHeaders :: JSVal } - -instance PToJSVal Headers where - pToJSVal = unHeaders - {-# INLINE pToJSVal #-} - -instance PFromJSVal Headers where - pFromJSVal = Headers - {-# INLINE pFromJSVal #-} - -instance ToJSVal Headers where - toJSVal = return . unHeaders - {-# INLINE toJSVal #-} - -instance FromJSVal Headers where - fromJSVal v = fmap Headers <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Headers - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Headers where - makeObject = makeObject . unHeaders - -instance IsGObject Headers where - typeGType _ = gTypeHeaders - {-# INLINE typeGType #-} - -gTypeHeaders :: JSM GType -gTypeHeaders = GType . Object <$> jsg "Headers" - --- | Functions for this inteface are in "JSDOM.History". --- --- -newtype History = History { unHistory :: JSVal } - -instance PToJSVal History where - pToJSVal = unHistory - {-# INLINE pToJSVal #-} - -instance PFromJSVal History where - pFromJSVal = History - {-# INLINE pFromJSVal #-} - -instance ToJSVal History where - toJSVal = return . unHistory - {-# INLINE toJSVal #-} - -instance FromJSVal History where - fromJSVal v = fmap History <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . History - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject History where - makeObject = makeObject . unHistory - -instance IsGObject History where - typeGType _ = gTypeHistory - {-# INLINE typeGType #-} - -gTypeHistory :: JSM GType -gTypeHistory = GType . Object <$> jsg "History" - --- | Functions for this inteface are in "JSDOM.HmacKeyParams". --- Base interface functions are in: --- --- * "JSDOM.CryptoAlgorithmParameters" --- --- -newtype HmacKeyParams = HmacKeyParams { unHmacKeyParams :: JSVal } - -instance PToJSVal HmacKeyParams where - pToJSVal = unHmacKeyParams - {-# INLINE pToJSVal #-} - -instance PFromJSVal HmacKeyParams where - pFromJSVal = HmacKeyParams - {-# INLINE pFromJSVal #-} - -instance ToJSVal HmacKeyParams where - toJSVal = return . unHmacKeyParams - {-# INLINE toJSVal #-} - -instance FromJSVal HmacKeyParams where - fromJSVal v = fmap HmacKeyParams <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . HmacKeyParams - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject HmacKeyParams where - makeObject = makeObject . unHmacKeyParams - -instance IsCryptoAlgorithmParameters HmacKeyParams -instance IsGObject HmacKeyParams where - typeGType _ = gTypeHmacKeyParams - {-# INLINE typeGType #-} - -gTypeHmacKeyParams :: JSM GType -gTypeHmacKeyParams = GType . Object <$> jsg "HmacKeyParams" - --- | Functions for this inteface are in "JSDOM.IDBCursor". --- --- -newtype IDBCursor = IDBCursor { unIDBCursor :: JSVal } - -instance PToJSVal IDBCursor where - pToJSVal = unIDBCursor - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBCursor where - pFromJSVal = IDBCursor - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBCursor where - toJSVal = return . unIDBCursor - {-# INLINE toJSVal #-} - -instance FromJSVal IDBCursor where - fromJSVal v = fmap IDBCursor <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBCursor - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBCursor where - makeObject = makeObject . unIDBCursor - -class (IsGObject o) => IsIDBCursor o -toIDBCursor :: IsIDBCursor o => o -> IDBCursor -toIDBCursor = IDBCursor . coerce - -instance IsIDBCursor IDBCursor -instance IsGObject IDBCursor where - typeGType _ = gTypeIDBCursor - {-# INLINE typeGType #-} - -gTypeIDBCursor :: JSM GType -gTypeIDBCursor = GType . Object <$> jsg "IDBCursor" - --- | Functions for this inteface are in "JSDOM.IDBCursorWithValue". --- Base interface functions are in: --- --- * "JSDOM.IDBCursor" --- --- -newtype IDBCursorWithValue = IDBCursorWithValue { unIDBCursorWithValue :: JSVal } - -instance PToJSVal IDBCursorWithValue where - pToJSVal = unIDBCursorWithValue - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBCursorWithValue where - pFromJSVal = IDBCursorWithValue - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBCursorWithValue where - toJSVal = return . unIDBCursorWithValue - {-# INLINE toJSVal #-} - -instance FromJSVal IDBCursorWithValue where - fromJSVal v = fmap IDBCursorWithValue <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBCursorWithValue - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBCursorWithValue where - makeObject = makeObject . unIDBCursorWithValue - -instance IsIDBCursor IDBCursorWithValue -instance IsGObject IDBCursorWithValue where - typeGType _ = gTypeIDBCursorWithValue - {-# INLINE typeGType #-} - -gTypeIDBCursorWithValue :: JSM GType -gTypeIDBCursorWithValue = GType . Object <$> jsg "IDBCursorWithValue" - --- | Functions for this inteface are in "JSDOM.IDBDatabase". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype IDBDatabase = IDBDatabase { unIDBDatabase :: JSVal } - -instance PToJSVal IDBDatabase where - pToJSVal = unIDBDatabase - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBDatabase where - pFromJSVal = IDBDatabase - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBDatabase where - toJSVal = return . unIDBDatabase - {-# INLINE toJSVal #-} - -instance FromJSVal IDBDatabase where - fromJSVal v = fmap IDBDatabase <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBDatabase - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBDatabase where - makeObject = makeObject . unIDBDatabase - -instance IsEventTarget IDBDatabase -instance IsGObject IDBDatabase where - typeGType _ = gTypeIDBDatabase - {-# INLINE typeGType #-} - -gTypeIDBDatabase :: JSM GType -gTypeIDBDatabase = GType . Object <$> jsg "IDBDatabase" - --- | Functions for this inteface are in "JSDOM.IDBFactory". --- --- -newtype IDBFactory = IDBFactory { unIDBFactory :: JSVal } - -instance PToJSVal IDBFactory where - pToJSVal = unIDBFactory - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBFactory where - pFromJSVal = IDBFactory - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBFactory where - toJSVal = return . unIDBFactory - {-# INLINE toJSVal #-} - -instance FromJSVal IDBFactory where - fromJSVal v = fmap IDBFactory <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBFactory - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBFactory where - makeObject = makeObject . unIDBFactory - -instance IsGObject IDBFactory where - typeGType _ = gTypeIDBFactory - {-# INLINE typeGType #-} - -gTypeIDBFactory :: JSM GType -gTypeIDBFactory = GType . Object <$> jsg "IDBFactory" - --- | Functions for this inteface are in "JSDOM.IDBIndex". --- --- -newtype IDBIndex = IDBIndex { unIDBIndex :: JSVal } - -instance PToJSVal IDBIndex where - pToJSVal = unIDBIndex - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBIndex where - pFromJSVal = IDBIndex - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBIndex where - toJSVal = return . unIDBIndex - {-# INLINE toJSVal #-} - -instance FromJSVal IDBIndex where - fromJSVal v = fmap IDBIndex <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBIndex - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBIndex where - makeObject = makeObject . unIDBIndex - -instance IsGObject IDBIndex where - typeGType _ = gTypeIDBIndex - {-# INLINE typeGType #-} - -gTypeIDBIndex :: JSM GType -gTypeIDBIndex = GType . Object <$> jsg "IDBIndex" - --- | Functions for this inteface are in "JSDOM.IDBIndexParameters". --- --- -newtype IDBIndexParameters = IDBIndexParameters { unIDBIndexParameters :: JSVal } - -instance PToJSVal IDBIndexParameters where - pToJSVal = unIDBIndexParameters - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBIndexParameters where - pFromJSVal = IDBIndexParameters - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBIndexParameters where - toJSVal = return . unIDBIndexParameters - {-# INLINE toJSVal #-} - -instance FromJSVal IDBIndexParameters where - fromJSVal v = fmap IDBIndexParameters <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBIndexParameters - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBIndexParameters where - makeObject = makeObject . unIDBIndexParameters - -instance IsGObject IDBIndexParameters where - typeGType _ = gTypeIDBIndexParameters - {-# INLINE typeGType #-} - -gTypeIDBIndexParameters :: JSM GType -gTypeIDBIndexParameters = GType . Object <$> jsg "IDBIndexParameters" - --- | Functions for this inteface are in "JSDOM.IDBKeyRange". --- --- -newtype IDBKeyRange = IDBKeyRange { unIDBKeyRange :: JSVal } - -instance PToJSVal IDBKeyRange where - pToJSVal = unIDBKeyRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBKeyRange where - pFromJSVal = IDBKeyRange - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBKeyRange where - toJSVal = return . unIDBKeyRange - {-# INLINE toJSVal #-} - -instance FromJSVal IDBKeyRange where - fromJSVal v = fmap IDBKeyRange <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBKeyRange - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBKeyRange where - makeObject = makeObject . unIDBKeyRange - -instance IsGObject IDBKeyRange where - typeGType _ = gTypeIDBKeyRange - {-# INLINE typeGType #-} - -gTypeIDBKeyRange :: JSM GType -gTypeIDBKeyRange = GType . Object <$> jsg "IDBKeyRange" - --- | Functions for this inteface are in "JSDOM.IDBObjectStore". --- --- -newtype IDBObjectStore = IDBObjectStore { unIDBObjectStore :: JSVal } - -instance PToJSVal IDBObjectStore where - pToJSVal = unIDBObjectStore - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBObjectStore where - pFromJSVal = IDBObjectStore - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBObjectStore where - toJSVal = return . unIDBObjectStore - {-# INLINE toJSVal #-} - -instance FromJSVal IDBObjectStore where - fromJSVal v = fmap IDBObjectStore <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBObjectStore - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBObjectStore where - makeObject = makeObject . unIDBObjectStore - -instance IsGObject IDBObjectStore where - typeGType _ = gTypeIDBObjectStore - {-# INLINE typeGType #-} - -gTypeIDBObjectStore :: JSM GType -gTypeIDBObjectStore = GType . Object <$> jsg "IDBObjectStore" - --- | Functions for this inteface are in "JSDOM.IDBObjectStoreParameters". --- --- -newtype IDBObjectStoreParameters = IDBObjectStoreParameters { unIDBObjectStoreParameters :: JSVal } - -instance PToJSVal IDBObjectStoreParameters where - pToJSVal = unIDBObjectStoreParameters - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBObjectStoreParameters where - pFromJSVal = IDBObjectStoreParameters - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBObjectStoreParameters where - toJSVal = return . unIDBObjectStoreParameters - {-# INLINE toJSVal #-} - -instance FromJSVal IDBObjectStoreParameters where - fromJSVal v = fmap IDBObjectStoreParameters <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBObjectStoreParameters - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBObjectStoreParameters where - makeObject = makeObject . unIDBObjectStoreParameters - -instance IsGObject IDBObjectStoreParameters where - typeGType _ = gTypeIDBObjectStoreParameters - {-# INLINE typeGType #-} - -gTypeIDBObjectStoreParameters :: JSM GType -gTypeIDBObjectStoreParameters = GType . Object <$> jsg "IDBObjectStoreParameters" - --- | Functions for this inteface are in "JSDOM.IDBOpenDBRequest". --- Base interface functions are in: --- --- * "JSDOM.IDBRequest" --- * "JSDOM.EventTarget" --- --- -newtype IDBOpenDBRequest = IDBOpenDBRequest { unIDBOpenDBRequest :: JSVal } - -instance PToJSVal IDBOpenDBRequest where - pToJSVal = unIDBOpenDBRequest - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBOpenDBRequest where - pFromJSVal = IDBOpenDBRequest - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBOpenDBRequest where - toJSVal = return . unIDBOpenDBRequest - {-# INLINE toJSVal #-} - -instance FromJSVal IDBOpenDBRequest where - fromJSVal v = fmap IDBOpenDBRequest <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBOpenDBRequest - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBOpenDBRequest where - makeObject = makeObject . unIDBOpenDBRequest - -instance IsIDBRequest IDBOpenDBRequest -instance IsEventTarget IDBOpenDBRequest -instance IsGObject IDBOpenDBRequest where - typeGType _ = gTypeIDBOpenDBRequest - {-# INLINE typeGType #-} - -gTypeIDBOpenDBRequest :: JSM GType -gTypeIDBOpenDBRequest = GType . Object <$> jsg "IDBOpenDBRequest" - --- | Functions for this inteface are in "JSDOM.IDBRequest". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype IDBRequest = IDBRequest { unIDBRequest :: JSVal } - -instance PToJSVal IDBRequest where - pToJSVal = unIDBRequest - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBRequest where - pFromJSVal = IDBRequest - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBRequest where - toJSVal = return . unIDBRequest - {-# INLINE toJSVal #-} - -instance FromJSVal IDBRequest where - fromJSVal v = fmap IDBRequest <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBRequest - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBRequest where - makeObject = makeObject . unIDBRequest - -class (IsEventTarget o, IsGObject o) => IsIDBRequest o -toIDBRequest :: IsIDBRequest o => o -> IDBRequest -toIDBRequest = IDBRequest . coerce - -instance IsIDBRequest IDBRequest -instance IsEventTarget IDBRequest -instance IsGObject IDBRequest where - typeGType _ = gTypeIDBRequest - {-# INLINE typeGType #-} - -gTypeIDBRequest :: JSM GType -gTypeIDBRequest = GType . Object <$> jsg "IDBRequest" - --- | Functions for this inteface are in "JSDOM.IDBTransaction". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype IDBTransaction = IDBTransaction { unIDBTransaction :: JSVal } - -instance PToJSVal IDBTransaction where - pToJSVal = unIDBTransaction - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBTransaction where - pFromJSVal = IDBTransaction - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBTransaction where - toJSVal = return . unIDBTransaction - {-# INLINE toJSVal #-} - -instance FromJSVal IDBTransaction where - fromJSVal v = fmap IDBTransaction <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBTransaction - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBTransaction where - makeObject = makeObject . unIDBTransaction - -instance IsEventTarget IDBTransaction -instance IsGObject IDBTransaction where - typeGType _ = gTypeIDBTransaction - {-# INLINE typeGType #-} - -gTypeIDBTransaction :: JSM GType -gTypeIDBTransaction = GType . Object <$> jsg "IDBTransaction" - --- | Functions for this inteface are in "JSDOM.IDBVersionChangeEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype IDBVersionChangeEvent = IDBVersionChangeEvent { unIDBVersionChangeEvent :: JSVal } - -instance PToJSVal IDBVersionChangeEvent where - pToJSVal = unIDBVersionChangeEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBVersionChangeEvent where - pFromJSVal = IDBVersionChangeEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBVersionChangeEvent where - toJSVal = return . unIDBVersionChangeEvent - {-# INLINE toJSVal #-} - -instance FromJSVal IDBVersionChangeEvent where - fromJSVal v = fmap IDBVersionChangeEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBVersionChangeEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBVersionChangeEvent where - makeObject = makeObject . unIDBVersionChangeEvent - -instance IsEvent IDBVersionChangeEvent -instance IsGObject IDBVersionChangeEvent where - typeGType _ = gTypeIDBVersionChangeEvent - {-# INLINE typeGType #-} - -gTypeIDBVersionChangeEvent :: JSM GType -gTypeIDBVersionChangeEvent = GType . Object <$> jsg "IDBVersionChangeEvent" - --- | Functions for this inteface are in "JSDOM.IDBVersionChangeEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype IDBVersionChangeEventInit = IDBVersionChangeEventInit { unIDBVersionChangeEventInit :: JSVal } - -instance PToJSVal IDBVersionChangeEventInit where - pToJSVal = unIDBVersionChangeEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal IDBVersionChangeEventInit where - pFromJSVal = IDBVersionChangeEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal IDBVersionChangeEventInit where - toJSVal = return . unIDBVersionChangeEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal IDBVersionChangeEventInit where - fromJSVal v = fmap IDBVersionChangeEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IDBVersionChangeEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IDBVersionChangeEventInit where - makeObject = makeObject . unIDBVersionChangeEventInit - -instance IsEventInit IDBVersionChangeEventInit -instance IsGObject IDBVersionChangeEventInit where - typeGType _ = gTypeIDBVersionChangeEventInit - {-# INLINE typeGType #-} - -gTypeIDBVersionChangeEventInit :: JSM GType -gTypeIDBVersionChangeEventInit = GType . Object <$> jsg "IDBVersionChangeEventInit" - --- | Functions for this inteface are in "JSDOM.ImageData". --- --- -newtype ImageData = ImageData { unImageData :: JSVal } - -instance PToJSVal ImageData where - pToJSVal = unImageData - {-# INLINE pToJSVal #-} - -instance PFromJSVal ImageData where - pFromJSVal = ImageData - {-# INLINE pFromJSVal #-} - -instance ToJSVal ImageData where - toJSVal = return . unImageData - {-# INLINE toJSVal #-} - -instance FromJSVal ImageData where - fromJSVal v = fmap ImageData <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ImageData - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ImageData where - makeObject = makeObject . unImageData - -instance IsGObject ImageData where - typeGType _ = gTypeImageData - {-# INLINE typeGType #-} - -gTypeImageData :: JSM GType -gTypeImageData = GType . Object <$> jsg "ImageData" - --- | Functions for this inteface are in "JSDOM.InputEvent". --- Base interface functions are in: --- --- * "JSDOM.UIEvent" --- * "JSDOM.Event" --- --- -newtype InputEvent = InputEvent { unInputEvent :: JSVal } - -instance PToJSVal InputEvent where - pToJSVal = unInputEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal InputEvent where - pFromJSVal = InputEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal InputEvent where - toJSVal = return . unInputEvent - {-# INLINE toJSVal #-} - -instance FromJSVal InputEvent where - fromJSVal v = fmap InputEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . InputEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject InputEvent where - makeObject = makeObject . unInputEvent - -instance IsUIEvent InputEvent -instance IsEvent InputEvent -instance IsGObject InputEvent where - typeGType _ = gTypeInputEvent - {-# INLINE typeGType #-} - -gTypeInputEvent :: JSM GType -gTypeInputEvent = GType . Object <$> jsg "InputEvent" - --- | Functions for this inteface are in "JSDOM.InputEventInit". --- Base interface functions are in: --- --- * "JSDOM.UIEventInit" --- * "JSDOM.EventInit" --- --- -newtype InputEventInit = InputEventInit { unInputEventInit :: JSVal } - -instance PToJSVal InputEventInit where - pToJSVal = unInputEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal InputEventInit where - pFromJSVal = InputEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal InputEventInit where - toJSVal = return . unInputEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal InputEventInit where - fromJSVal v = fmap InputEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . InputEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject InputEventInit where - makeObject = makeObject . unInputEventInit - -instance IsUIEventInit InputEventInit -instance IsEventInit InputEventInit -instance IsGObject InputEventInit where - typeGType _ = gTypeInputEventInit - {-# INLINE typeGType #-} - -gTypeInputEventInit :: JSM GType -gTypeInputEventInit = GType . Object <$> jsg "InputEventInit" - --- | Functions for this inteface are in "JSDOM.InspectorFrontendHost". --- --- -newtype InspectorFrontendHost = InspectorFrontendHost { unInspectorFrontendHost :: JSVal } - -instance PToJSVal InspectorFrontendHost where - pToJSVal = unInspectorFrontendHost - {-# INLINE pToJSVal #-} - -instance PFromJSVal InspectorFrontendHost where - pFromJSVal = InspectorFrontendHost - {-# INLINE pFromJSVal #-} - -instance ToJSVal InspectorFrontendHost where - toJSVal = return . unInspectorFrontendHost - {-# INLINE toJSVal #-} - -instance FromJSVal InspectorFrontendHost where - fromJSVal v = fmap InspectorFrontendHost <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . InspectorFrontendHost - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject InspectorFrontendHost where - makeObject = makeObject . unInspectorFrontendHost - -instance IsGObject InspectorFrontendHost where - typeGType _ = gTypeInspectorFrontendHost - {-# INLINE typeGType #-} - -gTypeInspectorFrontendHost :: JSM GType -gTypeInspectorFrontendHost = GType . Object <$> jsg "InspectorFrontendHost" - --- | Functions for this inteface are in "JSDOM.IntersectionObserver". --- --- -newtype IntersectionObserver = IntersectionObserver { unIntersectionObserver :: JSVal } - -instance PToJSVal IntersectionObserver where - pToJSVal = unIntersectionObserver - {-# INLINE pToJSVal #-} - -instance PFromJSVal IntersectionObserver where - pFromJSVal = IntersectionObserver - {-# INLINE pFromJSVal #-} - -instance ToJSVal IntersectionObserver where - toJSVal = return . unIntersectionObserver - {-# INLINE toJSVal #-} - -instance FromJSVal IntersectionObserver where - fromJSVal v = fmap IntersectionObserver <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IntersectionObserver - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IntersectionObserver where - makeObject = makeObject . unIntersectionObserver - -instance IsGObject IntersectionObserver where - typeGType _ = gTypeIntersectionObserver - {-# INLINE typeGType #-} - -gTypeIntersectionObserver :: JSM GType -gTypeIntersectionObserver = GType . Object <$> jsg "IntersectionObserver" - --- | Functions for this inteface are in "JSDOM.IntersectionObserverEntry". --- --- -newtype IntersectionObserverEntry = IntersectionObserverEntry { unIntersectionObserverEntry :: JSVal } - -instance PToJSVal IntersectionObserverEntry where - pToJSVal = unIntersectionObserverEntry - {-# INLINE pToJSVal #-} - -instance PFromJSVal IntersectionObserverEntry where - pFromJSVal = IntersectionObserverEntry - {-# INLINE pFromJSVal #-} - -instance ToJSVal IntersectionObserverEntry where - toJSVal = return . unIntersectionObserverEntry - {-# INLINE toJSVal #-} - -instance FromJSVal IntersectionObserverEntry where - fromJSVal v = fmap IntersectionObserverEntry <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IntersectionObserverEntry - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IntersectionObserverEntry where - makeObject = makeObject . unIntersectionObserverEntry - -instance IsGObject IntersectionObserverEntry where - typeGType _ = gTypeIntersectionObserverEntry - {-# INLINE typeGType #-} - -gTypeIntersectionObserverEntry :: JSM GType -gTypeIntersectionObserverEntry = GType . Object <$> jsg "IntersectionObserverEntry" - --- | Functions for this inteface are in "JSDOM.IntersectionObserverEntryInit". --- --- -newtype IntersectionObserverEntryInit = IntersectionObserverEntryInit { unIntersectionObserverEntryInit :: JSVal } - -instance PToJSVal IntersectionObserverEntryInit where - pToJSVal = unIntersectionObserverEntryInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal IntersectionObserverEntryInit where - pFromJSVal = IntersectionObserverEntryInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal IntersectionObserverEntryInit where - toJSVal = return . unIntersectionObserverEntryInit - {-# INLINE toJSVal #-} - -instance FromJSVal IntersectionObserverEntryInit where - fromJSVal v = fmap IntersectionObserverEntryInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IntersectionObserverEntryInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IntersectionObserverEntryInit where - makeObject = makeObject . unIntersectionObserverEntryInit - -instance IsGObject IntersectionObserverEntryInit where - typeGType _ = gTypeIntersectionObserverEntryInit - {-# INLINE typeGType #-} - -gTypeIntersectionObserverEntryInit :: JSM GType -gTypeIntersectionObserverEntryInit = GType . Object <$> jsg "IntersectionObserverEntryInit" - --- | Functions for this inteface are in "JSDOM.IntersectionObserverInit". --- --- -newtype IntersectionObserverInit = IntersectionObserverInit { unIntersectionObserverInit :: JSVal } - -instance PToJSVal IntersectionObserverInit where - pToJSVal = unIntersectionObserverInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal IntersectionObserverInit where - pFromJSVal = IntersectionObserverInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal IntersectionObserverInit where - toJSVal = return . unIntersectionObserverInit - {-# INLINE toJSVal #-} - -instance FromJSVal IntersectionObserverInit where - fromJSVal v = fmap IntersectionObserverInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . IntersectionObserverInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject IntersectionObserverInit where - makeObject = makeObject . unIntersectionObserverInit - -instance IsGObject IntersectionObserverInit where - typeGType _ = gTypeIntersectionObserverInit - {-# INLINE typeGType #-} - -gTypeIntersectionObserverInit :: JSM GType -gTypeIntersectionObserverInit = GType . Object <$> jsg "IntersectionObserverInit" - --- | Functions for this inteface are in "JSDOM.JsonWebKey". --- --- -newtype JsonWebKey = JsonWebKey { unJsonWebKey :: JSVal } - -instance PToJSVal JsonWebKey where - pToJSVal = unJsonWebKey - {-# INLINE pToJSVal #-} - -instance PFromJSVal JsonWebKey where - pFromJSVal = JsonWebKey - {-# INLINE pFromJSVal #-} - -instance ToJSVal JsonWebKey where - toJSVal = return . unJsonWebKey - {-# INLINE toJSVal #-} - -instance FromJSVal JsonWebKey where - fromJSVal v = fmap JsonWebKey <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . JsonWebKey - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject JsonWebKey where - makeObject = makeObject . unJsonWebKey - -instance IsGObject JsonWebKey where - typeGType _ = gTypeJsonWebKey - {-# INLINE typeGType #-} - -gTypeJsonWebKey :: JSM GType -gTypeJsonWebKey = GType . Object <$> jsg "JsonWebKey" - --- | Functions for this inteface are in "JSDOM.KeyboardEvent". --- Base interface functions are in: --- --- * "JSDOM.UIEvent" --- * "JSDOM.Event" --- --- -newtype KeyboardEvent = KeyboardEvent { unKeyboardEvent :: JSVal } - -instance PToJSVal KeyboardEvent where - pToJSVal = unKeyboardEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal KeyboardEvent where - pFromJSVal = KeyboardEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal KeyboardEvent where - toJSVal = return . unKeyboardEvent - {-# INLINE toJSVal #-} - -instance FromJSVal KeyboardEvent where - fromJSVal v = fmap KeyboardEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . KeyboardEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject KeyboardEvent where - makeObject = makeObject . unKeyboardEvent - -instance IsUIEvent KeyboardEvent -instance IsEvent KeyboardEvent -instance IsGObject KeyboardEvent where - typeGType _ = gTypeKeyboardEvent - {-# INLINE typeGType #-} - -gTypeKeyboardEvent :: JSM GType -gTypeKeyboardEvent = GType . Object <$> jsg "KeyboardEvent" - --- | Functions for this inteface are in "JSDOM.KeyboardEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventModifierInit" --- * "JSDOM.UIEventInit" --- * "JSDOM.EventInit" --- --- -newtype KeyboardEventInit = KeyboardEventInit { unKeyboardEventInit :: JSVal } - -instance PToJSVal KeyboardEventInit where - pToJSVal = unKeyboardEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal KeyboardEventInit where - pFromJSVal = KeyboardEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal KeyboardEventInit where - toJSVal = return . unKeyboardEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal KeyboardEventInit where - fromJSVal v = fmap KeyboardEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . KeyboardEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject KeyboardEventInit where - makeObject = makeObject . unKeyboardEventInit - -instance IsEventModifierInit KeyboardEventInit -instance IsUIEventInit KeyboardEventInit -instance IsEventInit KeyboardEventInit -instance IsGObject KeyboardEventInit where - typeGType _ = gTypeKeyboardEventInit - {-# INLINE typeGType #-} - -gTypeKeyboardEventInit :: JSM GType -gTypeKeyboardEventInit = GType . Object <$> jsg "KeyboardEventInit" - --- | Functions for this inteface are in "JSDOM.KeyframeEffect". --- Base interface functions are in: --- --- * "JSDOM.AnimationEffect" --- --- -newtype KeyframeEffect = KeyframeEffect { unKeyframeEffect :: JSVal } - -instance PToJSVal KeyframeEffect where - pToJSVal = unKeyframeEffect - {-# INLINE pToJSVal #-} - -instance PFromJSVal KeyframeEffect where - pFromJSVal = KeyframeEffect - {-# INLINE pFromJSVal #-} - -instance ToJSVal KeyframeEffect where - toJSVal = return . unKeyframeEffect - {-# INLINE toJSVal #-} - -instance FromJSVal KeyframeEffect where - fromJSVal v = fmap KeyframeEffect <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . KeyframeEffect - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject KeyframeEffect where - makeObject = makeObject . unKeyframeEffect - -instance IsAnimationEffect KeyframeEffect -instance IsGObject KeyframeEffect where - typeGType _ = gTypeKeyframeEffect - {-# INLINE typeGType #-} - -gTypeKeyframeEffect :: JSM GType -gTypeKeyframeEffect = GType . Object <$> jsg "KeyframeEffect" - --- | Functions for this inteface are in "JSDOM.Location". --- --- -newtype Location = Location { unLocation :: JSVal } - -instance PToJSVal Location where - pToJSVal = unLocation - {-# INLINE pToJSVal #-} - -instance PFromJSVal Location where - pFromJSVal = Location - {-# INLINE pFromJSVal #-} - -instance ToJSVal Location where - toJSVal = return . unLocation - {-# INLINE toJSVal #-} - -instance FromJSVal Location where - fromJSVal v = fmap Location <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Location - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Location where - makeObject = makeObject . unLocation - -instance IsGObject Location where - typeGType _ = gTypeLocation - {-# INLINE typeGType #-} - -gTypeLocation :: JSM GType -gTypeLocation = GType . Object <$> jsg "Location" - --- | Functions for this inteface are in "JSDOM.LongRange". --- --- -newtype LongRange = LongRange { unLongRange :: JSVal } - -instance PToJSVal LongRange where - pToJSVal = unLongRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal LongRange where - pFromJSVal = LongRange - {-# INLINE pFromJSVal #-} - -instance ToJSVal LongRange where - toJSVal = return . unLongRange - {-# INLINE toJSVal #-} - -instance FromJSVal LongRange where - fromJSVal v = fmap LongRange <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . LongRange - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject LongRange where - makeObject = makeObject . unLongRange - -class (IsGObject o) => IsLongRange o -toLongRange :: IsLongRange o => o -> LongRange -toLongRange = LongRange . coerce - -instance IsLongRange LongRange -instance IsGObject LongRange where - typeGType _ = gTypeLongRange - {-# INLINE typeGType #-} - -gTypeLongRange :: JSM GType -gTypeLongRange = GType . Object <$> jsg "LongRange" - --- | Functions for this inteface are in "JSDOM.MediaController". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype MediaController = MediaController { unMediaController :: JSVal } - -instance PToJSVal MediaController where - pToJSVal = unMediaController - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaController where - pFromJSVal = MediaController - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaController where - toJSVal = return . unMediaController - {-# INLINE toJSVal #-} - -instance FromJSVal MediaController where - fromJSVal v = fmap MediaController <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaController - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaController where - makeObject = makeObject . unMediaController - -instance IsEventTarget MediaController -instance IsGObject MediaController where - typeGType _ = gTypeMediaController - {-# INLINE typeGType #-} - -gTypeMediaController :: JSM GType -gTypeMediaController = GType . Object <$> jsg "MediaController" - --- | Functions for this inteface are in "JSDOM.MediaControlsHost". --- --- -newtype MediaControlsHost = MediaControlsHost { unMediaControlsHost :: JSVal } - -instance PToJSVal MediaControlsHost where - pToJSVal = unMediaControlsHost - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaControlsHost where - pFromJSVal = MediaControlsHost - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaControlsHost where - toJSVal = return . unMediaControlsHost - {-# INLINE toJSVal #-} - -instance FromJSVal MediaControlsHost where - fromJSVal v = fmap MediaControlsHost <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaControlsHost - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaControlsHost where - makeObject = makeObject . unMediaControlsHost - -instance IsGObject MediaControlsHost where - typeGType _ = gTypeMediaControlsHost - {-# INLINE typeGType #-} - -gTypeMediaControlsHost :: JSM GType -gTypeMediaControlsHost = GType . Object <$> jsg "MediaControlsHost" - --- | Functions for this inteface are in "JSDOM.MediaDeviceInfo". --- --- -newtype MediaDeviceInfo = MediaDeviceInfo { unMediaDeviceInfo :: JSVal } - -instance PToJSVal MediaDeviceInfo where - pToJSVal = unMediaDeviceInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaDeviceInfo where - pFromJSVal = MediaDeviceInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaDeviceInfo where - toJSVal = return . unMediaDeviceInfo - {-# INLINE toJSVal #-} - -instance FromJSVal MediaDeviceInfo where - fromJSVal v = fmap MediaDeviceInfo <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaDeviceInfo - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaDeviceInfo where - makeObject = makeObject . unMediaDeviceInfo - -instance IsGObject MediaDeviceInfo where - typeGType _ = gTypeMediaDeviceInfo - {-# INLINE typeGType #-} - -gTypeMediaDeviceInfo :: JSM GType -gTypeMediaDeviceInfo = GType . Object <$> jsg "MediaDeviceInfo" - --- | Functions for this inteface are in "JSDOM.MediaDevices". --- --- -newtype MediaDevices = MediaDevices { unMediaDevices :: JSVal } - -instance PToJSVal MediaDevices where - pToJSVal = unMediaDevices - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaDevices where - pFromJSVal = MediaDevices - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaDevices where - toJSVal = return . unMediaDevices - {-# INLINE toJSVal #-} - -instance FromJSVal MediaDevices where - fromJSVal v = fmap MediaDevices <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaDevices - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaDevices where - makeObject = makeObject . unMediaDevices - -instance IsGObject MediaDevices where - typeGType _ = gTypeMediaDevices - {-# INLINE typeGType #-} - -gTypeMediaDevices :: JSM GType -gTypeMediaDevices = GType . Object <$> jsg "MediaDevices" - --- | Functions for this inteface are in "JSDOM.MediaElementAudioSourceNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype MediaElementAudioSourceNode = MediaElementAudioSourceNode { unMediaElementAudioSourceNode :: JSVal } - -instance PToJSVal MediaElementAudioSourceNode where - pToJSVal = unMediaElementAudioSourceNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaElementAudioSourceNode where - pFromJSVal = MediaElementAudioSourceNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaElementAudioSourceNode where - toJSVal = return . unMediaElementAudioSourceNode - {-# INLINE toJSVal #-} - -instance FromJSVal MediaElementAudioSourceNode where - fromJSVal v = fmap MediaElementAudioSourceNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaElementAudioSourceNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaElementAudioSourceNode where - makeObject = makeObject . unMediaElementAudioSourceNode - -instance IsAudioNode MediaElementAudioSourceNode -instance IsEventTarget MediaElementAudioSourceNode -instance IsGObject MediaElementAudioSourceNode where - typeGType _ = gTypeMediaElementAudioSourceNode - {-# INLINE typeGType #-} - -gTypeMediaElementAudioSourceNode :: JSM GType -gTypeMediaElementAudioSourceNode = GType . Object <$> jsg "MediaElementAudioSourceNode" - --- | Functions for this inteface are in "JSDOM.MediaEncryptedEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype MediaEncryptedEvent = MediaEncryptedEvent { unMediaEncryptedEvent :: JSVal } - -instance PToJSVal MediaEncryptedEvent where - pToJSVal = unMediaEncryptedEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaEncryptedEvent where - pFromJSVal = MediaEncryptedEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaEncryptedEvent where - toJSVal = return . unMediaEncryptedEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MediaEncryptedEvent where - fromJSVal v = fmap MediaEncryptedEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaEncryptedEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaEncryptedEvent where - makeObject = makeObject . unMediaEncryptedEvent - -instance IsEvent MediaEncryptedEvent -instance IsGObject MediaEncryptedEvent where - typeGType _ = gTypeMediaEncryptedEvent - {-# INLINE typeGType #-} - -gTypeMediaEncryptedEvent :: JSM GType -gTypeMediaEncryptedEvent = GType . Object <$> jsg "MediaEncryptedEvent" - --- | Functions for this inteface are in "JSDOM.MediaEncryptedEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype MediaEncryptedEventInit = MediaEncryptedEventInit { unMediaEncryptedEventInit :: JSVal } - -instance PToJSVal MediaEncryptedEventInit where - pToJSVal = unMediaEncryptedEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaEncryptedEventInit where - pFromJSVal = MediaEncryptedEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaEncryptedEventInit where - toJSVal = return . unMediaEncryptedEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal MediaEncryptedEventInit where - fromJSVal v = fmap MediaEncryptedEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaEncryptedEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaEncryptedEventInit where - makeObject = makeObject . unMediaEncryptedEventInit - -instance IsEventInit MediaEncryptedEventInit -instance IsGObject MediaEncryptedEventInit where - typeGType _ = gTypeMediaEncryptedEventInit - {-# INLINE typeGType #-} - -gTypeMediaEncryptedEventInit :: JSM GType -gTypeMediaEncryptedEventInit = GType . Object <$> jsg "MediaEncryptedEventInit" - --- | Functions for this inteface are in "JSDOM.MediaError". --- --- -newtype MediaError = MediaError { unMediaError :: JSVal } - -instance PToJSVal MediaError where - pToJSVal = unMediaError - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaError where - pFromJSVal = MediaError - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaError where - toJSVal = return . unMediaError - {-# INLINE toJSVal #-} - -instance FromJSVal MediaError where - fromJSVal v = fmap MediaError <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaError - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaError where - makeObject = makeObject . unMediaError - -instance IsGObject MediaError where - typeGType _ = gTypeMediaError - {-# INLINE typeGType #-} - -gTypeMediaError :: JSM GType -gTypeMediaError = GType . Object <$> jsg "MediaError" - --- | Functions for this inteface are in "JSDOM.MediaKeyMessageEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype MediaKeyMessageEvent = MediaKeyMessageEvent { unMediaKeyMessageEvent :: JSVal } - -instance PToJSVal MediaKeyMessageEvent where - pToJSVal = unMediaKeyMessageEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeyMessageEvent where - pFromJSVal = MediaKeyMessageEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeyMessageEvent where - toJSVal = return . unMediaKeyMessageEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeyMessageEvent where - fromJSVal v = fmap MediaKeyMessageEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaKeyMessageEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaKeyMessageEvent where - makeObject = makeObject . unMediaKeyMessageEvent - -instance IsEvent MediaKeyMessageEvent -instance IsGObject MediaKeyMessageEvent where - typeGType _ = gTypeMediaKeyMessageEvent - {-# INLINE typeGType #-} - -gTypeMediaKeyMessageEvent :: JSM GType -gTypeMediaKeyMessageEvent = GType . Object <$> jsg "WebKitMediaKeyMessageEvent" - --- | Functions for this inteface are in "JSDOM.MediaKeyMessageEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype MediaKeyMessageEventInit = MediaKeyMessageEventInit { unMediaKeyMessageEventInit :: JSVal } - -instance PToJSVal MediaKeyMessageEventInit where - pToJSVal = unMediaKeyMessageEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeyMessageEventInit where - pFromJSVal = MediaKeyMessageEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeyMessageEventInit where - toJSVal = return . unMediaKeyMessageEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeyMessageEventInit where - fromJSVal v = fmap MediaKeyMessageEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaKeyMessageEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaKeyMessageEventInit where - makeObject = makeObject . unMediaKeyMessageEventInit - -instance IsEventInit MediaKeyMessageEventInit -instance IsGObject MediaKeyMessageEventInit where - typeGType _ = gTypeMediaKeyMessageEventInit - {-# INLINE typeGType #-} - -gTypeMediaKeyMessageEventInit :: JSM GType -gTypeMediaKeyMessageEventInit = GType . Object <$> jsg "MediaKeyMessageEventInit" - --- | Functions for this inteface are in "JSDOM.MediaKeySession". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype MediaKeySession = MediaKeySession { unMediaKeySession :: JSVal } - -instance PToJSVal MediaKeySession where - pToJSVal = unMediaKeySession - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeySession where - pFromJSVal = MediaKeySession - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeySession where - toJSVal = return . unMediaKeySession - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeySession where - fromJSVal v = fmap MediaKeySession <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaKeySession - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaKeySession where - makeObject = makeObject . unMediaKeySession - -instance IsEventTarget MediaKeySession -instance IsGObject MediaKeySession where - typeGType _ = gTypeMediaKeySession - {-# INLINE typeGType #-} - -gTypeMediaKeySession :: JSM GType -gTypeMediaKeySession = GType . Object <$> jsg "WebKitMediaKeySession" - --- | Functions for this inteface are in "JSDOM.MediaKeyStatusMap". --- --- -newtype MediaKeyStatusMap = MediaKeyStatusMap { unMediaKeyStatusMap :: JSVal } - -instance PToJSVal MediaKeyStatusMap where - pToJSVal = unMediaKeyStatusMap - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeyStatusMap where - pFromJSVal = MediaKeyStatusMap - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeyStatusMap where - toJSVal = return . unMediaKeyStatusMap - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeyStatusMap where - fromJSVal v = fmap MediaKeyStatusMap <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaKeyStatusMap - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaKeyStatusMap where - makeObject = makeObject . unMediaKeyStatusMap - -instance IsGObject MediaKeyStatusMap where - typeGType _ = gTypeMediaKeyStatusMap - {-# INLINE typeGType #-} - -gTypeMediaKeyStatusMap :: JSM GType -gTypeMediaKeyStatusMap = GType . Object <$> jsg "MediaKeyStatusMap" - --- | Functions for this inteface are in "JSDOM.MediaKeySystemAccess". --- --- -newtype MediaKeySystemAccess = MediaKeySystemAccess { unMediaKeySystemAccess :: JSVal } - -instance PToJSVal MediaKeySystemAccess where - pToJSVal = unMediaKeySystemAccess - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeySystemAccess where - pFromJSVal = MediaKeySystemAccess - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeySystemAccess where - toJSVal = return . unMediaKeySystemAccess - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeySystemAccess where - fromJSVal v = fmap MediaKeySystemAccess <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaKeySystemAccess - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaKeySystemAccess where - makeObject = makeObject . unMediaKeySystemAccess - -instance IsGObject MediaKeySystemAccess where - typeGType _ = gTypeMediaKeySystemAccess - {-# INLINE typeGType #-} - -gTypeMediaKeySystemAccess :: JSM GType -gTypeMediaKeySystemAccess = GType . Object <$> jsg "MediaKeySystemAccess" - --- | Functions for this inteface are in "JSDOM.MediaKeySystemConfiguration". --- --- -newtype MediaKeySystemConfiguration = MediaKeySystemConfiguration { unMediaKeySystemConfiguration :: JSVal } - -instance PToJSVal MediaKeySystemConfiguration where - pToJSVal = unMediaKeySystemConfiguration - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeySystemConfiguration where - pFromJSVal = MediaKeySystemConfiguration - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeySystemConfiguration where - toJSVal = return . unMediaKeySystemConfiguration - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeySystemConfiguration where - fromJSVal v = fmap MediaKeySystemConfiguration <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaKeySystemConfiguration - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaKeySystemConfiguration where - makeObject = makeObject . unMediaKeySystemConfiguration - -instance IsGObject MediaKeySystemConfiguration where - typeGType _ = gTypeMediaKeySystemConfiguration - {-# INLINE typeGType #-} - -gTypeMediaKeySystemConfiguration :: JSM GType -gTypeMediaKeySystemConfiguration = GType . Object <$> jsg "MediaKeySystemConfiguration" - --- | Functions for this inteface are in "JSDOM.MediaKeySystemMediaCapability". --- --- -newtype MediaKeySystemMediaCapability = MediaKeySystemMediaCapability { unMediaKeySystemMediaCapability :: JSVal } - -instance PToJSVal MediaKeySystemMediaCapability where - pToJSVal = unMediaKeySystemMediaCapability - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeySystemMediaCapability where - pFromJSVal = MediaKeySystemMediaCapability - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeySystemMediaCapability where - toJSVal = return . unMediaKeySystemMediaCapability - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeySystemMediaCapability where - fromJSVal v = fmap MediaKeySystemMediaCapability <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaKeySystemMediaCapability - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaKeySystemMediaCapability where - makeObject = makeObject . unMediaKeySystemMediaCapability - -instance IsGObject MediaKeySystemMediaCapability where - typeGType _ = gTypeMediaKeySystemMediaCapability - {-# INLINE typeGType #-} - -gTypeMediaKeySystemMediaCapability :: JSM GType -gTypeMediaKeySystemMediaCapability = GType . Object <$> jsg "MediaKeySystemMediaCapability" - --- | Functions for this inteface are in "JSDOM.MediaKeys". --- --- -newtype MediaKeys = MediaKeys { unMediaKeys :: JSVal } - -instance PToJSVal MediaKeys where - pToJSVal = unMediaKeys - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaKeys where - pFromJSVal = MediaKeys - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaKeys where - toJSVal = return . unMediaKeys - {-# INLINE toJSVal #-} - -instance FromJSVal MediaKeys where - fromJSVal v = fmap MediaKeys <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaKeys - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaKeys where - makeObject = makeObject . unMediaKeys - -instance IsGObject MediaKeys where - typeGType _ = gTypeMediaKeys - {-# INLINE typeGType #-} - -gTypeMediaKeys :: JSM GType -gTypeMediaKeys = GType . Object <$> jsg "WebKitMediaKeys" - --- | Functions for this inteface are in "JSDOM.MediaList". --- --- -newtype MediaList = MediaList { unMediaList :: JSVal } - -instance PToJSVal MediaList where - pToJSVal = unMediaList - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaList where - pFromJSVal = MediaList - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaList where - toJSVal = return . unMediaList - {-# INLINE toJSVal #-} - -instance FromJSVal MediaList where - fromJSVal v = fmap MediaList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaList where - makeObject = makeObject . unMediaList - -instance IsGObject MediaList where - typeGType _ = gTypeMediaList - {-# INLINE typeGType #-} - -gTypeMediaList :: JSM GType -gTypeMediaList = GType . Object <$> jsg "MediaList" - --- | Functions for this inteface are in "JSDOM.MediaMetadata". --- --- -newtype MediaMetadata = MediaMetadata { unMediaMetadata :: JSVal } - -instance PToJSVal MediaMetadata where - pToJSVal = unMediaMetadata - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaMetadata where - pFromJSVal = MediaMetadata - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaMetadata where - toJSVal = return . unMediaMetadata - {-# INLINE toJSVal #-} - -instance FromJSVal MediaMetadata where - fromJSVal v = fmap MediaMetadata <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaMetadata - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaMetadata where - makeObject = makeObject . unMediaMetadata - -instance IsGObject MediaMetadata where - typeGType _ = gTypeMediaMetadata - {-# INLINE typeGType #-} - -gTypeMediaMetadata :: JSM GType -gTypeMediaMetadata = GType . Object <$> jsg "MediaMetadata" - --- | Functions for this inteface are in "JSDOM.MediaQueryList". --- --- -newtype MediaQueryList = MediaQueryList { unMediaQueryList :: JSVal } - -instance PToJSVal MediaQueryList where - pToJSVal = unMediaQueryList - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaQueryList where - pFromJSVal = MediaQueryList - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaQueryList where - toJSVal = return . unMediaQueryList - {-# INLINE toJSVal #-} - -instance FromJSVal MediaQueryList where - fromJSVal v = fmap MediaQueryList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaQueryList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaQueryList where - makeObject = makeObject . unMediaQueryList - -instance IsGObject MediaQueryList where - typeGType _ = gTypeMediaQueryList - {-# INLINE typeGType #-} - -gTypeMediaQueryList :: JSM GType -gTypeMediaQueryList = GType . Object <$> jsg "MediaQueryList" - --- | Functions for this inteface are in "JSDOM.MediaRemoteControls". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype MediaRemoteControls = MediaRemoteControls { unMediaRemoteControls :: JSVal } - -instance PToJSVal MediaRemoteControls where - pToJSVal = unMediaRemoteControls - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaRemoteControls where - pFromJSVal = MediaRemoteControls - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaRemoteControls where - toJSVal = return . unMediaRemoteControls - {-# INLINE toJSVal #-} - -instance FromJSVal MediaRemoteControls where - fromJSVal v = fmap MediaRemoteControls <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaRemoteControls - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaRemoteControls where - makeObject = makeObject . unMediaRemoteControls - -instance IsEventTarget MediaRemoteControls -instance IsGObject MediaRemoteControls where - typeGType _ = gTypeMediaRemoteControls - {-# INLINE typeGType #-} - -gTypeMediaRemoteControls :: JSM GType -gTypeMediaRemoteControls = GType . Object <$> jsg "MediaRemoteControls" - --- | Functions for this inteface are in "JSDOM.MediaSession". --- --- -newtype MediaSession = MediaSession { unMediaSession :: JSVal } - -instance PToJSVal MediaSession where - pToJSVal = unMediaSession - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaSession where - pFromJSVal = MediaSession - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaSession where - toJSVal = return . unMediaSession - {-# INLINE toJSVal #-} - -instance FromJSVal MediaSession where - fromJSVal v = fmap MediaSession <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaSession - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaSession where - makeObject = makeObject . unMediaSession - -instance IsGObject MediaSession where - typeGType _ = gTypeMediaSession - {-# INLINE typeGType #-} - -gTypeMediaSession :: JSM GType -gTypeMediaSession = GType . Object <$> jsg "MediaSession" - --- | Functions for this inteface are in "JSDOM.MediaSource". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype MediaSource = MediaSource { unMediaSource :: JSVal } - -instance PToJSVal MediaSource where - pToJSVal = unMediaSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaSource where - pFromJSVal = MediaSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaSource where - toJSVal = return . unMediaSource - {-# INLINE toJSVal #-} - -instance FromJSVal MediaSource where - fromJSVal v = fmap MediaSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaSource where - makeObject = makeObject . unMediaSource - -instance IsEventTarget MediaSource -instance IsGObject MediaSource where - typeGType _ = gTypeMediaSource - {-# INLINE typeGType #-} - -gTypeMediaSource :: JSM GType -gTypeMediaSource = GType . Object <$> jsg "MediaSource" - --- | Functions for this inteface are in "JSDOM.MediaStream". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype MediaStream = MediaStream { unMediaStream :: JSVal } - -instance PToJSVal MediaStream where - pToJSVal = unMediaStream - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStream where - pFromJSVal = MediaStream - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStream where - toJSVal = return . unMediaStream - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStream where - fromJSVal v = fmap MediaStream <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaStream - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaStream where - makeObject = makeObject . unMediaStream - -instance IsEventTarget MediaStream -instance IsGObject MediaStream where - typeGType _ = gTypeMediaStream - {-# INLINE typeGType #-} - -gTypeMediaStream :: JSM GType -gTypeMediaStream = GType . Object <$> jsg "webkitMediaStream" - --- | Functions for this inteface are in "JSDOM.MediaStreamAudioDestinationNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype MediaStreamAudioDestinationNode = MediaStreamAudioDestinationNode { unMediaStreamAudioDestinationNode :: JSVal } - -instance PToJSVal MediaStreamAudioDestinationNode where - pToJSVal = unMediaStreamAudioDestinationNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamAudioDestinationNode where - pFromJSVal = MediaStreamAudioDestinationNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamAudioDestinationNode where - toJSVal = return . unMediaStreamAudioDestinationNode - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamAudioDestinationNode where - fromJSVal v = fmap MediaStreamAudioDestinationNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaStreamAudioDestinationNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaStreamAudioDestinationNode where - makeObject = makeObject . unMediaStreamAudioDestinationNode - -instance IsAudioNode MediaStreamAudioDestinationNode -instance IsEventTarget MediaStreamAudioDestinationNode -instance IsGObject MediaStreamAudioDestinationNode where - typeGType _ = gTypeMediaStreamAudioDestinationNode - {-# INLINE typeGType #-} - -gTypeMediaStreamAudioDestinationNode :: JSM GType -gTypeMediaStreamAudioDestinationNode = GType . Object <$> jsg "MediaStreamAudioDestinationNode" - --- | Functions for this inteface are in "JSDOM.MediaStreamAudioSourceNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype MediaStreamAudioSourceNode = MediaStreamAudioSourceNode { unMediaStreamAudioSourceNode :: JSVal } - -instance PToJSVal MediaStreamAudioSourceNode where - pToJSVal = unMediaStreamAudioSourceNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamAudioSourceNode where - pFromJSVal = MediaStreamAudioSourceNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamAudioSourceNode where - toJSVal = return . unMediaStreamAudioSourceNode - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamAudioSourceNode where - fromJSVal v = fmap MediaStreamAudioSourceNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaStreamAudioSourceNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaStreamAudioSourceNode where - makeObject = makeObject . unMediaStreamAudioSourceNode - -instance IsAudioNode MediaStreamAudioSourceNode -instance IsEventTarget MediaStreamAudioSourceNode -instance IsGObject MediaStreamAudioSourceNode where - typeGType _ = gTypeMediaStreamAudioSourceNode - {-# INLINE typeGType #-} - -gTypeMediaStreamAudioSourceNode :: JSM GType -gTypeMediaStreamAudioSourceNode = GType . Object <$> jsg "MediaStreamAudioSourceNode" - --- | Functions for this inteface are in "JSDOM.MediaStreamConstraints". --- --- -newtype MediaStreamConstraints = MediaStreamConstraints { unMediaStreamConstraints :: JSVal } - -instance PToJSVal MediaStreamConstraints where - pToJSVal = unMediaStreamConstraints - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamConstraints where - pFromJSVal = MediaStreamConstraints - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamConstraints where - toJSVal = return . unMediaStreamConstraints - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamConstraints where - fromJSVal v = fmap MediaStreamConstraints <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaStreamConstraints - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaStreamConstraints where - makeObject = makeObject . unMediaStreamConstraints - -instance IsGObject MediaStreamConstraints where - typeGType _ = gTypeMediaStreamConstraints - {-# INLINE typeGType #-} - -gTypeMediaStreamConstraints :: JSM GType -gTypeMediaStreamConstraints = GType . Object <$> jsg "MediaStreamConstraints" - --- | Functions for this inteface are in "JSDOM.MediaStreamEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype MediaStreamEvent = MediaStreamEvent { unMediaStreamEvent :: JSVal } - -instance PToJSVal MediaStreamEvent where - pToJSVal = unMediaStreamEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamEvent where - pFromJSVal = MediaStreamEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamEvent where - toJSVal = return . unMediaStreamEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamEvent where - fromJSVal v = fmap MediaStreamEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaStreamEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaStreamEvent where - makeObject = makeObject . unMediaStreamEvent - -instance IsEvent MediaStreamEvent -instance IsGObject MediaStreamEvent where - typeGType _ = gTypeMediaStreamEvent - {-# INLINE typeGType #-} - -gTypeMediaStreamEvent :: JSM GType -gTypeMediaStreamEvent = GType . Object <$> jsg "MediaStreamEvent" - --- | Functions for this inteface are in "JSDOM.MediaStreamEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype MediaStreamEventInit = MediaStreamEventInit { unMediaStreamEventInit :: JSVal } - -instance PToJSVal MediaStreamEventInit where - pToJSVal = unMediaStreamEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamEventInit where - pFromJSVal = MediaStreamEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamEventInit where - toJSVal = return . unMediaStreamEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamEventInit where - fromJSVal v = fmap MediaStreamEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaStreamEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaStreamEventInit where - makeObject = makeObject . unMediaStreamEventInit - -instance IsEventInit MediaStreamEventInit -instance IsGObject MediaStreamEventInit where - typeGType _ = gTypeMediaStreamEventInit - {-# INLINE typeGType #-} - -gTypeMediaStreamEventInit :: JSM GType -gTypeMediaStreamEventInit = GType . Object <$> jsg "MediaStreamEventInit" - --- | Functions for this inteface are in "JSDOM.MediaStreamTrack". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype MediaStreamTrack = MediaStreamTrack { unMediaStreamTrack :: JSVal } - -instance PToJSVal MediaStreamTrack where - pToJSVal = unMediaStreamTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamTrack where - pFromJSVal = MediaStreamTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamTrack where - toJSVal = return . unMediaStreamTrack - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamTrack where - fromJSVal v = fmap MediaStreamTrack <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaStreamTrack - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaStreamTrack where - makeObject = makeObject . unMediaStreamTrack - -instance IsEventTarget MediaStreamTrack -instance IsGObject MediaStreamTrack where - typeGType _ = gTypeMediaStreamTrack - {-# INLINE typeGType #-} - -gTypeMediaStreamTrack :: JSM GType -gTypeMediaStreamTrack = GType . Object <$> jsg "MediaStreamTrack" - --- | Functions for this inteface are in "JSDOM.MediaStreamTrackEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype MediaStreamTrackEvent = MediaStreamTrackEvent { unMediaStreamTrackEvent :: JSVal } - -instance PToJSVal MediaStreamTrackEvent where - pToJSVal = unMediaStreamTrackEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamTrackEvent where - pFromJSVal = MediaStreamTrackEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamTrackEvent where - toJSVal = return . unMediaStreamTrackEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamTrackEvent where - fromJSVal v = fmap MediaStreamTrackEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaStreamTrackEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaStreamTrackEvent where - makeObject = makeObject . unMediaStreamTrackEvent - -instance IsEvent MediaStreamTrackEvent -instance IsGObject MediaStreamTrackEvent where - typeGType _ = gTypeMediaStreamTrackEvent - {-# INLINE typeGType #-} - -gTypeMediaStreamTrackEvent :: JSM GType -gTypeMediaStreamTrackEvent = GType . Object <$> jsg "MediaStreamTrackEvent" - --- | Functions for this inteface are in "JSDOM.MediaStreamTrackEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype MediaStreamTrackEventInit = MediaStreamTrackEventInit { unMediaStreamTrackEventInit :: JSVal } - -instance PToJSVal MediaStreamTrackEventInit where - pToJSVal = unMediaStreamTrackEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaStreamTrackEventInit where - pFromJSVal = MediaStreamTrackEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaStreamTrackEventInit where - toJSVal = return . unMediaStreamTrackEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal MediaStreamTrackEventInit where - fromJSVal v = fmap MediaStreamTrackEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaStreamTrackEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaStreamTrackEventInit where - makeObject = makeObject . unMediaStreamTrackEventInit - -instance IsEventInit MediaStreamTrackEventInit -instance IsGObject MediaStreamTrackEventInit where - typeGType _ = gTypeMediaStreamTrackEventInit - {-# INLINE typeGType #-} - -gTypeMediaStreamTrackEventInit :: JSM GType -gTypeMediaStreamTrackEventInit = GType . Object <$> jsg "MediaStreamTrackEventInit" - --- | Functions for this inteface are in "JSDOM.MediaTrackCapabilities". --- --- -newtype MediaTrackCapabilities = MediaTrackCapabilities { unMediaTrackCapabilities :: JSVal } - -instance PToJSVal MediaTrackCapabilities where - pToJSVal = unMediaTrackCapabilities - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaTrackCapabilities where - pFromJSVal = MediaTrackCapabilities - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaTrackCapabilities where - toJSVal = return . unMediaTrackCapabilities - {-# INLINE toJSVal #-} - -instance FromJSVal MediaTrackCapabilities where - fromJSVal v = fmap MediaTrackCapabilities <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaTrackCapabilities - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaTrackCapabilities where - makeObject = makeObject . unMediaTrackCapabilities - -instance IsGObject MediaTrackCapabilities where - typeGType _ = gTypeMediaTrackCapabilities - {-# INLINE typeGType #-} - -gTypeMediaTrackCapabilities :: JSM GType -gTypeMediaTrackCapabilities = GType . Object <$> jsg "MediaTrackCapabilities" - --- | Functions for this inteface are in "JSDOM.MediaTrackConstraintSet". --- --- -newtype MediaTrackConstraintSet = MediaTrackConstraintSet { unMediaTrackConstraintSet :: JSVal } - -instance PToJSVal MediaTrackConstraintSet where - pToJSVal = unMediaTrackConstraintSet - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaTrackConstraintSet where - pFromJSVal = MediaTrackConstraintSet - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaTrackConstraintSet where - toJSVal = return . unMediaTrackConstraintSet - {-# INLINE toJSVal #-} - -instance FromJSVal MediaTrackConstraintSet where - fromJSVal v = fmap MediaTrackConstraintSet <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaTrackConstraintSet - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaTrackConstraintSet where - makeObject = makeObject . unMediaTrackConstraintSet - -class (IsGObject o) => IsMediaTrackConstraintSet o -toMediaTrackConstraintSet :: IsMediaTrackConstraintSet o => o -> MediaTrackConstraintSet -toMediaTrackConstraintSet = MediaTrackConstraintSet . coerce - -instance IsMediaTrackConstraintSet MediaTrackConstraintSet -instance IsGObject MediaTrackConstraintSet where - typeGType _ = gTypeMediaTrackConstraintSet - {-# INLINE typeGType #-} - -gTypeMediaTrackConstraintSet :: JSM GType -gTypeMediaTrackConstraintSet = GType . Object <$> jsg "MediaTrackConstraintSet" - --- | Functions for this inteface are in "JSDOM.MediaTrackConstraints". --- Base interface functions are in: --- --- * "JSDOM.MediaTrackConstraintSet" --- --- -newtype MediaTrackConstraints = MediaTrackConstraints { unMediaTrackConstraints :: JSVal } - -instance PToJSVal MediaTrackConstraints where - pToJSVal = unMediaTrackConstraints - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaTrackConstraints where - pFromJSVal = MediaTrackConstraints - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaTrackConstraints where - toJSVal = return . unMediaTrackConstraints - {-# INLINE toJSVal #-} - -instance FromJSVal MediaTrackConstraints where - fromJSVal v = fmap MediaTrackConstraints <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaTrackConstraints - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaTrackConstraints where - makeObject = makeObject . unMediaTrackConstraints - -instance IsMediaTrackConstraintSet MediaTrackConstraints -instance IsGObject MediaTrackConstraints where - typeGType _ = gTypeMediaTrackConstraints - {-# INLINE typeGType #-} - -gTypeMediaTrackConstraints :: JSM GType -gTypeMediaTrackConstraints = GType . Object <$> jsg "MediaTrackConstraints" - --- | Functions for this inteface are in "JSDOM.MediaTrackSettings". --- --- -newtype MediaTrackSettings = MediaTrackSettings { unMediaTrackSettings :: JSVal } - -instance PToJSVal MediaTrackSettings where - pToJSVal = unMediaTrackSettings - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaTrackSettings where - pFromJSVal = MediaTrackSettings - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaTrackSettings where - toJSVal = return . unMediaTrackSettings - {-# INLINE toJSVal #-} - -instance FromJSVal MediaTrackSettings where - fromJSVal v = fmap MediaTrackSettings <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaTrackSettings - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaTrackSettings where - makeObject = makeObject . unMediaTrackSettings - -instance IsGObject MediaTrackSettings where - typeGType _ = gTypeMediaTrackSettings - {-# INLINE typeGType #-} - -gTypeMediaTrackSettings :: JSM GType -gTypeMediaTrackSettings = GType . Object <$> jsg "MediaTrackSettings" - --- | Functions for this inteface are in "JSDOM.MediaTrackSupportedConstraints". --- --- -newtype MediaTrackSupportedConstraints = MediaTrackSupportedConstraints { unMediaTrackSupportedConstraints :: JSVal } - -instance PToJSVal MediaTrackSupportedConstraints where - pToJSVal = unMediaTrackSupportedConstraints - {-# INLINE pToJSVal #-} - -instance PFromJSVal MediaTrackSupportedConstraints where - pFromJSVal = MediaTrackSupportedConstraints - {-# INLINE pFromJSVal #-} - -instance ToJSVal MediaTrackSupportedConstraints where - toJSVal = return . unMediaTrackSupportedConstraints - {-# INLINE toJSVal #-} - -instance FromJSVal MediaTrackSupportedConstraints where - fromJSVal v = fmap MediaTrackSupportedConstraints <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MediaTrackSupportedConstraints - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MediaTrackSupportedConstraints where - makeObject = makeObject . unMediaTrackSupportedConstraints - -instance IsGObject MediaTrackSupportedConstraints where - typeGType _ = gTypeMediaTrackSupportedConstraints - {-# INLINE typeGType #-} - -gTypeMediaTrackSupportedConstraints :: JSM GType -gTypeMediaTrackSupportedConstraints = GType . Object <$> jsg "MediaTrackSupportedConstraints" - --- | Functions for this inteface are in "JSDOM.MessageChannel". --- --- -newtype MessageChannel = MessageChannel { unMessageChannel :: JSVal } - -instance PToJSVal MessageChannel where - pToJSVal = unMessageChannel - {-# INLINE pToJSVal #-} - -instance PFromJSVal MessageChannel where - pFromJSVal = MessageChannel - {-# INLINE pFromJSVal #-} - -instance ToJSVal MessageChannel where - toJSVal = return . unMessageChannel - {-# INLINE toJSVal #-} - -instance FromJSVal MessageChannel where - fromJSVal v = fmap MessageChannel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MessageChannel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MessageChannel where - makeObject = makeObject . unMessageChannel - -instance IsGObject MessageChannel where - typeGType _ = gTypeMessageChannel - {-# INLINE typeGType #-} - -gTypeMessageChannel :: JSM GType -gTypeMessageChannel = GType . Object <$> jsg "MessageChannel" - --- | Functions for this inteface are in "JSDOM.MessageEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype MessageEvent = MessageEvent { unMessageEvent :: JSVal } - -instance PToJSVal MessageEvent where - pToJSVal = unMessageEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MessageEvent where - pFromJSVal = MessageEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MessageEvent where - toJSVal = return . unMessageEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MessageEvent where - fromJSVal v = fmap MessageEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MessageEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MessageEvent where - makeObject = makeObject . unMessageEvent - -instance IsEvent MessageEvent -instance IsGObject MessageEvent where - typeGType _ = gTypeMessageEvent - {-# INLINE typeGType #-} - -gTypeMessageEvent :: JSM GType -gTypeMessageEvent = GType . Object <$> jsg "MessageEvent" - --- | Functions for this inteface are in "JSDOM.MessageEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype MessageEventInit = MessageEventInit { unMessageEventInit :: JSVal } - -instance PToJSVal MessageEventInit where - pToJSVal = unMessageEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal MessageEventInit where - pFromJSVal = MessageEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal MessageEventInit where - toJSVal = return . unMessageEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal MessageEventInit where - fromJSVal v = fmap MessageEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MessageEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MessageEventInit where - makeObject = makeObject . unMessageEventInit - -instance IsEventInit MessageEventInit -instance IsGObject MessageEventInit where - typeGType _ = gTypeMessageEventInit - {-# INLINE typeGType #-} - -gTypeMessageEventInit :: JSM GType -gTypeMessageEventInit = GType . Object <$> jsg "MessageEventInit" - --- | Functions for this inteface are in "JSDOM.MessagePort". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype MessagePort = MessagePort { unMessagePort :: JSVal } - -instance PToJSVal MessagePort where - pToJSVal = unMessagePort - {-# INLINE pToJSVal #-} - -instance PFromJSVal MessagePort where - pFromJSVal = MessagePort - {-# INLINE pFromJSVal #-} - -instance ToJSVal MessagePort where - toJSVal = return . unMessagePort - {-# INLINE toJSVal #-} - -instance FromJSVal MessagePort where - fromJSVal v = fmap MessagePort <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MessagePort - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MessagePort where - makeObject = makeObject . unMessagePort - -instance IsEventTarget MessagePort -instance IsGObject MessagePort where - typeGType _ = gTypeMessagePort - {-# INLINE typeGType #-} - -gTypeMessagePort :: JSM GType -gTypeMessagePort = GType . Object <$> jsg "MessagePort" - --- | Functions for this inteface are in "JSDOM.MimeType". --- --- -newtype MimeType = MimeType { unMimeType :: JSVal } - -instance PToJSVal MimeType where - pToJSVal = unMimeType - {-# INLINE pToJSVal #-} - -instance PFromJSVal MimeType where - pFromJSVal = MimeType - {-# INLINE pFromJSVal #-} - -instance ToJSVal MimeType where - toJSVal = return . unMimeType - {-# INLINE toJSVal #-} - -instance FromJSVal MimeType where - fromJSVal v = fmap MimeType <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MimeType - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MimeType where - makeObject = makeObject . unMimeType - -instance IsGObject MimeType where - typeGType _ = gTypeMimeType - {-# INLINE typeGType #-} - -gTypeMimeType :: JSM GType -gTypeMimeType = GType . Object <$> jsg "MimeType" - --- | Functions for this inteface are in "JSDOM.MimeTypeArray". --- --- -newtype MimeTypeArray = MimeTypeArray { unMimeTypeArray :: JSVal } - -instance PToJSVal MimeTypeArray where - pToJSVal = unMimeTypeArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal MimeTypeArray where - pFromJSVal = MimeTypeArray - {-# INLINE pFromJSVal #-} - -instance ToJSVal MimeTypeArray where - toJSVal = return . unMimeTypeArray - {-# INLINE toJSVal #-} - -instance FromJSVal MimeTypeArray where - fromJSVal v = fmap MimeTypeArray <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MimeTypeArray - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MimeTypeArray where - makeObject = makeObject . unMimeTypeArray - -instance IsGObject MimeTypeArray where - typeGType _ = gTypeMimeTypeArray - {-# INLINE typeGType #-} - -gTypeMimeTypeArray :: JSM GType -gTypeMimeTypeArray = GType . Object <$> jsg "MimeTypeArray" - --- | Functions for this inteface are in "JSDOM.MouseEvent". --- Base interface functions are in: --- --- * "JSDOM.UIEvent" --- * "JSDOM.Event" --- --- -newtype MouseEvent = MouseEvent { unMouseEvent :: JSVal } - -instance PToJSVal MouseEvent where - pToJSVal = unMouseEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MouseEvent where - pFromJSVal = MouseEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MouseEvent where - toJSVal = return . unMouseEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MouseEvent where - fromJSVal v = fmap MouseEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MouseEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MouseEvent where - makeObject = makeObject . unMouseEvent - -class (IsUIEvent o, IsEvent o, IsGObject o) => IsMouseEvent o -toMouseEvent :: IsMouseEvent o => o -> MouseEvent -toMouseEvent = MouseEvent . coerce - -instance IsMouseEvent MouseEvent -instance IsUIEvent MouseEvent -instance IsEvent MouseEvent -instance IsGObject MouseEvent where - typeGType _ = gTypeMouseEvent - {-# INLINE typeGType #-} - -gTypeMouseEvent :: JSM GType -gTypeMouseEvent = GType . Object <$> jsg "MouseEvent" - --- | Functions for this inteface are in "JSDOM.MouseEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventModifierInit" --- * "JSDOM.UIEventInit" --- * "JSDOM.EventInit" --- --- -newtype MouseEventInit = MouseEventInit { unMouseEventInit :: JSVal } - -instance PToJSVal MouseEventInit where - pToJSVal = unMouseEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal MouseEventInit where - pFromJSVal = MouseEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal MouseEventInit where - toJSVal = return . unMouseEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal MouseEventInit where - fromJSVal v = fmap MouseEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MouseEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MouseEventInit where - makeObject = makeObject . unMouseEventInit - -class (IsEventModifierInit o, IsUIEventInit o, IsEventInit o, IsGObject o) => IsMouseEventInit o -toMouseEventInit :: IsMouseEventInit o => o -> MouseEventInit -toMouseEventInit = MouseEventInit . coerce - -instance IsMouseEventInit MouseEventInit -instance IsEventModifierInit MouseEventInit -instance IsUIEventInit MouseEventInit -instance IsEventInit MouseEventInit -instance IsGObject MouseEventInit where - typeGType _ = gTypeMouseEventInit - {-# INLINE typeGType #-} - -gTypeMouseEventInit :: JSM GType -gTypeMouseEventInit = GType . Object <$> jsg "MouseEventInit" - --- | Functions for this inteface are in "JSDOM.MutationEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype MutationEvent = MutationEvent { unMutationEvent :: JSVal } - -instance PToJSVal MutationEvent where - pToJSVal = unMutationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal MutationEvent where - pFromJSVal = MutationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal MutationEvent where - toJSVal = return . unMutationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal MutationEvent where - fromJSVal v = fmap MutationEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MutationEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MutationEvent where - makeObject = makeObject . unMutationEvent - -instance IsEvent MutationEvent -instance IsGObject MutationEvent where - typeGType _ = gTypeMutationEvent - {-# INLINE typeGType #-} - -gTypeMutationEvent :: JSM GType -gTypeMutationEvent = GType . Object <$> jsg "MutationEvent" - --- | Functions for this inteface are in "JSDOM.MutationObserver". --- --- -newtype MutationObserver = MutationObserver { unMutationObserver :: JSVal } - -instance PToJSVal MutationObserver where - pToJSVal = unMutationObserver - {-# INLINE pToJSVal #-} - -instance PFromJSVal MutationObserver where - pFromJSVal = MutationObserver - {-# INLINE pFromJSVal #-} - -instance ToJSVal MutationObserver where - toJSVal = return . unMutationObserver - {-# INLINE toJSVal #-} - -instance FromJSVal MutationObserver where - fromJSVal v = fmap MutationObserver <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MutationObserver - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MutationObserver where - makeObject = makeObject . unMutationObserver - -instance IsGObject MutationObserver where - typeGType _ = gTypeMutationObserver - {-# INLINE typeGType #-} - -gTypeMutationObserver :: JSM GType -gTypeMutationObserver = GType . Object <$> jsg "MutationObserver" - --- | Functions for this inteface are in "JSDOM.MutationObserverInit". --- --- -newtype MutationObserverInit = MutationObserverInit { unMutationObserverInit :: JSVal } - -instance PToJSVal MutationObserverInit where - pToJSVal = unMutationObserverInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal MutationObserverInit where - pFromJSVal = MutationObserverInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal MutationObserverInit where - toJSVal = return . unMutationObserverInit - {-# INLINE toJSVal #-} - -instance FromJSVal MutationObserverInit where - fromJSVal v = fmap MutationObserverInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MutationObserverInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MutationObserverInit where - makeObject = makeObject . unMutationObserverInit - -instance IsGObject MutationObserverInit where - typeGType _ = gTypeMutationObserverInit - {-# INLINE typeGType #-} - -gTypeMutationObserverInit :: JSM GType -gTypeMutationObserverInit = GType . Object <$> jsg "MutationObserverInit" - --- | Functions for this inteface are in "JSDOM.MutationRecord". --- --- -newtype MutationRecord = MutationRecord { unMutationRecord :: JSVal } - -instance PToJSVal MutationRecord where - pToJSVal = unMutationRecord - {-# INLINE pToJSVal #-} - -instance PFromJSVal MutationRecord where - pFromJSVal = MutationRecord - {-# INLINE pFromJSVal #-} - -instance ToJSVal MutationRecord where - toJSVal = return . unMutationRecord - {-# INLINE toJSVal #-} - -instance FromJSVal MutationRecord where - fromJSVal v = fmap MutationRecord <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . MutationRecord - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject MutationRecord where - makeObject = makeObject . unMutationRecord - -instance IsGObject MutationRecord where - typeGType _ = gTypeMutationRecord - {-# INLINE typeGType #-} - -gTypeMutationRecord :: JSM GType -gTypeMutationRecord = GType . Object <$> jsg "MutationRecord" - --- | Functions for this inteface are in "JSDOM.NamedNodeMap". --- --- -newtype NamedNodeMap = NamedNodeMap { unNamedNodeMap :: JSVal } - -instance PToJSVal NamedNodeMap where - pToJSVal = unNamedNodeMap - {-# INLINE pToJSVal #-} - -instance PFromJSVal NamedNodeMap where - pFromJSVal = NamedNodeMap - {-# INLINE pFromJSVal #-} - -instance ToJSVal NamedNodeMap where - toJSVal = return . unNamedNodeMap - {-# INLINE toJSVal #-} - -instance FromJSVal NamedNodeMap where - fromJSVal v = fmap NamedNodeMap <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NamedNodeMap - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NamedNodeMap where - makeObject = makeObject . unNamedNodeMap - -instance IsGObject NamedNodeMap where - typeGType _ = gTypeNamedNodeMap - {-# INLINE typeGType #-} - -gTypeNamedNodeMap :: JSM GType -gTypeNamedNodeMap = GType . Object <$> jsg "NamedNodeMap" - --- | Functions for this inteface are in "JSDOM.Navigator". --- Base interface functions are in: --- --- * "JSDOM.NavigatorOnLine" --- * "JSDOM.NavigatorLanguage" --- * "JSDOM.NavigatorID" --- * "JSDOM.NavigatorConcurrentHardware" --- --- -newtype Navigator = Navigator { unNavigator :: JSVal } - -instance PToJSVal Navigator where - pToJSVal = unNavigator - {-# INLINE pToJSVal #-} - -instance PFromJSVal Navigator where - pFromJSVal = Navigator - {-# INLINE pFromJSVal #-} - -instance ToJSVal Navigator where - toJSVal = return . unNavigator - {-# INLINE toJSVal #-} - -instance FromJSVal Navigator where - fromJSVal v = fmap Navigator <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Navigator - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Navigator where - makeObject = makeObject . unNavigator - -instance IsNavigatorOnLine Navigator -instance IsNavigatorLanguage Navigator -instance IsNavigatorID Navigator -instance IsNavigatorConcurrentHardware Navigator -instance IsGObject Navigator where - typeGType _ = gTypeNavigator - {-# INLINE typeGType #-} - -gTypeNavigator :: JSM GType -gTypeNavigator = GType . Object <$> jsg "Navigator" - --- | Functions for this inteface are in "JSDOM.NavigatorConcurrentHardware". --- --- -newtype NavigatorConcurrentHardware = NavigatorConcurrentHardware { unNavigatorConcurrentHardware :: JSVal } - -instance PToJSVal NavigatorConcurrentHardware where - pToJSVal = unNavigatorConcurrentHardware - {-# INLINE pToJSVal #-} - -instance PFromJSVal NavigatorConcurrentHardware where - pFromJSVal = NavigatorConcurrentHardware - {-# INLINE pFromJSVal #-} - -instance ToJSVal NavigatorConcurrentHardware where - toJSVal = return . unNavigatorConcurrentHardware - {-# INLINE toJSVal #-} - -instance FromJSVal NavigatorConcurrentHardware where - fromJSVal v = fmap NavigatorConcurrentHardware <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NavigatorConcurrentHardware - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NavigatorConcurrentHardware where - makeObject = makeObject . unNavigatorConcurrentHardware - -class (IsGObject o) => IsNavigatorConcurrentHardware o -toNavigatorConcurrentHardware :: IsNavigatorConcurrentHardware o => o -> NavigatorConcurrentHardware -toNavigatorConcurrentHardware = NavigatorConcurrentHardware . coerce - -instance IsNavigatorConcurrentHardware NavigatorConcurrentHardware -instance IsGObject NavigatorConcurrentHardware where - typeGType _ = gTypeNavigatorConcurrentHardware - {-# INLINE typeGType #-} - -gTypeNavigatorConcurrentHardware :: JSM GType -gTypeNavigatorConcurrentHardware = GType . Object <$> jsg "NavigatorConcurrentHardware" - --- | Functions for this inteface are in "JSDOM.NavigatorID". --- --- -newtype NavigatorID = NavigatorID { unNavigatorID :: JSVal } - -instance PToJSVal NavigatorID where - pToJSVal = unNavigatorID - {-# INLINE pToJSVal #-} - -instance PFromJSVal NavigatorID where - pFromJSVal = NavigatorID - {-# INLINE pFromJSVal #-} - -instance ToJSVal NavigatorID where - toJSVal = return . unNavigatorID - {-# INLINE toJSVal #-} - -instance FromJSVal NavigatorID where - fromJSVal v = fmap NavigatorID <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NavigatorID - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NavigatorID where - makeObject = makeObject . unNavigatorID - -class (IsGObject o) => IsNavigatorID o -toNavigatorID :: IsNavigatorID o => o -> NavigatorID -toNavigatorID = NavigatorID . coerce - -instance IsNavigatorID NavigatorID -instance IsGObject NavigatorID where - typeGType _ = gTypeNavigatorID - {-# INLINE typeGType #-} - -gTypeNavigatorID :: JSM GType -gTypeNavigatorID = GType . Object <$> jsg "NavigatorID" - --- | Functions for this inteface are in "JSDOM.NavigatorLanguage". --- --- -newtype NavigatorLanguage = NavigatorLanguage { unNavigatorLanguage :: JSVal } - -instance PToJSVal NavigatorLanguage where - pToJSVal = unNavigatorLanguage - {-# INLINE pToJSVal #-} - -instance PFromJSVal NavigatorLanguage where - pFromJSVal = NavigatorLanguage - {-# INLINE pFromJSVal #-} - -instance ToJSVal NavigatorLanguage where - toJSVal = return . unNavigatorLanguage - {-# INLINE toJSVal #-} - -instance FromJSVal NavigatorLanguage where - fromJSVal v = fmap NavigatorLanguage <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NavigatorLanguage - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NavigatorLanguage where - makeObject = makeObject . unNavigatorLanguage - -class (IsGObject o) => IsNavigatorLanguage o -toNavigatorLanguage :: IsNavigatorLanguage o => o -> NavigatorLanguage -toNavigatorLanguage = NavigatorLanguage . coerce - -instance IsNavigatorLanguage NavigatorLanguage -instance IsGObject NavigatorLanguage where - typeGType _ = gTypeNavigatorLanguage - {-# INLINE typeGType #-} - -gTypeNavigatorLanguage :: JSM GType -gTypeNavigatorLanguage = GType . Object <$> jsg "NavigatorLanguage" - --- | Functions for this inteface are in "JSDOM.NavigatorOnLine". --- --- -newtype NavigatorOnLine = NavigatorOnLine { unNavigatorOnLine :: JSVal } - -instance PToJSVal NavigatorOnLine where - pToJSVal = unNavigatorOnLine - {-# INLINE pToJSVal #-} - -instance PFromJSVal NavigatorOnLine where - pFromJSVal = NavigatorOnLine - {-# INLINE pFromJSVal #-} - -instance ToJSVal NavigatorOnLine where - toJSVal = return . unNavigatorOnLine - {-# INLINE toJSVal #-} - -instance FromJSVal NavigatorOnLine where - fromJSVal v = fmap NavigatorOnLine <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NavigatorOnLine - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NavigatorOnLine where - makeObject = makeObject . unNavigatorOnLine - -class (IsGObject o) => IsNavigatorOnLine o -toNavigatorOnLine :: IsNavigatorOnLine o => o -> NavigatorOnLine -toNavigatorOnLine = NavigatorOnLine . coerce - -instance IsNavigatorOnLine NavigatorOnLine -instance IsGObject NavigatorOnLine where - typeGType _ = gTypeNavigatorOnLine - {-# INLINE typeGType #-} - -gTypeNavigatorOnLine :: JSM GType -gTypeNavigatorOnLine = GType . Object <$> jsg "NavigatorOnLine" - --- | Functions for this inteface are in "JSDOM.NavigatorUserMediaError". --- Base interface functions are in: --- --- * "JSDOM.DOMError" --- --- -newtype NavigatorUserMediaError = NavigatorUserMediaError { unNavigatorUserMediaError :: JSVal } - -instance PToJSVal NavigatorUserMediaError where - pToJSVal = unNavigatorUserMediaError - {-# INLINE pToJSVal #-} - -instance PFromJSVal NavigatorUserMediaError where - pFromJSVal = NavigatorUserMediaError - {-# INLINE pFromJSVal #-} - -instance ToJSVal NavigatorUserMediaError where - toJSVal = return . unNavigatorUserMediaError - {-# INLINE toJSVal #-} - -instance FromJSVal NavigatorUserMediaError where - fromJSVal v = fmap NavigatorUserMediaError <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NavigatorUserMediaError - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NavigatorUserMediaError where - makeObject = makeObject . unNavigatorUserMediaError - -instance IsDOMError NavigatorUserMediaError -instance IsGObject NavigatorUserMediaError where - typeGType _ = gTypeNavigatorUserMediaError - {-# INLINE typeGType #-} - -gTypeNavigatorUserMediaError :: JSM GType -gTypeNavigatorUserMediaError = GType . Object <$> jsg "NavigatorUserMediaError" - --- | Functions for this inteface are in "JSDOM.Node". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype Node = Node { unNode :: JSVal } - -instance PToJSVal Node where - pToJSVal = unNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal Node where - pFromJSVal = Node - {-# INLINE pFromJSVal #-} - -instance ToJSVal Node where - toJSVal = return . unNode - {-# INLINE toJSVal #-} - -instance FromJSVal Node where - fromJSVal v = fmap Node <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Node - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Node where - makeObject = makeObject . unNode - -class (IsEventTarget o, IsGObject o) => IsNode o -toNode :: IsNode o => o -> Node -toNode = Node . coerce - -instance IsNode Node -instance IsEventTarget Node -instance IsGObject Node where - typeGType _ = gTypeNode - {-# INLINE typeGType #-} - -gTypeNode :: JSM GType -gTypeNode = GType . Object <$> jsg "Node" - --- | Functions for this inteface are in "JSDOM.NodeIterator". --- --- -newtype NodeIterator = NodeIterator { unNodeIterator :: JSVal } - -instance PToJSVal NodeIterator where - pToJSVal = unNodeIterator - {-# INLINE pToJSVal #-} - -instance PFromJSVal NodeIterator where - pFromJSVal = NodeIterator - {-# INLINE pFromJSVal #-} - -instance ToJSVal NodeIterator where - toJSVal = return . unNodeIterator - {-# INLINE toJSVal #-} - -instance FromJSVal NodeIterator where - fromJSVal v = fmap NodeIterator <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NodeIterator - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NodeIterator where - makeObject = makeObject . unNodeIterator - -instance IsGObject NodeIterator where - typeGType _ = gTypeNodeIterator - {-# INLINE typeGType #-} - -gTypeNodeIterator :: JSM GType -gTypeNodeIterator = GType . Object <$> jsg "NodeIterator" - --- | Functions for this inteface are in "JSDOM.NodeList". --- --- -newtype NodeList = NodeList { unNodeList :: JSVal } - -instance PToJSVal NodeList where - pToJSVal = unNodeList - {-# INLINE pToJSVal #-} - -instance PFromJSVal NodeList where - pFromJSVal = NodeList - {-# INLINE pFromJSVal #-} - -instance ToJSVal NodeList where - toJSVal = return . unNodeList - {-# INLINE toJSVal #-} - -instance FromJSVal NodeList where - fromJSVal v = fmap NodeList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NodeList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NodeList where - makeObject = makeObject . unNodeList - -class (IsGObject o) => IsNodeList o -toNodeList :: IsNodeList o => o -> NodeList -toNodeList = NodeList . coerce - -instance IsNodeList NodeList -instance IsGObject NodeList where - typeGType _ = gTypeNodeList - {-# INLINE typeGType #-} - -gTypeNodeList :: JSM GType -gTypeNodeList = GType . Object <$> jsg "NodeList" - --- | Functions for this inteface are in "JSDOM.NonDocumentTypeChildNode". --- --- -newtype NonDocumentTypeChildNode = NonDocumentTypeChildNode { unNonDocumentTypeChildNode :: JSVal } - -instance PToJSVal NonDocumentTypeChildNode where - pToJSVal = unNonDocumentTypeChildNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal NonDocumentTypeChildNode where - pFromJSVal = NonDocumentTypeChildNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal NonDocumentTypeChildNode where - toJSVal = return . unNonDocumentTypeChildNode - {-# INLINE toJSVal #-} - -instance FromJSVal NonDocumentTypeChildNode where - fromJSVal v = fmap NonDocumentTypeChildNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NonDocumentTypeChildNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NonDocumentTypeChildNode where - makeObject = makeObject . unNonDocumentTypeChildNode - -class (IsGObject o) => IsNonDocumentTypeChildNode o -toNonDocumentTypeChildNode :: IsNonDocumentTypeChildNode o => o -> NonDocumentTypeChildNode -toNonDocumentTypeChildNode = NonDocumentTypeChildNode . coerce - -instance IsNonDocumentTypeChildNode NonDocumentTypeChildNode -instance IsGObject NonDocumentTypeChildNode where - typeGType _ = gTypeNonDocumentTypeChildNode - {-# INLINE typeGType #-} - -gTypeNonDocumentTypeChildNode :: JSM GType -gTypeNonDocumentTypeChildNode = GType . Object <$> jsg "NonDocumentTypeChildNode" - --- | Functions for this inteface are in "JSDOM.NonElementParentNode". --- --- -newtype NonElementParentNode = NonElementParentNode { unNonElementParentNode :: JSVal } - -instance PToJSVal NonElementParentNode where - pToJSVal = unNonElementParentNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal NonElementParentNode where - pFromJSVal = NonElementParentNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal NonElementParentNode where - toJSVal = return . unNonElementParentNode - {-# INLINE toJSVal #-} - -instance FromJSVal NonElementParentNode where - fromJSVal v = fmap NonElementParentNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NonElementParentNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NonElementParentNode where - makeObject = makeObject . unNonElementParentNode - -class (IsGObject o) => IsNonElementParentNode o -toNonElementParentNode :: IsNonElementParentNode o => o -> NonElementParentNode -toNonElementParentNode = NonElementParentNode . coerce - -instance IsNonElementParentNode NonElementParentNode -instance IsGObject NonElementParentNode where - typeGType _ = gTypeNonElementParentNode - {-# INLINE typeGType #-} - -gTypeNonElementParentNode :: JSM GType -gTypeNonElementParentNode = GType . Object <$> jsg "NonElementParentNode" - --- | Functions for this inteface are in "JSDOM.Notification". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype Notification = Notification { unNotification :: JSVal } - -instance PToJSVal Notification where - pToJSVal = unNotification - {-# INLINE pToJSVal #-} - -instance PFromJSVal Notification where - pFromJSVal = Notification - {-# INLINE pFromJSVal #-} - -instance ToJSVal Notification where - toJSVal = return . unNotification - {-# INLINE toJSVal #-} - -instance FromJSVal Notification where - fromJSVal v = fmap Notification <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Notification - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Notification where - makeObject = makeObject . unNotification - -instance IsEventTarget Notification -instance IsGObject Notification where - typeGType _ = gTypeNotification - {-# INLINE typeGType #-} - -gTypeNotification :: JSM GType -gTypeNotification = GType . Object <$> jsg "Notification" - --- | Functions for this inteface are in "JSDOM.NotificationCenter". --- --- -newtype NotificationCenter = NotificationCenter { unNotificationCenter :: JSVal } - -instance PToJSVal NotificationCenter where - pToJSVal = unNotificationCenter - {-# INLINE pToJSVal #-} - -instance PFromJSVal NotificationCenter where - pFromJSVal = NotificationCenter - {-# INLINE pFromJSVal #-} - -instance ToJSVal NotificationCenter where - toJSVal = return . unNotificationCenter - {-# INLINE toJSVal #-} - -instance FromJSVal NotificationCenter where - fromJSVal v = fmap NotificationCenter <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NotificationCenter - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NotificationCenter where - makeObject = makeObject . unNotificationCenter - -instance IsGObject NotificationCenter where - typeGType _ = gTypeNotificationCenter - {-# INLINE typeGType #-} - -gTypeNotificationCenter :: JSM GType -gTypeNotificationCenter = GType . Object <$> jsg "NotificationCenter" - --- | Functions for this inteface are in "JSDOM.NotificationOptions". --- --- -newtype NotificationOptions = NotificationOptions { unNotificationOptions :: JSVal } - -instance PToJSVal NotificationOptions where - pToJSVal = unNotificationOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal NotificationOptions where - pFromJSVal = NotificationOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal NotificationOptions where - toJSVal = return . unNotificationOptions - {-# INLINE toJSVal #-} - -instance FromJSVal NotificationOptions where - fromJSVal v = fmap NotificationOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . NotificationOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject NotificationOptions where - makeObject = makeObject . unNotificationOptions - -instance IsGObject NotificationOptions where - typeGType _ = gTypeNotificationOptions - {-# INLINE typeGType #-} - -gTypeNotificationOptions :: JSM GType -gTypeNotificationOptions = GType . Object <$> jsg "NotificationOptions" - --- | Functions for this inteface are in "JSDOM.OESElementIndexUint". --- --- -newtype OESElementIndexUint = OESElementIndexUint { unOESElementIndexUint :: JSVal } - -instance PToJSVal OESElementIndexUint where - pToJSVal = unOESElementIndexUint - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESElementIndexUint where - pFromJSVal = OESElementIndexUint - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESElementIndexUint where - toJSVal = return . unOESElementIndexUint - {-# INLINE toJSVal #-} - -instance FromJSVal OESElementIndexUint where - fromJSVal v = fmap OESElementIndexUint <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OESElementIndexUint - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OESElementIndexUint where - makeObject = makeObject . unOESElementIndexUint - -instance IsGObject OESElementIndexUint where - typeGType _ = gTypeOESElementIndexUint - {-# INLINE typeGType #-} - -gTypeOESElementIndexUint :: JSM GType -gTypeOESElementIndexUint = GType . Object <$> jsg "OESElementIndexUint" - --- | Functions for this inteface are in "JSDOM.OESStandardDerivatives". --- --- -newtype OESStandardDerivatives = OESStandardDerivatives { unOESStandardDerivatives :: JSVal } - -instance PToJSVal OESStandardDerivatives where - pToJSVal = unOESStandardDerivatives - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESStandardDerivatives where - pFromJSVal = OESStandardDerivatives - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESStandardDerivatives where - toJSVal = return . unOESStandardDerivatives - {-# INLINE toJSVal #-} - -instance FromJSVal OESStandardDerivatives where - fromJSVal v = fmap OESStandardDerivatives <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OESStandardDerivatives - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OESStandardDerivatives where - makeObject = makeObject . unOESStandardDerivatives - -instance IsGObject OESStandardDerivatives where - typeGType _ = gTypeOESStandardDerivatives - {-# INLINE typeGType #-} - -gTypeOESStandardDerivatives :: JSM GType -gTypeOESStandardDerivatives = GType . Object <$> jsg "OESStandardDerivatives" - --- | Functions for this inteface are in "JSDOM.OESTextureFloat". --- --- -newtype OESTextureFloat = OESTextureFloat { unOESTextureFloat :: JSVal } - -instance PToJSVal OESTextureFloat where - pToJSVal = unOESTextureFloat - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESTextureFloat where - pFromJSVal = OESTextureFloat - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESTextureFloat where - toJSVal = return . unOESTextureFloat - {-# INLINE toJSVal #-} - -instance FromJSVal OESTextureFloat where - fromJSVal v = fmap OESTextureFloat <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OESTextureFloat - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OESTextureFloat where - makeObject = makeObject . unOESTextureFloat - -instance IsGObject OESTextureFloat where - typeGType _ = gTypeOESTextureFloat - {-# INLINE typeGType #-} - -gTypeOESTextureFloat :: JSM GType -gTypeOESTextureFloat = GType . Object <$> jsg "OESTextureFloat" - --- | Functions for this inteface are in "JSDOM.OESTextureFloatLinear". --- --- -newtype OESTextureFloatLinear = OESTextureFloatLinear { unOESTextureFloatLinear :: JSVal } - -instance PToJSVal OESTextureFloatLinear where - pToJSVal = unOESTextureFloatLinear - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESTextureFloatLinear where - pFromJSVal = OESTextureFloatLinear - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESTextureFloatLinear where - toJSVal = return . unOESTextureFloatLinear - {-# INLINE toJSVal #-} - -instance FromJSVal OESTextureFloatLinear where - fromJSVal v = fmap OESTextureFloatLinear <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OESTextureFloatLinear - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OESTextureFloatLinear where - makeObject = makeObject . unOESTextureFloatLinear - -instance IsGObject OESTextureFloatLinear where - typeGType _ = gTypeOESTextureFloatLinear - {-# INLINE typeGType #-} - -gTypeOESTextureFloatLinear :: JSM GType -gTypeOESTextureFloatLinear = GType . Object <$> jsg "OESTextureFloatLinear" - --- | Functions for this inteface are in "JSDOM.OESTextureHalfFloat". --- --- -newtype OESTextureHalfFloat = OESTextureHalfFloat { unOESTextureHalfFloat :: JSVal } - -instance PToJSVal OESTextureHalfFloat where - pToJSVal = unOESTextureHalfFloat - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESTextureHalfFloat where - pFromJSVal = OESTextureHalfFloat - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESTextureHalfFloat where - toJSVal = return . unOESTextureHalfFloat - {-# INLINE toJSVal #-} - -instance FromJSVal OESTextureHalfFloat where - fromJSVal v = fmap OESTextureHalfFloat <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OESTextureHalfFloat - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OESTextureHalfFloat where - makeObject = makeObject . unOESTextureHalfFloat - -instance IsGObject OESTextureHalfFloat where - typeGType _ = gTypeOESTextureHalfFloat - {-# INLINE typeGType #-} - -gTypeOESTextureHalfFloat :: JSM GType -gTypeOESTextureHalfFloat = GType . Object <$> jsg "OESTextureHalfFloat" - --- | Functions for this inteface are in "JSDOM.OESTextureHalfFloatLinear". --- --- -newtype OESTextureHalfFloatLinear = OESTextureHalfFloatLinear { unOESTextureHalfFloatLinear :: JSVal } - -instance PToJSVal OESTextureHalfFloatLinear where - pToJSVal = unOESTextureHalfFloatLinear - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESTextureHalfFloatLinear where - pFromJSVal = OESTextureHalfFloatLinear - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESTextureHalfFloatLinear where - toJSVal = return . unOESTextureHalfFloatLinear - {-# INLINE toJSVal #-} - -instance FromJSVal OESTextureHalfFloatLinear where - fromJSVal v = fmap OESTextureHalfFloatLinear <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OESTextureHalfFloatLinear - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OESTextureHalfFloatLinear where - makeObject = makeObject . unOESTextureHalfFloatLinear - -instance IsGObject OESTextureHalfFloatLinear where - typeGType _ = gTypeOESTextureHalfFloatLinear - {-# INLINE typeGType #-} - -gTypeOESTextureHalfFloatLinear :: JSM GType -gTypeOESTextureHalfFloatLinear = GType . Object <$> jsg "OESTextureHalfFloatLinear" - --- | Functions for this inteface are in "JSDOM.OESVertexArrayObject". --- --- -newtype OESVertexArrayObject = OESVertexArrayObject { unOESVertexArrayObject :: JSVal } - -instance PToJSVal OESVertexArrayObject where - pToJSVal = unOESVertexArrayObject - {-# INLINE pToJSVal #-} - -instance PFromJSVal OESVertexArrayObject where - pFromJSVal = OESVertexArrayObject - {-# INLINE pFromJSVal #-} - -instance ToJSVal OESVertexArrayObject where - toJSVal = return . unOESVertexArrayObject - {-# INLINE toJSVal #-} - -instance FromJSVal OESVertexArrayObject where - fromJSVal v = fmap OESVertexArrayObject <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OESVertexArrayObject - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OESVertexArrayObject where - makeObject = makeObject . unOESVertexArrayObject - -instance IsGObject OESVertexArrayObject where - typeGType _ = gTypeOESVertexArrayObject - {-# INLINE typeGType #-} - -gTypeOESVertexArrayObject :: JSM GType -gTypeOESVertexArrayObject = GType . Object <$> jsg "OESVertexArrayObject" - --- | Functions for this inteface are in "JSDOM.OfflineAudioCompletionEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype OfflineAudioCompletionEvent = OfflineAudioCompletionEvent { unOfflineAudioCompletionEvent :: JSVal } - -instance PToJSVal OfflineAudioCompletionEvent where - pToJSVal = unOfflineAudioCompletionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal OfflineAudioCompletionEvent where - pFromJSVal = OfflineAudioCompletionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal OfflineAudioCompletionEvent where - toJSVal = return . unOfflineAudioCompletionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal OfflineAudioCompletionEvent where - fromJSVal v = fmap OfflineAudioCompletionEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OfflineAudioCompletionEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OfflineAudioCompletionEvent where - makeObject = makeObject . unOfflineAudioCompletionEvent - -instance IsEvent OfflineAudioCompletionEvent -instance IsGObject OfflineAudioCompletionEvent where - typeGType _ = gTypeOfflineAudioCompletionEvent - {-# INLINE typeGType #-} - -gTypeOfflineAudioCompletionEvent :: JSM GType -gTypeOfflineAudioCompletionEvent = GType . Object <$> jsg "OfflineAudioCompletionEvent" - --- | Functions for this inteface are in "JSDOM.OfflineAudioContext". --- Base interface functions are in: --- --- * "JSDOM.AudioContext" --- * "JSDOM.EventTarget" --- --- -newtype OfflineAudioContext = OfflineAudioContext { unOfflineAudioContext :: JSVal } - -instance PToJSVal OfflineAudioContext where - pToJSVal = unOfflineAudioContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal OfflineAudioContext where - pFromJSVal = OfflineAudioContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal OfflineAudioContext where - toJSVal = return . unOfflineAudioContext - {-# INLINE toJSVal #-} - -instance FromJSVal OfflineAudioContext where - fromJSVal v = fmap OfflineAudioContext <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OfflineAudioContext - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OfflineAudioContext where - makeObject = makeObject . unOfflineAudioContext - -instance IsAudioContext OfflineAudioContext -instance IsEventTarget OfflineAudioContext -instance IsGObject OfflineAudioContext where - typeGType _ = gTypeOfflineAudioContext - {-# INLINE typeGType #-} - -gTypeOfflineAudioContext :: JSM GType -gTypeOfflineAudioContext = GType . Object <$> jsg "OfflineAudioContext" - --- | Functions for this inteface are in "JSDOM.OscillatorNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype OscillatorNode = OscillatorNode { unOscillatorNode :: JSVal } - -instance PToJSVal OscillatorNode where - pToJSVal = unOscillatorNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal OscillatorNode where - pFromJSVal = OscillatorNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal OscillatorNode where - toJSVal = return . unOscillatorNode - {-# INLINE toJSVal #-} - -instance FromJSVal OscillatorNode where - fromJSVal v = fmap OscillatorNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OscillatorNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OscillatorNode where - makeObject = makeObject . unOscillatorNode - -instance IsAudioNode OscillatorNode -instance IsEventTarget OscillatorNode -instance IsGObject OscillatorNode where - typeGType _ = gTypeOscillatorNode - {-# INLINE typeGType #-} - -gTypeOscillatorNode :: JSM GType -gTypeOscillatorNode = GType . Object <$> jsg "OscillatorNode" - --- | Functions for this inteface are in "JSDOM.OverconstrainedError". --- --- -newtype OverconstrainedError = OverconstrainedError { unOverconstrainedError :: JSVal } - -instance PToJSVal OverconstrainedError where - pToJSVal = unOverconstrainedError - {-# INLINE pToJSVal #-} - -instance PFromJSVal OverconstrainedError where - pFromJSVal = OverconstrainedError - {-# INLINE pFromJSVal #-} - -instance ToJSVal OverconstrainedError where - toJSVal = return . unOverconstrainedError - {-# INLINE toJSVal #-} - -instance FromJSVal OverconstrainedError where - fromJSVal v = fmap OverconstrainedError <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OverconstrainedError - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OverconstrainedError where - makeObject = makeObject . unOverconstrainedError - -instance IsGObject OverconstrainedError where - typeGType _ = gTypeOverconstrainedError - {-# INLINE typeGType #-} - -gTypeOverconstrainedError :: JSM GType -gTypeOverconstrainedError = GType . Object <$> jsg "OverconstrainedError" - --- | Functions for this inteface are in "JSDOM.OverconstrainedErrorEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype OverconstrainedErrorEvent = OverconstrainedErrorEvent { unOverconstrainedErrorEvent :: JSVal } - -instance PToJSVal OverconstrainedErrorEvent where - pToJSVal = unOverconstrainedErrorEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal OverconstrainedErrorEvent where - pFromJSVal = OverconstrainedErrorEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal OverconstrainedErrorEvent where - toJSVal = return . unOverconstrainedErrorEvent - {-# INLINE toJSVal #-} - -instance FromJSVal OverconstrainedErrorEvent where - fromJSVal v = fmap OverconstrainedErrorEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OverconstrainedErrorEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OverconstrainedErrorEvent where - makeObject = makeObject . unOverconstrainedErrorEvent - -instance IsEvent OverconstrainedErrorEvent -instance IsGObject OverconstrainedErrorEvent where - typeGType _ = gTypeOverconstrainedErrorEvent - {-# INLINE typeGType #-} - -gTypeOverconstrainedErrorEvent :: JSM GType -gTypeOverconstrainedErrorEvent = GType . Object <$> jsg "OverconstrainedErrorEvent" - --- | Functions for this inteface are in "JSDOM.OverconstrainedErrorEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype OverconstrainedErrorEventInit = OverconstrainedErrorEventInit { unOverconstrainedErrorEventInit :: JSVal } - -instance PToJSVal OverconstrainedErrorEventInit where - pToJSVal = unOverconstrainedErrorEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal OverconstrainedErrorEventInit where - pFromJSVal = OverconstrainedErrorEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal OverconstrainedErrorEventInit where - toJSVal = return . unOverconstrainedErrorEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal OverconstrainedErrorEventInit where - fromJSVal v = fmap OverconstrainedErrorEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OverconstrainedErrorEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OverconstrainedErrorEventInit where - makeObject = makeObject . unOverconstrainedErrorEventInit - -instance IsEventInit OverconstrainedErrorEventInit -instance IsGObject OverconstrainedErrorEventInit where - typeGType _ = gTypeOverconstrainedErrorEventInit - {-# INLINE typeGType #-} - -gTypeOverconstrainedErrorEventInit :: JSM GType -gTypeOverconstrainedErrorEventInit = GType . Object <$> jsg "OverconstrainedErrorEventInit" - --- | Functions for this inteface are in "JSDOM.OverflowEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype OverflowEvent = OverflowEvent { unOverflowEvent :: JSVal } - -instance PToJSVal OverflowEvent where - pToJSVal = unOverflowEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal OverflowEvent where - pFromJSVal = OverflowEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal OverflowEvent where - toJSVal = return . unOverflowEvent - {-# INLINE toJSVal #-} - -instance FromJSVal OverflowEvent where - fromJSVal v = fmap OverflowEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OverflowEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OverflowEvent where - makeObject = makeObject . unOverflowEvent - -instance IsEvent OverflowEvent -instance IsGObject OverflowEvent where - typeGType _ = gTypeOverflowEvent - {-# INLINE typeGType #-} - -gTypeOverflowEvent :: JSM GType -gTypeOverflowEvent = GType . Object <$> jsg "OverflowEvent" - --- | Functions for this inteface are in "JSDOM.OverflowEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype OverflowEventInit = OverflowEventInit { unOverflowEventInit :: JSVal } - -instance PToJSVal OverflowEventInit where - pToJSVal = unOverflowEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal OverflowEventInit where - pFromJSVal = OverflowEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal OverflowEventInit where - toJSVal = return . unOverflowEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal OverflowEventInit where - fromJSVal v = fmap OverflowEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . OverflowEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject OverflowEventInit where - makeObject = makeObject . unOverflowEventInit - -instance IsEventInit OverflowEventInit -instance IsGObject OverflowEventInit where - typeGType _ = gTypeOverflowEventInit - {-# INLINE typeGType #-} - -gTypeOverflowEventInit :: JSM GType -gTypeOverflowEventInit = GType . Object <$> jsg "OverflowEventInit" - --- | Functions for this inteface are in "JSDOM.PageTransitionEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype PageTransitionEvent = PageTransitionEvent { unPageTransitionEvent :: JSVal } - -instance PToJSVal PageTransitionEvent where - pToJSVal = unPageTransitionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal PageTransitionEvent where - pFromJSVal = PageTransitionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal PageTransitionEvent where - toJSVal = return . unPageTransitionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal PageTransitionEvent where - fromJSVal v = fmap PageTransitionEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PageTransitionEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PageTransitionEvent where - makeObject = makeObject . unPageTransitionEvent - -instance IsEvent PageTransitionEvent -instance IsGObject PageTransitionEvent where - typeGType _ = gTypePageTransitionEvent - {-# INLINE typeGType #-} - -gTypePageTransitionEvent :: JSM GType -gTypePageTransitionEvent = GType . Object <$> jsg "PageTransitionEvent" - --- | Functions for this inteface are in "JSDOM.PageTransitionEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype PageTransitionEventInit = PageTransitionEventInit { unPageTransitionEventInit :: JSVal } - -instance PToJSVal PageTransitionEventInit where - pToJSVal = unPageTransitionEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal PageTransitionEventInit where - pFromJSVal = PageTransitionEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal PageTransitionEventInit where - toJSVal = return . unPageTransitionEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal PageTransitionEventInit where - fromJSVal v = fmap PageTransitionEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PageTransitionEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PageTransitionEventInit where - makeObject = makeObject . unPageTransitionEventInit - -instance IsEventInit PageTransitionEventInit -instance IsGObject PageTransitionEventInit where - typeGType _ = gTypePageTransitionEventInit - {-# INLINE typeGType #-} - -gTypePageTransitionEventInit :: JSM GType -gTypePageTransitionEventInit = GType . Object <$> jsg "PageTransitionEventInit" - --- | Functions for this inteface are in "JSDOM.PannerNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype PannerNode = PannerNode { unPannerNode :: JSVal } - -instance PToJSVal PannerNode where - pToJSVal = unPannerNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal PannerNode where - pFromJSVal = PannerNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal PannerNode where - toJSVal = return . unPannerNode - {-# INLINE toJSVal #-} - -instance FromJSVal PannerNode where - fromJSVal v = fmap PannerNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PannerNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PannerNode where - makeObject = makeObject . unPannerNode - -instance IsAudioNode PannerNode -instance IsEventTarget PannerNode -instance IsGObject PannerNode where - typeGType _ = gTypePannerNode - {-# INLINE typeGType #-} - -gTypePannerNode :: JSM GType -gTypePannerNode = GType . Object <$> jsg "webkitAudioPannerNode" - --- | Functions for this inteface are in "JSDOM.ParentNode". --- --- -newtype ParentNode = ParentNode { unParentNode :: JSVal } - -instance PToJSVal ParentNode where - pToJSVal = unParentNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ParentNode where - pFromJSVal = ParentNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ParentNode where - toJSVal = return . unParentNode - {-# INLINE toJSVal #-} - -instance FromJSVal ParentNode where - fromJSVal v = fmap ParentNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ParentNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ParentNode where - makeObject = makeObject . unParentNode - -class (IsGObject o) => IsParentNode o -toParentNode :: IsParentNode o => o -> ParentNode -toParentNode = ParentNode . coerce - -instance IsParentNode ParentNode -instance IsGObject ParentNode where - typeGType _ = gTypeParentNode - {-# INLINE typeGType #-} - -gTypeParentNode :: JSM GType -gTypeParentNode = GType . Object <$> jsg "ParentNode" - --- | Functions for this inteface are in "JSDOM.Path2D". --- Base interface functions are in: --- --- * "JSDOM.CanvasPath" --- --- -newtype Path2D = Path2D { unPath2D :: JSVal } - -instance PToJSVal Path2D where - pToJSVal = unPath2D - {-# INLINE pToJSVal #-} - -instance PFromJSVal Path2D where - pFromJSVal = Path2D - {-# INLINE pFromJSVal #-} - -instance ToJSVal Path2D where - toJSVal = return . unPath2D - {-# INLINE toJSVal #-} - -instance FromJSVal Path2D where - fromJSVal v = fmap Path2D <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Path2D - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Path2D where - makeObject = makeObject . unPath2D - -instance IsCanvasPath Path2D -instance IsGObject Path2D where - typeGType _ = gTypePath2D - {-# INLINE typeGType #-} - -gTypePath2D :: JSM GType -gTypePath2D = GType . Object <$> jsg "Path2D" - --- | Functions for this inteface are in "JSDOM.Performance". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype Performance = Performance { unPerformance :: JSVal } - -instance PToJSVal Performance where - pToJSVal = unPerformance - {-# INLINE pToJSVal #-} - -instance PFromJSVal Performance where - pFromJSVal = Performance - {-# INLINE pFromJSVal #-} - -instance ToJSVal Performance where - toJSVal = return . unPerformance - {-# INLINE toJSVal #-} - -instance FromJSVal Performance where - fromJSVal v = fmap Performance <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Performance - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Performance where - makeObject = makeObject . unPerformance - -instance IsEventTarget Performance -instance IsGObject Performance where - typeGType _ = gTypePerformance - {-# INLINE typeGType #-} - -gTypePerformance :: JSM GType -gTypePerformance = GType . Object <$> jsg "Performance" - --- | Functions for this inteface are in "JSDOM.PerformanceEntry". --- --- -newtype PerformanceEntry = PerformanceEntry { unPerformanceEntry :: JSVal } - -instance PToJSVal PerformanceEntry where - pToJSVal = unPerformanceEntry - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceEntry where - pFromJSVal = PerformanceEntry - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceEntry where - toJSVal = return . unPerformanceEntry - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceEntry where - fromJSVal v = fmap PerformanceEntry <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PerformanceEntry - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PerformanceEntry where - makeObject = makeObject . unPerformanceEntry - -class (IsGObject o) => IsPerformanceEntry o -toPerformanceEntry :: IsPerformanceEntry o => o -> PerformanceEntry -toPerformanceEntry = PerformanceEntry . coerce - -instance IsPerformanceEntry PerformanceEntry -instance IsGObject PerformanceEntry where - typeGType _ = gTypePerformanceEntry - {-# INLINE typeGType #-} - -gTypePerformanceEntry :: JSM GType -gTypePerformanceEntry = GType . Object <$> jsg "PerformanceEntry" - --- | Functions for this inteface are in "JSDOM.PerformanceMark". --- Base interface functions are in: --- --- * "JSDOM.PerformanceEntry" --- --- -newtype PerformanceMark = PerformanceMark { unPerformanceMark :: JSVal } - -instance PToJSVal PerformanceMark where - pToJSVal = unPerformanceMark - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceMark where - pFromJSVal = PerformanceMark - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceMark where - toJSVal = return . unPerformanceMark - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceMark where - fromJSVal v = fmap PerformanceMark <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PerformanceMark - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PerformanceMark where - makeObject = makeObject . unPerformanceMark - -instance IsPerformanceEntry PerformanceMark -instance IsGObject PerformanceMark where - typeGType _ = gTypePerformanceMark - {-# INLINE typeGType #-} - -gTypePerformanceMark :: JSM GType -gTypePerformanceMark = GType . Object <$> jsg "PerformanceMark" - --- | Functions for this inteface are in "JSDOM.PerformanceMeasure". --- Base interface functions are in: --- --- * "JSDOM.PerformanceEntry" --- --- -newtype PerformanceMeasure = PerformanceMeasure { unPerformanceMeasure :: JSVal } - -instance PToJSVal PerformanceMeasure where - pToJSVal = unPerformanceMeasure - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceMeasure where - pFromJSVal = PerformanceMeasure - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceMeasure where - toJSVal = return . unPerformanceMeasure - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceMeasure where - fromJSVal v = fmap PerformanceMeasure <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PerformanceMeasure - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PerformanceMeasure where - makeObject = makeObject . unPerformanceMeasure - -instance IsPerformanceEntry PerformanceMeasure -instance IsGObject PerformanceMeasure where - typeGType _ = gTypePerformanceMeasure - {-# INLINE typeGType #-} - -gTypePerformanceMeasure :: JSM GType -gTypePerformanceMeasure = GType . Object <$> jsg "PerformanceMeasure" - --- | Functions for this inteface are in "JSDOM.PerformanceNavigation". --- --- -newtype PerformanceNavigation = PerformanceNavigation { unPerformanceNavigation :: JSVal } - -instance PToJSVal PerformanceNavigation where - pToJSVal = unPerformanceNavigation - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceNavigation where - pFromJSVal = PerformanceNavigation - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceNavigation where - toJSVal = return . unPerformanceNavigation - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceNavigation where - fromJSVal v = fmap PerformanceNavigation <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PerformanceNavigation - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PerformanceNavigation where - makeObject = makeObject . unPerformanceNavigation - -instance IsGObject PerformanceNavigation where - typeGType _ = gTypePerformanceNavigation - {-# INLINE typeGType #-} - -gTypePerformanceNavigation :: JSM GType -gTypePerformanceNavigation = GType . Object <$> jsg "PerformanceNavigation" - --- | Functions for this inteface are in "JSDOM.PerformanceObserver". --- --- -newtype PerformanceObserver = PerformanceObserver { unPerformanceObserver :: JSVal } - -instance PToJSVal PerformanceObserver where - pToJSVal = unPerformanceObserver - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceObserver where - pFromJSVal = PerformanceObserver - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceObserver where - toJSVal = return . unPerformanceObserver - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceObserver where - fromJSVal v = fmap PerformanceObserver <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PerformanceObserver - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PerformanceObserver where - makeObject = makeObject . unPerformanceObserver - -instance IsGObject PerformanceObserver where - typeGType _ = gTypePerformanceObserver - {-# INLINE typeGType #-} - -gTypePerformanceObserver :: JSM GType -gTypePerformanceObserver = GType . Object <$> jsg "PerformanceObserver" - --- | Functions for this inteface are in "JSDOM.PerformanceObserverEntryList". --- --- -newtype PerformanceObserverEntryList = PerformanceObserverEntryList { unPerformanceObserverEntryList :: JSVal } - -instance PToJSVal PerformanceObserverEntryList where - pToJSVal = unPerformanceObserverEntryList - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceObserverEntryList where - pFromJSVal = PerformanceObserverEntryList - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceObserverEntryList where - toJSVal = return . unPerformanceObserverEntryList - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceObserverEntryList where - fromJSVal v = fmap PerformanceObserverEntryList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PerformanceObserverEntryList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PerformanceObserverEntryList where - makeObject = makeObject . unPerformanceObserverEntryList - -instance IsGObject PerformanceObserverEntryList where - typeGType _ = gTypePerformanceObserverEntryList - {-# INLINE typeGType #-} - -gTypePerformanceObserverEntryList :: JSM GType -gTypePerformanceObserverEntryList = GType . Object <$> jsg "PerformanceObserverEntryList" - --- | Functions for this inteface are in "JSDOM.PerformanceObserverInit". --- --- -newtype PerformanceObserverInit = PerformanceObserverInit { unPerformanceObserverInit :: JSVal } - -instance PToJSVal PerformanceObserverInit where - pToJSVal = unPerformanceObserverInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceObserverInit where - pFromJSVal = PerformanceObserverInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceObserverInit where - toJSVal = return . unPerformanceObserverInit - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceObserverInit where - fromJSVal v = fmap PerformanceObserverInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PerformanceObserverInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PerformanceObserverInit where - makeObject = makeObject . unPerformanceObserverInit - -instance IsGObject PerformanceObserverInit where - typeGType _ = gTypePerformanceObserverInit - {-# INLINE typeGType #-} - -gTypePerformanceObserverInit :: JSM GType -gTypePerformanceObserverInit = GType . Object <$> jsg "PerformanceObserverInit" - --- | Functions for this inteface are in "JSDOM.PerformanceResourceTiming". --- Base interface functions are in: --- --- * "JSDOM.PerformanceEntry" --- --- -newtype PerformanceResourceTiming = PerformanceResourceTiming { unPerformanceResourceTiming :: JSVal } - -instance PToJSVal PerformanceResourceTiming where - pToJSVal = unPerformanceResourceTiming - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceResourceTiming where - pFromJSVal = PerformanceResourceTiming - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceResourceTiming where - toJSVal = return . unPerformanceResourceTiming - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceResourceTiming where - fromJSVal v = fmap PerformanceResourceTiming <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PerformanceResourceTiming - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PerformanceResourceTiming where - makeObject = makeObject . unPerformanceResourceTiming - -instance IsPerformanceEntry PerformanceResourceTiming -instance IsGObject PerformanceResourceTiming where - typeGType _ = gTypePerformanceResourceTiming - {-# INLINE typeGType #-} - -gTypePerformanceResourceTiming :: JSM GType -gTypePerformanceResourceTiming = GType . Object <$> jsg "PerformanceResourceTiming" - --- | Functions for this inteface are in "JSDOM.PerformanceTiming". --- --- -newtype PerformanceTiming = PerformanceTiming { unPerformanceTiming :: JSVal } - -instance PToJSVal PerformanceTiming where - pToJSVal = unPerformanceTiming - {-# INLINE pToJSVal #-} - -instance PFromJSVal PerformanceTiming where - pFromJSVal = PerformanceTiming - {-# INLINE pFromJSVal #-} - -instance ToJSVal PerformanceTiming where - toJSVal = return . unPerformanceTiming - {-# INLINE toJSVal #-} - -instance FromJSVal PerformanceTiming where - fromJSVal v = fmap PerformanceTiming <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PerformanceTiming - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PerformanceTiming where - makeObject = makeObject . unPerformanceTiming - -instance IsGObject PerformanceTiming where - typeGType _ = gTypePerformanceTiming - {-# INLINE typeGType #-} - -gTypePerformanceTiming :: JSM GType -gTypePerformanceTiming = GType . Object <$> jsg "PerformanceTiming" - --- | Functions for this inteface are in "JSDOM.PeriodicWave". --- --- -newtype PeriodicWave = PeriodicWave { unPeriodicWave :: JSVal } - -instance PToJSVal PeriodicWave where - pToJSVal = unPeriodicWave - {-# INLINE pToJSVal #-} - -instance PFromJSVal PeriodicWave where - pFromJSVal = PeriodicWave - {-# INLINE pFromJSVal #-} - -instance ToJSVal PeriodicWave where - toJSVal = return . unPeriodicWave - {-# INLINE toJSVal #-} - -instance FromJSVal PeriodicWave where - fromJSVal v = fmap PeriodicWave <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PeriodicWave - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PeriodicWave where - makeObject = makeObject . unPeriodicWave - -instance IsGObject PeriodicWave where - typeGType _ = gTypePeriodicWave - {-# INLINE typeGType #-} - -gTypePeriodicWave :: JSM GType -gTypePeriodicWave = GType . Object <$> jsg "PeriodicWave" - --- | Functions for this inteface are in "JSDOM.Plugin". --- --- -newtype Plugin = Plugin { unPlugin :: JSVal } - -instance PToJSVal Plugin where - pToJSVal = unPlugin - {-# INLINE pToJSVal #-} - -instance PFromJSVal Plugin where - pFromJSVal = Plugin - {-# INLINE pFromJSVal #-} - -instance ToJSVal Plugin where - toJSVal = return . unPlugin - {-# INLINE toJSVal #-} - -instance FromJSVal Plugin where - fromJSVal v = fmap Plugin <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Plugin - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Plugin where - makeObject = makeObject . unPlugin - -instance IsGObject Plugin where - typeGType _ = gTypePlugin - {-# INLINE typeGType #-} - -gTypePlugin :: JSM GType -gTypePlugin = GType . Object <$> jsg "Plugin" - --- | Functions for this inteface are in "JSDOM.PluginArray". --- --- -newtype PluginArray = PluginArray { unPluginArray :: JSVal } - -instance PToJSVal PluginArray where - pToJSVal = unPluginArray - {-# INLINE pToJSVal #-} - -instance PFromJSVal PluginArray where - pFromJSVal = PluginArray - {-# INLINE pFromJSVal #-} - -instance ToJSVal PluginArray where - toJSVal = return . unPluginArray - {-# INLINE toJSVal #-} - -instance FromJSVal PluginArray where - fromJSVal v = fmap PluginArray <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PluginArray - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PluginArray where - makeObject = makeObject . unPluginArray - -instance IsGObject PluginArray where - typeGType _ = gTypePluginArray - {-# INLINE typeGType #-} - -gTypePluginArray :: JSM GType -gTypePluginArray = GType . Object <$> jsg "PluginArray" - --- | Functions for this inteface are in "JSDOM.PopStateEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype PopStateEvent = PopStateEvent { unPopStateEvent :: JSVal } - -instance PToJSVal PopStateEvent where - pToJSVal = unPopStateEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal PopStateEvent where - pFromJSVal = PopStateEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal PopStateEvent where - toJSVal = return . unPopStateEvent - {-# INLINE toJSVal #-} - -instance FromJSVal PopStateEvent where - fromJSVal v = fmap PopStateEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PopStateEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PopStateEvent where - makeObject = makeObject . unPopStateEvent - -instance IsEvent PopStateEvent -instance IsGObject PopStateEvent where - typeGType _ = gTypePopStateEvent - {-# INLINE typeGType #-} - -gTypePopStateEvent :: JSM GType -gTypePopStateEvent = GType . Object <$> jsg "PopStateEvent" - --- | Functions for this inteface are in "JSDOM.PopStateEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype PopStateEventInit = PopStateEventInit { unPopStateEventInit :: JSVal } - -instance PToJSVal PopStateEventInit where - pToJSVal = unPopStateEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal PopStateEventInit where - pFromJSVal = PopStateEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal PopStateEventInit where - toJSVal = return . unPopStateEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal PopStateEventInit where - fromJSVal v = fmap PopStateEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PopStateEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PopStateEventInit where - makeObject = makeObject . unPopStateEventInit - -instance IsEventInit PopStateEventInit -instance IsGObject PopStateEventInit where - typeGType _ = gTypePopStateEventInit - {-# INLINE typeGType #-} - -gTypePopStateEventInit :: JSM GType -gTypePopStateEventInit = GType . Object <$> jsg "PopStateEventInit" - --- | Functions for this inteface are in "JSDOM.PositionError". --- --- -newtype PositionError = PositionError { unPositionError :: JSVal } - -instance PToJSVal PositionError where - pToJSVal = unPositionError - {-# INLINE pToJSVal #-} - -instance PFromJSVal PositionError where - pFromJSVal = PositionError - {-# INLINE pFromJSVal #-} - -instance ToJSVal PositionError where - toJSVal = return . unPositionError - {-# INLINE toJSVal #-} - -instance FromJSVal PositionError where - fromJSVal v = fmap PositionError <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PositionError - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PositionError where - makeObject = makeObject . unPositionError - -instance IsGObject PositionError where - typeGType _ = gTypePositionError - {-# INLINE typeGType #-} - -gTypePositionError :: JSM GType -gTypePositionError = GType . Object <$> jsg "PositionError" - --- | Functions for this inteface are in "JSDOM.PositionOptions". --- --- -newtype PositionOptions = PositionOptions { unPositionOptions :: JSVal } - -instance PToJSVal PositionOptions where - pToJSVal = unPositionOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal PositionOptions where - pFromJSVal = PositionOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal PositionOptions where - toJSVal = return . unPositionOptions - {-# INLINE toJSVal #-} - -instance FromJSVal PositionOptions where - fromJSVal v = fmap PositionOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . PositionOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject PositionOptions where - makeObject = makeObject . unPositionOptions - -instance IsGObject PositionOptions where - typeGType _ = gTypePositionOptions - {-# INLINE typeGType #-} - -gTypePositionOptions :: JSM GType -gTypePositionOptions = GType . Object <$> jsg "PositionOptions" - --- | Functions for this inteface are in "JSDOM.ProcessingInstruction". --- Base interface functions are in: --- --- * "JSDOM.CharacterData" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- --- -newtype ProcessingInstruction = ProcessingInstruction { unProcessingInstruction :: JSVal } - -instance PToJSVal ProcessingInstruction where - pToJSVal = unProcessingInstruction - {-# INLINE pToJSVal #-} - -instance PFromJSVal ProcessingInstruction where - pFromJSVal = ProcessingInstruction - {-# INLINE pFromJSVal #-} - -instance ToJSVal ProcessingInstruction where - toJSVal = return . unProcessingInstruction - {-# INLINE toJSVal #-} - -instance FromJSVal ProcessingInstruction where - fromJSVal v = fmap ProcessingInstruction <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ProcessingInstruction - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ProcessingInstruction where - makeObject = makeObject . unProcessingInstruction - -instance IsCharacterData ProcessingInstruction -instance IsNode ProcessingInstruction -instance IsEventTarget ProcessingInstruction -instance IsNonDocumentTypeChildNode ProcessingInstruction -instance IsChildNode ProcessingInstruction -instance IsGObject ProcessingInstruction where - typeGType _ = gTypeProcessingInstruction - {-# INLINE typeGType #-} - -gTypeProcessingInstruction :: JSM GType -gTypeProcessingInstruction = GType . Object <$> jsg "ProcessingInstruction" - --- | Functions for this inteface are in "JSDOM.ProgressEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype ProgressEvent = ProgressEvent { unProgressEvent :: JSVal } - -instance PToJSVal ProgressEvent where - pToJSVal = unProgressEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal ProgressEvent where - pFromJSVal = ProgressEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal ProgressEvent where - toJSVal = return . unProgressEvent - {-# INLINE toJSVal #-} - -instance FromJSVal ProgressEvent where - fromJSVal v = fmap ProgressEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ProgressEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ProgressEvent where - makeObject = makeObject . unProgressEvent - -class (IsEvent o, IsGObject o) => IsProgressEvent o -toProgressEvent :: IsProgressEvent o => o -> ProgressEvent -toProgressEvent = ProgressEvent . coerce - -instance IsProgressEvent ProgressEvent -instance IsEvent ProgressEvent -instance IsGObject ProgressEvent where - typeGType _ = gTypeProgressEvent - {-# INLINE typeGType #-} - -gTypeProgressEvent :: JSM GType -gTypeProgressEvent = GType . Object <$> jsg "ProgressEvent" - --- | Functions for this inteface are in "JSDOM.ProgressEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype ProgressEventInit = ProgressEventInit { unProgressEventInit :: JSVal } - -instance PToJSVal ProgressEventInit where - pToJSVal = unProgressEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal ProgressEventInit where - pFromJSVal = ProgressEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal ProgressEventInit where - toJSVal = return . unProgressEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal ProgressEventInit where - fromJSVal v = fmap ProgressEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ProgressEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ProgressEventInit where - makeObject = makeObject . unProgressEventInit - -instance IsEventInit ProgressEventInit -instance IsGObject ProgressEventInit where - typeGType _ = gTypeProgressEventInit - {-# INLINE typeGType #-} - -gTypeProgressEventInit :: JSM GType -gTypeProgressEventInit = GType . Object <$> jsg "ProgressEventInit" - --- | Functions for this inteface are in "JSDOM.QuickTimePluginReplacement". --- --- -newtype QuickTimePluginReplacement = QuickTimePluginReplacement { unQuickTimePluginReplacement :: JSVal } - -instance PToJSVal QuickTimePluginReplacement where - pToJSVal = unQuickTimePluginReplacement - {-# INLINE pToJSVal #-} - -instance PFromJSVal QuickTimePluginReplacement where - pFromJSVal = QuickTimePluginReplacement - {-# INLINE pFromJSVal #-} - -instance ToJSVal QuickTimePluginReplacement where - toJSVal = return . unQuickTimePluginReplacement - {-# INLINE toJSVal #-} - -instance FromJSVal QuickTimePluginReplacement where - fromJSVal v = fmap QuickTimePluginReplacement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . QuickTimePluginReplacement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject QuickTimePluginReplacement where - makeObject = makeObject . unQuickTimePluginReplacement - -instance IsGObject QuickTimePluginReplacement where - typeGType _ = gTypeQuickTimePluginReplacement - {-# INLINE typeGType #-} - -gTypeQuickTimePluginReplacement :: JSM GType -gTypeQuickTimePluginReplacement = GType . Object <$> jsg "QuickTimePluginReplacement" - --- | Functions for this inteface are in "JSDOM.RGBColor". --- --- -newtype RGBColor = RGBColor { unRGBColor :: JSVal } - -instance PToJSVal RGBColor where - pToJSVal = unRGBColor - {-# INLINE pToJSVal #-} - -instance PFromJSVal RGBColor where - pFromJSVal = RGBColor - {-# INLINE pFromJSVal #-} - -instance ToJSVal RGBColor where - toJSVal = return . unRGBColor - {-# INLINE toJSVal #-} - -instance FromJSVal RGBColor where - fromJSVal v = fmap RGBColor <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RGBColor - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RGBColor where - makeObject = makeObject . unRGBColor - -instance IsGObject RGBColor where - typeGType _ = gTypeRGBColor - {-# INLINE typeGType #-} - -gTypeRGBColor :: JSM GType -gTypeRGBColor = GType . Object <$> jsg "RGBColor" - --- | Functions for this inteface are in "JSDOM.RTCAnswerOptions". --- Base interface functions are in: --- --- * "JSDOM.RTCOfferAnswerOptions" --- --- -newtype RTCAnswerOptions = RTCAnswerOptions { unRTCAnswerOptions :: JSVal } - -instance PToJSVal RTCAnswerOptions where - pToJSVal = unRTCAnswerOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCAnswerOptions where - pFromJSVal = RTCAnswerOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCAnswerOptions where - toJSVal = return . unRTCAnswerOptions - {-# INLINE toJSVal #-} - -instance FromJSVal RTCAnswerOptions where - fromJSVal v = fmap RTCAnswerOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCAnswerOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCAnswerOptions where - makeObject = makeObject . unRTCAnswerOptions - -instance IsRTCOfferAnswerOptions RTCAnswerOptions -instance IsGObject RTCAnswerOptions where - typeGType _ = gTypeRTCAnswerOptions - {-# INLINE typeGType #-} - -gTypeRTCAnswerOptions :: JSM GType -gTypeRTCAnswerOptions = GType . Object <$> jsg "RTCAnswerOptions" - --- | Functions for this inteface are in "JSDOM.RTCConfiguration". --- --- -newtype RTCConfiguration = RTCConfiguration { unRTCConfiguration :: JSVal } - -instance PToJSVal RTCConfiguration where - pToJSVal = unRTCConfiguration - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCConfiguration where - pFromJSVal = RTCConfiguration - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCConfiguration where - toJSVal = return . unRTCConfiguration - {-# INLINE toJSVal #-} - -instance FromJSVal RTCConfiguration where - fromJSVal v = fmap RTCConfiguration <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCConfiguration - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCConfiguration where - makeObject = makeObject . unRTCConfiguration - -instance IsGObject RTCConfiguration where - typeGType _ = gTypeRTCConfiguration - {-# INLINE typeGType #-} - -gTypeRTCConfiguration :: JSM GType -gTypeRTCConfiguration = GType . Object <$> jsg "RTCConfiguration" - --- | Functions for this inteface are in "JSDOM.RTCDTMFSender". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype RTCDTMFSender = RTCDTMFSender { unRTCDTMFSender :: JSVal } - -instance PToJSVal RTCDTMFSender where - pToJSVal = unRTCDTMFSender - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDTMFSender where - pFromJSVal = RTCDTMFSender - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDTMFSender where - toJSVal = return . unRTCDTMFSender - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDTMFSender where - fromJSVal v = fmap RTCDTMFSender <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCDTMFSender - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCDTMFSender where - makeObject = makeObject . unRTCDTMFSender - -instance IsEventTarget RTCDTMFSender -instance IsGObject RTCDTMFSender where - typeGType _ = gTypeRTCDTMFSender - {-# INLINE typeGType #-} - -gTypeRTCDTMFSender :: JSM GType -gTypeRTCDTMFSender = GType . Object <$> jsg "RTCDTMFSender" - --- | Functions for this inteface are in "JSDOM.RTCDTMFToneChangeEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype RTCDTMFToneChangeEvent = RTCDTMFToneChangeEvent { unRTCDTMFToneChangeEvent :: JSVal } - -instance PToJSVal RTCDTMFToneChangeEvent where - pToJSVal = unRTCDTMFToneChangeEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDTMFToneChangeEvent where - pFromJSVal = RTCDTMFToneChangeEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDTMFToneChangeEvent where - toJSVal = return . unRTCDTMFToneChangeEvent - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDTMFToneChangeEvent where - fromJSVal v = fmap RTCDTMFToneChangeEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCDTMFToneChangeEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCDTMFToneChangeEvent where - makeObject = makeObject . unRTCDTMFToneChangeEvent - -instance IsEvent RTCDTMFToneChangeEvent -instance IsGObject RTCDTMFToneChangeEvent where - typeGType _ = gTypeRTCDTMFToneChangeEvent - {-# INLINE typeGType #-} - -gTypeRTCDTMFToneChangeEvent :: JSM GType -gTypeRTCDTMFToneChangeEvent = GType . Object <$> jsg "RTCDTMFToneChangeEvent" - --- | Functions for this inteface are in "JSDOM.RTCDTMFToneChangeEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype RTCDTMFToneChangeEventInit = RTCDTMFToneChangeEventInit { unRTCDTMFToneChangeEventInit :: JSVal } - -instance PToJSVal RTCDTMFToneChangeEventInit where - pToJSVal = unRTCDTMFToneChangeEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDTMFToneChangeEventInit where - pFromJSVal = RTCDTMFToneChangeEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDTMFToneChangeEventInit where - toJSVal = return . unRTCDTMFToneChangeEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDTMFToneChangeEventInit where - fromJSVal v = fmap RTCDTMFToneChangeEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCDTMFToneChangeEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCDTMFToneChangeEventInit where - makeObject = makeObject . unRTCDTMFToneChangeEventInit - -instance IsEventInit RTCDTMFToneChangeEventInit -instance IsGObject RTCDTMFToneChangeEventInit where - typeGType _ = gTypeRTCDTMFToneChangeEventInit - {-# INLINE typeGType #-} - -gTypeRTCDTMFToneChangeEventInit :: JSM GType -gTypeRTCDTMFToneChangeEventInit = GType . Object <$> jsg "RTCDTMFToneChangeEventInit" - --- | Functions for this inteface are in "JSDOM.RTCDataChannel". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype RTCDataChannel = RTCDataChannel { unRTCDataChannel :: JSVal } - -instance PToJSVal RTCDataChannel where - pToJSVal = unRTCDataChannel - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDataChannel where - pFromJSVal = RTCDataChannel - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDataChannel where - toJSVal = return . unRTCDataChannel - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDataChannel where - fromJSVal v = fmap RTCDataChannel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCDataChannel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCDataChannel where - makeObject = makeObject . unRTCDataChannel - -instance IsEventTarget RTCDataChannel -instance IsGObject RTCDataChannel where - typeGType _ = gTypeRTCDataChannel - {-# INLINE typeGType #-} - -gTypeRTCDataChannel :: JSM GType -gTypeRTCDataChannel = GType . Object <$> jsg "RTCDataChannel" - --- | Functions for this inteface are in "JSDOM.RTCDataChannelEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype RTCDataChannelEvent = RTCDataChannelEvent { unRTCDataChannelEvent :: JSVal } - -instance PToJSVal RTCDataChannelEvent where - pToJSVal = unRTCDataChannelEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDataChannelEvent where - pFromJSVal = RTCDataChannelEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDataChannelEvent where - toJSVal = return . unRTCDataChannelEvent - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDataChannelEvent where - fromJSVal v = fmap RTCDataChannelEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCDataChannelEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCDataChannelEvent where - makeObject = makeObject . unRTCDataChannelEvent - -instance IsEvent RTCDataChannelEvent -instance IsGObject RTCDataChannelEvent where - typeGType _ = gTypeRTCDataChannelEvent - {-# INLINE typeGType #-} - -gTypeRTCDataChannelEvent :: JSM GType -gTypeRTCDataChannelEvent = GType . Object <$> jsg "RTCDataChannelEvent" - --- | Functions for this inteface are in "JSDOM.RTCDataChannelInit". --- --- -newtype RTCDataChannelInit = RTCDataChannelInit { unRTCDataChannelInit :: JSVal } - -instance PToJSVal RTCDataChannelInit where - pToJSVal = unRTCDataChannelInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCDataChannelInit where - pFromJSVal = RTCDataChannelInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCDataChannelInit where - toJSVal = return . unRTCDataChannelInit - {-# INLINE toJSVal #-} - -instance FromJSVal RTCDataChannelInit where - fromJSVal v = fmap RTCDataChannelInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCDataChannelInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCDataChannelInit where - makeObject = makeObject . unRTCDataChannelInit - -instance IsGObject RTCDataChannelInit where - typeGType _ = gTypeRTCDataChannelInit - {-# INLINE typeGType #-} - -gTypeRTCDataChannelInit :: JSM GType -gTypeRTCDataChannelInit = GType . Object <$> jsg "RTCDataChannelInit" - --- | Functions for this inteface are in "JSDOM.RTCIceCandidate". --- --- -newtype RTCIceCandidate = RTCIceCandidate { unRTCIceCandidate :: JSVal } - -instance PToJSVal RTCIceCandidate where - pToJSVal = unRTCIceCandidate - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCIceCandidate where - pFromJSVal = RTCIceCandidate - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCIceCandidate where - toJSVal = return . unRTCIceCandidate - {-# INLINE toJSVal #-} - -instance FromJSVal RTCIceCandidate where - fromJSVal v = fmap RTCIceCandidate <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCIceCandidate - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCIceCandidate where - makeObject = makeObject . unRTCIceCandidate - -instance IsGObject RTCIceCandidate where - typeGType _ = gTypeRTCIceCandidate - {-# INLINE typeGType #-} - -gTypeRTCIceCandidate :: JSM GType -gTypeRTCIceCandidate = GType . Object <$> jsg "RTCIceCandidate" - --- | Functions for this inteface are in "JSDOM.RTCIceCandidateEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype RTCIceCandidateEvent = RTCIceCandidateEvent { unRTCIceCandidateEvent :: JSVal } - -instance PToJSVal RTCIceCandidateEvent where - pToJSVal = unRTCIceCandidateEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCIceCandidateEvent where - pFromJSVal = RTCIceCandidateEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCIceCandidateEvent where - toJSVal = return . unRTCIceCandidateEvent - {-# INLINE toJSVal #-} - -instance FromJSVal RTCIceCandidateEvent where - fromJSVal v = fmap RTCIceCandidateEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCIceCandidateEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCIceCandidateEvent where - makeObject = makeObject . unRTCIceCandidateEvent - -instance IsEvent RTCIceCandidateEvent -instance IsGObject RTCIceCandidateEvent where - typeGType _ = gTypeRTCIceCandidateEvent - {-# INLINE typeGType #-} - -gTypeRTCIceCandidateEvent :: JSM GType -gTypeRTCIceCandidateEvent = GType . Object <$> jsg "RTCIceCandidateEvent" - --- | Functions for this inteface are in "JSDOM.RTCIceCandidateInit". --- --- -newtype RTCIceCandidateInit = RTCIceCandidateInit { unRTCIceCandidateInit :: JSVal } - -instance PToJSVal RTCIceCandidateInit where - pToJSVal = unRTCIceCandidateInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCIceCandidateInit where - pFromJSVal = RTCIceCandidateInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCIceCandidateInit where - toJSVal = return . unRTCIceCandidateInit - {-# INLINE toJSVal #-} - -instance FromJSVal RTCIceCandidateInit where - fromJSVal v = fmap RTCIceCandidateInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCIceCandidateInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCIceCandidateInit where - makeObject = makeObject . unRTCIceCandidateInit - -instance IsGObject RTCIceCandidateInit where - typeGType _ = gTypeRTCIceCandidateInit - {-# INLINE typeGType #-} - -gTypeRTCIceCandidateInit :: JSM GType -gTypeRTCIceCandidateInit = GType . Object <$> jsg "RTCIceCandidateInit" - --- | Functions for this inteface are in "JSDOM.RTCIceServer". --- --- -newtype RTCIceServer = RTCIceServer { unRTCIceServer :: JSVal } - -instance PToJSVal RTCIceServer where - pToJSVal = unRTCIceServer - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCIceServer where - pFromJSVal = RTCIceServer - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCIceServer where - toJSVal = return . unRTCIceServer - {-# INLINE toJSVal #-} - -instance FromJSVal RTCIceServer where - fromJSVal v = fmap RTCIceServer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCIceServer - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCIceServer where - makeObject = makeObject . unRTCIceServer - -instance IsGObject RTCIceServer where - typeGType _ = gTypeRTCIceServer - {-# INLINE typeGType #-} - -gTypeRTCIceServer :: JSM GType -gTypeRTCIceServer = GType . Object <$> jsg "RTCIceServer" - --- | Functions for this inteface are in "JSDOM.RTCOfferAnswerOptions". --- --- -newtype RTCOfferAnswerOptions = RTCOfferAnswerOptions { unRTCOfferAnswerOptions :: JSVal } - -instance PToJSVal RTCOfferAnswerOptions where - pToJSVal = unRTCOfferAnswerOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCOfferAnswerOptions where - pFromJSVal = RTCOfferAnswerOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCOfferAnswerOptions where - toJSVal = return . unRTCOfferAnswerOptions - {-# INLINE toJSVal #-} - -instance FromJSVal RTCOfferAnswerOptions where - fromJSVal v = fmap RTCOfferAnswerOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCOfferAnswerOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCOfferAnswerOptions where - makeObject = makeObject . unRTCOfferAnswerOptions - -class (IsGObject o) => IsRTCOfferAnswerOptions o -toRTCOfferAnswerOptions :: IsRTCOfferAnswerOptions o => o -> RTCOfferAnswerOptions -toRTCOfferAnswerOptions = RTCOfferAnswerOptions . coerce - -instance IsRTCOfferAnswerOptions RTCOfferAnswerOptions -instance IsGObject RTCOfferAnswerOptions where - typeGType _ = gTypeRTCOfferAnswerOptions - {-# INLINE typeGType #-} - -gTypeRTCOfferAnswerOptions :: JSM GType -gTypeRTCOfferAnswerOptions = GType . Object <$> jsg "RTCOfferAnswerOptions" - --- | Functions for this inteface are in "JSDOM.RTCOfferOptions". --- Base interface functions are in: --- --- * "JSDOM.RTCOfferAnswerOptions" --- --- -newtype RTCOfferOptions = RTCOfferOptions { unRTCOfferOptions :: JSVal } - -instance PToJSVal RTCOfferOptions where - pToJSVal = unRTCOfferOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCOfferOptions where - pFromJSVal = RTCOfferOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCOfferOptions where - toJSVal = return . unRTCOfferOptions - {-# INLINE toJSVal #-} - -instance FromJSVal RTCOfferOptions where - fromJSVal v = fmap RTCOfferOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCOfferOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCOfferOptions where - makeObject = makeObject . unRTCOfferOptions - -instance IsRTCOfferAnswerOptions RTCOfferOptions -instance IsGObject RTCOfferOptions where - typeGType _ = gTypeRTCOfferOptions - {-# INLINE typeGType #-} - -gTypeRTCOfferOptions :: JSM GType -gTypeRTCOfferOptions = GType . Object <$> jsg "RTCOfferOptions" - --- | Functions for this inteface are in "JSDOM.RTCPeerConnection". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype RTCPeerConnection = RTCPeerConnection { unRTCPeerConnection :: JSVal } - -instance PToJSVal RTCPeerConnection where - pToJSVal = unRTCPeerConnection - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCPeerConnection where - pFromJSVal = RTCPeerConnection - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCPeerConnection where - toJSVal = return . unRTCPeerConnection - {-# INLINE toJSVal #-} - -instance FromJSVal RTCPeerConnection where - fromJSVal v = fmap RTCPeerConnection <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCPeerConnection - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCPeerConnection where - makeObject = makeObject . unRTCPeerConnection - -instance IsEventTarget RTCPeerConnection -instance IsGObject RTCPeerConnection where - typeGType _ = gTypeRTCPeerConnection - {-# INLINE typeGType #-} - -gTypeRTCPeerConnection :: JSM GType -gTypeRTCPeerConnection = GType . Object <$> jsg "webkitRTCPeerConnection" - --- | Functions for this inteface are in "JSDOM.RTCRtpReceiver". --- --- -newtype RTCRtpReceiver = RTCRtpReceiver { unRTCRtpReceiver :: JSVal } - -instance PToJSVal RTCRtpReceiver where - pToJSVal = unRTCRtpReceiver - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCRtpReceiver where - pFromJSVal = RTCRtpReceiver - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCRtpReceiver where - toJSVal = return . unRTCRtpReceiver - {-# INLINE toJSVal #-} - -instance FromJSVal RTCRtpReceiver where - fromJSVal v = fmap RTCRtpReceiver <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCRtpReceiver - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCRtpReceiver where - makeObject = makeObject . unRTCRtpReceiver - -instance IsGObject RTCRtpReceiver where - typeGType _ = gTypeRTCRtpReceiver - {-# INLINE typeGType #-} - -gTypeRTCRtpReceiver :: JSM GType -gTypeRTCRtpReceiver = GType . Object <$> jsg "RTCRtpReceiver" - --- | Functions for this inteface are in "JSDOM.RTCRtpSender". --- --- -newtype RTCRtpSender = RTCRtpSender { unRTCRtpSender :: JSVal } - -instance PToJSVal RTCRtpSender where - pToJSVal = unRTCRtpSender - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCRtpSender where - pFromJSVal = RTCRtpSender - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCRtpSender where - toJSVal = return . unRTCRtpSender - {-# INLINE toJSVal #-} - -instance FromJSVal RTCRtpSender where - fromJSVal v = fmap RTCRtpSender <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCRtpSender - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCRtpSender where - makeObject = makeObject . unRTCRtpSender - -instance IsGObject RTCRtpSender where - typeGType _ = gTypeRTCRtpSender - {-# INLINE typeGType #-} - -gTypeRTCRtpSender :: JSM GType -gTypeRTCRtpSender = GType . Object <$> jsg "RTCRtpSender" - --- | Functions for this inteface are in "JSDOM.RTCRtpTransceiver". --- --- -newtype RTCRtpTransceiver = RTCRtpTransceiver { unRTCRtpTransceiver :: JSVal } - -instance PToJSVal RTCRtpTransceiver where - pToJSVal = unRTCRtpTransceiver - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCRtpTransceiver where - pFromJSVal = RTCRtpTransceiver - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCRtpTransceiver where - toJSVal = return . unRTCRtpTransceiver - {-# INLINE toJSVal #-} - -instance FromJSVal RTCRtpTransceiver where - fromJSVal v = fmap RTCRtpTransceiver <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCRtpTransceiver - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCRtpTransceiver where - makeObject = makeObject . unRTCRtpTransceiver - -instance IsGObject RTCRtpTransceiver where - typeGType _ = gTypeRTCRtpTransceiver - {-# INLINE typeGType #-} - -gTypeRTCRtpTransceiver :: JSM GType -gTypeRTCRtpTransceiver = GType . Object <$> jsg "RTCRtpTransceiver" - --- | Functions for this inteface are in "JSDOM.RTCRtpTransceiverInit". --- --- -newtype RTCRtpTransceiverInit = RTCRtpTransceiverInit { unRTCRtpTransceiverInit :: JSVal } - -instance PToJSVal RTCRtpTransceiverInit where - pToJSVal = unRTCRtpTransceiverInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCRtpTransceiverInit where - pFromJSVal = RTCRtpTransceiverInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCRtpTransceiverInit where - toJSVal = return . unRTCRtpTransceiverInit - {-# INLINE toJSVal #-} - -instance FromJSVal RTCRtpTransceiverInit where - fromJSVal v = fmap RTCRtpTransceiverInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCRtpTransceiverInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCRtpTransceiverInit where - makeObject = makeObject . unRTCRtpTransceiverInit - -instance IsGObject RTCRtpTransceiverInit where - typeGType _ = gTypeRTCRtpTransceiverInit - {-# INLINE typeGType #-} - -gTypeRTCRtpTransceiverInit :: JSM GType -gTypeRTCRtpTransceiverInit = GType . Object <$> jsg "RTCRtpTransceiverInit" - --- | Functions for this inteface are in "JSDOM.RTCSessionDescription". --- --- -newtype RTCSessionDescription = RTCSessionDescription { unRTCSessionDescription :: JSVal } - -instance PToJSVal RTCSessionDescription where - pToJSVal = unRTCSessionDescription - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCSessionDescription where - pFromJSVal = RTCSessionDescription - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCSessionDescription where - toJSVal = return . unRTCSessionDescription - {-# INLINE toJSVal #-} - -instance FromJSVal RTCSessionDescription where - fromJSVal v = fmap RTCSessionDescription <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCSessionDescription - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCSessionDescription where - makeObject = makeObject . unRTCSessionDescription - -instance IsGObject RTCSessionDescription where - typeGType _ = gTypeRTCSessionDescription - {-# INLINE typeGType #-} - -gTypeRTCSessionDescription :: JSM GType -gTypeRTCSessionDescription = GType . Object <$> jsg "RTCSessionDescription" - --- | Functions for this inteface are in "JSDOM.RTCSessionDescriptionInit". --- --- -newtype RTCSessionDescriptionInit = RTCSessionDescriptionInit { unRTCSessionDescriptionInit :: JSVal } - -instance PToJSVal RTCSessionDescriptionInit where - pToJSVal = unRTCSessionDescriptionInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCSessionDescriptionInit where - pFromJSVal = RTCSessionDescriptionInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCSessionDescriptionInit where - toJSVal = return . unRTCSessionDescriptionInit - {-# INLINE toJSVal #-} - -instance FromJSVal RTCSessionDescriptionInit where - fromJSVal v = fmap RTCSessionDescriptionInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCSessionDescriptionInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCSessionDescriptionInit where - makeObject = makeObject . unRTCSessionDescriptionInit - -instance IsGObject RTCSessionDescriptionInit where - typeGType _ = gTypeRTCSessionDescriptionInit - {-# INLINE typeGType #-} - -gTypeRTCSessionDescriptionInit :: JSM GType -gTypeRTCSessionDescriptionInit = GType . Object <$> jsg "RTCSessionDescriptionInit" - --- | Functions for this inteface are in "JSDOM.RTCStatsReport". --- --- -newtype RTCStatsReport = RTCStatsReport { unRTCStatsReport :: JSVal } - -instance PToJSVal RTCStatsReport where - pToJSVal = unRTCStatsReport - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCStatsReport where - pFromJSVal = RTCStatsReport - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCStatsReport where - toJSVal = return . unRTCStatsReport - {-# INLINE toJSVal #-} - -instance FromJSVal RTCStatsReport where - fromJSVal v = fmap RTCStatsReport <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCStatsReport - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCStatsReport where - makeObject = makeObject . unRTCStatsReport - -instance IsGObject RTCStatsReport where - typeGType _ = gTypeRTCStatsReport - {-# INLINE typeGType #-} - -gTypeRTCStatsReport :: JSM GType -gTypeRTCStatsReport = GType . Object <$> jsg "RTCStatsReport" - --- | Functions for this inteface are in "JSDOM.RTCTrackEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype RTCTrackEvent = RTCTrackEvent { unRTCTrackEvent :: JSVal } - -instance PToJSVal RTCTrackEvent where - pToJSVal = unRTCTrackEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCTrackEvent where - pFromJSVal = RTCTrackEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCTrackEvent where - toJSVal = return . unRTCTrackEvent - {-# INLINE toJSVal #-} - -instance FromJSVal RTCTrackEvent where - fromJSVal v = fmap RTCTrackEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCTrackEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCTrackEvent where - makeObject = makeObject . unRTCTrackEvent - -instance IsEvent RTCTrackEvent -instance IsGObject RTCTrackEvent where - typeGType _ = gTypeRTCTrackEvent - {-# INLINE typeGType #-} - -gTypeRTCTrackEvent :: JSM GType -gTypeRTCTrackEvent = GType . Object <$> jsg "RTCTrackEvent" - --- | Functions for this inteface are in "JSDOM.RTCTrackEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype RTCTrackEventInit = RTCTrackEventInit { unRTCTrackEventInit :: JSVal } - -instance PToJSVal RTCTrackEventInit where - pToJSVal = unRTCTrackEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal RTCTrackEventInit where - pFromJSVal = RTCTrackEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal RTCTrackEventInit where - toJSVal = return . unRTCTrackEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal RTCTrackEventInit where - fromJSVal v = fmap RTCTrackEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RTCTrackEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RTCTrackEventInit where - makeObject = makeObject . unRTCTrackEventInit - -instance IsEventInit RTCTrackEventInit -instance IsGObject RTCTrackEventInit where - typeGType _ = gTypeRTCTrackEventInit - {-# INLINE typeGType #-} - -gTypeRTCTrackEventInit :: JSM GType -gTypeRTCTrackEventInit = GType . Object <$> jsg "RTCTrackEventInit" - --- | Functions for this inteface are in "JSDOM.RadioNodeList". --- Base interface functions are in: --- --- * "JSDOM.NodeList" --- --- -newtype RadioNodeList = RadioNodeList { unRadioNodeList :: JSVal } - -instance PToJSVal RadioNodeList where - pToJSVal = unRadioNodeList - {-# INLINE pToJSVal #-} - -instance PFromJSVal RadioNodeList where - pFromJSVal = RadioNodeList - {-# INLINE pFromJSVal #-} - -instance ToJSVal RadioNodeList where - toJSVal = return . unRadioNodeList - {-# INLINE toJSVal #-} - -instance FromJSVal RadioNodeList where - fromJSVal v = fmap RadioNodeList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RadioNodeList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RadioNodeList where - makeObject = makeObject . unRadioNodeList - -instance IsNodeList RadioNodeList -instance IsGObject RadioNodeList where - typeGType _ = gTypeRadioNodeList - {-# INLINE typeGType #-} - -gTypeRadioNodeList :: JSM GType -gTypeRadioNodeList = GType . Object <$> jsg "RadioNodeList" - --- | Functions for this inteface are in "JSDOM.Range". --- --- -newtype Range = Range { unRange :: JSVal } - -instance PToJSVal Range where - pToJSVal = unRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal Range where - pFromJSVal = Range - {-# INLINE pFromJSVal #-} - -instance ToJSVal Range where - toJSVal = return . unRange - {-# INLINE toJSVal #-} - -instance FromJSVal Range where - fromJSVal v = fmap Range <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Range - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Range where - makeObject = makeObject . unRange - -instance IsGObject Range where - typeGType _ = gTypeRange - {-# INLINE typeGType #-} - -gTypeRange :: JSM GType -gTypeRange = GType . Object <$> jsg "Range" - --- | Functions for this inteface are in "JSDOM.ReadableByteStreamController". --- --- -newtype ReadableByteStreamController = ReadableByteStreamController { unReadableByteStreamController :: JSVal } - -instance PToJSVal ReadableByteStreamController where - pToJSVal = unReadableByteStreamController - {-# INLINE pToJSVal #-} - -instance PFromJSVal ReadableByteStreamController where - pFromJSVal = ReadableByteStreamController - {-# INLINE pFromJSVal #-} - -instance ToJSVal ReadableByteStreamController where - toJSVal = return . unReadableByteStreamController - {-# INLINE toJSVal #-} - -instance FromJSVal ReadableByteStreamController where - fromJSVal v = fmap ReadableByteStreamController <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ReadableByteStreamController - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ReadableByteStreamController where - makeObject = makeObject . unReadableByteStreamController - -instance IsGObject ReadableByteStreamController where - typeGType _ = gTypeReadableByteStreamController - {-# INLINE typeGType #-} - -gTypeReadableByteStreamController :: JSM GType -gTypeReadableByteStreamController = GType . Object <$> jsg "ReadableByteStreamController" - --- | Functions for this inteface are in "JSDOM.ReadableStream". --- --- -newtype ReadableStream = ReadableStream { unReadableStream :: JSVal } - -instance PToJSVal ReadableStream where - pToJSVal = unReadableStream - {-# INLINE pToJSVal #-} - -instance PFromJSVal ReadableStream where - pFromJSVal = ReadableStream - {-# INLINE pFromJSVal #-} - -instance ToJSVal ReadableStream where - toJSVal = return . unReadableStream - {-# INLINE toJSVal #-} - -instance FromJSVal ReadableStream where - fromJSVal v = fmap ReadableStream <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ReadableStream - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ReadableStream where - makeObject = makeObject . unReadableStream - -instance IsGObject ReadableStream where - typeGType _ = gTypeReadableStream - {-# INLINE typeGType #-} - -gTypeReadableStream :: JSM GType -gTypeReadableStream = GType . Object <$> jsg "ReadableStream" - --- | Functions for this inteface are in "JSDOM.ReadableStreamDefaultController". --- --- -newtype ReadableStreamDefaultController = ReadableStreamDefaultController { unReadableStreamDefaultController :: JSVal } - -instance PToJSVal ReadableStreamDefaultController where - pToJSVal = unReadableStreamDefaultController - {-# INLINE pToJSVal #-} - -instance PFromJSVal ReadableStreamDefaultController where - pFromJSVal = ReadableStreamDefaultController - {-# INLINE pFromJSVal #-} - -instance ToJSVal ReadableStreamDefaultController where - toJSVal = return . unReadableStreamDefaultController - {-# INLINE toJSVal #-} - -instance FromJSVal ReadableStreamDefaultController where - fromJSVal v = fmap ReadableStreamDefaultController <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ReadableStreamDefaultController - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ReadableStreamDefaultController where - makeObject = makeObject . unReadableStreamDefaultController - -instance IsGObject ReadableStreamDefaultController where - typeGType _ = gTypeReadableStreamDefaultController - {-# INLINE typeGType #-} - -gTypeReadableStreamDefaultController :: JSM GType -gTypeReadableStreamDefaultController = GType . Object <$> jsg "ReadableStreamDefaultController" - --- | Functions for this inteface are in "JSDOM.ReadableStreamDefaultReader". --- --- -newtype ReadableStreamDefaultReader = ReadableStreamDefaultReader { unReadableStreamDefaultReader :: JSVal } - -instance PToJSVal ReadableStreamDefaultReader where - pToJSVal = unReadableStreamDefaultReader - {-# INLINE pToJSVal #-} - -instance PFromJSVal ReadableStreamDefaultReader where - pFromJSVal = ReadableStreamDefaultReader - {-# INLINE pFromJSVal #-} - -instance ToJSVal ReadableStreamDefaultReader where - toJSVal = return . unReadableStreamDefaultReader - {-# INLINE toJSVal #-} - -instance FromJSVal ReadableStreamDefaultReader where - fromJSVal v = fmap ReadableStreamDefaultReader <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ReadableStreamDefaultReader - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ReadableStreamDefaultReader where - makeObject = makeObject . unReadableStreamDefaultReader - -instance IsGObject ReadableStreamDefaultReader where - typeGType _ = gTypeReadableStreamDefaultReader - {-# INLINE typeGType #-} - -gTypeReadableStreamDefaultReader :: JSM GType -gTypeReadableStreamDefaultReader = GType . Object <$> jsg "ReadableStreamDefaultReader" - --- | Functions for this inteface are in "JSDOM.ReadableStreamSource". --- --- -newtype ReadableStreamSource = ReadableStreamSource { unReadableStreamSource :: JSVal } - -instance PToJSVal ReadableStreamSource where - pToJSVal = unReadableStreamSource - {-# INLINE pToJSVal #-} - -instance PFromJSVal ReadableStreamSource where - pFromJSVal = ReadableStreamSource - {-# INLINE pFromJSVal #-} - -instance ToJSVal ReadableStreamSource where - toJSVal = return . unReadableStreamSource - {-# INLINE toJSVal #-} - -instance FromJSVal ReadableStreamSource where - fromJSVal v = fmap ReadableStreamSource <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ReadableStreamSource - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ReadableStreamSource where - makeObject = makeObject . unReadableStreamSource - -instance IsGObject ReadableStreamSource where - typeGType _ = gTypeReadableStreamSource - {-# INLINE typeGType #-} - -gTypeReadableStreamSource :: JSM GType -gTypeReadableStreamSource = GType . Object <$> jsg "ReadableStreamSource" - --- | Functions for this inteface are in "JSDOM.Rect". --- --- -newtype Rect = Rect { unRect :: JSVal } - -instance PToJSVal Rect where - pToJSVal = unRect - {-# INLINE pToJSVal #-} - -instance PFromJSVal Rect where - pFromJSVal = Rect - {-# INLINE pFromJSVal #-} - -instance ToJSVal Rect where - toJSVal = return . unRect - {-# INLINE toJSVal #-} - -instance FromJSVal Rect where - fromJSVal v = fmap Rect <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Rect - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Rect where - makeObject = makeObject . unRect - -instance IsGObject Rect where - typeGType _ = gTypeRect - {-# INLINE typeGType #-} - -gTypeRect :: JSM GType -gTypeRect = GType . Object <$> jsg "Rect" - --- | Functions for this inteface are in "JSDOM.Request". --- Base interface functions are in: --- --- * "JSDOM.Body" --- --- -newtype Request = Request { unRequest :: JSVal } - -instance PToJSVal Request where - pToJSVal = unRequest - {-# INLINE pToJSVal #-} - -instance PFromJSVal Request where - pFromJSVal = Request - {-# INLINE pFromJSVal #-} - -instance ToJSVal Request where - toJSVal = return . unRequest - {-# INLINE toJSVal #-} - -instance FromJSVal Request where - fromJSVal v = fmap Request <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Request - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Request where - makeObject = makeObject . unRequest - -instance IsBody Request -instance IsGObject Request where - typeGType _ = gTypeRequest - {-# INLINE typeGType #-} - -gTypeRequest :: JSM GType -gTypeRequest = GType . Object <$> jsg "Request" - --- | Functions for this inteface are in "JSDOM.RequestInit". --- --- -newtype RequestInit = RequestInit { unRequestInit :: JSVal } - -instance PToJSVal RequestInit where - pToJSVal = unRequestInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal RequestInit where - pFromJSVal = RequestInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal RequestInit where - toJSVal = return . unRequestInit - {-# INLINE toJSVal #-} - -instance FromJSVal RequestInit where - fromJSVal v = fmap RequestInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RequestInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RequestInit where - makeObject = makeObject . unRequestInit - -instance IsGObject RequestInit where - typeGType _ = gTypeRequestInit - {-# INLINE typeGType #-} - -gTypeRequestInit :: JSM GType -gTypeRequestInit = GType . Object <$> jsg "RequestInit" - --- | Functions for this inteface are in "JSDOM.Response". --- --- -newtype Response = Response { unResponse :: JSVal } - -instance PToJSVal Response where - pToJSVal = unResponse - {-# INLINE pToJSVal #-} - -instance PFromJSVal Response where - pFromJSVal = Response - {-# INLINE pFromJSVal #-} - -instance ToJSVal Response where - toJSVal = return . unResponse - {-# INLINE toJSVal #-} - -instance FromJSVal Response where - fromJSVal v = fmap Response <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Response - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Response where - makeObject = makeObject . unResponse - -instance IsGObject Response where - typeGType _ = gTypeResponse - {-# INLINE typeGType #-} - -gTypeResponse :: JSM GType -gTypeResponse = GType . Object <$> jsg "Response" - --- | Functions for this inteface are in "JSDOM.RotationRate". --- --- -newtype RotationRate = RotationRate { unRotationRate :: JSVal } - -instance PToJSVal RotationRate where - pToJSVal = unRotationRate - {-# INLINE pToJSVal #-} - -instance PFromJSVal RotationRate where - pFromJSVal = RotationRate - {-# INLINE pFromJSVal #-} - -instance ToJSVal RotationRate where - toJSVal = return . unRotationRate - {-# INLINE toJSVal #-} - -instance FromJSVal RotationRate where - fromJSVal v = fmap RotationRate <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RotationRate - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RotationRate where - makeObject = makeObject . unRotationRate - -instance IsGObject RotationRate where - typeGType _ = gTypeRotationRate - {-# INLINE typeGType #-} - -gTypeRotationRate :: JSM GType -gTypeRotationRate = GType . Object <$> jsg "RotationRate" - --- | Functions for this inteface are in "JSDOM.RsaHashedImportParams". --- Base interface functions are in: --- --- * "JSDOM.CryptoAlgorithmParameters" --- --- -newtype RsaHashedImportParams = RsaHashedImportParams { unRsaHashedImportParams :: JSVal } - -instance PToJSVal RsaHashedImportParams where - pToJSVal = unRsaHashedImportParams - {-# INLINE pToJSVal #-} - -instance PFromJSVal RsaHashedImportParams where - pFromJSVal = RsaHashedImportParams - {-# INLINE pFromJSVal #-} - -instance ToJSVal RsaHashedImportParams where - toJSVal = return . unRsaHashedImportParams - {-# INLINE toJSVal #-} - -instance FromJSVal RsaHashedImportParams where - fromJSVal v = fmap RsaHashedImportParams <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RsaHashedImportParams - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RsaHashedImportParams where - makeObject = makeObject . unRsaHashedImportParams - -instance IsCryptoAlgorithmParameters RsaHashedImportParams -instance IsGObject RsaHashedImportParams where - typeGType _ = gTypeRsaHashedImportParams - {-# INLINE typeGType #-} - -gTypeRsaHashedImportParams :: JSM GType -gTypeRsaHashedImportParams = GType . Object <$> jsg "RsaHashedImportParams" - --- | Functions for this inteface are in "JSDOM.RsaHashedKeyGenParams". --- Base interface functions are in: --- --- * "JSDOM.RsaKeyGenParams" --- * "JSDOM.CryptoAlgorithmParameters" --- --- -newtype RsaHashedKeyGenParams = RsaHashedKeyGenParams { unRsaHashedKeyGenParams :: JSVal } - -instance PToJSVal RsaHashedKeyGenParams where - pToJSVal = unRsaHashedKeyGenParams - {-# INLINE pToJSVal #-} - -instance PFromJSVal RsaHashedKeyGenParams where - pFromJSVal = RsaHashedKeyGenParams - {-# INLINE pFromJSVal #-} - -instance ToJSVal RsaHashedKeyGenParams where - toJSVal = return . unRsaHashedKeyGenParams - {-# INLINE toJSVal #-} - -instance FromJSVal RsaHashedKeyGenParams where - fromJSVal v = fmap RsaHashedKeyGenParams <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RsaHashedKeyGenParams - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RsaHashedKeyGenParams where - makeObject = makeObject . unRsaHashedKeyGenParams - -instance IsRsaKeyGenParams RsaHashedKeyGenParams -instance IsCryptoAlgorithmParameters RsaHashedKeyGenParams -instance IsGObject RsaHashedKeyGenParams where - typeGType _ = gTypeRsaHashedKeyGenParams - {-# INLINE typeGType #-} - -gTypeRsaHashedKeyGenParams :: JSM GType -gTypeRsaHashedKeyGenParams = GType . Object <$> jsg "RsaHashedKeyGenParams" - --- | Functions for this inteface are in "JSDOM.RsaKeyGenParams". --- Base interface functions are in: --- --- * "JSDOM.CryptoAlgorithmParameters" --- --- -newtype RsaKeyGenParams = RsaKeyGenParams { unRsaKeyGenParams :: JSVal } - -instance PToJSVal RsaKeyGenParams where - pToJSVal = unRsaKeyGenParams - {-# INLINE pToJSVal #-} - -instance PFromJSVal RsaKeyGenParams where - pFromJSVal = RsaKeyGenParams - {-# INLINE pFromJSVal #-} - -instance ToJSVal RsaKeyGenParams where - toJSVal = return . unRsaKeyGenParams - {-# INLINE toJSVal #-} - -instance FromJSVal RsaKeyGenParams where - fromJSVal v = fmap RsaKeyGenParams <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RsaKeyGenParams - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RsaKeyGenParams where - makeObject = makeObject . unRsaKeyGenParams - -class (IsCryptoAlgorithmParameters o, IsGObject o) => IsRsaKeyGenParams o -toRsaKeyGenParams :: IsRsaKeyGenParams o => o -> RsaKeyGenParams -toRsaKeyGenParams = RsaKeyGenParams . coerce - -instance IsRsaKeyGenParams RsaKeyGenParams -instance IsCryptoAlgorithmParameters RsaKeyGenParams -instance IsGObject RsaKeyGenParams where - typeGType _ = gTypeRsaKeyGenParams - {-# INLINE typeGType #-} - -gTypeRsaKeyGenParams :: JSM GType -gTypeRsaKeyGenParams = GType . Object <$> jsg "RsaKeyGenParams" - --- | Functions for this inteface are in "JSDOM.RsaOaepParams". --- Base interface functions are in: --- --- * "JSDOM.CryptoAlgorithmParameters" --- --- -newtype RsaOaepParams = RsaOaepParams { unRsaOaepParams :: JSVal } - -instance PToJSVal RsaOaepParams where - pToJSVal = unRsaOaepParams - {-# INLINE pToJSVal #-} - -instance PFromJSVal RsaOaepParams where - pFromJSVal = RsaOaepParams - {-# INLINE pFromJSVal #-} - -instance ToJSVal RsaOaepParams where - toJSVal = return . unRsaOaepParams - {-# INLINE toJSVal #-} - -instance FromJSVal RsaOaepParams where - fromJSVal v = fmap RsaOaepParams <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RsaOaepParams - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RsaOaepParams where - makeObject = makeObject . unRsaOaepParams - -instance IsCryptoAlgorithmParameters RsaOaepParams -instance IsGObject RsaOaepParams where - typeGType _ = gTypeRsaOaepParams - {-# INLINE typeGType #-} - -gTypeRsaOaepParams :: JSM GType -gTypeRsaOaepParams = GType . Object <$> jsg "RsaOaepParams" - --- | Functions for this inteface are in "JSDOM.RsaOtherPrimesInfo". --- --- -newtype RsaOtherPrimesInfo = RsaOtherPrimesInfo { unRsaOtherPrimesInfo :: JSVal } - -instance PToJSVal RsaOtherPrimesInfo where - pToJSVal = unRsaOtherPrimesInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal RsaOtherPrimesInfo where - pFromJSVal = RsaOtherPrimesInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal RsaOtherPrimesInfo where - toJSVal = return . unRsaOtherPrimesInfo - {-# INLINE toJSVal #-} - -instance FromJSVal RsaOtherPrimesInfo where - fromJSVal v = fmap RsaOtherPrimesInfo <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . RsaOtherPrimesInfo - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject RsaOtherPrimesInfo where - makeObject = makeObject . unRsaOtherPrimesInfo - -instance IsGObject RsaOtherPrimesInfo where - typeGType _ = gTypeRsaOtherPrimesInfo - {-# INLINE typeGType #-} - -gTypeRsaOtherPrimesInfo :: JSM GType -gTypeRsaOtherPrimesInfo = GType . Object <$> jsg "RsaOtherPrimesInfo" - --- | Functions for this inteface are in "JSDOM.SQLError". --- --- -newtype SQLError = SQLError { unSQLError :: JSVal } - -instance PToJSVal SQLError where - pToJSVal = unSQLError - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLError where - pFromJSVal = SQLError - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLError where - toJSVal = return . unSQLError - {-# INLINE toJSVal #-} - -instance FromJSVal SQLError where - fromJSVal v = fmap SQLError <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SQLError - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SQLError where - makeObject = makeObject . unSQLError - -instance IsGObject SQLError where - typeGType _ = gTypeSQLError - {-# INLINE typeGType #-} - -gTypeSQLError :: JSM GType -gTypeSQLError = GType . Object <$> jsg "SQLError" - --- | Functions for this inteface are in "JSDOM.SQLException". --- --- -newtype SQLException = SQLException { unSQLException :: JSVal } - -instance PToJSVal SQLException where - pToJSVal = unSQLException - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLException where - pFromJSVal = SQLException - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLException where - toJSVal = return . unSQLException - {-# INLINE toJSVal #-} - -instance FromJSVal SQLException where - fromJSVal v = fmap SQLException <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SQLException - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SQLException where - makeObject = makeObject . unSQLException - -instance IsGObject SQLException where - typeGType _ = gTypeSQLException - {-# INLINE typeGType #-} - -gTypeSQLException :: JSM GType -gTypeSQLException = GType . Object <$> jsg "SQLException" - --- | Functions for this inteface are in "JSDOM.SQLResultSet". --- --- -newtype SQLResultSet = SQLResultSet { unSQLResultSet :: JSVal } - -instance PToJSVal SQLResultSet where - pToJSVal = unSQLResultSet - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLResultSet where - pFromJSVal = SQLResultSet - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLResultSet where - toJSVal = return . unSQLResultSet - {-# INLINE toJSVal #-} - -instance FromJSVal SQLResultSet where - fromJSVal v = fmap SQLResultSet <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SQLResultSet - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SQLResultSet where - makeObject = makeObject . unSQLResultSet - -instance IsGObject SQLResultSet where - typeGType _ = gTypeSQLResultSet - {-# INLINE typeGType #-} - -gTypeSQLResultSet :: JSM GType -gTypeSQLResultSet = GType . Object <$> jsg "SQLResultSet" - --- | Functions for this inteface are in "JSDOM.SQLResultSetRowList". --- --- -newtype SQLResultSetRowList = SQLResultSetRowList { unSQLResultSetRowList :: JSVal } - -instance PToJSVal SQLResultSetRowList where - pToJSVal = unSQLResultSetRowList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLResultSetRowList where - pFromJSVal = SQLResultSetRowList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLResultSetRowList where - toJSVal = return . unSQLResultSetRowList - {-# INLINE toJSVal #-} - -instance FromJSVal SQLResultSetRowList where - fromJSVal v = fmap SQLResultSetRowList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SQLResultSetRowList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SQLResultSetRowList where - makeObject = makeObject . unSQLResultSetRowList - -instance IsGObject SQLResultSetRowList where - typeGType _ = gTypeSQLResultSetRowList - {-# INLINE typeGType #-} - -gTypeSQLResultSetRowList :: JSM GType -gTypeSQLResultSetRowList = GType . Object <$> jsg "SQLResultSetRowList" - --- | Functions for this inteface are in "JSDOM.SQLTransaction". --- --- -newtype SQLTransaction = SQLTransaction { unSQLTransaction :: JSVal } - -instance PToJSVal SQLTransaction where - pToJSVal = unSQLTransaction - {-# INLINE pToJSVal #-} - -instance PFromJSVal SQLTransaction where - pFromJSVal = SQLTransaction - {-# INLINE pFromJSVal #-} - -instance ToJSVal SQLTransaction where - toJSVal = return . unSQLTransaction - {-# INLINE toJSVal #-} - -instance FromJSVal SQLTransaction where - fromJSVal v = fmap SQLTransaction <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SQLTransaction - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SQLTransaction where - makeObject = makeObject . unSQLTransaction - -instance IsGObject SQLTransaction where - typeGType _ = gTypeSQLTransaction - {-# INLINE typeGType #-} - -gTypeSQLTransaction :: JSM GType -gTypeSQLTransaction = GType . Object <$> jsg "SQLTransaction" - --- | Functions for this inteface are in "JSDOM.SVGAElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGAElement = SVGAElement { unSVGAElement :: JSVal } - -instance PToJSVal SVGAElement where - pToJSVal = unSVGAElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAElement where - pFromJSVal = SVGAElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAElement where - toJSVal = return . unSVGAElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAElement where - fromJSVal v = fmap SVGAElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAElement where - makeObject = makeObject . unSVGAElement - -instance IsSVGGraphicsElement SVGAElement -instance IsSVGElement SVGAElement -instance IsElement SVGAElement -instance IsNode SVGAElement -instance IsEventTarget SVGAElement -instance IsSlotable SVGAElement -instance IsParentNode SVGAElement -instance IsNonDocumentTypeChildNode SVGAElement -instance IsChildNode SVGAElement -instance IsAnimatable SVGAElement -instance IsGlobalEventHandlers SVGAElement -instance IsSVGTests SVGAElement -instance IsSVGURIReference SVGAElement -instance IsSVGExternalResourcesRequired SVGAElement -instance IsGObject SVGAElement where - typeGType _ = gTypeSVGAElement - {-# INLINE typeGType #-} - -gTypeSVGAElement :: JSM GType -gTypeSVGAElement = GType . Object <$> jsg "SVGAElement" - --- | Functions for this inteface are in "JSDOM.SVGAltGlyphDefElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGAltGlyphDefElement = SVGAltGlyphDefElement { unSVGAltGlyphDefElement :: JSVal } - -instance PToJSVal SVGAltGlyphDefElement where - pToJSVal = unSVGAltGlyphDefElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAltGlyphDefElement where - pFromJSVal = SVGAltGlyphDefElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAltGlyphDefElement where - toJSVal = return . unSVGAltGlyphDefElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAltGlyphDefElement where - fromJSVal v = fmap SVGAltGlyphDefElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAltGlyphDefElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAltGlyphDefElement where - makeObject = makeObject . unSVGAltGlyphDefElement - -instance IsSVGElement SVGAltGlyphDefElement -instance IsElement SVGAltGlyphDefElement -instance IsNode SVGAltGlyphDefElement -instance IsEventTarget SVGAltGlyphDefElement -instance IsSlotable SVGAltGlyphDefElement -instance IsParentNode SVGAltGlyphDefElement -instance IsNonDocumentTypeChildNode SVGAltGlyphDefElement -instance IsChildNode SVGAltGlyphDefElement -instance IsAnimatable SVGAltGlyphDefElement -instance IsGlobalEventHandlers SVGAltGlyphDefElement -instance IsGObject SVGAltGlyphDefElement where - typeGType _ = gTypeSVGAltGlyphDefElement - {-# INLINE typeGType #-} - -gTypeSVGAltGlyphDefElement :: JSM GType -gTypeSVGAltGlyphDefElement = GType . Object <$> jsg "SVGAltGlyphDefElement" - --- | Functions for this inteface are in "JSDOM.SVGAltGlyphElement". --- Base interface functions are in: --- --- * "JSDOM.SVGTextPositioningElement" --- * "JSDOM.SVGTextContentElement" --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- * "JSDOM.SVGURIReference" --- --- -newtype SVGAltGlyphElement = SVGAltGlyphElement { unSVGAltGlyphElement :: JSVal } - -instance PToJSVal SVGAltGlyphElement where - pToJSVal = unSVGAltGlyphElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAltGlyphElement where - pFromJSVal = SVGAltGlyphElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAltGlyphElement where - toJSVal = return . unSVGAltGlyphElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAltGlyphElement where - fromJSVal v = fmap SVGAltGlyphElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAltGlyphElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAltGlyphElement where - makeObject = makeObject . unSVGAltGlyphElement - -instance IsSVGTextPositioningElement SVGAltGlyphElement -instance IsSVGTextContentElement SVGAltGlyphElement -instance IsSVGGraphicsElement SVGAltGlyphElement -instance IsSVGElement SVGAltGlyphElement -instance IsElement SVGAltGlyphElement -instance IsNode SVGAltGlyphElement -instance IsEventTarget SVGAltGlyphElement -instance IsSlotable SVGAltGlyphElement -instance IsParentNode SVGAltGlyphElement -instance IsNonDocumentTypeChildNode SVGAltGlyphElement -instance IsChildNode SVGAltGlyphElement -instance IsAnimatable SVGAltGlyphElement -instance IsGlobalEventHandlers SVGAltGlyphElement -instance IsSVGTests SVGAltGlyphElement -instance IsSVGExternalResourcesRequired SVGAltGlyphElement -instance IsSVGURIReference SVGAltGlyphElement -instance IsGObject SVGAltGlyphElement where - typeGType _ = gTypeSVGAltGlyphElement - {-# INLINE typeGType #-} - -gTypeSVGAltGlyphElement :: JSM GType -gTypeSVGAltGlyphElement = GType . Object <$> jsg "SVGAltGlyphElement" - --- | Functions for this inteface are in "JSDOM.SVGAltGlyphItemElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGAltGlyphItemElement = SVGAltGlyphItemElement { unSVGAltGlyphItemElement :: JSVal } - -instance PToJSVal SVGAltGlyphItemElement where - pToJSVal = unSVGAltGlyphItemElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAltGlyphItemElement where - pFromJSVal = SVGAltGlyphItemElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAltGlyphItemElement where - toJSVal = return . unSVGAltGlyphItemElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAltGlyphItemElement where - fromJSVal v = fmap SVGAltGlyphItemElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAltGlyphItemElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAltGlyphItemElement where - makeObject = makeObject . unSVGAltGlyphItemElement - -instance IsSVGElement SVGAltGlyphItemElement -instance IsElement SVGAltGlyphItemElement -instance IsNode SVGAltGlyphItemElement -instance IsEventTarget SVGAltGlyphItemElement -instance IsSlotable SVGAltGlyphItemElement -instance IsParentNode SVGAltGlyphItemElement -instance IsNonDocumentTypeChildNode SVGAltGlyphItemElement -instance IsChildNode SVGAltGlyphItemElement -instance IsAnimatable SVGAltGlyphItemElement -instance IsGlobalEventHandlers SVGAltGlyphItemElement -instance IsGObject SVGAltGlyphItemElement where - typeGType _ = gTypeSVGAltGlyphItemElement - {-# INLINE typeGType #-} - -gTypeSVGAltGlyphItemElement :: JSM GType -gTypeSVGAltGlyphItemElement = GType . Object <$> jsg "SVGAltGlyphItemElement" - --- | Functions for this inteface are in "JSDOM.SVGAngle". --- --- -newtype SVGAngle = SVGAngle { unSVGAngle :: JSVal } - -instance PToJSVal SVGAngle where - pToJSVal = unSVGAngle - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAngle where - pFromJSVal = SVGAngle - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAngle where - toJSVal = return . unSVGAngle - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAngle where - fromJSVal v = fmap SVGAngle <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAngle - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAngle where - makeObject = makeObject . unSVGAngle - -instance IsGObject SVGAngle where - typeGType _ = gTypeSVGAngle - {-# INLINE typeGType #-} - -gTypeSVGAngle :: JSM GType -gTypeSVGAngle = GType . Object <$> jsg "SVGAngle" - --- | Functions for this inteface are in "JSDOM.SVGAnimateColorElement". --- Base interface functions are in: --- --- * "JSDOM.SVGAnimationElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGAnimateColorElement = SVGAnimateColorElement { unSVGAnimateColorElement :: JSVal } - -instance PToJSVal SVGAnimateColorElement where - pToJSVal = unSVGAnimateColorElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimateColorElement where - pFromJSVal = SVGAnimateColorElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimateColorElement where - toJSVal = return . unSVGAnimateColorElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimateColorElement where - fromJSVal v = fmap SVGAnimateColorElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimateColorElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimateColorElement where - makeObject = makeObject . unSVGAnimateColorElement - -instance IsSVGAnimationElement SVGAnimateColorElement -instance IsSVGElement SVGAnimateColorElement -instance IsElement SVGAnimateColorElement -instance IsNode SVGAnimateColorElement -instance IsEventTarget SVGAnimateColorElement -instance IsSlotable SVGAnimateColorElement -instance IsParentNode SVGAnimateColorElement -instance IsNonDocumentTypeChildNode SVGAnimateColorElement -instance IsChildNode SVGAnimateColorElement -instance IsAnimatable SVGAnimateColorElement -instance IsGlobalEventHandlers SVGAnimateColorElement -instance IsSVGTests SVGAnimateColorElement -instance IsSVGExternalResourcesRequired SVGAnimateColorElement -instance IsGObject SVGAnimateColorElement where - typeGType _ = gTypeSVGAnimateColorElement - {-# INLINE typeGType #-} - -gTypeSVGAnimateColorElement :: JSM GType -gTypeSVGAnimateColorElement = GType . Object <$> jsg "SVGAnimateColorElement" - --- | Functions for this inteface are in "JSDOM.SVGAnimateElement". --- Base interface functions are in: --- --- * "JSDOM.SVGAnimationElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGAnimateElement = SVGAnimateElement { unSVGAnimateElement :: JSVal } - -instance PToJSVal SVGAnimateElement where - pToJSVal = unSVGAnimateElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimateElement where - pFromJSVal = SVGAnimateElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimateElement where - toJSVal = return . unSVGAnimateElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimateElement where - fromJSVal v = fmap SVGAnimateElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimateElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimateElement where - makeObject = makeObject . unSVGAnimateElement - -instance IsSVGAnimationElement SVGAnimateElement -instance IsSVGElement SVGAnimateElement -instance IsElement SVGAnimateElement -instance IsNode SVGAnimateElement -instance IsEventTarget SVGAnimateElement -instance IsSlotable SVGAnimateElement -instance IsParentNode SVGAnimateElement -instance IsNonDocumentTypeChildNode SVGAnimateElement -instance IsChildNode SVGAnimateElement -instance IsAnimatable SVGAnimateElement -instance IsGlobalEventHandlers SVGAnimateElement -instance IsSVGTests SVGAnimateElement -instance IsSVGExternalResourcesRequired SVGAnimateElement -instance IsGObject SVGAnimateElement where - typeGType _ = gTypeSVGAnimateElement - {-# INLINE typeGType #-} - -gTypeSVGAnimateElement :: JSM GType -gTypeSVGAnimateElement = GType . Object <$> jsg "SVGAnimateElement" - --- | Functions for this inteface are in "JSDOM.SVGAnimateMotionElement". --- Base interface functions are in: --- --- * "JSDOM.SVGAnimationElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGAnimateMotionElement = SVGAnimateMotionElement { unSVGAnimateMotionElement :: JSVal } - -instance PToJSVal SVGAnimateMotionElement where - pToJSVal = unSVGAnimateMotionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimateMotionElement where - pFromJSVal = SVGAnimateMotionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimateMotionElement where - toJSVal = return . unSVGAnimateMotionElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimateMotionElement where - fromJSVal v = fmap SVGAnimateMotionElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimateMotionElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimateMotionElement where - makeObject = makeObject . unSVGAnimateMotionElement - -instance IsSVGAnimationElement SVGAnimateMotionElement -instance IsSVGElement SVGAnimateMotionElement -instance IsElement SVGAnimateMotionElement -instance IsNode SVGAnimateMotionElement -instance IsEventTarget SVGAnimateMotionElement -instance IsSlotable SVGAnimateMotionElement -instance IsParentNode SVGAnimateMotionElement -instance IsNonDocumentTypeChildNode SVGAnimateMotionElement -instance IsChildNode SVGAnimateMotionElement -instance IsAnimatable SVGAnimateMotionElement -instance IsGlobalEventHandlers SVGAnimateMotionElement -instance IsSVGTests SVGAnimateMotionElement -instance IsSVGExternalResourcesRequired SVGAnimateMotionElement -instance IsGObject SVGAnimateMotionElement where - typeGType _ = gTypeSVGAnimateMotionElement - {-# INLINE typeGType #-} - -gTypeSVGAnimateMotionElement :: JSM GType -gTypeSVGAnimateMotionElement = GType . Object <$> jsg "SVGAnimateMotionElement" - --- | Functions for this inteface are in "JSDOM.SVGAnimateTransformElement". --- Base interface functions are in: --- --- * "JSDOM.SVGAnimationElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGAnimateTransformElement = SVGAnimateTransformElement { unSVGAnimateTransformElement :: JSVal } - -instance PToJSVal SVGAnimateTransformElement where - pToJSVal = unSVGAnimateTransformElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimateTransformElement where - pFromJSVal = SVGAnimateTransformElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimateTransformElement where - toJSVal = return . unSVGAnimateTransformElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimateTransformElement where - fromJSVal v = fmap SVGAnimateTransformElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimateTransformElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimateTransformElement where - makeObject = makeObject . unSVGAnimateTransformElement - -instance IsSVGAnimationElement SVGAnimateTransformElement -instance IsSVGElement SVGAnimateTransformElement -instance IsElement SVGAnimateTransformElement -instance IsNode SVGAnimateTransformElement -instance IsEventTarget SVGAnimateTransformElement -instance IsSlotable SVGAnimateTransformElement -instance IsParentNode SVGAnimateTransformElement -instance IsNonDocumentTypeChildNode SVGAnimateTransformElement -instance IsChildNode SVGAnimateTransformElement -instance IsAnimatable SVGAnimateTransformElement -instance IsGlobalEventHandlers SVGAnimateTransformElement -instance IsSVGTests SVGAnimateTransformElement -instance IsSVGExternalResourcesRequired SVGAnimateTransformElement -instance IsGObject SVGAnimateTransformElement where - typeGType _ = gTypeSVGAnimateTransformElement - {-# INLINE typeGType #-} - -gTypeSVGAnimateTransformElement :: JSM GType -gTypeSVGAnimateTransformElement = GType . Object <$> jsg "SVGAnimateTransformElement" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedAngle". --- --- -newtype SVGAnimatedAngle = SVGAnimatedAngle { unSVGAnimatedAngle :: JSVal } - -instance PToJSVal SVGAnimatedAngle where - pToJSVal = unSVGAnimatedAngle - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedAngle where - pFromJSVal = SVGAnimatedAngle - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedAngle where - toJSVal = return . unSVGAnimatedAngle - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedAngle where - fromJSVal v = fmap SVGAnimatedAngle <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedAngle - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedAngle where - makeObject = makeObject . unSVGAnimatedAngle - -instance IsGObject SVGAnimatedAngle where - typeGType _ = gTypeSVGAnimatedAngle - {-# INLINE typeGType #-} - -gTypeSVGAnimatedAngle :: JSM GType -gTypeSVGAnimatedAngle = GType . Object <$> jsg "SVGAnimatedAngle" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedBoolean". --- --- -newtype SVGAnimatedBoolean = SVGAnimatedBoolean { unSVGAnimatedBoolean :: JSVal } - -instance PToJSVal SVGAnimatedBoolean where - pToJSVal = unSVGAnimatedBoolean - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedBoolean where - pFromJSVal = SVGAnimatedBoolean - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedBoolean where - toJSVal = return . unSVGAnimatedBoolean - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedBoolean where - fromJSVal v = fmap SVGAnimatedBoolean <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedBoolean - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedBoolean where - makeObject = makeObject . unSVGAnimatedBoolean - -instance IsGObject SVGAnimatedBoolean where - typeGType _ = gTypeSVGAnimatedBoolean - {-# INLINE typeGType #-} - -gTypeSVGAnimatedBoolean :: JSM GType -gTypeSVGAnimatedBoolean = GType . Object <$> jsg "SVGAnimatedBoolean" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedEnumeration". --- --- -newtype SVGAnimatedEnumeration = SVGAnimatedEnumeration { unSVGAnimatedEnumeration :: JSVal } - -instance PToJSVal SVGAnimatedEnumeration where - pToJSVal = unSVGAnimatedEnumeration - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedEnumeration where - pFromJSVal = SVGAnimatedEnumeration - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedEnumeration where - toJSVal = return . unSVGAnimatedEnumeration - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedEnumeration where - fromJSVal v = fmap SVGAnimatedEnumeration <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedEnumeration - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedEnumeration where - makeObject = makeObject . unSVGAnimatedEnumeration - -instance IsGObject SVGAnimatedEnumeration where - typeGType _ = gTypeSVGAnimatedEnumeration - {-# INLINE typeGType #-} - -gTypeSVGAnimatedEnumeration :: JSM GType -gTypeSVGAnimatedEnumeration = GType . Object <$> jsg "SVGAnimatedEnumeration" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedInteger". --- --- -newtype SVGAnimatedInteger = SVGAnimatedInteger { unSVGAnimatedInteger :: JSVal } - -instance PToJSVal SVGAnimatedInteger where - pToJSVal = unSVGAnimatedInteger - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedInteger where - pFromJSVal = SVGAnimatedInteger - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedInteger where - toJSVal = return . unSVGAnimatedInteger - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedInteger where - fromJSVal v = fmap SVGAnimatedInteger <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedInteger - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedInteger where - makeObject = makeObject . unSVGAnimatedInteger - -instance IsGObject SVGAnimatedInteger where - typeGType _ = gTypeSVGAnimatedInteger - {-# INLINE typeGType #-} - -gTypeSVGAnimatedInteger :: JSM GType -gTypeSVGAnimatedInteger = GType . Object <$> jsg "SVGAnimatedInteger" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedLength". --- --- -newtype SVGAnimatedLength = SVGAnimatedLength { unSVGAnimatedLength :: JSVal } - -instance PToJSVal SVGAnimatedLength where - pToJSVal = unSVGAnimatedLength - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedLength where - pFromJSVal = SVGAnimatedLength - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedLength where - toJSVal = return . unSVGAnimatedLength - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedLength where - fromJSVal v = fmap SVGAnimatedLength <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedLength - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedLength where - makeObject = makeObject . unSVGAnimatedLength - -instance IsGObject SVGAnimatedLength where - typeGType _ = gTypeSVGAnimatedLength - {-# INLINE typeGType #-} - -gTypeSVGAnimatedLength :: JSM GType -gTypeSVGAnimatedLength = GType . Object <$> jsg "SVGAnimatedLength" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedLengthList". --- --- -newtype SVGAnimatedLengthList = SVGAnimatedLengthList { unSVGAnimatedLengthList :: JSVal } - -instance PToJSVal SVGAnimatedLengthList where - pToJSVal = unSVGAnimatedLengthList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedLengthList where - pFromJSVal = SVGAnimatedLengthList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedLengthList where - toJSVal = return . unSVGAnimatedLengthList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedLengthList where - fromJSVal v = fmap SVGAnimatedLengthList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedLengthList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedLengthList where - makeObject = makeObject . unSVGAnimatedLengthList - -instance IsGObject SVGAnimatedLengthList where - typeGType _ = gTypeSVGAnimatedLengthList - {-# INLINE typeGType #-} - -gTypeSVGAnimatedLengthList :: JSM GType -gTypeSVGAnimatedLengthList = GType . Object <$> jsg "SVGAnimatedLengthList" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedNumber". --- --- -newtype SVGAnimatedNumber = SVGAnimatedNumber { unSVGAnimatedNumber :: JSVal } - -instance PToJSVal SVGAnimatedNumber where - pToJSVal = unSVGAnimatedNumber - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedNumber where - pFromJSVal = SVGAnimatedNumber - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedNumber where - toJSVal = return . unSVGAnimatedNumber - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedNumber where - fromJSVal v = fmap SVGAnimatedNumber <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedNumber - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedNumber where - makeObject = makeObject . unSVGAnimatedNumber - -instance IsGObject SVGAnimatedNumber where - typeGType _ = gTypeSVGAnimatedNumber - {-# INLINE typeGType #-} - -gTypeSVGAnimatedNumber :: JSM GType -gTypeSVGAnimatedNumber = GType . Object <$> jsg "SVGAnimatedNumber" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedNumberList". --- --- -newtype SVGAnimatedNumberList = SVGAnimatedNumberList { unSVGAnimatedNumberList :: JSVal } - -instance PToJSVal SVGAnimatedNumberList where - pToJSVal = unSVGAnimatedNumberList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedNumberList where - pFromJSVal = SVGAnimatedNumberList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedNumberList where - toJSVal = return . unSVGAnimatedNumberList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedNumberList where - fromJSVal v = fmap SVGAnimatedNumberList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedNumberList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedNumberList where - makeObject = makeObject . unSVGAnimatedNumberList - -instance IsGObject SVGAnimatedNumberList where - typeGType _ = gTypeSVGAnimatedNumberList - {-# INLINE typeGType #-} - -gTypeSVGAnimatedNumberList :: JSM GType -gTypeSVGAnimatedNumberList = GType . Object <$> jsg "SVGAnimatedNumberList" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedPreserveAspectRatio". --- --- -newtype SVGAnimatedPreserveAspectRatio = SVGAnimatedPreserveAspectRatio { unSVGAnimatedPreserveAspectRatio :: JSVal } - -instance PToJSVal SVGAnimatedPreserveAspectRatio where - pToJSVal = unSVGAnimatedPreserveAspectRatio - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedPreserveAspectRatio where - pFromJSVal = SVGAnimatedPreserveAspectRatio - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedPreserveAspectRatio where - toJSVal = return . unSVGAnimatedPreserveAspectRatio - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedPreserveAspectRatio where - fromJSVal v = fmap SVGAnimatedPreserveAspectRatio <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedPreserveAspectRatio - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedPreserveAspectRatio where - makeObject = makeObject . unSVGAnimatedPreserveAspectRatio - -instance IsGObject SVGAnimatedPreserveAspectRatio where - typeGType _ = gTypeSVGAnimatedPreserveAspectRatio - {-# INLINE typeGType #-} - -gTypeSVGAnimatedPreserveAspectRatio :: JSM GType -gTypeSVGAnimatedPreserveAspectRatio = GType . Object <$> jsg "SVGAnimatedPreserveAspectRatio" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedRect". --- --- -newtype SVGAnimatedRect = SVGAnimatedRect { unSVGAnimatedRect :: JSVal } - -instance PToJSVal SVGAnimatedRect where - pToJSVal = unSVGAnimatedRect - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedRect where - pFromJSVal = SVGAnimatedRect - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedRect where - toJSVal = return . unSVGAnimatedRect - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedRect where - fromJSVal v = fmap SVGAnimatedRect <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedRect - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedRect where - makeObject = makeObject . unSVGAnimatedRect - -instance IsGObject SVGAnimatedRect where - typeGType _ = gTypeSVGAnimatedRect - {-# INLINE typeGType #-} - -gTypeSVGAnimatedRect :: JSM GType -gTypeSVGAnimatedRect = GType . Object <$> jsg "SVGAnimatedRect" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedString". --- --- -newtype SVGAnimatedString = SVGAnimatedString { unSVGAnimatedString :: JSVal } - -instance PToJSVal SVGAnimatedString where - pToJSVal = unSVGAnimatedString - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedString where - pFromJSVal = SVGAnimatedString - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedString where - toJSVal = return . unSVGAnimatedString - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedString where - fromJSVal v = fmap SVGAnimatedString <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedString - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedString where - makeObject = makeObject . unSVGAnimatedString - -instance IsGObject SVGAnimatedString where - typeGType _ = gTypeSVGAnimatedString - {-# INLINE typeGType #-} - -gTypeSVGAnimatedString :: JSM GType -gTypeSVGAnimatedString = GType . Object <$> jsg "SVGAnimatedString" - --- | Functions for this inteface are in "JSDOM.SVGAnimatedTransformList". --- --- -newtype SVGAnimatedTransformList = SVGAnimatedTransformList { unSVGAnimatedTransformList :: JSVal } - -instance PToJSVal SVGAnimatedTransformList where - pToJSVal = unSVGAnimatedTransformList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimatedTransformList where - pFromJSVal = SVGAnimatedTransformList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimatedTransformList where - toJSVal = return . unSVGAnimatedTransformList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimatedTransformList where - fromJSVal v = fmap SVGAnimatedTransformList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimatedTransformList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimatedTransformList where - makeObject = makeObject . unSVGAnimatedTransformList - -instance IsGObject SVGAnimatedTransformList where - typeGType _ = gTypeSVGAnimatedTransformList - {-# INLINE typeGType #-} - -gTypeSVGAnimatedTransformList :: JSM GType -gTypeSVGAnimatedTransformList = GType . Object <$> jsg "SVGAnimatedTransformList" - --- | Functions for this inteface are in "JSDOM.SVGAnimationElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGAnimationElement = SVGAnimationElement { unSVGAnimationElement :: JSVal } - -instance PToJSVal SVGAnimationElement where - pToJSVal = unSVGAnimationElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGAnimationElement where - pFromJSVal = SVGAnimationElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGAnimationElement where - toJSVal = return . unSVGAnimationElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGAnimationElement where - fromJSVal v = fmap SVGAnimationElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGAnimationElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGAnimationElement where - makeObject = makeObject . unSVGAnimationElement - -class (IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsSVGTests o, IsSVGExternalResourcesRequired o, IsGObject o) => IsSVGAnimationElement o -toSVGAnimationElement :: IsSVGAnimationElement o => o -> SVGAnimationElement -toSVGAnimationElement = SVGAnimationElement . coerce - -instance IsSVGAnimationElement SVGAnimationElement -instance IsSVGElement SVGAnimationElement -instance IsElement SVGAnimationElement -instance IsNode SVGAnimationElement -instance IsEventTarget SVGAnimationElement -instance IsSlotable SVGAnimationElement -instance IsParentNode SVGAnimationElement -instance IsNonDocumentTypeChildNode SVGAnimationElement -instance IsChildNode SVGAnimationElement -instance IsAnimatable SVGAnimationElement -instance IsGlobalEventHandlers SVGAnimationElement -instance IsSVGTests SVGAnimationElement -instance IsSVGExternalResourcesRequired SVGAnimationElement -instance IsGObject SVGAnimationElement where - typeGType _ = gTypeSVGAnimationElement - {-# INLINE typeGType #-} - -gTypeSVGAnimationElement :: JSM GType -gTypeSVGAnimationElement = GType . Object <$> jsg "SVGAnimationElement" - --- | Functions for this inteface are in "JSDOM.SVGCircleElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGCircleElement = SVGCircleElement { unSVGCircleElement :: JSVal } - -instance PToJSVal SVGCircleElement where - pToJSVal = unSVGCircleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGCircleElement where - pFromJSVal = SVGCircleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGCircleElement where - toJSVal = return . unSVGCircleElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGCircleElement where - fromJSVal v = fmap SVGCircleElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGCircleElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGCircleElement where - makeObject = makeObject . unSVGCircleElement - -instance IsSVGGraphicsElement SVGCircleElement -instance IsSVGElement SVGCircleElement -instance IsElement SVGCircleElement -instance IsNode SVGCircleElement -instance IsEventTarget SVGCircleElement -instance IsSlotable SVGCircleElement -instance IsParentNode SVGCircleElement -instance IsNonDocumentTypeChildNode SVGCircleElement -instance IsChildNode SVGCircleElement -instance IsAnimatable SVGCircleElement -instance IsGlobalEventHandlers SVGCircleElement -instance IsSVGTests SVGCircleElement -instance IsSVGExternalResourcesRequired SVGCircleElement -instance IsGObject SVGCircleElement where - typeGType _ = gTypeSVGCircleElement - {-# INLINE typeGType #-} - -gTypeSVGCircleElement :: JSM GType -gTypeSVGCircleElement = GType . Object <$> jsg "SVGCircleElement" - --- | Functions for this inteface are in "JSDOM.SVGClipPathElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGClipPathElement = SVGClipPathElement { unSVGClipPathElement :: JSVal } - -instance PToJSVal SVGClipPathElement where - pToJSVal = unSVGClipPathElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGClipPathElement where - pFromJSVal = SVGClipPathElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGClipPathElement where - toJSVal = return . unSVGClipPathElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGClipPathElement where - fromJSVal v = fmap SVGClipPathElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGClipPathElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGClipPathElement where - makeObject = makeObject . unSVGClipPathElement - -instance IsSVGGraphicsElement SVGClipPathElement -instance IsSVGElement SVGClipPathElement -instance IsElement SVGClipPathElement -instance IsNode SVGClipPathElement -instance IsEventTarget SVGClipPathElement -instance IsSlotable SVGClipPathElement -instance IsParentNode SVGClipPathElement -instance IsNonDocumentTypeChildNode SVGClipPathElement -instance IsChildNode SVGClipPathElement -instance IsAnimatable SVGClipPathElement -instance IsGlobalEventHandlers SVGClipPathElement -instance IsSVGTests SVGClipPathElement -instance IsSVGExternalResourcesRequired SVGClipPathElement -instance IsGObject SVGClipPathElement where - typeGType _ = gTypeSVGClipPathElement - {-# INLINE typeGType #-} - -gTypeSVGClipPathElement :: JSM GType -gTypeSVGClipPathElement = GType . Object <$> jsg "SVGClipPathElement" - --- | Functions for this inteface are in "JSDOM.SVGComponentTransferFunctionElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGComponentTransferFunctionElement = SVGComponentTransferFunctionElement { unSVGComponentTransferFunctionElement :: JSVal } - -instance PToJSVal SVGComponentTransferFunctionElement where - pToJSVal = unSVGComponentTransferFunctionElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGComponentTransferFunctionElement where - pFromJSVal = SVGComponentTransferFunctionElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGComponentTransferFunctionElement where - toJSVal = return . unSVGComponentTransferFunctionElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGComponentTransferFunctionElement where - fromJSVal v = fmap SVGComponentTransferFunctionElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGComponentTransferFunctionElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGComponentTransferFunctionElement where - makeObject = makeObject . unSVGComponentTransferFunctionElement - -class (IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsGObject o) => IsSVGComponentTransferFunctionElement o -toSVGComponentTransferFunctionElement :: IsSVGComponentTransferFunctionElement o => o -> SVGComponentTransferFunctionElement -toSVGComponentTransferFunctionElement = SVGComponentTransferFunctionElement . coerce - -instance IsSVGComponentTransferFunctionElement SVGComponentTransferFunctionElement -instance IsSVGElement SVGComponentTransferFunctionElement -instance IsElement SVGComponentTransferFunctionElement -instance IsNode SVGComponentTransferFunctionElement -instance IsEventTarget SVGComponentTransferFunctionElement -instance IsSlotable SVGComponentTransferFunctionElement -instance IsParentNode SVGComponentTransferFunctionElement -instance IsNonDocumentTypeChildNode SVGComponentTransferFunctionElement -instance IsChildNode SVGComponentTransferFunctionElement -instance IsAnimatable SVGComponentTransferFunctionElement -instance IsGlobalEventHandlers SVGComponentTransferFunctionElement -instance IsGObject SVGComponentTransferFunctionElement where - typeGType _ = gTypeSVGComponentTransferFunctionElement - {-# INLINE typeGType #-} - -gTypeSVGComponentTransferFunctionElement :: JSM GType -gTypeSVGComponentTransferFunctionElement = GType . Object <$> jsg "SVGComponentTransferFunctionElement" - --- | Functions for this inteface are in "JSDOM.SVGCursorElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGCursorElement = SVGCursorElement { unSVGCursorElement :: JSVal } - -instance PToJSVal SVGCursorElement where - pToJSVal = unSVGCursorElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGCursorElement where - pFromJSVal = SVGCursorElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGCursorElement where - toJSVal = return . unSVGCursorElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGCursorElement where - fromJSVal v = fmap SVGCursorElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGCursorElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGCursorElement where - makeObject = makeObject . unSVGCursorElement - -instance IsSVGElement SVGCursorElement -instance IsElement SVGCursorElement -instance IsNode SVGCursorElement -instance IsEventTarget SVGCursorElement -instance IsSlotable SVGCursorElement -instance IsParentNode SVGCursorElement -instance IsNonDocumentTypeChildNode SVGCursorElement -instance IsChildNode SVGCursorElement -instance IsAnimatable SVGCursorElement -instance IsGlobalEventHandlers SVGCursorElement -instance IsSVGURIReference SVGCursorElement -instance IsSVGTests SVGCursorElement -instance IsSVGExternalResourcesRequired SVGCursorElement -instance IsGObject SVGCursorElement where - typeGType _ = gTypeSVGCursorElement - {-# INLINE typeGType #-} - -gTypeSVGCursorElement :: JSM GType -gTypeSVGCursorElement = GType . Object <$> jsg "SVGCursorElement" - --- | Functions for this inteface are in "JSDOM.SVGDefsElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGDefsElement = SVGDefsElement { unSVGDefsElement :: JSVal } - -instance PToJSVal SVGDefsElement where - pToJSVal = unSVGDefsElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGDefsElement where - pFromJSVal = SVGDefsElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGDefsElement where - toJSVal = return . unSVGDefsElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGDefsElement where - fromJSVal v = fmap SVGDefsElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGDefsElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGDefsElement where - makeObject = makeObject . unSVGDefsElement - -instance IsSVGGraphicsElement SVGDefsElement -instance IsSVGElement SVGDefsElement -instance IsElement SVGDefsElement -instance IsNode SVGDefsElement -instance IsEventTarget SVGDefsElement -instance IsSlotable SVGDefsElement -instance IsParentNode SVGDefsElement -instance IsNonDocumentTypeChildNode SVGDefsElement -instance IsChildNode SVGDefsElement -instance IsAnimatable SVGDefsElement -instance IsGlobalEventHandlers SVGDefsElement -instance IsSVGTests SVGDefsElement -instance IsSVGExternalResourcesRequired SVGDefsElement -instance IsGObject SVGDefsElement where - typeGType _ = gTypeSVGDefsElement - {-# INLINE typeGType #-} - -gTypeSVGDefsElement :: JSM GType -gTypeSVGDefsElement = GType . Object <$> jsg "SVGDefsElement" - --- | Functions for this inteface are in "JSDOM.SVGDescElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGDescElement = SVGDescElement { unSVGDescElement :: JSVal } - -instance PToJSVal SVGDescElement where - pToJSVal = unSVGDescElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGDescElement where - pFromJSVal = SVGDescElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGDescElement where - toJSVal = return . unSVGDescElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGDescElement where - fromJSVal v = fmap SVGDescElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGDescElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGDescElement where - makeObject = makeObject . unSVGDescElement - -instance IsSVGElement SVGDescElement -instance IsElement SVGDescElement -instance IsNode SVGDescElement -instance IsEventTarget SVGDescElement -instance IsSlotable SVGDescElement -instance IsParentNode SVGDescElement -instance IsNonDocumentTypeChildNode SVGDescElement -instance IsChildNode SVGDescElement -instance IsAnimatable SVGDescElement -instance IsGlobalEventHandlers SVGDescElement -instance IsGObject SVGDescElement where - typeGType _ = gTypeSVGDescElement - {-# INLINE typeGType #-} - -gTypeSVGDescElement :: JSM GType -gTypeSVGDescElement = GType . Object <$> jsg "SVGDescElement" - --- | Functions for this inteface are in "JSDOM.SVGElement". --- Base interface functions are in: --- --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGElement = SVGElement { unSVGElement :: JSVal } - -instance PToJSVal SVGElement where - pToJSVal = unSVGElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGElement where - pFromJSVal = SVGElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGElement where - toJSVal = return . unSVGElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGElement where - fromJSVal v = fmap SVGElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGElement where - makeObject = makeObject . unSVGElement - -class (IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsGObject o) => IsSVGElement o -toSVGElement :: IsSVGElement o => o -> SVGElement -toSVGElement = SVGElement . coerce - -instance IsSVGElement SVGElement -instance IsElement SVGElement -instance IsNode SVGElement -instance IsEventTarget SVGElement -instance IsSlotable SVGElement -instance IsParentNode SVGElement -instance IsNonDocumentTypeChildNode SVGElement -instance IsChildNode SVGElement -instance IsAnimatable SVGElement -instance IsGlobalEventHandlers SVGElement -instance IsGObject SVGElement where - typeGType _ = gTypeSVGElement - {-# INLINE typeGType #-} - -gTypeSVGElement :: JSM GType -gTypeSVGElement = GType . Object <$> jsg "SVGElement" - --- | Functions for this inteface are in "JSDOM.SVGEllipseElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGEllipseElement = SVGEllipseElement { unSVGEllipseElement :: JSVal } - -instance PToJSVal SVGEllipseElement where - pToJSVal = unSVGEllipseElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGEllipseElement where - pFromJSVal = SVGEllipseElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGEllipseElement where - toJSVal = return . unSVGEllipseElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGEllipseElement where - fromJSVal v = fmap SVGEllipseElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGEllipseElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGEllipseElement where - makeObject = makeObject . unSVGEllipseElement - -instance IsSVGGraphicsElement SVGEllipseElement -instance IsSVGElement SVGEllipseElement -instance IsElement SVGEllipseElement -instance IsNode SVGEllipseElement -instance IsEventTarget SVGEllipseElement -instance IsSlotable SVGEllipseElement -instance IsParentNode SVGEllipseElement -instance IsNonDocumentTypeChildNode SVGEllipseElement -instance IsChildNode SVGEllipseElement -instance IsAnimatable SVGEllipseElement -instance IsGlobalEventHandlers SVGEllipseElement -instance IsSVGTests SVGEllipseElement -instance IsSVGExternalResourcesRequired SVGEllipseElement -instance IsGObject SVGEllipseElement where - typeGType _ = gTypeSVGEllipseElement - {-# INLINE typeGType #-} - -gTypeSVGEllipseElement :: JSM GType -gTypeSVGEllipseElement = GType . Object <$> jsg "SVGEllipseElement" - --- | Functions for this inteface are in "JSDOM.SVGException". --- --- -newtype SVGException = SVGException { unSVGException :: JSVal } - -instance PToJSVal SVGException where - pToJSVal = unSVGException - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGException where - pFromJSVal = SVGException - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGException where - toJSVal = return . unSVGException - {-# INLINE toJSVal #-} - -instance FromJSVal SVGException where - fromJSVal v = fmap SVGException <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGException - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGException where - makeObject = makeObject . unSVGException - -instance IsGObject SVGException where - typeGType _ = gTypeSVGException - {-# INLINE typeGType #-} - -gTypeSVGException :: JSM GType -gTypeSVGException = GType . Object <$> jsg "SVGException" - --- | Functions for this inteface are in "JSDOM.SVGExternalResourcesRequired". --- --- -newtype SVGExternalResourcesRequired = SVGExternalResourcesRequired { unSVGExternalResourcesRequired :: JSVal } - -instance PToJSVal SVGExternalResourcesRequired where - pToJSVal = unSVGExternalResourcesRequired - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGExternalResourcesRequired where - pFromJSVal = SVGExternalResourcesRequired - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGExternalResourcesRequired where - toJSVal = return . unSVGExternalResourcesRequired - {-# INLINE toJSVal #-} - -instance FromJSVal SVGExternalResourcesRequired where - fromJSVal v = fmap SVGExternalResourcesRequired <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGExternalResourcesRequired - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGExternalResourcesRequired where - makeObject = makeObject . unSVGExternalResourcesRequired - -class (IsGObject o) => IsSVGExternalResourcesRequired o -toSVGExternalResourcesRequired :: IsSVGExternalResourcesRequired o => o -> SVGExternalResourcesRequired -toSVGExternalResourcesRequired = SVGExternalResourcesRequired . coerce - -instance IsSVGExternalResourcesRequired SVGExternalResourcesRequired -instance IsGObject SVGExternalResourcesRequired where - typeGType _ = gTypeSVGExternalResourcesRequired - {-# INLINE typeGType #-} - -gTypeSVGExternalResourcesRequired :: JSM GType -gTypeSVGExternalResourcesRequired = GType . Object <$> jsg "SVGExternalResourcesRequired" - --- | Functions for this inteface are in "JSDOM.SVGFEBlendElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEBlendElement = SVGFEBlendElement { unSVGFEBlendElement :: JSVal } - -instance PToJSVal SVGFEBlendElement where - pToJSVal = unSVGFEBlendElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEBlendElement where - pFromJSVal = SVGFEBlendElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEBlendElement where - toJSVal = return . unSVGFEBlendElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEBlendElement where - fromJSVal v = fmap SVGFEBlendElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEBlendElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEBlendElement where - makeObject = makeObject . unSVGFEBlendElement - -instance IsSVGElement SVGFEBlendElement -instance IsElement SVGFEBlendElement -instance IsNode SVGFEBlendElement -instance IsEventTarget SVGFEBlendElement -instance IsSlotable SVGFEBlendElement -instance IsParentNode SVGFEBlendElement -instance IsNonDocumentTypeChildNode SVGFEBlendElement -instance IsChildNode SVGFEBlendElement -instance IsAnimatable SVGFEBlendElement -instance IsGlobalEventHandlers SVGFEBlendElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEBlendElement -instance IsGObject SVGFEBlendElement where - typeGType _ = gTypeSVGFEBlendElement - {-# INLINE typeGType #-} - -gTypeSVGFEBlendElement :: JSM GType -gTypeSVGFEBlendElement = GType . Object <$> jsg "SVGFEBlendElement" - --- | Functions for this inteface are in "JSDOM.SVGFEColorMatrixElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEColorMatrixElement = SVGFEColorMatrixElement { unSVGFEColorMatrixElement :: JSVal } - -instance PToJSVal SVGFEColorMatrixElement where - pToJSVal = unSVGFEColorMatrixElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEColorMatrixElement where - pFromJSVal = SVGFEColorMatrixElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEColorMatrixElement where - toJSVal = return . unSVGFEColorMatrixElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEColorMatrixElement where - fromJSVal v = fmap SVGFEColorMatrixElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEColorMatrixElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEColorMatrixElement where - makeObject = makeObject . unSVGFEColorMatrixElement - -instance IsSVGElement SVGFEColorMatrixElement -instance IsElement SVGFEColorMatrixElement -instance IsNode SVGFEColorMatrixElement -instance IsEventTarget SVGFEColorMatrixElement -instance IsSlotable SVGFEColorMatrixElement -instance IsParentNode SVGFEColorMatrixElement -instance IsNonDocumentTypeChildNode SVGFEColorMatrixElement -instance IsChildNode SVGFEColorMatrixElement -instance IsAnimatable SVGFEColorMatrixElement -instance IsGlobalEventHandlers SVGFEColorMatrixElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEColorMatrixElement -instance IsGObject SVGFEColorMatrixElement where - typeGType _ = gTypeSVGFEColorMatrixElement - {-# INLINE typeGType #-} - -gTypeSVGFEColorMatrixElement :: JSM GType -gTypeSVGFEColorMatrixElement = GType . Object <$> jsg "SVGFEColorMatrixElement" - --- | Functions for this inteface are in "JSDOM.SVGFEComponentTransferElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEComponentTransferElement = SVGFEComponentTransferElement { unSVGFEComponentTransferElement :: JSVal } - -instance PToJSVal SVGFEComponentTransferElement where - pToJSVal = unSVGFEComponentTransferElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEComponentTransferElement where - pFromJSVal = SVGFEComponentTransferElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEComponentTransferElement where - toJSVal = return . unSVGFEComponentTransferElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEComponentTransferElement where - fromJSVal v = fmap SVGFEComponentTransferElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEComponentTransferElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEComponentTransferElement where - makeObject = makeObject . unSVGFEComponentTransferElement - -instance IsSVGElement SVGFEComponentTransferElement -instance IsElement SVGFEComponentTransferElement -instance IsNode SVGFEComponentTransferElement -instance IsEventTarget SVGFEComponentTransferElement -instance IsSlotable SVGFEComponentTransferElement -instance IsParentNode SVGFEComponentTransferElement -instance IsNonDocumentTypeChildNode SVGFEComponentTransferElement -instance IsChildNode SVGFEComponentTransferElement -instance IsAnimatable SVGFEComponentTransferElement -instance IsGlobalEventHandlers SVGFEComponentTransferElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEComponentTransferElement -instance IsGObject SVGFEComponentTransferElement where - typeGType _ = gTypeSVGFEComponentTransferElement - {-# INLINE typeGType #-} - -gTypeSVGFEComponentTransferElement :: JSM GType -gTypeSVGFEComponentTransferElement = GType . Object <$> jsg "SVGFEComponentTransferElement" - --- | Functions for this inteface are in "JSDOM.SVGFECompositeElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFECompositeElement = SVGFECompositeElement { unSVGFECompositeElement :: JSVal } - -instance PToJSVal SVGFECompositeElement where - pToJSVal = unSVGFECompositeElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFECompositeElement where - pFromJSVal = SVGFECompositeElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFECompositeElement where - toJSVal = return . unSVGFECompositeElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFECompositeElement where - fromJSVal v = fmap SVGFECompositeElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFECompositeElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFECompositeElement where - makeObject = makeObject . unSVGFECompositeElement - -instance IsSVGElement SVGFECompositeElement -instance IsElement SVGFECompositeElement -instance IsNode SVGFECompositeElement -instance IsEventTarget SVGFECompositeElement -instance IsSlotable SVGFECompositeElement -instance IsParentNode SVGFECompositeElement -instance IsNonDocumentTypeChildNode SVGFECompositeElement -instance IsChildNode SVGFECompositeElement -instance IsAnimatable SVGFECompositeElement -instance IsGlobalEventHandlers SVGFECompositeElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFECompositeElement -instance IsGObject SVGFECompositeElement where - typeGType _ = gTypeSVGFECompositeElement - {-# INLINE typeGType #-} - -gTypeSVGFECompositeElement :: JSM GType -gTypeSVGFECompositeElement = GType . Object <$> jsg "SVGFECompositeElement" - --- | Functions for this inteface are in "JSDOM.SVGFEConvolveMatrixElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEConvolveMatrixElement = SVGFEConvolveMatrixElement { unSVGFEConvolveMatrixElement :: JSVal } - -instance PToJSVal SVGFEConvolveMatrixElement where - pToJSVal = unSVGFEConvolveMatrixElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEConvolveMatrixElement where - pFromJSVal = SVGFEConvolveMatrixElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEConvolveMatrixElement where - toJSVal = return . unSVGFEConvolveMatrixElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEConvolveMatrixElement where - fromJSVal v = fmap SVGFEConvolveMatrixElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEConvolveMatrixElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEConvolveMatrixElement where - makeObject = makeObject . unSVGFEConvolveMatrixElement - -instance IsSVGElement SVGFEConvolveMatrixElement -instance IsElement SVGFEConvolveMatrixElement -instance IsNode SVGFEConvolveMatrixElement -instance IsEventTarget SVGFEConvolveMatrixElement -instance IsSlotable SVGFEConvolveMatrixElement -instance IsParentNode SVGFEConvolveMatrixElement -instance IsNonDocumentTypeChildNode SVGFEConvolveMatrixElement -instance IsChildNode SVGFEConvolveMatrixElement -instance IsAnimatable SVGFEConvolveMatrixElement -instance IsGlobalEventHandlers SVGFEConvolveMatrixElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEConvolveMatrixElement -instance IsGObject SVGFEConvolveMatrixElement where - typeGType _ = gTypeSVGFEConvolveMatrixElement - {-# INLINE typeGType #-} - -gTypeSVGFEConvolveMatrixElement :: JSM GType -gTypeSVGFEConvolveMatrixElement = GType . Object <$> jsg "SVGFEConvolveMatrixElement" - --- | Functions for this inteface are in "JSDOM.SVGFEDiffuseLightingElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEDiffuseLightingElement = SVGFEDiffuseLightingElement { unSVGFEDiffuseLightingElement :: JSVal } - -instance PToJSVal SVGFEDiffuseLightingElement where - pToJSVal = unSVGFEDiffuseLightingElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEDiffuseLightingElement where - pFromJSVal = SVGFEDiffuseLightingElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEDiffuseLightingElement where - toJSVal = return . unSVGFEDiffuseLightingElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEDiffuseLightingElement where - fromJSVal v = fmap SVGFEDiffuseLightingElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEDiffuseLightingElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEDiffuseLightingElement where - makeObject = makeObject . unSVGFEDiffuseLightingElement - -instance IsSVGElement SVGFEDiffuseLightingElement -instance IsElement SVGFEDiffuseLightingElement -instance IsNode SVGFEDiffuseLightingElement -instance IsEventTarget SVGFEDiffuseLightingElement -instance IsSlotable SVGFEDiffuseLightingElement -instance IsParentNode SVGFEDiffuseLightingElement -instance IsNonDocumentTypeChildNode SVGFEDiffuseLightingElement -instance IsChildNode SVGFEDiffuseLightingElement -instance IsAnimatable SVGFEDiffuseLightingElement -instance IsGlobalEventHandlers SVGFEDiffuseLightingElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEDiffuseLightingElement -instance IsGObject SVGFEDiffuseLightingElement where - typeGType _ = gTypeSVGFEDiffuseLightingElement - {-# INLINE typeGType #-} - -gTypeSVGFEDiffuseLightingElement :: JSM GType -gTypeSVGFEDiffuseLightingElement = GType . Object <$> jsg "SVGFEDiffuseLightingElement" - --- | Functions for this inteface are in "JSDOM.SVGFEDisplacementMapElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEDisplacementMapElement = SVGFEDisplacementMapElement { unSVGFEDisplacementMapElement :: JSVal } - -instance PToJSVal SVGFEDisplacementMapElement where - pToJSVal = unSVGFEDisplacementMapElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEDisplacementMapElement where - pFromJSVal = SVGFEDisplacementMapElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEDisplacementMapElement where - toJSVal = return . unSVGFEDisplacementMapElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEDisplacementMapElement where - fromJSVal v = fmap SVGFEDisplacementMapElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEDisplacementMapElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEDisplacementMapElement where - makeObject = makeObject . unSVGFEDisplacementMapElement - -instance IsSVGElement SVGFEDisplacementMapElement -instance IsElement SVGFEDisplacementMapElement -instance IsNode SVGFEDisplacementMapElement -instance IsEventTarget SVGFEDisplacementMapElement -instance IsSlotable SVGFEDisplacementMapElement -instance IsParentNode SVGFEDisplacementMapElement -instance IsNonDocumentTypeChildNode SVGFEDisplacementMapElement -instance IsChildNode SVGFEDisplacementMapElement -instance IsAnimatable SVGFEDisplacementMapElement -instance IsGlobalEventHandlers SVGFEDisplacementMapElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEDisplacementMapElement -instance IsGObject SVGFEDisplacementMapElement where - typeGType _ = gTypeSVGFEDisplacementMapElement - {-# INLINE typeGType #-} - -gTypeSVGFEDisplacementMapElement :: JSM GType -gTypeSVGFEDisplacementMapElement = GType . Object <$> jsg "SVGFEDisplacementMapElement" - --- | Functions for this inteface are in "JSDOM.SVGFEDistantLightElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFEDistantLightElement = SVGFEDistantLightElement { unSVGFEDistantLightElement :: JSVal } - -instance PToJSVal SVGFEDistantLightElement where - pToJSVal = unSVGFEDistantLightElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEDistantLightElement where - pFromJSVal = SVGFEDistantLightElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEDistantLightElement where - toJSVal = return . unSVGFEDistantLightElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEDistantLightElement where - fromJSVal v = fmap SVGFEDistantLightElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEDistantLightElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEDistantLightElement where - makeObject = makeObject . unSVGFEDistantLightElement - -instance IsSVGElement SVGFEDistantLightElement -instance IsElement SVGFEDistantLightElement -instance IsNode SVGFEDistantLightElement -instance IsEventTarget SVGFEDistantLightElement -instance IsSlotable SVGFEDistantLightElement -instance IsParentNode SVGFEDistantLightElement -instance IsNonDocumentTypeChildNode SVGFEDistantLightElement -instance IsChildNode SVGFEDistantLightElement -instance IsAnimatable SVGFEDistantLightElement -instance IsGlobalEventHandlers SVGFEDistantLightElement -instance IsGObject SVGFEDistantLightElement where - typeGType _ = gTypeSVGFEDistantLightElement - {-# INLINE typeGType #-} - -gTypeSVGFEDistantLightElement :: JSM GType -gTypeSVGFEDistantLightElement = GType . Object <$> jsg "SVGFEDistantLightElement" - --- | Functions for this inteface are in "JSDOM.SVGFEDropShadowElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEDropShadowElement = SVGFEDropShadowElement { unSVGFEDropShadowElement :: JSVal } - -instance PToJSVal SVGFEDropShadowElement where - pToJSVal = unSVGFEDropShadowElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEDropShadowElement where - pFromJSVal = SVGFEDropShadowElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEDropShadowElement where - toJSVal = return . unSVGFEDropShadowElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEDropShadowElement where - fromJSVal v = fmap SVGFEDropShadowElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEDropShadowElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEDropShadowElement where - makeObject = makeObject . unSVGFEDropShadowElement - -instance IsSVGElement SVGFEDropShadowElement -instance IsElement SVGFEDropShadowElement -instance IsNode SVGFEDropShadowElement -instance IsEventTarget SVGFEDropShadowElement -instance IsSlotable SVGFEDropShadowElement -instance IsParentNode SVGFEDropShadowElement -instance IsNonDocumentTypeChildNode SVGFEDropShadowElement -instance IsChildNode SVGFEDropShadowElement -instance IsAnimatable SVGFEDropShadowElement -instance IsGlobalEventHandlers SVGFEDropShadowElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEDropShadowElement -instance IsGObject SVGFEDropShadowElement where - typeGType _ = gTypeSVGFEDropShadowElement - {-# INLINE typeGType #-} - -gTypeSVGFEDropShadowElement :: JSM GType -gTypeSVGFEDropShadowElement = GType . Object <$> jsg "SVGFEDropShadowElement" - --- | Functions for this inteface are in "JSDOM.SVGFEFloodElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEFloodElement = SVGFEFloodElement { unSVGFEFloodElement :: JSVal } - -instance PToJSVal SVGFEFloodElement where - pToJSVal = unSVGFEFloodElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFloodElement where - pFromJSVal = SVGFEFloodElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFloodElement where - toJSVal = return . unSVGFEFloodElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFloodElement where - fromJSVal v = fmap SVGFEFloodElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEFloodElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEFloodElement where - makeObject = makeObject . unSVGFEFloodElement - -instance IsSVGElement SVGFEFloodElement -instance IsElement SVGFEFloodElement -instance IsNode SVGFEFloodElement -instance IsEventTarget SVGFEFloodElement -instance IsSlotable SVGFEFloodElement -instance IsParentNode SVGFEFloodElement -instance IsNonDocumentTypeChildNode SVGFEFloodElement -instance IsChildNode SVGFEFloodElement -instance IsAnimatable SVGFEFloodElement -instance IsGlobalEventHandlers SVGFEFloodElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEFloodElement -instance IsGObject SVGFEFloodElement where - typeGType _ = gTypeSVGFEFloodElement - {-# INLINE typeGType #-} - -gTypeSVGFEFloodElement :: JSM GType -gTypeSVGFEFloodElement = GType . Object <$> jsg "SVGFEFloodElement" - --- | Functions for this inteface are in "JSDOM.SVGFEFuncAElement". --- Base interface functions are in: --- --- * "JSDOM.SVGComponentTransferFunctionElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFEFuncAElement = SVGFEFuncAElement { unSVGFEFuncAElement :: JSVal } - -instance PToJSVal SVGFEFuncAElement where - pToJSVal = unSVGFEFuncAElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFuncAElement where - pFromJSVal = SVGFEFuncAElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFuncAElement where - toJSVal = return . unSVGFEFuncAElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFuncAElement where - fromJSVal v = fmap SVGFEFuncAElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEFuncAElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEFuncAElement where - makeObject = makeObject . unSVGFEFuncAElement - -instance IsSVGComponentTransferFunctionElement SVGFEFuncAElement -instance IsSVGElement SVGFEFuncAElement -instance IsElement SVGFEFuncAElement -instance IsNode SVGFEFuncAElement -instance IsEventTarget SVGFEFuncAElement -instance IsSlotable SVGFEFuncAElement -instance IsParentNode SVGFEFuncAElement -instance IsNonDocumentTypeChildNode SVGFEFuncAElement -instance IsChildNode SVGFEFuncAElement -instance IsAnimatable SVGFEFuncAElement -instance IsGlobalEventHandlers SVGFEFuncAElement -instance IsGObject SVGFEFuncAElement where - typeGType _ = gTypeSVGFEFuncAElement - {-# INLINE typeGType #-} - -gTypeSVGFEFuncAElement :: JSM GType -gTypeSVGFEFuncAElement = GType . Object <$> jsg "SVGFEFuncAElement" - --- | Functions for this inteface are in "JSDOM.SVGFEFuncBElement". --- Base interface functions are in: --- --- * "JSDOM.SVGComponentTransferFunctionElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFEFuncBElement = SVGFEFuncBElement { unSVGFEFuncBElement :: JSVal } - -instance PToJSVal SVGFEFuncBElement where - pToJSVal = unSVGFEFuncBElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFuncBElement where - pFromJSVal = SVGFEFuncBElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFuncBElement where - toJSVal = return . unSVGFEFuncBElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFuncBElement where - fromJSVal v = fmap SVGFEFuncBElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEFuncBElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEFuncBElement where - makeObject = makeObject . unSVGFEFuncBElement - -instance IsSVGComponentTransferFunctionElement SVGFEFuncBElement -instance IsSVGElement SVGFEFuncBElement -instance IsElement SVGFEFuncBElement -instance IsNode SVGFEFuncBElement -instance IsEventTarget SVGFEFuncBElement -instance IsSlotable SVGFEFuncBElement -instance IsParentNode SVGFEFuncBElement -instance IsNonDocumentTypeChildNode SVGFEFuncBElement -instance IsChildNode SVGFEFuncBElement -instance IsAnimatable SVGFEFuncBElement -instance IsGlobalEventHandlers SVGFEFuncBElement -instance IsGObject SVGFEFuncBElement where - typeGType _ = gTypeSVGFEFuncBElement - {-# INLINE typeGType #-} - -gTypeSVGFEFuncBElement :: JSM GType -gTypeSVGFEFuncBElement = GType . Object <$> jsg "SVGFEFuncBElement" - --- | Functions for this inteface are in "JSDOM.SVGFEFuncGElement". --- Base interface functions are in: --- --- * "JSDOM.SVGComponentTransferFunctionElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFEFuncGElement = SVGFEFuncGElement { unSVGFEFuncGElement :: JSVal } - -instance PToJSVal SVGFEFuncGElement where - pToJSVal = unSVGFEFuncGElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFuncGElement where - pFromJSVal = SVGFEFuncGElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFuncGElement where - toJSVal = return . unSVGFEFuncGElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFuncGElement where - fromJSVal v = fmap SVGFEFuncGElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEFuncGElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEFuncGElement where - makeObject = makeObject . unSVGFEFuncGElement - -instance IsSVGComponentTransferFunctionElement SVGFEFuncGElement -instance IsSVGElement SVGFEFuncGElement -instance IsElement SVGFEFuncGElement -instance IsNode SVGFEFuncGElement -instance IsEventTarget SVGFEFuncGElement -instance IsSlotable SVGFEFuncGElement -instance IsParentNode SVGFEFuncGElement -instance IsNonDocumentTypeChildNode SVGFEFuncGElement -instance IsChildNode SVGFEFuncGElement -instance IsAnimatable SVGFEFuncGElement -instance IsGlobalEventHandlers SVGFEFuncGElement -instance IsGObject SVGFEFuncGElement where - typeGType _ = gTypeSVGFEFuncGElement - {-# INLINE typeGType #-} - -gTypeSVGFEFuncGElement :: JSM GType -gTypeSVGFEFuncGElement = GType . Object <$> jsg "SVGFEFuncGElement" - --- | Functions for this inteface are in "JSDOM.SVGFEFuncRElement". --- Base interface functions are in: --- --- * "JSDOM.SVGComponentTransferFunctionElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFEFuncRElement = SVGFEFuncRElement { unSVGFEFuncRElement :: JSVal } - -instance PToJSVal SVGFEFuncRElement where - pToJSVal = unSVGFEFuncRElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEFuncRElement where - pFromJSVal = SVGFEFuncRElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEFuncRElement where - toJSVal = return . unSVGFEFuncRElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEFuncRElement where - fromJSVal v = fmap SVGFEFuncRElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEFuncRElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEFuncRElement where - makeObject = makeObject . unSVGFEFuncRElement - -instance IsSVGComponentTransferFunctionElement SVGFEFuncRElement -instance IsSVGElement SVGFEFuncRElement -instance IsElement SVGFEFuncRElement -instance IsNode SVGFEFuncRElement -instance IsEventTarget SVGFEFuncRElement -instance IsSlotable SVGFEFuncRElement -instance IsParentNode SVGFEFuncRElement -instance IsNonDocumentTypeChildNode SVGFEFuncRElement -instance IsChildNode SVGFEFuncRElement -instance IsAnimatable SVGFEFuncRElement -instance IsGlobalEventHandlers SVGFEFuncRElement -instance IsGObject SVGFEFuncRElement where - typeGType _ = gTypeSVGFEFuncRElement - {-# INLINE typeGType #-} - -gTypeSVGFEFuncRElement :: JSM GType -gTypeSVGFEFuncRElement = GType . Object <$> jsg "SVGFEFuncRElement" - --- | Functions for this inteface are in "JSDOM.SVGFEGaussianBlurElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEGaussianBlurElement = SVGFEGaussianBlurElement { unSVGFEGaussianBlurElement :: JSVal } - -instance PToJSVal SVGFEGaussianBlurElement where - pToJSVal = unSVGFEGaussianBlurElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEGaussianBlurElement where - pFromJSVal = SVGFEGaussianBlurElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEGaussianBlurElement where - toJSVal = return . unSVGFEGaussianBlurElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEGaussianBlurElement where - fromJSVal v = fmap SVGFEGaussianBlurElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEGaussianBlurElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEGaussianBlurElement where - makeObject = makeObject . unSVGFEGaussianBlurElement - -instance IsSVGElement SVGFEGaussianBlurElement -instance IsElement SVGFEGaussianBlurElement -instance IsNode SVGFEGaussianBlurElement -instance IsEventTarget SVGFEGaussianBlurElement -instance IsSlotable SVGFEGaussianBlurElement -instance IsParentNode SVGFEGaussianBlurElement -instance IsNonDocumentTypeChildNode SVGFEGaussianBlurElement -instance IsChildNode SVGFEGaussianBlurElement -instance IsAnimatable SVGFEGaussianBlurElement -instance IsGlobalEventHandlers SVGFEGaussianBlurElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEGaussianBlurElement -instance IsGObject SVGFEGaussianBlurElement where - typeGType _ = gTypeSVGFEGaussianBlurElement - {-# INLINE typeGType #-} - -gTypeSVGFEGaussianBlurElement :: JSM GType -gTypeSVGFEGaussianBlurElement = GType . Object <$> jsg "SVGFEGaussianBlurElement" - --- | Functions for this inteface are in "JSDOM.SVGFEImageElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGFEImageElement = SVGFEImageElement { unSVGFEImageElement :: JSVal } - -instance PToJSVal SVGFEImageElement where - pToJSVal = unSVGFEImageElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEImageElement where - pFromJSVal = SVGFEImageElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEImageElement where - toJSVal = return . unSVGFEImageElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEImageElement where - fromJSVal v = fmap SVGFEImageElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEImageElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEImageElement where - makeObject = makeObject . unSVGFEImageElement - -instance IsSVGElement SVGFEImageElement -instance IsElement SVGFEImageElement -instance IsNode SVGFEImageElement -instance IsEventTarget SVGFEImageElement -instance IsSlotable SVGFEImageElement -instance IsParentNode SVGFEImageElement -instance IsNonDocumentTypeChildNode SVGFEImageElement -instance IsChildNode SVGFEImageElement -instance IsAnimatable SVGFEImageElement -instance IsGlobalEventHandlers SVGFEImageElement -instance IsSVGURIReference SVGFEImageElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEImageElement -instance IsSVGExternalResourcesRequired SVGFEImageElement -instance IsGObject SVGFEImageElement where - typeGType _ = gTypeSVGFEImageElement - {-# INLINE typeGType #-} - -gTypeSVGFEImageElement :: JSM GType -gTypeSVGFEImageElement = GType . Object <$> jsg "SVGFEImageElement" - --- | Functions for this inteface are in "JSDOM.SVGFEMergeElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEMergeElement = SVGFEMergeElement { unSVGFEMergeElement :: JSVal } - -instance PToJSVal SVGFEMergeElement where - pToJSVal = unSVGFEMergeElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEMergeElement where - pFromJSVal = SVGFEMergeElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEMergeElement where - toJSVal = return . unSVGFEMergeElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEMergeElement where - fromJSVal v = fmap SVGFEMergeElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEMergeElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEMergeElement where - makeObject = makeObject . unSVGFEMergeElement - -instance IsSVGElement SVGFEMergeElement -instance IsElement SVGFEMergeElement -instance IsNode SVGFEMergeElement -instance IsEventTarget SVGFEMergeElement -instance IsSlotable SVGFEMergeElement -instance IsParentNode SVGFEMergeElement -instance IsNonDocumentTypeChildNode SVGFEMergeElement -instance IsChildNode SVGFEMergeElement -instance IsAnimatable SVGFEMergeElement -instance IsGlobalEventHandlers SVGFEMergeElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEMergeElement -instance IsGObject SVGFEMergeElement where - typeGType _ = gTypeSVGFEMergeElement - {-# INLINE typeGType #-} - -gTypeSVGFEMergeElement :: JSM GType -gTypeSVGFEMergeElement = GType . Object <$> jsg "SVGFEMergeElement" - --- | Functions for this inteface are in "JSDOM.SVGFEMergeNodeElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFEMergeNodeElement = SVGFEMergeNodeElement { unSVGFEMergeNodeElement :: JSVal } - -instance PToJSVal SVGFEMergeNodeElement where - pToJSVal = unSVGFEMergeNodeElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEMergeNodeElement where - pFromJSVal = SVGFEMergeNodeElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEMergeNodeElement where - toJSVal = return . unSVGFEMergeNodeElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEMergeNodeElement where - fromJSVal v = fmap SVGFEMergeNodeElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEMergeNodeElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEMergeNodeElement where - makeObject = makeObject . unSVGFEMergeNodeElement - -instance IsSVGElement SVGFEMergeNodeElement -instance IsElement SVGFEMergeNodeElement -instance IsNode SVGFEMergeNodeElement -instance IsEventTarget SVGFEMergeNodeElement -instance IsSlotable SVGFEMergeNodeElement -instance IsParentNode SVGFEMergeNodeElement -instance IsNonDocumentTypeChildNode SVGFEMergeNodeElement -instance IsChildNode SVGFEMergeNodeElement -instance IsAnimatable SVGFEMergeNodeElement -instance IsGlobalEventHandlers SVGFEMergeNodeElement -instance IsGObject SVGFEMergeNodeElement where - typeGType _ = gTypeSVGFEMergeNodeElement - {-# INLINE typeGType #-} - -gTypeSVGFEMergeNodeElement :: JSM GType -gTypeSVGFEMergeNodeElement = GType . Object <$> jsg "SVGFEMergeNodeElement" - --- | Functions for this inteface are in "JSDOM.SVGFEMorphologyElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEMorphologyElement = SVGFEMorphologyElement { unSVGFEMorphologyElement :: JSVal } - -instance PToJSVal SVGFEMorphologyElement where - pToJSVal = unSVGFEMorphologyElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEMorphologyElement where - pFromJSVal = SVGFEMorphologyElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEMorphologyElement where - toJSVal = return . unSVGFEMorphologyElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEMorphologyElement where - fromJSVal v = fmap SVGFEMorphologyElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEMorphologyElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEMorphologyElement where - makeObject = makeObject . unSVGFEMorphologyElement - -instance IsSVGElement SVGFEMorphologyElement -instance IsElement SVGFEMorphologyElement -instance IsNode SVGFEMorphologyElement -instance IsEventTarget SVGFEMorphologyElement -instance IsSlotable SVGFEMorphologyElement -instance IsParentNode SVGFEMorphologyElement -instance IsNonDocumentTypeChildNode SVGFEMorphologyElement -instance IsChildNode SVGFEMorphologyElement -instance IsAnimatable SVGFEMorphologyElement -instance IsGlobalEventHandlers SVGFEMorphologyElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEMorphologyElement -instance IsGObject SVGFEMorphologyElement where - typeGType _ = gTypeSVGFEMorphologyElement - {-# INLINE typeGType #-} - -gTypeSVGFEMorphologyElement :: JSM GType -gTypeSVGFEMorphologyElement = GType . Object <$> jsg "SVGFEMorphologyElement" - --- | Functions for this inteface are in "JSDOM.SVGFEOffsetElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFEOffsetElement = SVGFEOffsetElement { unSVGFEOffsetElement :: JSVal } - -instance PToJSVal SVGFEOffsetElement where - pToJSVal = unSVGFEOffsetElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEOffsetElement where - pFromJSVal = SVGFEOffsetElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEOffsetElement where - toJSVal = return . unSVGFEOffsetElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEOffsetElement where - fromJSVal v = fmap SVGFEOffsetElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEOffsetElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEOffsetElement where - makeObject = makeObject . unSVGFEOffsetElement - -instance IsSVGElement SVGFEOffsetElement -instance IsElement SVGFEOffsetElement -instance IsNode SVGFEOffsetElement -instance IsEventTarget SVGFEOffsetElement -instance IsSlotable SVGFEOffsetElement -instance IsParentNode SVGFEOffsetElement -instance IsNonDocumentTypeChildNode SVGFEOffsetElement -instance IsChildNode SVGFEOffsetElement -instance IsAnimatable SVGFEOffsetElement -instance IsGlobalEventHandlers SVGFEOffsetElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFEOffsetElement -instance IsGObject SVGFEOffsetElement where - typeGType _ = gTypeSVGFEOffsetElement - {-# INLINE typeGType #-} - -gTypeSVGFEOffsetElement :: JSM GType -gTypeSVGFEOffsetElement = GType . Object <$> jsg "SVGFEOffsetElement" - --- | Functions for this inteface are in "JSDOM.SVGFEPointLightElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFEPointLightElement = SVGFEPointLightElement { unSVGFEPointLightElement :: JSVal } - -instance PToJSVal SVGFEPointLightElement where - pToJSVal = unSVGFEPointLightElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFEPointLightElement where - pFromJSVal = SVGFEPointLightElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFEPointLightElement where - toJSVal = return . unSVGFEPointLightElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFEPointLightElement where - fromJSVal v = fmap SVGFEPointLightElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFEPointLightElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFEPointLightElement where - makeObject = makeObject . unSVGFEPointLightElement - -instance IsSVGElement SVGFEPointLightElement -instance IsElement SVGFEPointLightElement -instance IsNode SVGFEPointLightElement -instance IsEventTarget SVGFEPointLightElement -instance IsSlotable SVGFEPointLightElement -instance IsParentNode SVGFEPointLightElement -instance IsNonDocumentTypeChildNode SVGFEPointLightElement -instance IsChildNode SVGFEPointLightElement -instance IsAnimatable SVGFEPointLightElement -instance IsGlobalEventHandlers SVGFEPointLightElement -instance IsGObject SVGFEPointLightElement where - typeGType _ = gTypeSVGFEPointLightElement - {-# INLINE typeGType #-} - -gTypeSVGFEPointLightElement :: JSM GType -gTypeSVGFEPointLightElement = GType . Object <$> jsg "SVGFEPointLightElement" - --- | Functions for this inteface are in "JSDOM.SVGFESpecularLightingElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFESpecularLightingElement = SVGFESpecularLightingElement { unSVGFESpecularLightingElement :: JSVal } - -instance PToJSVal SVGFESpecularLightingElement where - pToJSVal = unSVGFESpecularLightingElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFESpecularLightingElement where - pFromJSVal = SVGFESpecularLightingElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFESpecularLightingElement where - toJSVal = return . unSVGFESpecularLightingElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFESpecularLightingElement where - fromJSVal v = fmap SVGFESpecularLightingElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFESpecularLightingElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFESpecularLightingElement where - makeObject = makeObject . unSVGFESpecularLightingElement - -instance IsSVGElement SVGFESpecularLightingElement -instance IsElement SVGFESpecularLightingElement -instance IsNode SVGFESpecularLightingElement -instance IsEventTarget SVGFESpecularLightingElement -instance IsSlotable SVGFESpecularLightingElement -instance IsParentNode SVGFESpecularLightingElement -instance IsNonDocumentTypeChildNode SVGFESpecularLightingElement -instance IsChildNode SVGFESpecularLightingElement -instance IsAnimatable SVGFESpecularLightingElement -instance IsGlobalEventHandlers SVGFESpecularLightingElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFESpecularLightingElement -instance IsGObject SVGFESpecularLightingElement where - typeGType _ = gTypeSVGFESpecularLightingElement - {-# INLINE typeGType #-} - -gTypeSVGFESpecularLightingElement :: JSM GType -gTypeSVGFESpecularLightingElement = GType . Object <$> jsg "SVGFESpecularLightingElement" - --- | Functions for this inteface are in "JSDOM.SVGFESpotLightElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFESpotLightElement = SVGFESpotLightElement { unSVGFESpotLightElement :: JSVal } - -instance PToJSVal SVGFESpotLightElement where - pToJSVal = unSVGFESpotLightElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFESpotLightElement where - pFromJSVal = SVGFESpotLightElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFESpotLightElement where - toJSVal = return . unSVGFESpotLightElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFESpotLightElement where - fromJSVal v = fmap SVGFESpotLightElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFESpotLightElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFESpotLightElement where - makeObject = makeObject . unSVGFESpotLightElement - -instance IsSVGElement SVGFESpotLightElement -instance IsElement SVGFESpotLightElement -instance IsNode SVGFESpotLightElement -instance IsEventTarget SVGFESpotLightElement -instance IsSlotable SVGFESpotLightElement -instance IsParentNode SVGFESpotLightElement -instance IsNonDocumentTypeChildNode SVGFESpotLightElement -instance IsChildNode SVGFESpotLightElement -instance IsAnimatable SVGFESpotLightElement -instance IsGlobalEventHandlers SVGFESpotLightElement -instance IsGObject SVGFESpotLightElement where - typeGType _ = gTypeSVGFESpotLightElement - {-# INLINE typeGType #-} - -gTypeSVGFESpotLightElement :: JSM GType -gTypeSVGFESpotLightElement = GType . Object <$> jsg "SVGFESpotLightElement" - --- | Functions for this inteface are in "JSDOM.SVGFETileElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFETileElement = SVGFETileElement { unSVGFETileElement :: JSVal } - -instance PToJSVal SVGFETileElement where - pToJSVal = unSVGFETileElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFETileElement where - pFromJSVal = SVGFETileElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFETileElement where - toJSVal = return . unSVGFETileElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFETileElement where - fromJSVal v = fmap SVGFETileElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFETileElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFETileElement where - makeObject = makeObject . unSVGFETileElement - -instance IsSVGElement SVGFETileElement -instance IsElement SVGFETileElement -instance IsNode SVGFETileElement -instance IsEventTarget SVGFETileElement -instance IsSlotable SVGFETileElement -instance IsParentNode SVGFETileElement -instance IsNonDocumentTypeChildNode SVGFETileElement -instance IsChildNode SVGFETileElement -instance IsAnimatable SVGFETileElement -instance IsGlobalEventHandlers SVGFETileElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFETileElement -instance IsGObject SVGFETileElement where - typeGType _ = gTypeSVGFETileElement - {-# INLINE typeGType #-} - -gTypeSVGFETileElement :: JSM GType -gTypeSVGFETileElement = GType . Object <$> jsg "SVGFETileElement" - --- | Functions for this inteface are in "JSDOM.SVGFETurbulenceElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFilterPrimitiveStandardAttributes" --- --- -newtype SVGFETurbulenceElement = SVGFETurbulenceElement { unSVGFETurbulenceElement :: JSVal } - -instance PToJSVal SVGFETurbulenceElement where - pToJSVal = unSVGFETurbulenceElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFETurbulenceElement where - pFromJSVal = SVGFETurbulenceElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFETurbulenceElement where - toJSVal = return . unSVGFETurbulenceElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFETurbulenceElement where - fromJSVal v = fmap SVGFETurbulenceElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFETurbulenceElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFETurbulenceElement where - makeObject = makeObject . unSVGFETurbulenceElement - -instance IsSVGElement SVGFETurbulenceElement -instance IsElement SVGFETurbulenceElement -instance IsNode SVGFETurbulenceElement -instance IsEventTarget SVGFETurbulenceElement -instance IsSlotable SVGFETurbulenceElement -instance IsParentNode SVGFETurbulenceElement -instance IsNonDocumentTypeChildNode SVGFETurbulenceElement -instance IsChildNode SVGFETurbulenceElement -instance IsAnimatable SVGFETurbulenceElement -instance IsGlobalEventHandlers SVGFETurbulenceElement -instance IsSVGFilterPrimitiveStandardAttributes SVGFETurbulenceElement -instance IsGObject SVGFETurbulenceElement where - typeGType _ = gTypeSVGFETurbulenceElement - {-# INLINE typeGType #-} - -gTypeSVGFETurbulenceElement :: JSM GType -gTypeSVGFETurbulenceElement = GType . Object <$> jsg "SVGFETurbulenceElement" - --- | Functions for this inteface are in "JSDOM.SVGFilterElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGFilterElement = SVGFilterElement { unSVGFilterElement :: JSVal } - -instance PToJSVal SVGFilterElement where - pToJSVal = unSVGFilterElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFilterElement where - pFromJSVal = SVGFilterElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFilterElement where - toJSVal = return . unSVGFilterElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFilterElement where - fromJSVal v = fmap SVGFilterElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFilterElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFilterElement where - makeObject = makeObject . unSVGFilterElement - -instance IsSVGElement SVGFilterElement -instance IsElement SVGFilterElement -instance IsNode SVGFilterElement -instance IsEventTarget SVGFilterElement -instance IsSlotable SVGFilterElement -instance IsParentNode SVGFilterElement -instance IsNonDocumentTypeChildNode SVGFilterElement -instance IsChildNode SVGFilterElement -instance IsAnimatable SVGFilterElement -instance IsGlobalEventHandlers SVGFilterElement -instance IsSVGURIReference SVGFilterElement -instance IsSVGExternalResourcesRequired SVGFilterElement -instance IsGObject SVGFilterElement where - typeGType _ = gTypeSVGFilterElement - {-# INLINE typeGType #-} - -gTypeSVGFilterElement :: JSM GType -gTypeSVGFilterElement = GType . Object <$> jsg "SVGFilterElement" - --- | Functions for this inteface are in "JSDOM.SVGFilterPrimitiveStandardAttributes". --- --- -newtype SVGFilterPrimitiveStandardAttributes = SVGFilterPrimitiveStandardAttributes { unSVGFilterPrimitiveStandardAttributes :: JSVal } - -instance PToJSVal SVGFilterPrimitiveStandardAttributes where - pToJSVal = unSVGFilterPrimitiveStandardAttributes - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFilterPrimitiveStandardAttributes where - pFromJSVal = SVGFilterPrimitiveStandardAttributes - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFilterPrimitiveStandardAttributes where - toJSVal = return . unSVGFilterPrimitiveStandardAttributes - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFilterPrimitiveStandardAttributes where - fromJSVal v = fmap SVGFilterPrimitiveStandardAttributes <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFilterPrimitiveStandardAttributes - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFilterPrimitiveStandardAttributes where - makeObject = makeObject . unSVGFilterPrimitiveStandardAttributes - -class (IsGObject o) => IsSVGFilterPrimitiveStandardAttributes o -toSVGFilterPrimitiveStandardAttributes :: IsSVGFilterPrimitiveStandardAttributes o => o -> SVGFilterPrimitiveStandardAttributes -toSVGFilterPrimitiveStandardAttributes = SVGFilterPrimitiveStandardAttributes . coerce - -instance IsSVGFilterPrimitiveStandardAttributes SVGFilterPrimitiveStandardAttributes -instance IsGObject SVGFilterPrimitiveStandardAttributes where - typeGType _ = gTypeSVGFilterPrimitiveStandardAttributes - {-# INLINE typeGType #-} - -gTypeSVGFilterPrimitiveStandardAttributes :: JSM GType -gTypeSVGFilterPrimitiveStandardAttributes = GType . Object <$> jsg "SVGFilterPrimitiveStandardAttributes" - --- | Functions for this inteface are in "JSDOM.SVGFitToViewBox". --- --- -newtype SVGFitToViewBox = SVGFitToViewBox { unSVGFitToViewBox :: JSVal } - -instance PToJSVal SVGFitToViewBox where - pToJSVal = unSVGFitToViewBox - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFitToViewBox where - pFromJSVal = SVGFitToViewBox - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFitToViewBox where - toJSVal = return . unSVGFitToViewBox - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFitToViewBox where - fromJSVal v = fmap SVGFitToViewBox <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFitToViewBox - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFitToViewBox where - makeObject = makeObject . unSVGFitToViewBox - -class (IsGObject o) => IsSVGFitToViewBox o -toSVGFitToViewBox :: IsSVGFitToViewBox o => o -> SVGFitToViewBox -toSVGFitToViewBox = SVGFitToViewBox . coerce - -instance IsSVGFitToViewBox SVGFitToViewBox -instance IsGObject SVGFitToViewBox where - typeGType _ = gTypeSVGFitToViewBox - {-# INLINE typeGType #-} - -gTypeSVGFitToViewBox :: JSM GType -gTypeSVGFitToViewBox = GType . Object <$> jsg "SVGFitToViewBox" - --- | Functions for this inteface are in "JSDOM.SVGFontElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFontElement = SVGFontElement { unSVGFontElement :: JSVal } - -instance PToJSVal SVGFontElement where - pToJSVal = unSVGFontElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontElement where - pFromJSVal = SVGFontElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontElement where - toJSVal = return . unSVGFontElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontElement where - fromJSVal v = fmap SVGFontElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFontElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFontElement where - makeObject = makeObject . unSVGFontElement - -instance IsSVGElement SVGFontElement -instance IsElement SVGFontElement -instance IsNode SVGFontElement -instance IsEventTarget SVGFontElement -instance IsSlotable SVGFontElement -instance IsParentNode SVGFontElement -instance IsNonDocumentTypeChildNode SVGFontElement -instance IsChildNode SVGFontElement -instance IsAnimatable SVGFontElement -instance IsGlobalEventHandlers SVGFontElement -instance IsGObject SVGFontElement where - typeGType _ = gTypeSVGFontElement - {-# INLINE typeGType #-} - -gTypeSVGFontElement :: JSM GType -gTypeSVGFontElement = GType . Object <$> jsg "SVGFontElement" - --- | Functions for this inteface are in "JSDOM.SVGFontFaceElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFontFaceElement = SVGFontFaceElement { unSVGFontFaceElement :: JSVal } - -instance PToJSVal SVGFontFaceElement where - pToJSVal = unSVGFontFaceElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceElement where - pFromJSVal = SVGFontFaceElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceElement where - toJSVal = return . unSVGFontFaceElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceElement where - fromJSVal v = fmap SVGFontFaceElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFontFaceElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFontFaceElement where - makeObject = makeObject . unSVGFontFaceElement - -instance IsSVGElement SVGFontFaceElement -instance IsElement SVGFontFaceElement -instance IsNode SVGFontFaceElement -instance IsEventTarget SVGFontFaceElement -instance IsSlotable SVGFontFaceElement -instance IsParentNode SVGFontFaceElement -instance IsNonDocumentTypeChildNode SVGFontFaceElement -instance IsChildNode SVGFontFaceElement -instance IsAnimatable SVGFontFaceElement -instance IsGlobalEventHandlers SVGFontFaceElement -instance IsGObject SVGFontFaceElement where - typeGType _ = gTypeSVGFontFaceElement - {-# INLINE typeGType #-} - -gTypeSVGFontFaceElement :: JSM GType -gTypeSVGFontFaceElement = GType . Object <$> jsg "SVGFontFaceElement" - --- | Functions for this inteface are in "JSDOM.SVGFontFaceFormatElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFontFaceFormatElement = SVGFontFaceFormatElement { unSVGFontFaceFormatElement :: JSVal } - -instance PToJSVal SVGFontFaceFormatElement where - pToJSVal = unSVGFontFaceFormatElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceFormatElement where - pFromJSVal = SVGFontFaceFormatElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceFormatElement where - toJSVal = return . unSVGFontFaceFormatElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceFormatElement where - fromJSVal v = fmap SVGFontFaceFormatElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFontFaceFormatElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFontFaceFormatElement where - makeObject = makeObject . unSVGFontFaceFormatElement - -instance IsSVGElement SVGFontFaceFormatElement -instance IsElement SVGFontFaceFormatElement -instance IsNode SVGFontFaceFormatElement -instance IsEventTarget SVGFontFaceFormatElement -instance IsSlotable SVGFontFaceFormatElement -instance IsParentNode SVGFontFaceFormatElement -instance IsNonDocumentTypeChildNode SVGFontFaceFormatElement -instance IsChildNode SVGFontFaceFormatElement -instance IsAnimatable SVGFontFaceFormatElement -instance IsGlobalEventHandlers SVGFontFaceFormatElement -instance IsGObject SVGFontFaceFormatElement where - typeGType _ = gTypeSVGFontFaceFormatElement - {-# INLINE typeGType #-} - -gTypeSVGFontFaceFormatElement :: JSM GType -gTypeSVGFontFaceFormatElement = GType . Object <$> jsg "SVGFontFaceFormatElement" - --- | Functions for this inteface are in "JSDOM.SVGFontFaceNameElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFontFaceNameElement = SVGFontFaceNameElement { unSVGFontFaceNameElement :: JSVal } - -instance PToJSVal SVGFontFaceNameElement where - pToJSVal = unSVGFontFaceNameElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceNameElement where - pFromJSVal = SVGFontFaceNameElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceNameElement where - toJSVal = return . unSVGFontFaceNameElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceNameElement where - fromJSVal v = fmap SVGFontFaceNameElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFontFaceNameElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFontFaceNameElement where - makeObject = makeObject . unSVGFontFaceNameElement - -instance IsSVGElement SVGFontFaceNameElement -instance IsElement SVGFontFaceNameElement -instance IsNode SVGFontFaceNameElement -instance IsEventTarget SVGFontFaceNameElement -instance IsSlotable SVGFontFaceNameElement -instance IsParentNode SVGFontFaceNameElement -instance IsNonDocumentTypeChildNode SVGFontFaceNameElement -instance IsChildNode SVGFontFaceNameElement -instance IsAnimatable SVGFontFaceNameElement -instance IsGlobalEventHandlers SVGFontFaceNameElement -instance IsGObject SVGFontFaceNameElement where - typeGType _ = gTypeSVGFontFaceNameElement - {-# INLINE typeGType #-} - -gTypeSVGFontFaceNameElement :: JSM GType -gTypeSVGFontFaceNameElement = GType . Object <$> jsg "SVGFontFaceNameElement" - --- | Functions for this inteface are in "JSDOM.SVGFontFaceSrcElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFontFaceSrcElement = SVGFontFaceSrcElement { unSVGFontFaceSrcElement :: JSVal } - -instance PToJSVal SVGFontFaceSrcElement where - pToJSVal = unSVGFontFaceSrcElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceSrcElement where - pFromJSVal = SVGFontFaceSrcElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceSrcElement where - toJSVal = return . unSVGFontFaceSrcElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceSrcElement where - fromJSVal v = fmap SVGFontFaceSrcElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFontFaceSrcElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFontFaceSrcElement where - makeObject = makeObject . unSVGFontFaceSrcElement - -instance IsSVGElement SVGFontFaceSrcElement -instance IsElement SVGFontFaceSrcElement -instance IsNode SVGFontFaceSrcElement -instance IsEventTarget SVGFontFaceSrcElement -instance IsSlotable SVGFontFaceSrcElement -instance IsParentNode SVGFontFaceSrcElement -instance IsNonDocumentTypeChildNode SVGFontFaceSrcElement -instance IsChildNode SVGFontFaceSrcElement -instance IsAnimatable SVGFontFaceSrcElement -instance IsGlobalEventHandlers SVGFontFaceSrcElement -instance IsGObject SVGFontFaceSrcElement where - typeGType _ = gTypeSVGFontFaceSrcElement - {-# INLINE typeGType #-} - -gTypeSVGFontFaceSrcElement :: JSM GType -gTypeSVGFontFaceSrcElement = GType . Object <$> jsg "SVGFontFaceSrcElement" - --- | Functions for this inteface are in "JSDOM.SVGFontFaceUriElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGFontFaceUriElement = SVGFontFaceUriElement { unSVGFontFaceUriElement :: JSVal } - -instance PToJSVal SVGFontFaceUriElement where - pToJSVal = unSVGFontFaceUriElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGFontFaceUriElement where - pFromJSVal = SVGFontFaceUriElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGFontFaceUriElement where - toJSVal = return . unSVGFontFaceUriElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGFontFaceUriElement where - fromJSVal v = fmap SVGFontFaceUriElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGFontFaceUriElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGFontFaceUriElement where - makeObject = makeObject . unSVGFontFaceUriElement - -instance IsSVGElement SVGFontFaceUriElement -instance IsElement SVGFontFaceUriElement -instance IsNode SVGFontFaceUriElement -instance IsEventTarget SVGFontFaceUriElement -instance IsSlotable SVGFontFaceUriElement -instance IsParentNode SVGFontFaceUriElement -instance IsNonDocumentTypeChildNode SVGFontFaceUriElement -instance IsChildNode SVGFontFaceUriElement -instance IsAnimatable SVGFontFaceUriElement -instance IsGlobalEventHandlers SVGFontFaceUriElement -instance IsGObject SVGFontFaceUriElement where - typeGType _ = gTypeSVGFontFaceUriElement - {-# INLINE typeGType #-} - -gTypeSVGFontFaceUriElement :: JSM GType -gTypeSVGFontFaceUriElement = GType . Object <$> jsg "SVGFontFaceUriElement" - --- | Functions for this inteface are in "JSDOM.SVGForeignObjectElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGForeignObjectElement = SVGForeignObjectElement { unSVGForeignObjectElement :: JSVal } - -instance PToJSVal SVGForeignObjectElement where - pToJSVal = unSVGForeignObjectElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGForeignObjectElement where - pFromJSVal = SVGForeignObjectElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGForeignObjectElement where - toJSVal = return . unSVGForeignObjectElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGForeignObjectElement where - fromJSVal v = fmap SVGForeignObjectElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGForeignObjectElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGForeignObjectElement where - makeObject = makeObject . unSVGForeignObjectElement - -instance IsSVGGraphicsElement SVGForeignObjectElement -instance IsSVGElement SVGForeignObjectElement -instance IsElement SVGForeignObjectElement -instance IsNode SVGForeignObjectElement -instance IsEventTarget SVGForeignObjectElement -instance IsSlotable SVGForeignObjectElement -instance IsParentNode SVGForeignObjectElement -instance IsNonDocumentTypeChildNode SVGForeignObjectElement -instance IsChildNode SVGForeignObjectElement -instance IsAnimatable SVGForeignObjectElement -instance IsGlobalEventHandlers SVGForeignObjectElement -instance IsSVGTests SVGForeignObjectElement -instance IsSVGExternalResourcesRequired SVGForeignObjectElement -instance IsGObject SVGForeignObjectElement where - typeGType _ = gTypeSVGForeignObjectElement - {-# INLINE typeGType #-} - -gTypeSVGForeignObjectElement :: JSM GType -gTypeSVGForeignObjectElement = GType . Object <$> jsg "SVGForeignObjectElement" - --- | Functions for this inteface are in "JSDOM.SVGGElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGGElement = SVGGElement { unSVGGElement :: JSVal } - -instance PToJSVal SVGGElement where - pToJSVal = unSVGGElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGElement where - pFromJSVal = SVGGElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGElement where - toJSVal = return . unSVGGElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGElement where - fromJSVal v = fmap SVGGElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGGElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGGElement where - makeObject = makeObject . unSVGGElement - -instance IsSVGGraphicsElement SVGGElement -instance IsSVGElement SVGGElement -instance IsElement SVGGElement -instance IsNode SVGGElement -instance IsEventTarget SVGGElement -instance IsSlotable SVGGElement -instance IsParentNode SVGGElement -instance IsNonDocumentTypeChildNode SVGGElement -instance IsChildNode SVGGElement -instance IsAnimatable SVGGElement -instance IsGlobalEventHandlers SVGGElement -instance IsSVGTests SVGGElement -instance IsSVGExternalResourcesRequired SVGGElement -instance IsGObject SVGGElement where - typeGType _ = gTypeSVGGElement - {-# INLINE typeGType #-} - -gTypeSVGGElement :: JSM GType -gTypeSVGGElement = GType . Object <$> jsg "SVGGElement" - --- | Functions for this inteface are in "JSDOM.SVGGlyphElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGGlyphElement = SVGGlyphElement { unSVGGlyphElement :: JSVal } - -instance PToJSVal SVGGlyphElement where - pToJSVal = unSVGGlyphElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGlyphElement where - pFromJSVal = SVGGlyphElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGlyphElement where - toJSVal = return . unSVGGlyphElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGlyphElement where - fromJSVal v = fmap SVGGlyphElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGGlyphElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGGlyphElement where - makeObject = makeObject . unSVGGlyphElement - -instance IsSVGElement SVGGlyphElement -instance IsElement SVGGlyphElement -instance IsNode SVGGlyphElement -instance IsEventTarget SVGGlyphElement -instance IsSlotable SVGGlyphElement -instance IsParentNode SVGGlyphElement -instance IsNonDocumentTypeChildNode SVGGlyphElement -instance IsChildNode SVGGlyphElement -instance IsAnimatable SVGGlyphElement -instance IsGlobalEventHandlers SVGGlyphElement -instance IsGObject SVGGlyphElement where - typeGType _ = gTypeSVGGlyphElement - {-# INLINE typeGType #-} - -gTypeSVGGlyphElement :: JSM GType -gTypeSVGGlyphElement = GType . Object <$> jsg "SVGGlyphElement" - --- | Functions for this inteface are in "JSDOM.SVGGlyphRefElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- --- -newtype SVGGlyphRefElement = SVGGlyphRefElement { unSVGGlyphRefElement :: JSVal } - -instance PToJSVal SVGGlyphRefElement where - pToJSVal = unSVGGlyphRefElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGlyphRefElement where - pFromJSVal = SVGGlyphRefElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGlyphRefElement where - toJSVal = return . unSVGGlyphRefElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGlyphRefElement where - fromJSVal v = fmap SVGGlyphRefElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGGlyphRefElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGGlyphRefElement where - makeObject = makeObject . unSVGGlyphRefElement - -instance IsSVGElement SVGGlyphRefElement -instance IsElement SVGGlyphRefElement -instance IsNode SVGGlyphRefElement -instance IsEventTarget SVGGlyphRefElement -instance IsSlotable SVGGlyphRefElement -instance IsParentNode SVGGlyphRefElement -instance IsNonDocumentTypeChildNode SVGGlyphRefElement -instance IsChildNode SVGGlyphRefElement -instance IsAnimatable SVGGlyphRefElement -instance IsGlobalEventHandlers SVGGlyphRefElement -instance IsSVGURIReference SVGGlyphRefElement -instance IsGObject SVGGlyphRefElement where - typeGType _ = gTypeSVGGlyphRefElement - {-# INLINE typeGType #-} - -gTypeSVGGlyphRefElement :: JSM GType -gTypeSVGGlyphRefElement = GType . Object <$> jsg "SVGGlyphRefElement" - --- | Functions for this inteface are in "JSDOM.SVGGradientElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGGradientElement = SVGGradientElement { unSVGGradientElement :: JSVal } - -instance PToJSVal SVGGradientElement where - pToJSVal = unSVGGradientElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGradientElement where - pFromJSVal = SVGGradientElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGradientElement where - toJSVal = return . unSVGGradientElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGradientElement where - fromJSVal v = fmap SVGGradientElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGGradientElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGGradientElement where - makeObject = makeObject . unSVGGradientElement - -class (IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsSVGURIReference o, IsSVGExternalResourcesRequired o, IsGObject o) => IsSVGGradientElement o -toSVGGradientElement :: IsSVGGradientElement o => o -> SVGGradientElement -toSVGGradientElement = SVGGradientElement . coerce - -instance IsSVGGradientElement SVGGradientElement -instance IsSVGElement SVGGradientElement -instance IsElement SVGGradientElement -instance IsNode SVGGradientElement -instance IsEventTarget SVGGradientElement -instance IsSlotable SVGGradientElement -instance IsParentNode SVGGradientElement -instance IsNonDocumentTypeChildNode SVGGradientElement -instance IsChildNode SVGGradientElement -instance IsAnimatable SVGGradientElement -instance IsGlobalEventHandlers SVGGradientElement -instance IsSVGURIReference SVGGradientElement -instance IsSVGExternalResourcesRequired SVGGradientElement -instance IsGObject SVGGradientElement where - typeGType _ = gTypeSVGGradientElement - {-# INLINE typeGType #-} - -gTypeSVGGradientElement :: JSM GType -gTypeSVGGradientElement = GType . Object <$> jsg "SVGGradientElement" - --- | Functions for this inteface are in "JSDOM.SVGGraphicsElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- --- -newtype SVGGraphicsElement = SVGGraphicsElement { unSVGGraphicsElement :: JSVal } - -instance PToJSVal SVGGraphicsElement where - pToJSVal = unSVGGraphicsElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGGraphicsElement where - pFromJSVal = SVGGraphicsElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGGraphicsElement where - toJSVal = return . unSVGGraphicsElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGGraphicsElement where - fromJSVal v = fmap SVGGraphicsElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGGraphicsElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGGraphicsElement where - makeObject = makeObject . unSVGGraphicsElement - -class (IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsSVGTests o, IsGObject o) => IsSVGGraphicsElement o -toSVGGraphicsElement :: IsSVGGraphicsElement o => o -> SVGGraphicsElement -toSVGGraphicsElement = SVGGraphicsElement . coerce - -instance IsSVGGraphicsElement SVGGraphicsElement -instance IsSVGElement SVGGraphicsElement -instance IsElement SVGGraphicsElement -instance IsNode SVGGraphicsElement -instance IsEventTarget SVGGraphicsElement -instance IsSlotable SVGGraphicsElement -instance IsParentNode SVGGraphicsElement -instance IsNonDocumentTypeChildNode SVGGraphicsElement -instance IsChildNode SVGGraphicsElement -instance IsAnimatable SVGGraphicsElement -instance IsGlobalEventHandlers SVGGraphicsElement -instance IsSVGTests SVGGraphicsElement -instance IsGObject SVGGraphicsElement where - typeGType _ = gTypeSVGGraphicsElement - {-# INLINE typeGType #-} - -gTypeSVGGraphicsElement :: JSM GType -gTypeSVGGraphicsElement = GType . Object <$> jsg "SVGGraphicsElement" - --- | Functions for this inteface are in "JSDOM.SVGHKernElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGHKernElement = SVGHKernElement { unSVGHKernElement :: JSVal } - -instance PToJSVal SVGHKernElement where - pToJSVal = unSVGHKernElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGHKernElement where - pFromJSVal = SVGHKernElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGHKernElement where - toJSVal = return . unSVGHKernElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGHKernElement where - fromJSVal v = fmap SVGHKernElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGHKernElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGHKernElement where - makeObject = makeObject . unSVGHKernElement - -instance IsSVGElement SVGHKernElement -instance IsElement SVGHKernElement -instance IsNode SVGHKernElement -instance IsEventTarget SVGHKernElement -instance IsSlotable SVGHKernElement -instance IsParentNode SVGHKernElement -instance IsNonDocumentTypeChildNode SVGHKernElement -instance IsChildNode SVGHKernElement -instance IsAnimatable SVGHKernElement -instance IsGlobalEventHandlers SVGHKernElement -instance IsGObject SVGHKernElement where - typeGType _ = gTypeSVGHKernElement - {-# INLINE typeGType #-} - -gTypeSVGHKernElement :: JSM GType -gTypeSVGHKernElement = GType . Object <$> jsg "SVGHKernElement" - --- | Functions for this inteface are in "JSDOM.SVGImageElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGImageElement = SVGImageElement { unSVGImageElement :: JSVal } - -instance PToJSVal SVGImageElement where - pToJSVal = unSVGImageElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGImageElement where - pFromJSVal = SVGImageElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGImageElement where - toJSVal = return . unSVGImageElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGImageElement where - fromJSVal v = fmap SVGImageElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGImageElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGImageElement where - makeObject = makeObject . unSVGImageElement - -instance IsSVGGraphicsElement SVGImageElement -instance IsSVGElement SVGImageElement -instance IsElement SVGImageElement -instance IsNode SVGImageElement -instance IsEventTarget SVGImageElement -instance IsSlotable SVGImageElement -instance IsParentNode SVGImageElement -instance IsNonDocumentTypeChildNode SVGImageElement -instance IsChildNode SVGImageElement -instance IsAnimatable SVGImageElement -instance IsGlobalEventHandlers SVGImageElement -instance IsSVGTests SVGImageElement -instance IsSVGURIReference SVGImageElement -instance IsSVGExternalResourcesRequired SVGImageElement -instance IsGObject SVGImageElement where - typeGType _ = gTypeSVGImageElement - {-# INLINE typeGType #-} - -gTypeSVGImageElement :: JSM GType -gTypeSVGImageElement = GType . Object <$> jsg "SVGImageElement" - --- | Functions for this inteface are in "JSDOM.SVGLength". --- --- -newtype SVGLength = SVGLength { unSVGLength :: JSVal } - -instance PToJSVal SVGLength where - pToJSVal = unSVGLength - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGLength where - pFromJSVal = SVGLength - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGLength where - toJSVal = return . unSVGLength - {-# INLINE toJSVal #-} - -instance FromJSVal SVGLength where - fromJSVal v = fmap SVGLength <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGLength - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGLength where - makeObject = makeObject . unSVGLength - -instance IsGObject SVGLength where - typeGType _ = gTypeSVGLength - {-# INLINE typeGType #-} - -gTypeSVGLength :: JSM GType -gTypeSVGLength = GType . Object <$> jsg "SVGLength" - --- | Functions for this inteface are in "JSDOM.SVGLengthList". --- --- -newtype SVGLengthList = SVGLengthList { unSVGLengthList :: JSVal } - -instance PToJSVal SVGLengthList where - pToJSVal = unSVGLengthList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGLengthList where - pFromJSVal = SVGLengthList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGLengthList where - toJSVal = return . unSVGLengthList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGLengthList where - fromJSVal v = fmap SVGLengthList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGLengthList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGLengthList where - makeObject = makeObject . unSVGLengthList - -instance IsGObject SVGLengthList where - typeGType _ = gTypeSVGLengthList - {-# INLINE typeGType #-} - -gTypeSVGLengthList :: JSM GType -gTypeSVGLengthList = GType . Object <$> jsg "SVGLengthList" - --- | Functions for this inteface are in "JSDOM.SVGLineElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGLineElement = SVGLineElement { unSVGLineElement :: JSVal } - -instance PToJSVal SVGLineElement where - pToJSVal = unSVGLineElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGLineElement where - pFromJSVal = SVGLineElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGLineElement where - toJSVal = return . unSVGLineElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGLineElement where - fromJSVal v = fmap SVGLineElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGLineElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGLineElement where - makeObject = makeObject . unSVGLineElement - -instance IsSVGGraphicsElement SVGLineElement -instance IsSVGElement SVGLineElement -instance IsElement SVGLineElement -instance IsNode SVGLineElement -instance IsEventTarget SVGLineElement -instance IsSlotable SVGLineElement -instance IsParentNode SVGLineElement -instance IsNonDocumentTypeChildNode SVGLineElement -instance IsChildNode SVGLineElement -instance IsAnimatable SVGLineElement -instance IsGlobalEventHandlers SVGLineElement -instance IsSVGTests SVGLineElement -instance IsSVGExternalResourcesRequired SVGLineElement -instance IsGObject SVGLineElement where - typeGType _ = gTypeSVGLineElement - {-# INLINE typeGType #-} - -gTypeSVGLineElement :: JSM GType -gTypeSVGLineElement = GType . Object <$> jsg "SVGLineElement" - --- | Functions for this inteface are in "JSDOM.SVGLinearGradientElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGradientElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGLinearGradientElement = SVGLinearGradientElement { unSVGLinearGradientElement :: JSVal } - -instance PToJSVal SVGLinearGradientElement where - pToJSVal = unSVGLinearGradientElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGLinearGradientElement where - pFromJSVal = SVGLinearGradientElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGLinearGradientElement where - toJSVal = return . unSVGLinearGradientElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGLinearGradientElement where - fromJSVal v = fmap SVGLinearGradientElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGLinearGradientElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGLinearGradientElement where - makeObject = makeObject . unSVGLinearGradientElement - -instance IsSVGGradientElement SVGLinearGradientElement -instance IsSVGElement SVGLinearGradientElement -instance IsElement SVGLinearGradientElement -instance IsNode SVGLinearGradientElement -instance IsEventTarget SVGLinearGradientElement -instance IsSlotable SVGLinearGradientElement -instance IsParentNode SVGLinearGradientElement -instance IsNonDocumentTypeChildNode SVGLinearGradientElement -instance IsChildNode SVGLinearGradientElement -instance IsAnimatable SVGLinearGradientElement -instance IsGlobalEventHandlers SVGLinearGradientElement -instance IsSVGURIReference SVGLinearGradientElement -instance IsSVGExternalResourcesRequired SVGLinearGradientElement -instance IsGObject SVGLinearGradientElement where - typeGType _ = gTypeSVGLinearGradientElement - {-# INLINE typeGType #-} - -gTypeSVGLinearGradientElement :: JSM GType -gTypeSVGLinearGradientElement = GType . Object <$> jsg "SVGLinearGradientElement" - --- | Functions for this inteface are in "JSDOM.SVGMPathElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGMPathElement = SVGMPathElement { unSVGMPathElement :: JSVal } - -instance PToJSVal SVGMPathElement where - pToJSVal = unSVGMPathElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMPathElement where - pFromJSVal = SVGMPathElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMPathElement where - toJSVal = return . unSVGMPathElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMPathElement where - fromJSVal v = fmap SVGMPathElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGMPathElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGMPathElement where - makeObject = makeObject . unSVGMPathElement - -instance IsSVGElement SVGMPathElement -instance IsElement SVGMPathElement -instance IsNode SVGMPathElement -instance IsEventTarget SVGMPathElement -instance IsSlotable SVGMPathElement -instance IsParentNode SVGMPathElement -instance IsNonDocumentTypeChildNode SVGMPathElement -instance IsChildNode SVGMPathElement -instance IsAnimatable SVGMPathElement -instance IsGlobalEventHandlers SVGMPathElement -instance IsSVGURIReference SVGMPathElement -instance IsSVGExternalResourcesRequired SVGMPathElement -instance IsGObject SVGMPathElement where - typeGType _ = gTypeSVGMPathElement - {-# INLINE typeGType #-} - -gTypeSVGMPathElement :: JSM GType -gTypeSVGMPathElement = GType . Object <$> jsg "SVGMPathElement" - --- | Functions for this inteface are in "JSDOM.SVGMarkerElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFitToViewBox" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGMarkerElement = SVGMarkerElement { unSVGMarkerElement :: JSVal } - -instance PToJSVal SVGMarkerElement where - pToJSVal = unSVGMarkerElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMarkerElement where - pFromJSVal = SVGMarkerElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMarkerElement where - toJSVal = return . unSVGMarkerElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMarkerElement where - fromJSVal v = fmap SVGMarkerElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGMarkerElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGMarkerElement where - makeObject = makeObject . unSVGMarkerElement - -instance IsSVGElement SVGMarkerElement -instance IsElement SVGMarkerElement -instance IsNode SVGMarkerElement -instance IsEventTarget SVGMarkerElement -instance IsSlotable SVGMarkerElement -instance IsParentNode SVGMarkerElement -instance IsNonDocumentTypeChildNode SVGMarkerElement -instance IsChildNode SVGMarkerElement -instance IsAnimatable SVGMarkerElement -instance IsGlobalEventHandlers SVGMarkerElement -instance IsSVGFitToViewBox SVGMarkerElement -instance IsSVGExternalResourcesRequired SVGMarkerElement -instance IsGObject SVGMarkerElement where - typeGType _ = gTypeSVGMarkerElement - {-# INLINE typeGType #-} - -gTypeSVGMarkerElement :: JSM GType -gTypeSVGMarkerElement = GType . Object <$> jsg "SVGMarkerElement" - --- | Functions for this inteface are in "JSDOM.SVGMaskElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGMaskElement = SVGMaskElement { unSVGMaskElement :: JSVal } - -instance PToJSVal SVGMaskElement where - pToJSVal = unSVGMaskElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMaskElement where - pFromJSVal = SVGMaskElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMaskElement where - toJSVal = return . unSVGMaskElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMaskElement where - fromJSVal v = fmap SVGMaskElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGMaskElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGMaskElement where - makeObject = makeObject . unSVGMaskElement - -instance IsSVGElement SVGMaskElement -instance IsElement SVGMaskElement -instance IsNode SVGMaskElement -instance IsEventTarget SVGMaskElement -instance IsSlotable SVGMaskElement -instance IsParentNode SVGMaskElement -instance IsNonDocumentTypeChildNode SVGMaskElement -instance IsChildNode SVGMaskElement -instance IsAnimatable SVGMaskElement -instance IsGlobalEventHandlers SVGMaskElement -instance IsSVGTests SVGMaskElement -instance IsSVGExternalResourcesRequired SVGMaskElement -instance IsGObject SVGMaskElement where - typeGType _ = gTypeSVGMaskElement - {-# INLINE typeGType #-} - -gTypeSVGMaskElement :: JSM GType -gTypeSVGMaskElement = GType . Object <$> jsg "SVGMaskElement" - --- | Functions for this inteface are in "JSDOM.SVGMatrix". --- --- -newtype SVGMatrix = SVGMatrix { unSVGMatrix :: JSVal } - -instance PToJSVal SVGMatrix where - pToJSVal = unSVGMatrix - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMatrix where - pFromJSVal = SVGMatrix - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMatrix where - toJSVal = return . unSVGMatrix - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMatrix where - fromJSVal v = fmap SVGMatrix <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGMatrix - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGMatrix where - makeObject = makeObject . unSVGMatrix - -instance IsGObject SVGMatrix where - typeGType _ = gTypeSVGMatrix - {-# INLINE typeGType #-} - -gTypeSVGMatrix :: JSM GType -gTypeSVGMatrix = GType . Object <$> jsg "SVGMatrix" - --- | Functions for this inteface are in "JSDOM.SVGMetadataElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGMetadataElement = SVGMetadataElement { unSVGMetadataElement :: JSVal } - -instance PToJSVal SVGMetadataElement where - pToJSVal = unSVGMetadataElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMetadataElement where - pFromJSVal = SVGMetadataElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMetadataElement where - toJSVal = return . unSVGMetadataElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMetadataElement where - fromJSVal v = fmap SVGMetadataElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGMetadataElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGMetadataElement where - makeObject = makeObject . unSVGMetadataElement - -instance IsSVGElement SVGMetadataElement -instance IsElement SVGMetadataElement -instance IsNode SVGMetadataElement -instance IsEventTarget SVGMetadataElement -instance IsSlotable SVGMetadataElement -instance IsParentNode SVGMetadataElement -instance IsNonDocumentTypeChildNode SVGMetadataElement -instance IsChildNode SVGMetadataElement -instance IsAnimatable SVGMetadataElement -instance IsGlobalEventHandlers SVGMetadataElement -instance IsGObject SVGMetadataElement where - typeGType _ = gTypeSVGMetadataElement - {-# INLINE typeGType #-} - -gTypeSVGMetadataElement :: JSM GType -gTypeSVGMetadataElement = GType . Object <$> jsg "SVGMetadataElement" - --- | Functions for this inteface are in "JSDOM.SVGMissingGlyphElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGMissingGlyphElement = SVGMissingGlyphElement { unSVGMissingGlyphElement :: JSVal } - -instance PToJSVal SVGMissingGlyphElement where - pToJSVal = unSVGMissingGlyphElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGMissingGlyphElement where - pFromJSVal = SVGMissingGlyphElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGMissingGlyphElement where - toJSVal = return . unSVGMissingGlyphElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGMissingGlyphElement where - fromJSVal v = fmap SVGMissingGlyphElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGMissingGlyphElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGMissingGlyphElement where - makeObject = makeObject . unSVGMissingGlyphElement - -instance IsSVGElement SVGMissingGlyphElement -instance IsElement SVGMissingGlyphElement -instance IsNode SVGMissingGlyphElement -instance IsEventTarget SVGMissingGlyphElement -instance IsSlotable SVGMissingGlyphElement -instance IsParentNode SVGMissingGlyphElement -instance IsNonDocumentTypeChildNode SVGMissingGlyphElement -instance IsChildNode SVGMissingGlyphElement -instance IsAnimatable SVGMissingGlyphElement -instance IsGlobalEventHandlers SVGMissingGlyphElement -instance IsGObject SVGMissingGlyphElement where - typeGType _ = gTypeSVGMissingGlyphElement - {-# INLINE typeGType #-} - -gTypeSVGMissingGlyphElement :: JSM GType -gTypeSVGMissingGlyphElement = GType . Object <$> jsg "SVGMissingGlyphElement" - --- | Functions for this inteface are in "JSDOM.SVGNumber". --- --- -newtype SVGNumber = SVGNumber { unSVGNumber :: JSVal } - -instance PToJSVal SVGNumber where - pToJSVal = unSVGNumber - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGNumber where - pFromJSVal = SVGNumber - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGNumber where - toJSVal = return . unSVGNumber - {-# INLINE toJSVal #-} - -instance FromJSVal SVGNumber where - fromJSVal v = fmap SVGNumber <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGNumber - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGNumber where - makeObject = makeObject . unSVGNumber - -instance IsGObject SVGNumber where - typeGType _ = gTypeSVGNumber - {-# INLINE typeGType #-} - -gTypeSVGNumber :: JSM GType -gTypeSVGNumber = GType . Object <$> jsg "SVGNumber" - --- | Functions for this inteface are in "JSDOM.SVGNumberList". --- --- -newtype SVGNumberList = SVGNumberList { unSVGNumberList :: JSVal } - -instance PToJSVal SVGNumberList where - pToJSVal = unSVGNumberList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGNumberList where - pFromJSVal = SVGNumberList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGNumberList where - toJSVal = return . unSVGNumberList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGNumberList where - fromJSVal v = fmap SVGNumberList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGNumberList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGNumberList where - makeObject = makeObject . unSVGNumberList - -instance IsGObject SVGNumberList where - typeGType _ = gTypeSVGNumberList - {-# INLINE typeGType #-} - -gTypeSVGNumberList :: JSM GType -gTypeSVGNumberList = GType . Object <$> jsg "SVGNumberList" - --- | Functions for this inteface are in "JSDOM.SVGPathElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGPathElement = SVGPathElement { unSVGPathElement :: JSVal } - -instance PToJSVal SVGPathElement where - pToJSVal = unSVGPathElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathElement where - pFromJSVal = SVGPathElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathElement where - toJSVal = return . unSVGPathElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathElement where - fromJSVal v = fmap SVGPathElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathElement where - makeObject = makeObject . unSVGPathElement - -instance IsSVGGraphicsElement SVGPathElement -instance IsSVGElement SVGPathElement -instance IsElement SVGPathElement -instance IsNode SVGPathElement -instance IsEventTarget SVGPathElement -instance IsSlotable SVGPathElement -instance IsParentNode SVGPathElement -instance IsNonDocumentTypeChildNode SVGPathElement -instance IsChildNode SVGPathElement -instance IsAnimatable SVGPathElement -instance IsGlobalEventHandlers SVGPathElement -instance IsSVGTests SVGPathElement -instance IsSVGExternalResourcesRequired SVGPathElement -instance IsGObject SVGPathElement where - typeGType _ = gTypeSVGPathElement - {-# INLINE typeGType #-} - -gTypeSVGPathElement :: JSM GType -gTypeSVGPathElement = GType . Object <$> jsg "SVGPathElement" - --- | Functions for this inteface are in "JSDOM.SVGPathSeg". --- --- -newtype SVGPathSeg = SVGPathSeg { unSVGPathSeg :: JSVal } - -instance PToJSVal SVGPathSeg where - pToJSVal = unSVGPathSeg - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSeg where - pFromJSVal = SVGPathSeg - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSeg where - toJSVal = return . unSVGPathSeg - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSeg where - fromJSVal v = fmap SVGPathSeg <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSeg - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSeg where - makeObject = makeObject . unSVGPathSeg - -class (IsGObject o) => IsSVGPathSeg o -toSVGPathSeg :: IsSVGPathSeg o => o -> SVGPathSeg -toSVGPathSeg = SVGPathSeg . coerce - -instance IsSVGPathSeg SVGPathSeg -instance IsGObject SVGPathSeg where - typeGType _ = gTypeSVGPathSeg - {-# INLINE typeGType #-} - -gTypeSVGPathSeg :: JSM GType -gTypeSVGPathSeg = GType . Object <$> jsg "SVGPathSeg" - --- | Functions for this inteface are in "JSDOM.SVGPathSegArcAbs". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegArcAbs = SVGPathSegArcAbs { unSVGPathSegArcAbs :: JSVal } - -instance PToJSVal SVGPathSegArcAbs where - pToJSVal = unSVGPathSegArcAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegArcAbs where - pFromJSVal = SVGPathSegArcAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegArcAbs where - toJSVal = return . unSVGPathSegArcAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegArcAbs where - fromJSVal v = fmap SVGPathSegArcAbs <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegArcAbs - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegArcAbs where - makeObject = makeObject . unSVGPathSegArcAbs - -instance IsSVGPathSeg SVGPathSegArcAbs -instance IsGObject SVGPathSegArcAbs where - typeGType _ = gTypeSVGPathSegArcAbs - {-# INLINE typeGType #-} - -gTypeSVGPathSegArcAbs :: JSM GType -gTypeSVGPathSegArcAbs = GType . Object <$> jsg "SVGPathSegArcAbs" - --- | Functions for this inteface are in "JSDOM.SVGPathSegArcRel". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegArcRel = SVGPathSegArcRel { unSVGPathSegArcRel :: JSVal } - -instance PToJSVal SVGPathSegArcRel where - pToJSVal = unSVGPathSegArcRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegArcRel where - pFromJSVal = SVGPathSegArcRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegArcRel where - toJSVal = return . unSVGPathSegArcRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegArcRel where - fromJSVal v = fmap SVGPathSegArcRel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegArcRel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegArcRel where - makeObject = makeObject . unSVGPathSegArcRel - -instance IsSVGPathSeg SVGPathSegArcRel -instance IsGObject SVGPathSegArcRel where - typeGType _ = gTypeSVGPathSegArcRel - {-# INLINE typeGType #-} - -gTypeSVGPathSegArcRel :: JSM GType -gTypeSVGPathSegArcRel = GType . Object <$> jsg "SVGPathSegArcRel" - --- | Functions for this inteface are in "JSDOM.SVGPathSegClosePath". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegClosePath = SVGPathSegClosePath { unSVGPathSegClosePath :: JSVal } - -instance PToJSVal SVGPathSegClosePath where - pToJSVal = unSVGPathSegClosePath - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegClosePath where - pFromJSVal = SVGPathSegClosePath - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegClosePath where - toJSVal = return . unSVGPathSegClosePath - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegClosePath where - fromJSVal v = fmap SVGPathSegClosePath <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegClosePath - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegClosePath where - makeObject = makeObject . unSVGPathSegClosePath - -instance IsSVGPathSeg SVGPathSegClosePath -instance IsGObject SVGPathSegClosePath where - typeGType _ = gTypeSVGPathSegClosePath - {-# INLINE typeGType #-} - -gTypeSVGPathSegClosePath :: JSM GType -gTypeSVGPathSegClosePath = GType . Object <$> jsg "SVGPathSegClosePath" - --- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicAbs". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoCubicAbs = SVGPathSegCurvetoCubicAbs { unSVGPathSegCurvetoCubicAbs :: JSVal } - -instance PToJSVal SVGPathSegCurvetoCubicAbs where - pToJSVal = unSVGPathSegCurvetoCubicAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoCubicAbs where - pFromJSVal = SVGPathSegCurvetoCubicAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoCubicAbs where - toJSVal = return . unSVGPathSegCurvetoCubicAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoCubicAbs where - fromJSVal v = fmap SVGPathSegCurvetoCubicAbs <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegCurvetoCubicAbs - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegCurvetoCubicAbs where - makeObject = makeObject . unSVGPathSegCurvetoCubicAbs - -instance IsSVGPathSeg SVGPathSegCurvetoCubicAbs -instance IsGObject SVGPathSegCurvetoCubicAbs where - typeGType _ = gTypeSVGPathSegCurvetoCubicAbs - {-# INLINE typeGType #-} - -gTypeSVGPathSegCurvetoCubicAbs :: JSM GType -gTypeSVGPathSegCurvetoCubicAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicAbs" - --- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicRel". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoCubicRel = SVGPathSegCurvetoCubicRel { unSVGPathSegCurvetoCubicRel :: JSVal } - -instance PToJSVal SVGPathSegCurvetoCubicRel where - pToJSVal = unSVGPathSegCurvetoCubicRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoCubicRel where - pFromJSVal = SVGPathSegCurvetoCubicRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoCubicRel where - toJSVal = return . unSVGPathSegCurvetoCubicRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoCubicRel where - fromJSVal v = fmap SVGPathSegCurvetoCubicRel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegCurvetoCubicRel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegCurvetoCubicRel where - makeObject = makeObject . unSVGPathSegCurvetoCubicRel - -instance IsSVGPathSeg SVGPathSegCurvetoCubicRel -instance IsGObject SVGPathSegCurvetoCubicRel where - typeGType _ = gTypeSVGPathSegCurvetoCubicRel - {-# INLINE typeGType #-} - -gTypeSVGPathSegCurvetoCubicRel :: JSM GType -gTypeSVGPathSegCurvetoCubicRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicRel" - --- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicSmoothAbs". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoCubicSmoothAbs = SVGPathSegCurvetoCubicSmoothAbs { unSVGPathSegCurvetoCubicSmoothAbs :: JSVal } - -instance PToJSVal SVGPathSegCurvetoCubicSmoothAbs where - pToJSVal = unSVGPathSegCurvetoCubicSmoothAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoCubicSmoothAbs where - pFromJSVal = SVGPathSegCurvetoCubicSmoothAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoCubicSmoothAbs where - toJSVal = return . unSVGPathSegCurvetoCubicSmoothAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoCubicSmoothAbs where - fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothAbs <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegCurvetoCubicSmoothAbs - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegCurvetoCubicSmoothAbs where - makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothAbs - -instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothAbs -instance IsGObject SVGPathSegCurvetoCubicSmoothAbs where - typeGType _ = gTypeSVGPathSegCurvetoCubicSmoothAbs - {-# INLINE typeGType #-} - -gTypeSVGPathSegCurvetoCubicSmoothAbs :: JSM GType -gTypeSVGPathSegCurvetoCubicSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothAbs" - --- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicSmoothRel". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoCubicSmoothRel = SVGPathSegCurvetoCubicSmoothRel { unSVGPathSegCurvetoCubicSmoothRel :: JSVal } - -instance PToJSVal SVGPathSegCurvetoCubicSmoothRel where - pToJSVal = unSVGPathSegCurvetoCubicSmoothRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoCubicSmoothRel where - pFromJSVal = SVGPathSegCurvetoCubicSmoothRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoCubicSmoothRel where - toJSVal = return . unSVGPathSegCurvetoCubicSmoothRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoCubicSmoothRel where - fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothRel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegCurvetoCubicSmoothRel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegCurvetoCubicSmoothRel where - makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothRel - -instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothRel -instance IsGObject SVGPathSegCurvetoCubicSmoothRel where - typeGType _ = gTypeSVGPathSegCurvetoCubicSmoothRel - {-# INLINE typeGType #-} - -gTypeSVGPathSegCurvetoCubicSmoothRel :: JSM GType -gTypeSVGPathSegCurvetoCubicSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothRel" - --- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticAbs". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoQuadraticAbs = SVGPathSegCurvetoQuadraticAbs { unSVGPathSegCurvetoQuadraticAbs :: JSVal } - -instance PToJSVal SVGPathSegCurvetoQuadraticAbs where - pToJSVal = unSVGPathSegCurvetoQuadraticAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoQuadraticAbs where - pFromJSVal = SVGPathSegCurvetoQuadraticAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoQuadraticAbs where - toJSVal = return . unSVGPathSegCurvetoQuadraticAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoQuadraticAbs where - fromJSVal v = fmap SVGPathSegCurvetoQuadraticAbs <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegCurvetoQuadraticAbs - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegCurvetoQuadraticAbs where - makeObject = makeObject . unSVGPathSegCurvetoQuadraticAbs - -instance IsSVGPathSeg SVGPathSegCurvetoQuadraticAbs -instance IsGObject SVGPathSegCurvetoQuadraticAbs where - typeGType _ = gTypeSVGPathSegCurvetoQuadraticAbs - {-# INLINE typeGType #-} - -gTypeSVGPathSegCurvetoQuadraticAbs :: JSM GType -gTypeSVGPathSegCurvetoQuadraticAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticAbs" - --- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticRel". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoQuadraticRel = SVGPathSegCurvetoQuadraticRel { unSVGPathSegCurvetoQuadraticRel :: JSVal } - -instance PToJSVal SVGPathSegCurvetoQuadraticRel where - pToJSVal = unSVGPathSegCurvetoQuadraticRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoQuadraticRel where - pFromJSVal = SVGPathSegCurvetoQuadraticRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoQuadraticRel where - toJSVal = return . unSVGPathSegCurvetoQuadraticRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoQuadraticRel where - fromJSVal v = fmap SVGPathSegCurvetoQuadraticRel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegCurvetoQuadraticRel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegCurvetoQuadraticRel where - makeObject = makeObject . unSVGPathSegCurvetoQuadraticRel - -instance IsSVGPathSeg SVGPathSegCurvetoQuadraticRel -instance IsGObject SVGPathSegCurvetoQuadraticRel where - typeGType _ = gTypeSVGPathSegCurvetoQuadraticRel - {-# INLINE typeGType #-} - -gTypeSVGPathSegCurvetoQuadraticRel :: JSM GType -gTypeSVGPathSegCurvetoQuadraticRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticRel" - --- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticSmoothAbs". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoQuadraticSmoothAbs = SVGPathSegCurvetoQuadraticSmoothAbs { unSVGPathSegCurvetoQuadraticSmoothAbs :: JSVal } - -instance PToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where - pToJSVal = unSVGPathSegCurvetoQuadraticSmoothAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where - pFromJSVal = SVGPathSegCurvetoQuadraticSmoothAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where - toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where - fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothAbs <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegCurvetoQuadraticSmoothAbs - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegCurvetoQuadraticSmoothAbs where - makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothAbs - -instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothAbs -instance IsGObject SVGPathSegCurvetoQuadraticSmoothAbs where - typeGType _ = gTypeSVGPathSegCurvetoQuadraticSmoothAbs - {-# INLINE typeGType #-} - -gTypeSVGPathSegCurvetoQuadraticSmoothAbs :: JSM GType -gTypeSVGPathSegCurvetoQuadraticSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothAbs" - --- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticSmoothRel". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegCurvetoQuadraticSmoothRel = SVGPathSegCurvetoQuadraticSmoothRel { unSVGPathSegCurvetoQuadraticSmoothRel :: JSVal } - -instance PToJSVal SVGPathSegCurvetoQuadraticSmoothRel where - pToJSVal = unSVGPathSegCurvetoQuadraticSmoothRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothRel where - pFromJSVal = SVGPathSegCurvetoQuadraticSmoothRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegCurvetoQuadraticSmoothRel where - toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegCurvetoQuadraticSmoothRel where - fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothRel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegCurvetoQuadraticSmoothRel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegCurvetoQuadraticSmoothRel where - makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothRel - -instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothRel -instance IsGObject SVGPathSegCurvetoQuadraticSmoothRel where - typeGType _ = gTypeSVGPathSegCurvetoQuadraticSmoothRel - {-# INLINE typeGType #-} - -gTypeSVGPathSegCurvetoQuadraticSmoothRel :: JSM GType -gTypeSVGPathSegCurvetoQuadraticSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothRel" - --- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoAbs". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoAbs = SVGPathSegLinetoAbs { unSVGPathSegLinetoAbs :: JSVal } - -instance PToJSVal SVGPathSegLinetoAbs where - pToJSVal = unSVGPathSegLinetoAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoAbs where - pFromJSVal = SVGPathSegLinetoAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoAbs where - toJSVal = return . unSVGPathSegLinetoAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoAbs where - fromJSVal v = fmap SVGPathSegLinetoAbs <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegLinetoAbs - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegLinetoAbs where - makeObject = makeObject . unSVGPathSegLinetoAbs - -instance IsSVGPathSeg SVGPathSegLinetoAbs -instance IsGObject SVGPathSegLinetoAbs where - typeGType _ = gTypeSVGPathSegLinetoAbs - {-# INLINE typeGType #-} - -gTypeSVGPathSegLinetoAbs :: JSM GType -gTypeSVGPathSegLinetoAbs = GType . Object <$> jsg "SVGPathSegLinetoAbs" - --- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoHorizontalAbs". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoHorizontalAbs = SVGPathSegLinetoHorizontalAbs { unSVGPathSegLinetoHorizontalAbs :: JSVal } - -instance PToJSVal SVGPathSegLinetoHorizontalAbs where - pToJSVal = unSVGPathSegLinetoHorizontalAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoHorizontalAbs where - pFromJSVal = SVGPathSegLinetoHorizontalAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoHorizontalAbs where - toJSVal = return . unSVGPathSegLinetoHorizontalAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoHorizontalAbs where - fromJSVal v = fmap SVGPathSegLinetoHorizontalAbs <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegLinetoHorizontalAbs - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegLinetoHorizontalAbs where - makeObject = makeObject . unSVGPathSegLinetoHorizontalAbs - -instance IsSVGPathSeg SVGPathSegLinetoHorizontalAbs -instance IsGObject SVGPathSegLinetoHorizontalAbs where - typeGType _ = gTypeSVGPathSegLinetoHorizontalAbs - {-# INLINE typeGType #-} - -gTypeSVGPathSegLinetoHorizontalAbs :: JSM GType -gTypeSVGPathSegLinetoHorizontalAbs = GType . Object <$> jsg "SVGPathSegLinetoHorizontalAbs" - --- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoHorizontalRel". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoHorizontalRel = SVGPathSegLinetoHorizontalRel { unSVGPathSegLinetoHorizontalRel :: JSVal } - -instance PToJSVal SVGPathSegLinetoHorizontalRel where - pToJSVal = unSVGPathSegLinetoHorizontalRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoHorizontalRel where - pFromJSVal = SVGPathSegLinetoHorizontalRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoHorizontalRel where - toJSVal = return . unSVGPathSegLinetoHorizontalRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoHorizontalRel where - fromJSVal v = fmap SVGPathSegLinetoHorizontalRel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegLinetoHorizontalRel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegLinetoHorizontalRel where - makeObject = makeObject . unSVGPathSegLinetoHorizontalRel - -instance IsSVGPathSeg SVGPathSegLinetoHorizontalRel -instance IsGObject SVGPathSegLinetoHorizontalRel where - typeGType _ = gTypeSVGPathSegLinetoHorizontalRel - {-# INLINE typeGType #-} - -gTypeSVGPathSegLinetoHorizontalRel :: JSM GType -gTypeSVGPathSegLinetoHorizontalRel = GType . Object <$> jsg "SVGPathSegLinetoHorizontalRel" - --- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoRel". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoRel = SVGPathSegLinetoRel { unSVGPathSegLinetoRel :: JSVal } - -instance PToJSVal SVGPathSegLinetoRel where - pToJSVal = unSVGPathSegLinetoRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoRel where - pFromJSVal = SVGPathSegLinetoRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoRel where - toJSVal = return . unSVGPathSegLinetoRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoRel where - fromJSVal v = fmap SVGPathSegLinetoRel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegLinetoRel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegLinetoRel where - makeObject = makeObject . unSVGPathSegLinetoRel - -instance IsSVGPathSeg SVGPathSegLinetoRel -instance IsGObject SVGPathSegLinetoRel where - typeGType _ = gTypeSVGPathSegLinetoRel - {-# INLINE typeGType #-} - -gTypeSVGPathSegLinetoRel :: JSM GType -gTypeSVGPathSegLinetoRel = GType . Object <$> jsg "SVGPathSegLinetoRel" - --- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoVerticalAbs". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoVerticalAbs = SVGPathSegLinetoVerticalAbs { unSVGPathSegLinetoVerticalAbs :: JSVal } - -instance PToJSVal SVGPathSegLinetoVerticalAbs where - pToJSVal = unSVGPathSegLinetoVerticalAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoVerticalAbs where - pFromJSVal = SVGPathSegLinetoVerticalAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoVerticalAbs where - toJSVal = return . unSVGPathSegLinetoVerticalAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoVerticalAbs where - fromJSVal v = fmap SVGPathSegLinetoVerticalAbs <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegLinetoVerticalAbs - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegLinetoVerticalAbs where - makeObject = makeObject . unSVGPathSegLinetoVerticalAbs - -instance IsSVGPathSeg SVGPathSegLinetoVerticalAbs -instance IsGObject SVGPathSegLinetoVerticalAbs where - typeGType _ = gTypeSVGPathSegLinetoVerticalAbs - {-# INLINE typeGType #-} - -gTypeSVGPathSegLinetoVerticalAbs :: JSM GType -gTypeSVGPathSegLinetoVerticalAbs = GType . Object <$> jsg "SVGPathSegLinetoVerticalAbs" - --- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoVerticalRel". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegLinetoVerticalRel = SVGPathSegLinetoVerticalRel { unSVGPathSegLinetoVerticalRel :: JSVal } - -instance PToJSVal SVGPathSegLinetoVerticalRel where - pToJSVal = unSVGPathSegLinetoVerticalRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegLinetoVerticalRel where - pFromJSVal = SVGPathSegLinetoVerticalRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegLinetoVerticalRel where - toJSVal = return . unSVGPathSegLinetoVerticalRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegLinetoVerticalRel where - fromJSVal v = fmap SVGPathSegLinetoVerticalRel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegLinetoVerticalRel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegLinetoVerticalRel where - makeObject = makeObject . unSVGPathSegLinetoVerticalRel - -instance IsSVGPathSeg SVGPathSegLinetoVerticalRel -instance IsGObject SVGPathSegLinetoVerticalRel where - typeGType _ = gTypeSVGPathSegLinetoVerticalRel - {-# INLINE typeGType #-} - -gTypeSVGPathSegLinetoVerticalRel :: JSM GType -gTypeSVGPathSegLinetoVerticalRel = GType . Object <$> jsg "SVGPathSegLinetoVerticalRel" - --- | Functions for this inteface are in "JSDOM.SVGPathSegList". --- --- -newtype SVGPathSegList = SVGPathSegList { unSVGPathSegList :: JSVal } - -instance PToJSVal SVGPathSegList where - pToJSVal = unSVGPathSegList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegList where - pFromJSVal = SVGPathSegList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegList where - toJSVal = return . unSVGPathSegList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegList where - fromJSVal v = fmap SVGPathSegList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegList where - makeObject = makeObject . unSVGPathSegList - -instance IsGObject SVGPathSegList where - typeGType _ = gTypeSVGPathSegList - {-# INLINE typeGType #-} - -gTypeSVGPathSegList :: JSM GType -gTypeSVGPathSegList = GType . Object <$> jsg "SVGPathSegList" - --- | Functions for this inteface are in "JSDOM.SVGPathSegMovetoAbs". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegMovetoAbs = SVGPathSegMovetoAbs { unSVGPathSegMovetoAbs :: JSVal } - -instance PToJSVal SVGPathSegMovetoAbs where - pToJSVal = unSVGPathSegMovetoAbs - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegMovetoAbs where - pFromJSVal = SVGPathSegMovetoAbs - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegMovetoAbs where - toJSVal = return . unSVGPathSegMovetoAbs - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegMovetoAbs where - fromJSVal v = fmap SVGPathSegMovetoAbs <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegMovetoAbs - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegMovetoAbs where - makeObject = makeObject . unSVGPathSegMovetoAbs - -instance IsSVGPathSeg SVGPathSegMovetoAbs -instance IsGObject SVGPathSegMovetoAbs where - typeGType _ = gTypeSVGPathSegMovetoAbs - {-# INLINE typeGType #-} - -gTypeSVGPathSegMovetoAbs :: JSM GType -gTypeSVGPathSegMovetoAbs = GType . Object <$> jsg "SVGPathSegMovetoAbs" - --- | Functions for this inteface are in "JSDOM.SVGPathSegMovetoRel". --- Base interface functions are in: --- --- * "JSDOM.SVGPathSeg" --- --- -newtype SVGPathSegMovetoRel = SVGPathSegMovetoRel { unSVGPathSegMovetoRel :: JSVal } - -instance PToJSVal SVGPathSegMovetoRel where - pToJSVal = unSVGPathSegMovetoRel - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPathSegMovetoRel where - pFromJSVal = SVGPathSegMovetoRel - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPathSegMovetoRel where - toJSVal = return . unSVGPathSegMovetoRel - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPathSegMovetoRel where - fromJSVal v = fmap SVGPathSegMovetoRel <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPathSegMovetoRel - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPathSegMovetoRel where - makeObject = makeObject . unSVGPathSegMovetoRel - -instance IsSVGPathSeg SVGPathSegMovetoRel -instance IsGObject SVGPathSegMovetoRel where - typeGType _ = gTypeSVGPathSegMovetoRel - {-# INLINE typeGType #-} - -gTypeSVGPathSegMovetoRel :: JSM GType -gTypeSVGPathSegMovetoRel = GType . Object <$> jsg "SVGPathSegMovetoRel" - --- | Functions for this inteface are in "JSDOM.SVGPatternElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGFitToViewBox" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGPatternElement = SVGPatternElement { unSVGPatternElement :: JSVal } - -instance PToJSVal SVGPatternElement where - pToJSVal = unSVGPatternElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPatternElement where - pFromJSVal = SVGPatternElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPatternElement where - toJSVal = return . unSVGPatternElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPatternElement where - fromJSVal v = fmap SVGPatternElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPatternElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPatternElement where - makeObject = makeObject . unSVGPatternElement - -instance IsSVGElement SVGPatternElement -instance IsElement SVGPatternElement -instance IsNode SVGPatternElement -instance IsEventTarget SVGPatternElement -instance IsSlotable SVGPatternElement -instance IsParentNode SVGPatternElement -instance IsNonDocumentTypeChildNode SVGPatternElement -instance IsChildNode SVGPatternElement -instance IsAnimatable SVGPatternElement -instance IsGlobalEventHandlers SVGPatternElement -instance IsSVGURIReference SVGPatternElement -instance IsSVGTests SVGPatternElement -instance IsSVGFitToViewBox SVGPatternElement -instance IsSVGExternalResourcesRequired SVGPatternElement -instance IsGObject SVGPatternElement where - typeGType _ = gTypeSVGPatternElement - {-# INLINE typeGType #-} - -gTypeSVGPatternElement :: JSM GType -gTypeSVGPatternElement = GType . Object <$> jsg "SVGPatternElement" - --- | Functions for this inteface are in "JSDOM.SVGPoint". --- --- -newtype SVGPoint = SVGPoint { unSVGPoint :: JSVal } - -instance PToJSVal SVGPoint where - pToJSVal = unSVGPoint - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPoint where - pFromJSVal = SVGPoint - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPoint where - toJSVal = return . unSVGPoint - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPoint where - fromJSVal v = fmap SVGPoint <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPoint - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPoint where - makeObject = makeObject . unSVGPoint - -instance IsGObject SVGPoint where - typeGType _ = gTypeSVGPoint - {-# INLINE typeGType #-} - -gTypeSVGPoint :: JSM GType -gTypeSVGPoint = GType . Object <$> jsg "SVGPoint" - --- | Functions for this inteface are in "JSDOM.SVGPointList". --- --- -newtype SVGPointList = SVGPointList { unSVGPointList :: JSVal } - -instance PToJSVal SVGPointList where - pToJSVal = unSVGPointList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPointList where - pFromJSVal = SVGPointList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPointList where - toJSVal = return . unSVGPointList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPointList where - fromJSVal v = fmap SVGPointList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPointList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPointList where - makeObject = makeObject . unSVGPointList - -instance IsGObject SVGPointList where - typeGType _ = gTypeSVGPointList - {-# INLINE typeGType #-} - -gTypeSVGPointList :: JSM GType -gTypeSVGPointList = GType . Object <$> jsg "SVGPointList" - --- | Functions for this inteface are in "JSDOM.SVGPolygonElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGPolygonElement = SVGPolygonElement { unSVGPolygonElement :: JSVal } - -instance PToJSVal SVGPolygonElement where - pToJSVal = unSVGPolygonElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPolygonElement where - pFromJSVal = SVGPolygonElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPolygonElement where - toJSVal = return . unSVGPolygonElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPolygonElement where - fromJSVal v = fmap SVGPolygonElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPolygonElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPolygonElement where - makeObject = makeObject . unSVGPolygonElement - -instance IsSVGGraphicsElement SVGPolygonElement -instance IsSVGElement SVGPolygonElement -instance IsElement SVGPolygonElement -instance IsNode SVGPolygonElement -instance IsEventTarget SVGPolygonElement -instance IsSlotable SVGPolygonElement -instance IsParentNode SVGPolygonElement -instance IsNonDocumentTypeChildNode SVGPolygonElement -instance IsChildNode SVGPolygonElement -instance IsAnimatable SVGPolygonElement -instance IsGlobalEventHandlers SVGPolygonElement -instance IsSVGTests SVGPolygonElement -instance IsSVGExternalResourcesRequired SVGPolygonElement -instance IsGObject SVGPolygonElement where - typeGType _ = gTypeSVGPolygonElement - {-# INLINE typeGType #-} - -gTypeSVGPolygonElement :: JSM GType -gTypeSVGPolygonElement = GType . Object <$> jsg "SVGPolygonElement" - --- | Functions for this inteface are in "JSDOM.SVGPolylineElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGPolylineElement = SVGPolylineElement { unSVGPolylineElement :: JSVal } - -instance PToJSVal SVGPolylineElement where - pToJSVal = unSVGPolylineElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPolylineElement where - pFromJSVal = SVGPolylineElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPolylineElement where - toJSVal = return . unSVGPolylineElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPolylineElement where - fromJSVal v = fmap SVGPolylineElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPolylineElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPolylineElement where - makeObject = makeObject . unSVGPolylineElement - -instance IsSVGGraphicsElement SVGPolylineElement -instance IsSVGElement SVGPolylineElement -instance IsElement SVGPolylineElement -instance IsNode SVGPolylineElement -instance IsEventTarget SVGPolylineElement -instance IsSlotable SVGPolylineElement -instance IsParentNode SVGPolylineElement -instance IsNonDocumentTypeChildNode SVGPolylineElement -instance IsChildNode SVGPolylineElement -instance IsAnimatable SVGPolylineElement -instance IsGlobalEventHandlers SVGPolylineElement -instance IsSVGTests SVGPolylineElement -instance IsSVGExternalResourcesRequired SVGPolylineElement -instance IsGObject SVGPolylineElement where - typeGType _ = gTypeSVGPolylineElement - {-# INLINE typeGType #-} - -gTypeSVGPolylineElement :: JSM GType -gTypeSVGPolylineElement = GType . Object <$> jsg "SVGPolylineElement" - --- | Functions for this inteface are in "JSDOM.SVGPreserveAspectRatio". --- --- -newtype SVGPreserveAspectRatio = SVGPreserveAspectRatio { unSVGPreserveAspectRatio :: JSVal } - -instance PToJSVal SVGPreserveAspectRatio where - pToJSVal = unSVGPreserveAspectRatio - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGPreserveAspectRatio where - pFromJSVal = SVGPreserveAspectRatio - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGPreserveAspectRatio where - toJSVal = return . unSVGPreserveAspectRatio - {-# INLINE toJSVal #-} - -instance FromJSVal SVGPreserveAspectRatio where - fromJSVal v = fmap SVGPreserveAspectRatio <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGPreserveAspectRatio - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGPreserveAspectRatio where - makeObject = makeObject . unSVGPreserveAspectRatio - -instance IsGObject SVGPreserveAspectRatio where - typeGType _ = gTypeSVGPreserveAspectRatio - {-# INLINE typeGType #-} - -gTypeSVGPreserveAspectRatio :: JSM GType -gTypeSVGPreserveAspectRatio = GType . Object <$> jsg "SVGPreserveAspectRatio" - --- | Functions for this inteface are in "JSDOM.SVGRadialGradientElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGradientElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGRadialGradientElement = SVGRadialGradientElement { unSVGRadialGradientElement :: JSVal } - -instance PToJSVal SVGRadialGradientElement where - pToJSVal = unSVGRadialGradientElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGRadialGradientElement where - pFromJSVal = SVGRadialGradientElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGRadialGradientElement where - toJSVal = return . unSVGRadialGradientElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGRadialGradientElement where - fromJSVal v = fmap SVGRadialGradientElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGRadialGradientElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGRadialGradientElement where - makeObject = makeObject . unSVGRadialGradientElement - -instance IsSVGGradientElement SVGRadialGradientElement -instance IsSVGElement SVGRadialGradientElement -instance IsElement SVGRadialGradientElement -instance IsNode SVGRadialGradientElement -instance IsEventTarget SVGRadialGradientElement -instance IsSlotable SVGRadialGradientElement -instance IsParentNode SVGRadialGradientElement -instance IsNonDocumentTypeChildNode SVGRadialGradientElement -instance IsChildNode SVGRadialGradientElement -instance IsAnimatable SVGRadialGradientElement -instance IsGlobalEventHandlers SVGRadialGradientElement -instance IsSVGURIReference SVGRadialGradientElement -instance IsSVGExternalResourcesRequired SVGRadialGradientElement -instance IsGObject SVGRadialGradientElement where - typeGType _ = gTypeSVGRadialGradientElement - {-# INLINE typeGType #-} - -gTypeSVGRadialGradientElement :: JSM GType -gTypeSVGRadialGradientElement = GType . Object <$> jsg "SVGRadialGradientElement" - --- | Functions for this inteface are in "JSDOM.SVGRect". --- --- -newtype SVGRect = SVGRect { unSVGRect :: JSVal } - -instance PToJSVal SVGRect where - pToJSVal = unSVGRect - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGRect where - pFromJSVal = SVGRect - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGRect where - toJSVal = return . unSVGRect - {-# INLINE toJSVal #-} - -instance FromJSVal SVGRect where - fromJSVal v = fmap SVGRect <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGRect - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGRect where - makeObject = makeObject . unSVGRect - -instance IsGObject SVGRect where - typeGType _ = gTypeSVGRect - {-# INLINE typeGType #-} - -gTypeSVGRect :: JSM GType -gTypeSVGRect = GType . Object <$> jsg "SVGRect" - --- | Functions for this inteface are in "JSDOM.SVGRectElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGRectElement = SVGRectElement { unSVGRectElement :: JSVal } - -instance PToJSVal SVGRectElement where - pToJSVal = unSVGRectElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGRectElement where - pFromJSVal = SVGRectElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGRectElement where - toJSVal = return . unSVGRectElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGRectElement where - fromJSVal v = fmap SVGRectElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGRectElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGRectElement where - makeObject = makeObject . unSVGRectElement - -instance IsSVGGraphicsElement SVGRectElement -instance IsSVGElement SVGRectElement -instance IsElement SVGRectElement -instance IsNode SVGRectElement -instance IsEventTarget SVGRectElement -instance IsSlotable SVGRectElement -instance IsParentNode SVGRectElement -instance IsNonDocumentTypeChildNode SVGRectElement -instance IsChildNode SVGRectElement -instance IsAnimatable SVGRectElement -instance IsGlobalEventHandlers SVGRectElement -instance IsSVGTests SVGRectElement -instance IsSVGExternalResourcesRequired SVGRectElement -instance IsGObject SVGRectElement where - typeGType _ = gTypeSVGRectElement - {-# INLINE typeGType #-} - -gTypeSVGRectElement :: JSM GType -gTypeSVGRectElement = GType . Object <$> jsg "SVGRectElement" - --- | Functions for this inteface are in "JSDOM.SVGRenderingIntent". --- --- -newtype SVGRenderingIntent = SVGRenderingIntent { unSVGRenderingIntent :: JSVal } - -instance PToJSVal SVGRenderingIntent where - pToJSVal = unSVGRenderingIntent - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGRenderingIntent where - pFromJSVal = SVGRenderingIntent - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGRenderingIntent where - toJSVal = return . unSVGRenderingIntent - {-# INLINE toJSVal #-} - -instance FromJSVal SVGRenderingIntent where - fromJSVal v = fmap SVGRenderingIntent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGRenderingIntent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGRenderingIntent where - makeObject = makeObject . unSVGRenderingIntent - -instance IsGObject SVGRenderingIntent where - typeGType _ = gTypeSVGRenderingIntent - {-# INLINE typeGType #-} - -gTypeSVGRenderingIntent :: JSM GType -gTypeSVGRenderingIntent = GType . Object <$> jsg "SVGRenderingIntent" - --- | Functions for this inteface are in "JSDOM.SVGSVGElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGZoomAndPan" --- * "JSDOM.SVGFitToViewBox" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGSVGElement = SVGSVGElement { unSVGSVGElement :: JSVal } - -instance PToJSVal SVGSVGElement where - pToJSVal = unSVGSVGElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGSVGElement where - pFromJSVal = SVGSVGElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGSVGElement where - toJSVal = return . unSVGSVGElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGSVGElement where - fromJSVal v = fmap SVGSVGElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGSVGElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGSVGElement where - makeObject = makeObject . unSVGSVGElement - -instance IsSVGGraphicsElement SVGSVGElement -instance IsSVGElement SVGSVGElement -instance IsElement SVGSVGElement -instance IsNode SVGSVGElement -instance IsEventTarget SVGSVGElement -instance IsSlotable SVGSVGElement -instance IsParentNode SVGSVGElement -instance IsNonDocumentTypeChildNode SVGSVGElement -instance IsChildNode SVGSVGElement -instance IsAnimatable SVGSVGElement -instance IsGlobalEventHandlers SVGSVGElement -instance IsSVGTests SVGSVGElement -instance IsSVGZoomAndPan SVGSVGElement -instance IsSVGFitToViewBox SVGSVGElement -instance IsSVGExternalResourcesRequired SVGSVGElement -instance IsGObject SVGSVGElement where - typeGType _ = gTypeSVGSVGElement - {-# INLINE typeGType #-} - -gTypeSVGSVGElement :: JSM GType -gTypeSVGSVGElement = GType . Object <$> jsg "SVGSVGElement" - --- | Functions for this inteface are in "JSDOM.SVGScriptElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGScriptElement = SVGScriptElement { unSVGScriptElement :: JSVal } - -instance PToJSVal SVGScriptElement where - pToJSVal = unSVGScriptElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGScriptElement where - pFromJSVal = SVGScriptElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGScriptElement where - toJSVal = return . unSVGScriptElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGScriptElement where - fromJSVal v = fmap SVGScriptElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGScriptElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGScriptElement where - makeObject = makeObject . unSVGScriptElement - -instance IsSVGElement SVGScriptElement -instance IsElement SVGScriptElement -instance IsNode SVGScriptElement -instance IsEventTarget SVGScriptElement -instance IsSlotable SVGScriptElement -instance IsParentNode SVGScriptElement -instance IsNonDocumentTypeChildNode SVGScriptElement -instance IsChildNode SVGScriptElement -instance IsAnimatable SVGScriptElement -instance IsGlobalEventHandlers SVGScriptElement -instance IsSVGURIReference SVGScriptElement -instance IsSVGExternalResourcesRequired SVGScriptElement -instance IsGObject SVGScriptElement where - typeGType _ = gTypeSVGScriptElement - {-# INLINE typeGType #-} - -gTypeSVGScriptElement :: JSM GType -gTypeSVGScriptElement = GType . Object <$> jsg "SVGScriptElement" - --- | Functions for this inteface are in "JSDOM.SVGSetElement". --- Base interface functions are in: --- --- * "JSDOM.SVGAnimationElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGSetElement = SVGSetElement { unSVGSetElement :: JSVal } - -instance PToJSVal SVGSetElement where - pToJSVal = unSVGSetElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGSetElement where - pFromJSVal = SVGSetElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGSetElement where - toJSVal = return . unSVGSetElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGSetElement where - fromJSVal v = fmap SVGSetElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGSetElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGSetElement where - makeObject = makeObject . unSVGSetElement - -instance IsSVGAnimationElement SVGSetElement -instance IsSVGElement SVGSetElement -instance IsElement SVGSetElement -instance IsNode SVGSetElement -instance IsEventTarget SVGSetElement -instance IsSlotable SVGSetElement -instance IsParentNode SVGSetElement -instance IsNonDocumentTypeChildNode SVGSetElement -instance IsChildNode SVGSetElement -instance IsAnimatable SVGSetElement -instance IsGlobalEventHandlers SVGSetElement -instance IsSVGTests SVGSetElement -instance IsSVGExternalResourcesRequired SVGSetElement -instance IsGObject SVGSetElement where - typeGType _ = gTypeSVGSetElement - {-# INLINE typeGType #-} - -gTypeSVGSetElement :: JSM GType -gTypeSVGSetElement = GType . Object <$> jsg "SVGSetElement" - --- | Functions for this inteface are in "JSDOM.SVGStopElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGStopElement = SVGStopElement { unSVGStopElement :: JSVal } - -instance PToJSVal SVGStopElement where - pToJSVal = unSVGStopElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGStopElement where - pFromJSVal = SVGStopElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGStopElement where - toJSVal = return . unSVGStopElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGStopElement where - fromJSVal v = fmap SVGStopElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGStopElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGStopElement where - makeObject = makeObject . unSVGStopElement - -instance IsSVGElement SVGStopElement -instance IsElement SVGStopElement -instance IsNode SVGStopElement -instance IsEventTarget SVGStopElement -instance IsSlotable SVGStopElement -instance IsParentNode SVGStopElement -instance IsNonDocumentTypeChildNode SVGStopElement -instance IsChildNode SVGStopElement -instance IsAnimatable SVGStopElement -instance IsGlobalEventHandlers SVGStopElement -instance IsGObject SVGStopElement where - typeGType _ = gTypeSVGStopElement - {-# INLINE typeGType #-} - -gTypeSVGStopElement :: JSM GType -gTypeSVGStopElement = GType . Object <$> jsg "SVGStopElement" - --- | Functions for this inteface are in "JSDOM.SVGStringList". --- --- -newtype SVGStringList = SVGStringList { unSVGStringList :: JSVal } - -instance PToJSVal SVGStringList where - pToJSVal = unSVGStringList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGStringList where - pFromJSVal = SVGStringList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGStringList where - toJSVal = return . unSVGStringList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGStringList where - fromJSVal v = fmap SVGStringList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGStringList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGStringList where - makeObject = makeObject . unSVGStringList - -instance IsGObject SVGStringList where - typeGType _ = gTypeSVGStringList - {-# INLINE typeGType #-} - -gTypeSVGStringList :: JSM GType -gTypeSVGStringList = GType . Object <$> jsg "SVGStringList" - --- | Functions for this inteface are in "JSDOM.SVGStyleElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGStyleElement = SVGStyleElement { unSVGStyleElement :: JSVal } - -instance PToJSVal SVGStyleElement where - pToJSVal = unSVGStyleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGStyleElement where - pFromJSVal = SVGStyleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGStyleElement where - toJSVal = return . unSVGStyleElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGStyleElement where - fromJSVal v = fmap SVGStyleElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGStyleElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGStyleElement where - makeObject = makeObject . unSVGStyleElement - -instance IsSVGElement SVGStyleElement -instance IsElement SVGStyleElement -instance IsNode SVGStyleElement -instance IsEventTarget SVGStyleElement -instance IsSlotable SVGStyleElement -instance IsParentNode SVGStyleElement -instance IsNonDocumentTypeChildNode SVGStyleElement -instance IsChildNode SVGStyleElement -instance IsAnimatable SVGStyleElement -instance IsGlobalEventHandlers SVGStyleElement -instance IsGObject SVGStyleElement where - typeGType _ = gTypeSVGStyleElement - {-# INLINE typeGType #-} - -gTypeSVGStyleElement :: JSM GType -gTypeSVGStyleElement = GType . Object <$> jsg "SVGStyleElement" - --- | Functions for this inteface are in "JSDOM.SVGSwitchElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGSwitchElement = SVGSwitchElement { unSVGSwitchElement :: JSVal } - -instance PToJSVal SVGSwitchElement where - pToJSVal = unSVGSwitchElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGSwitchElement where - pFromJSVal = SVGSwitchElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGSwitchElement where - toJSVal = return . unSVGSwitchElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGSwitchElement where - fromJSVal v = fmap SVGSwitchElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGSwitchElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGSwitchElement where - makeObject = makeObject . unSVGSwitchElement - -instance IsSVGGraphicsElement SVGSwitchElement -instance IsSVGElement SVGSwitchElement -instance IsElement SVGSwitchElement -instance IsNode SVGSwitchElement -instance IsEventTarget SVGSwitchElement -instance IsSlotable SVGSwitchElement -instance IsParentNode SVGSwitchElement -instance IsNonDocumentTypeChildNode SVGSwitchElement -instance IsChildNode SVGSwitchElement -instance IsAnimatable SVGSwitchElement -instance IsGlobalEventHandlers SVGSwitchElement -instance IsSVGTests SVGSwitchElement -instance IsSVGExternalResourcesRequired SVGSwitchElement -instance IsGObject SVGSwitchElement where - typeGType _ = gTypeSVGSwitchElement - {-# INLINE typeGType #-} - -gTypeSVGSwitchElement :: JSM GType -gTypeSVGSwitchElement = GType . Object <$> jsg "SVGSwitchElement" - --- | Functions for this inteface are in "JSDOM.SVGSymbolElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGFitToViewBox" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGSymbolElement = SVGSymbolElement { unSVGSymbolElement :: JSVal } - -instance PToJSVal SVGSymbolElement where - pToJSVal = unSVGSymbolElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGSymbolElement where - pFromJSVal = SVGSymbolElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGSymbolElement where - toJSVal = return . unSVGSymbolElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGSymbolElement where - fromJSVal v = fmap SVGSymbolElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGSymbolElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGSymbolElement where - makeObject = makeObject . unSVGSymbolElement - -instance IsSVGElement SVGSymbolElement -instance IsElement SVGSymbolElement -instance IsNode SVGSymbolElement -instance IsEventTarget SVGSymbolElement -instance IsSlotable SVGSymbolElement -instance IsParentNode SVGSymbolElement -instance IsNonDocumentTypeChildNode SVGSymbolElement -instance IsChildNode SVGSymbolElement -instance IsAnimatable SVGSymbolElement -instance IsGlobalEventHandlers SVGSymbolElement -instance IsSVGFitToViewBox SVGSymbolElement -instance IsSVGExternalResourcesRequired SVGSymbolElement -instance IsGObject SVGSymbolElement where - typeGType _ = gTypeSVGSymbolElement - {-# INLINE typeGType #-} - -gTypeSVGSymbolElement :: JSM GType -gTypeSVGSymbolElement = GType . Object <$> jsg "SVGSymbolElement" - --- | Functions for this inteface are in "JSDOM.SVGTRefElement". --- Base interface functions are in: --- --- * "JSDOM.SVGTextPositioningElement" --- * "JSDOM.SVGTextContentElement" --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- * "JSDOM.SVGURIReference" --- --- -newtype SVGTRefElement = SVGTRefElement { unSVGTRefElement :: JSVal } - -instance PToJSVal SVGTRefElement where - pToJSVal = unSVGTRefElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTRefElement where - pFromJSVal = SVGTRefElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTRefElement where - toJSVal = return . unSVGTRefElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTRefElement where - fromJSVal v = fmap SVGTRefElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTRefElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTRefElement where - makeObject = makeObject . unSVGTRefElement - -instance IsSVGTextPositioningElement SVGTRefElement -instance IsSVGTextContentElement SVGTRefElement -instance IsSVGGraphicsElement SVGTRefElement -instance IsSVGElement SVGTRefElement -instance IsElement SVGTRefElement -instance IsNode SVGTRefElement -instance IsEventTarget SVGTRefElement -instance IsSlotable SVGTRefElement -instance IsParentNode SVGTRefElement -instance IsNonDocumentTypeChildNode SVGTRefElement -instance IsChildNode SVGTRefElement -instance IsAnimatable SVGTRefElement -instance IsGlobalEventHandlers SVGTRefElement -instance IsSVGTests SVGTRefElement -instance IsSVGExternalResourcesRequired SVGTRefElement -instance IsSVGURIReference SVGTRefElement -instance IsGObject SVGTRefElement where - typeGType _ = gTypeSVGTRefElement - {-# INLINE typeGType #-} - -gTypeSVGTRefElement :: JSM GType -gTypeSVGTRefElement = GType . Object <$> jsg "SVGTRefElement" - --- | Functions for this inteface are in "JSDOM.SVGTSpanElement". --- Base interface functions are in: --- --- * "JSDOM.SVGTextPositioningElement" --- * "JSDOM.SVGTextContentElement" --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGTSpanElement = SVGTSpanElement { unSVGTSpanElement :: JSVal } - -instance PToJSVal SVGTSpanElement where - pToJSVal = unSVGTSpanElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTSpanElement where - pFromJSVal = SVGTSpanElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTSpanElement where - toJSVal = return . unSVGTSpanElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTSpanElement where - fromJSVal v = fmap SVGTSpanElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTSpanElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTSpanElement where - makeObject = makeObject . unSVGTSpanElement - -instance IsSVGTextPositioningElement SVGTSpanElement -instance IsSVGTextContentElement SVGTSpanElement -instance IsSVGGraphicsElement SVGTSpanElement -instance IsSVGElement SVGTSpanElement -instance IsElement SVGTSpanElement -instance IsNode SVGTSpanElement -instance IsEventTarget SVGTSpanElement -instance IsSlotable SVGTSpanElement -instance IsParentNode SVGTSpanElement -instance IsNonDocumentTypeChildNode SVGTSpanElement -instance IsChildNode SVGTSpanElement -instance IsAnimatable SVGTSpanElement -instance IsGlobalEventHandlers SVGTSpanElement -instance IsSVGTests SVGTSpanElement -instance IsSVGExternalResourcesRequired SVGTSpanElement -instance IsGObject SVGTSpanElement where - typeGType _ = gTypeSVGTSpanElement - {-# INLINE typeGType #-} - -gTypeSVGTSpanElement :: JSM GType -gTypeSVGTSpanElement = GType . Object <$> jsg "SVGTSpanElement" - --- | Functions for this inteface are in "JSDOM.SVGTests". --- --- -newtype SVGTests = SVGTests { unSVGTests :: JSVal } - -instance PToJSVal SVGTests where - pToJSVal = unSVGTests - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTests where - pFromJSVal = SVGTests - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTests where - toJSVal = return . unSVGTests - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTests where - fromJSVal v = fmap SVGTests <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTests - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTests where - makeObject = makeObject . unSVGTests - -class (IsGObject o) => IsSVGTests o -toSVGTests :: IsSVGTests o => o -> SVGTests -toSVGTests = SVGTests . coerce - -instance IsSVGTests SVGTests -instance IsGObject SVGTests where - typeGType _ = gTypeSVGTests - {-# INLINE typeGType #-} - -gTypeSVGTests :: JSM GType -gTypeSVGTests = GType . Object <$> jsg "SVGTests" - --- | Functions for this inteface are in "JSDOM.SVGTextContentElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGTextContentElement = SVGTextContentElement { unSVGTextContentElement :: JSVal } - -instance PToJSVal SVGTextContentElement where - pToJSVal = unSVGTextContentElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTextContentElement where - pFromJSVal = SVGTextContentElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTextContentElement where - toJSVal = return . unSVGTextContentElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTextContentElement where - fromJSVal v = fmap SVGTextContentElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTextContentElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTextContentElement where - makeObject = makeObject . unSVGTextContentElement - -class (IsSVGGraphicsElement o, IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsSVGTests o, IsSVGExternalResourcesRequired o, IsGObject o) => IsSVGTextContentElement o -toSVGTextContentElement :: IsSVGTextContentElement o => o -> SVGTextContentElement -toSVGTextContentElement = SVGTextContentElement . coerce - -instance IsSVGTextContentElement SVGTextContentElement -instance IsSVGGraphicsElement SVGTextContentElement -instance IsSVGElement SVGTextContentElement -instance IsElement SVGTextContentElement -instance IsNode SVGTextContentElement -instance IsEventTarget SVGTextContentElement -instance IsSlotable SVGTextContentElement -instance IsParentNode SVGTextContentElement -instance IsNonDocumentTypeChildNode SVGTextContentElement -instance IsChildNode SVGTextContentElement -instance IsAnimatable SVGTextContentElement -instance IsGlobalEventHandlers SVGTextContentElement -instance IsSVGTests SVGTextContentElement -instance IsSVGExternalResourcesRequired SVGTextContentElement -instance IsGObject SVGTextContentElement where - typeGType _ = gTypeSVGTextContentElement - {-# INLINE typeGType #-} - -gTypeSVGTextContentElement :: JSM GType -gTypeSVGTextContentElement = GType . Object <$> jsg "SVGTextContentElement" - --- | Functions for this inteface are in "JSDOM.SVGTextElement". --- Base interface functions are in: --- --- * "JSDOM.SVGTextPositioningElement" --- * "JSDOM.SVGTextContentElement" --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGTextElement = SVGTextElement { unSVGTextElement :: JSVal } - -instance PToJSVal SVGTextElement where - pToJSVal = unSVGTextElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTextElement where - pFromJSVal = SVGTextElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTextElement where - toJSVal = return . unSVGTextElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTextElement where - fromJSVal v = fmap SVGTextElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTextElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTextElement where - makeObject = makeObject . unSVGTextElement - -instance IsSVGTextPositioningElement SVGTextElement -instance IsSVGTextContentElement SVGTextElement -instance IsSVGGraphicsElement SVGTextElement -instance IsSVGElement SVGTextElement -instance IsElement SVGTextElement -instance IsNode SVGTextElement -instance IsEventTarget SVGTextElement -instance IsSlotable SVGTextElement -instance IsParentNode SVGTextElement -instance IsNonDocumentTypeChildNode SVGTextElement -instance IsChildNode SVGTextElement -instance IsAnimatable SVGTextElement -instance IsGlobalEventHandlers SVGTextElement -instance IsSVGTests SVGTextElement -instance IsSVGExternalResourcesRequired SVGTextElement -instance IsGObject SVGTextElement where - typeGType _ = gTypeSVGTextElement - {-# INLINE typeGType #-} - -gTypeSVGTextElement :: JSM GType -gTypeSVGTextElement = GType . Object <$> jsg "SVGTextElement" - --- | Functions for this inteface are in "JSDOM.SVGTextPathElement". --- Base interface functions are in: --- --- * "JSDOM.SVGTextContentElement" --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- * "JSDOM.SVGURIReference" --- --- -newtype SVGTextPathElement = SVGTextPathElement { unSVGTextPathElement :: JSVal } - -instance PToJSVal SVGTextPathElement where - pToJSVal = unSVGTextPathElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTextPathElement where - pFromJSVal = SVGTextPathElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTextPathElement where - toJSVal = return . unSVGTextPathElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTextPathElement where - fromJSVal v = fmap SVGTextPathElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTextPathElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTextPathElement where - makeObject = makeObject . unSVGTextPathElement - -instance IsSVGTextContentElement SVGTextPathElement -instance IsSVGGraphicsElement SVGTextPathElement -instance IsSVGElement SVGTextPathElement -instance IsElement SVGTextPathElement -instance IsNode SVGTextPathElement -instance IsEventTarget SVGTextPathElement -instance IsSlotable SVGTextPathElement -instance IsParentNode SVGTextPathElement -instance IsNonDocumentTypeChildNode SVGTextPathElement -instance IsChildNode SVGTextPathElement -instance IsAnimatable SVGTextPathElement -instance IsGlobalEventHandlers SVGTextPathElement -instance IsSVGTests SVGTextPathElement -instance IsSVGExternalResourcesRequired SVGTextPathElement -instance IsSVGURIReference SVGTextPathElement -instance IsGObject SVGTextPathElement where - typeGType _ = gTypeSVGTextPathElement - {-# INLINE typeGType #-} - -gTypeSVGTextPathElement :: JSM GType -gTypeSVGTextPathElement = GType . Object <$> jsg "SVGTextPathElement" - --- | Functions for this inteface are in "JSDOM.SVGTextPositioningElement". --- Base interface functions are in: --- --- * "JSDOM.SVGTextContentElement" --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGTextPositioningElement = SVGTextPositioningElement { unSVGTextPositioningElement :: JSVal } - -instance PToJSVal SVGTextPositioningElement where - pToJSVal = unSVGTextPositioningElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTextPositioningElement where - pFromJSVal = SVGTextPositioningElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTextPositioningElement where - toJSVal = return . unSVGTextPositioningElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTextPositioningElement where - fromJSVal v = fmap SVGTextPositioningElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTextPositioningElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTextPositioningElement where - makeObject = makeObject . unSVGTextPositioningElement - -class (IsSVGTextContentElement o, IsSVGGraphicsElement o, IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsSVGTests o, IsSVGExternalResourcesRequired o, IsGObject o) => IsSVGTextPositioningElement o -toSVGTextPositioningElement :: IsSVGTextPositioningElement o => o -> SVGTextPositioningElement -toSVGTextPositioningElement = SVGTextPositioningElement . coerce - -instance IsSVGTextPositioningElement SVGTextPositioningElement -instance IsSVGTextContentElement SVGTextPositioningElement -instance IsSVGGraphicsElement SVGTextPositioningElement -instance IsSVGElement SVGTextPositioningElement -instance IsElement SVGTextPositioningElement -instance IsNode SVGTextPositioningElement -instance IsEventTarget SVGTextPositioningElement -instance IsSlotable SVGTextPositioningElement -instance IsParentNode SVGTextPositioningElement -instance IsNonDocumentTypeChildNode SVGTextPositioningElement -instance IsChildNode SVGTextPositioningElement -instance IsAnimatable SVGTextPositioningElement -instance IsGlobalEventHandlers SVGTextPositioningElement -instance IsSVGTests SVGTextPositioningElement -instance IsSVGExternalResourcesRequired SVGTextPositioningElement -instance IsGObject SVGTextPositioningElement where - typeGType _ = gTypeSVGTextPositioningElement - {-# INLINE typeGType #-} - -gTypeSVGTextPositioningElement :: JSM GType -gTypeSVGTextPositioningElement = GType . Object <$> jsg "SVGTextPositioningElement" - --- | Functions for this inteface are in "JSDOM.SVGTitleElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGTitleElement = SVGTitleElement { unSVGTitleElement :: JSVal } - -instance PToJSVal SVGTitleElement where - pToJSVal = unSVGTitleElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTitleElement where - pFromJSVal = SVGTitleElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTitleElement where - toJSVal = return . unSVGTitleElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTitleElement where - fromJSVal v = fmap SVGTitleElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTitleElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTitleElement where - makeObject = makeObject . unSVGTitleElement - -instance IsSVGElement SVGTitleElement -instance IsElement SVGTitleElement -instance IsNode SVGTitleElement -instance IsEventTarget SVGTitleElement -instance IsSlotable SVGTitleElement -instance IsParentNode SVGTitleElement -instance IsNonDocumentTypeChildNode SVGTitleElement -instance IsChildNode SVGTitleElement -instance IsAnimatable SVGTitleElement -instance IsGlobalEventHandlers SVGTitleElement -instance IsGObject SVGTitleElement where - typeGType _ = gTypeSVGTitleElement - {-# INLINE typeGType #-} - -gTypeSVGTitleElement :: JSM GType -gTypeSVGTitleElement = GType . Object <$> jsg "SVGTitleElement" - --- | Functions for this inteface are in "JSDOM.SVGTransform". --- --- -newtype SVGTransform = SVGTransform { unSVGTransform :: JSVal } - -instance PToJSVal SVGTransform where - pToJSVal = unSVGTransform - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTransform where - pFromJSVal = SVGTransform - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTransform where - toJSVal = return . unSVGTransform - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTransform where - fromJSVal v = fmap SVGTransform <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTransform - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTransform where - makeObject = makeObject . unSVGTransform - -instance IsGObject SVGTransform where - typeGType _ = gTypeSVGTransform - {-# INLINE typeGType #-} - -gTypeSVGTransform :: JSM GType -gTypeSVGTransform = GType . Object <$> jsg "SVGTransform" - --- | Functions for this inteface are in "JSDOM.SVGTransformList". --- --- -newtype SVGTransformList = SVGTransformList { unSVGTransformList :: JSVal } - -instance PToJSVal SVGTransformList where - pToJSVal = unSVGTransformList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGTransformList where - pFromJSVal = SVGTransformList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGTransformList where - toJSVal = return . unSVGTransformList - {-# INLINE toJSVal #-} - -instance FromJSVal SVGTransformList where - fromJSVal v = fmap SVGTransformList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGTransformList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGTransformList where - makeObject = makeObject . unSVGTransformList - -instance IsGObject SVGTransformList where - typeGType _ = gTypeSVGTransformList - {-# INLINE typeGType #-} - -gTypeSVGTransformList :: JSM GType -gTypeSVGTransformList = GType . Object <$> jsg "SVGTransformList" - --- | Functions for this inteface are in "JSDOM.SVGURIReference". --- --- -newtype SVGURIReference = SVGURIReference { unSVGURIReference :: JSVal } - -instance PToJSVal SVGURIReference where - pToJSVal = unSVGURIReference - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGURIReference where - pFromJSVal = SVGURIReference - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGURIReference where - toJSVal = return . unSVGURIReference - {-# INLINE toJSVal #-} - -instance FromJSVal SVGURIReference where - fromJSVal v = fmap SVGURIReference <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGURIReference - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGURIReference where - makeObject = makeObject . unSVGURIReference - -class (IsGObject o) => IsSVGURIReference o -toSVGURIReference :: IsSVGURIReference o => o -> SVGURIReference -toSVGURIReference = SVGURIReference . coerce - -instance IsSVGURIReference SVGURIReference -instance IsGObject SVGURIReference where - typeGType _ = gTypeSVGURIReference - {-# INLINE typeGType #-} - -gTypeSVGURIReference :: JSM GType -gTypeSVGURIReference = GType . Object <$> jsg "SVGURIReference" - --- | Functions for this inteface are in "JSDOM.SVGUnitTypes". --- --- -newtype SVGUnitTypes = SVGUnitTypes { unSVGUnitTypes :: JSVal } - -instance PToJSVal SVGUnitTypes where - pToJSVal = unSVGUnitTypes - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGUnitTypes where - pFromJSVal = SVGUnitTypes - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGUnitTypes where - toJSVal = return . unSVGUnitTypes - {-# INLINE toJSVal #-} - -instance FromJSVal SVGUnitTypes where - fromJSVal v = fmap SVGUnitTypes <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGUnitTypes - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGUnitTypes where - makeObject = makeObject . unSVGUnitTypes - -instance IsGObject SVGUnitTypes where - typeGType _ = gTypeSVGUnitTypes - {-# INLINE typeGType #-} - -gTypeSVGUnitTypes :: JSM GType -gTypeSVGUnitTypes = GType . Object <$> jsg "SVGUnitTypes" - --- | Functions for this inteface are in "JSDOM.SVGUseElement". --- Base interface functions are in: --- --- * "JSDOM.SVGGraphicsElement" --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGTests" --- * "JSDOM.SVGURIReference" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGUseElement = SVGUseElement { unSVGUseElement :: JSVal } - -instance PToJSVal SVGUseElement where - pToJSVal = unSVGUseElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGUseElement where - pFromJSVal = SVGUseElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGUseElement where - toJSVal = return . unSVGUseElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGUseElement where - fromJSVal v = fmap SVGUseElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGUseElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGUseElement where - makeObject = makeObject . unSVGUseElement - -instance IsSVGGraphicsElement SVGUseElement -instance IsSVGElement SVGUseElement -instance IsElement SVGUseElement -instance IsNode SVGUseElement -instance IsEventTarget SVGUseElement -instance IsSlotable SVGUseElement -instance IsParentNode SVGUseElement -instance IsNonDocumentTypeChildNode SVGUseElement -instance IsChildNode SVGUseElement -instance IsAnimatable SVGUseElement -instance IsGlobalEventHandlers SVGUseElement -instance IsSVGTests SVGUseElement -instance IsSVGURIReference SVGUseElement -instance IsSVGExternalResourcesRequired SVGUseElement -instance IsGObject SVGUseElement where - typeGType _ = gTypeSVGUseElement - {-# INLINE typeGType #-} - -gTypeSVGUseElement :: JSM GType -gTypeSVGUseElement = GType . Object <$> jsg "SVGUseElement" - --- | Functions for this inteface are in "JSDOM.SVGVKernElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- --- -newtype SVGVKernElement = SVGVKernElement { unSVGVKernElement :: JSVal } - -instance PToJSVal SVGVKernElement where - pToJSVal = unSVGVKernElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGVKernElement where - pFromJSVal = SVGVKernElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGVKernElement where - toJSVal = return . unSVGVKernElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGVKernElement where - fromJSVal v = fmap SVGVKernElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGVKernElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGVKernElement where - makeObject = makeObject . unSVGVKernElement - -instance IsSVGElement SVGVKernElement -instance IsElement SVGVKernElement -instance IsNode SVGVKernElement -instance IsEventTarget SVGVKernElement -instance IsSlotable SVGVKernElement -instance IsParentNode SVGVKernElement -instance IsNonDocumentTypeChildNode SVGVKernElement -instance IsChildNode SVGVKernElement -instance IsAnimatable SVGVKernElement -instance IsGlobalEventHandlers SVGVKernElement -instance IsGObject SVGVKernElement where - typeGType _ = gTypeSVGVKernElement - {-# INLINE typeGType #-} - -gTypeSVGVKernElement :: JSM GType -gTypeSVGVKernElement = GType . Object <$> jsg "SVGVKernElement" - --- | Functions for this inteface are in "JSDOM.SVGViewElement". --- Base interface functions are in: --- --- * "JSDOM.SVGElement" --- * "JSDOM.Element" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.Slotable" --- * "JSDOM.ParentNode" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Animatable" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.SVGZoomAndPan" --- * "JSDOM.SVGFitToViewBox" --- * "JSDOM.SVGExternalResourcesRequired" --- --- -newtype SVGViewElement = SVGViewElement { unSVGViewElement :: JSVal } - -instance PToJSVal SVGViewElement where - pToJSVal = unSVGViewElement - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGViewElement where - pFromJSVal = SVGViewElement - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGViewElement where - toJSVal = return . unSVGViewElement - {-# INLINE toJSVal #-} - -instance FromJSVal SVGViewElement where - fromJSVal v = fmap SVGViewElement <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGViewElement - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGViewElement where - makeObject = makeObject . unSVGViewElement - -instance IsSVGElement SVGViewElement -instance IsElement SVGViewElement -instance IsNode SVGViewElement -instance IsEventTarget SVGViewElement -instance IsSlotable SVGViewElement -instance IsParentNode SVGViewElement -instance IsNonDocumentTypeChildNode SVGViewElement -instance IsChildNode SVGViewElement -instance IsAnimatable SVGViewElement -instance IsGlobalEventHandlers SVGViewElement -instance IsSVGZoomAndPan SVGViewElement -instance IsSVGFitToViewBox SVGViewElement -instance IsSVGExternalResourcesRequired SVGViewElement -instance IsGObject SVGViewElement where - typeGType _ = gTypeSVGViewElement - {-# INLINE typeGType #-} - -gTypeSVGViewElement :: JSM GType -gTypeSVGViewElement = GType . Object <$> jsg "SVGViewElement" - --- | Functions for this inteface are in "JSDOM.SVGViewSpec". --- Base interface functions are in: --- --- * "JSDOM.SVGFitToViewBox" --- --- -newtype SVGViewSpec = SVGViewSpec { unSVGViewSpec :: JSVal } - -instance PToJSVal SVGViewSpec where - pToJSVal = unSVGViewSpec - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGViewSpec where - pFromJSVal = SVGViewSpec - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGViewSpec where - toJSVal = return . unSVGViewSpec - {-# INLINE toJSVal #-} - -instance FromJSVal SVGViewSpec where - fromJSVal v = fmap SVGViewSpec <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGViewSpec - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGViewSpec where - makeObject = makeObject . unSVGViewSpec - -instance IsSVGFitToViewBox SVGViewSpec -instance IsGObject SVGViewSpec where - typeGType _ = gTypeSVGViewSpec - {-# INLINE typeGType #-} - -gTypeSVGViewSpec :: JSM GType -gTypeSVGViewSpec = GType . Object <$> jsg "SVGViewSpec" - --- | Functions for this inteface are in "JSDOM.SVGZoomAndPan". --- --- -newtype SVGZoomAndPan = SVGZoomAndPan { unSVGZoomAndPan :: JSVal } - -instance PToJSVal SVGZoomAndPan where - pToJSVal = unSVGZoomAndPan - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGZoomAndPan where - pFromJSVal = SVGZoomAndPan - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGZoomAndPan where - toJSVal = return . unSVGZoomAndPan - {-# INLINE toJSVal #-} - -instance FromJSVal SVGZoomAndPan where - fromJSVal v = fmap SVGZoomAndPan <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGZoomAndPan - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGZoomAndPan where - makeObject = makeObject . unSVGZoomAndPan - -class (IsGObject o) => IsSVGZoomAndPan o -toSVGZoomAndPan :: IsSVGZoomAndPan o => o -> SVGZoomAndPan -toSVGZoomAndPan = SVGZoomAndPan . coerce - -instance IsSVGZoomAndPan SVGZoomAndPan -instance IsGObject SVGZoomAndPan where - typeGType _ = gTypeSVGZoomAndPan - {-# INLINE typeGType #-} - -gTypeSVGZoomAndPan :: JSM GType -gTypeSVGZoomAndPan = GType . Object <$> jsg "SVGZoomAndPan" - --- | Functions for this inteface are in "JSDOM.SVGZoomEvent". --- Base interface functions are in: --- --- * "JSDOM.UIEvent" --- * "JSDOM.Event" --- --- -newtype SVGZoomEvent = SVGZoomEvent { unSVGZoomEvent :: JSVal } - -instance PToJSVal SVGZoomEvent where - pToJSVal = unSVGZoomEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal SVGZoomEvent where - pFromJSVal = SVGZoomEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal SVGZoomEvent where - toJSVal = return . unSVGZoomEvent - {-# INLINE toJSVal #-} - -instance FromJSVal SVGZoomEvent where - fromJSVal v = fmap SVGZoomEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SVGZoomEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SVGZoomEvent where - makeObject = makeObject . unSVGZoomEvent - -instance IsUIEvent SVGZoomEvent -instance IsEvent SVGZoomEvent -instance IsGObject SVGZoomEvent where - typeGType _ = gTypeSVGZoomEvent - {-# INLINE typeGType #-} - -gTypeSVGZoomEvent :: JSM GType -gTypeSVGZoomEvent = GType . Object <$> jsg "SVGZoomEvent" - --- | Functions for this inteface are in "JSDOM.Screen". --- --- -newtype Screen = Screen { unScreen :: JSVal } - -instance PToJSVal Screen where - pToJSVal = unScreen - {-# INLINE pToJSVal #-} - -instance PFromJSVal Screen where - pFromJSVal = Screen - {-# INLINE pFromJSVal #-} - -instance ToJSVal Screen where - toJSVal = return . unScreen - {-# INLINE toJSVal #-} - -instance FromJSVal Screen where - fromJSVal v = fmap Screen <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Screen - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Screen where - makeObject = makeObject . unScreen - -instance IsGObject Screen where - typeGType _ = gTypeScreen - {-# INLINE typeGType #-} - -gTypeScreen :: JSM GType -gTypeScreen = GType . Object <$> jsg "Screen" - --- | Functions for this inteface are in "JSDOM.ScriptProcessorNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype ScriptProcessorNode = ScriptProcessorNode { unScriptProcessorNode :: JSVal } - -instance PToJSVal ScriptProcessorNode where - pToJSVal = unScriptProcessorNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal ScriptProcessorNode where - pFromJSVal = ScriptProcessorNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal ScriptProcessorNode where - toJSVal = return . unScriptProcessorNode - {-# INLINE toJSVal #-} - -instance FromJSVal ScriptProcessorNode where - fromJSVal v = fmap ScriptProcessorNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ScriptProcessorNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ScriptProcessorNode where - makeObject = makeObject . unScriptProcessorNode - -instance IsAudioNode ScriptProcessorNode -instance IsEventTarget ScriptProcessorNode -instance IsGObject ScriptProcessorNode where - typeGType _ = gTypeScriptProcessorNode - {-# INLINE typeGType #-} - -gTypeScriptProcessorNode :: JSM GType -gTypeScriptProcessorNode = GType . Object <$> jsg "ScriptProcessorNode" - --- | Functions for this inteface are in "JSDOM.ScrollToOptions". --- --- -newtype ScrollToOptions = ScrollToOptions { unScrollToOptions :: JSVal } - -instance PToJSVal ScrollToOptions where - pToJSVal = unScrollToOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal ScrollToOptions where - pFromJSVal = ScrollToOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal ScrollToOptions where - toJSVal = return . unScrollToOptions - {-# INLINE toJSVal #-} - -instance FromJSVal ScrollToOptions where - fromJSVal v = fmap ScrollToOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ScrollToOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ScrollToOptions where - makeObject = makeObject . unScrollToOptions - -instance IsGObject ScrollToOptions where - typeGType _ = gTypeScrollToOptions - {-# INLINE typeGType #-} - -gTypeScrollToOptions :: JSM GType -gTypeScrollToOptions = GType . Object <$> jsg "ScrollToOptions" - --- | Functions for this inteface are in "JSDOM.SecurityPolicyViolationEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype SecurityPolicyViolationEvent = SecurityPolicyViolationEvent { unSecurityPolicyViolationEvent :: JSVal } - -instance PToJSVal SecurityPolicyViolationEvent where - pToJSVal = unSecurityPolicyViolationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal SecurityPolicyViolationEvent where - pFromJSVal = SecurityPolicyViolationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal SecurityPolicyViolationEvent where - toJSVal = return . unSecurityPolicyViolationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal SecurityPolicyViolationEvent where - fromJSVal v = fmap SecurityPolicyViolationEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SecurityPolicyViolationEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SecurityPolicyViolationEvent where - makeObject = makeObject . unSecurityPolicyViolationEvent - -instance IsEvent SecurityPolicyViolationEvent -instance IsGObject SecurityPolicyViolationEvent where - typeGType _ = gTypeSecurityPolicyViolationEvent - {-# INLINE typeGType #-} - -gTypeSecurityPolicyViolationEvent :: JSM GType -gTypeSecurityPolicyViolationEvent = GType . Object <$> jsg "SecurityPolicyViolationEvent" - --- | Functions for this inteface are in "JSDOM.SecurityPolicyViolationEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype SecurityPolicyViolationEventInit = SecurityPolicyViolationEventInit { unSecurityPolicyViolationEventInit :: JSVal } - -instance PToJSVal SecurityPolicyViolationEventInit where - pToJSVal = unSecurityPolicyViolationEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal SecurityPolicyViolationEventInit where - pFromJSVal = SecurityPolicyViolationEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal SecurityPolicyViolationEventInit where - toJSVal = return . unSecurityPolicyViolationEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal SecurityPolicyViolationEventInit where - fromJSVal v = fmap SecurityPolicyViolationEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SecurityPolicyViolationEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SecurityPolicyViolationEventInit where - makeObject = makeObject . unSecurityPolicyViolationEventInit - -instance IsEventInit SecurityPolicyViolationEventInit -instance IsGObject SecurityPolicyViolationEventInit where - typeGType _ = gTypeSecurityPolicyViolationEventInit - {-# INLINE typeGType #-} - -gTypeSecurityPolicyViolationEventInit :: JSM GType -gTypeSecurityPolicyViolationEventInit = GType . Object <$> jsg "SecurityPolicyViolationEventInit" - --- | Functions for this inteface are in "JSDOM.Selection". --- --- -newtype Selection = Selection { unSelection :: JSVal } - -instance PToJSVal Selection where - pToJSVal = unSelection - {-# INLINE pToJSVal #-} - -instance PFromJSVal Selection where - pFromJSVal = Selection - {-# INLINE pFromJSVal #-} - -instance ToJSVal Selection where - toJSVal = return . unSelection - {-# INLINE toJSVal #-} - -instance FromJSVal Selection where - fromJSVal v = fmap Selection <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Selection - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Selection where - makeObject = makeObject . unSelection - -instance IsGObject Selection where - typeGType _ = gTypeSelection - {-# INLINE typeGType #-} - -gTypeSelection :: JSM GType -gTypeSelection = GType . Object <$> jsg "Selection" - --- | Functions for this inteface are in "JSDOM.ShadowRoot". --- Base interface functions are in: --- --- * "JSDOM.DocumentFragment" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.NonElementParentNode" --- * "JSDOM.ParentNode" --- * "JSDOM.DocumentOrShadowRoot" --- --- -newtype ShadowRoot = ShadowRoot { unShadowRoot :: JSVal } - -instance PToJSVal ShadowRoot where - pToJSVal = unShadowRoot - {-# INLINE pToJSVal #-} - -instance PFromJSVal ShadowRoot where - pFromJSVal = ShadowRoot - {-# INLINE pFromJSVal #-} - -instance ToJSVal ShadowRoot where - toJSVal = return . unShadowRoot - {-# INLINE toJSVal #-} - -instance FromJSVal ShadowRoot where - fromJSVal v = fmap ShadowRoot <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ShadowRoot - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ShadowRoot where - makeObject = makeObject . unShadowRoot - -instance IsDocumentFragment ShadowRoot -instance IsNode ShadowRoot -instance IsEventTarget ShadowRoot -instance IsNonElementParentNode ShadowRoot -instance IsParentNode ShadowRoot -instance IsDocumentOrShadowRoot ShadowRoot -instance IsGObject ShadowRoot where - typeGType _ = gTypeShadowRoot - {-# INLINE typeGType #-} - -gTypeShadowRoot :: JSM GType -gTypeShadowRoot = GType . Object <$> jsg "ShadowRoot" - --- | Functions for this inteface are in "JSDOM.ShadowRootInit". --- --- -newtype ShadowRootInit = ShadowRootInit { unShadowRootInit :: JSVal } - -instance PToJSVal ShadowRootInit where - pToJSVal = unShadowRootInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal ShadowRootInit where - pFromJSVal = ShadowRootInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal ShadowRootInit where - toJSVal = return . unShadowRootInit - {-# INLINE toJSVal #-} - -instance FromJSVal ShadowRootInit where - fromJSVal v = fmap ShadowRootInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ShadowRootInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ShadowRootInit where - makeObject = makeObject . unShadowRootInit - -instance IsGObject ShadowRootInit where - typeGType _ = gTypeShadowRootInit - {-# INLINE typeGType #-} - -gTypeShadowRootInit :: JSM GType -gTypeShadowRootInit = GType . Object <$> jsg "ShadowRootInit" - --- | Functions for this inteface are in "JSDOM.Slotable". --- --- -newtype Slotable = Slotable { unSlotable :: JSVal } - -instance PToJSVal Slotable where - pToJSVal = unSlotable - {-# INLINE pToJSVal #-} - -instance PFromJSVal Slotable where - pFromJSVal = Slotable - {-# INLINE pFromJSVal #-} - -instance ToJSVal Slotable where - toJSVal = return . unSlotable - {-# INLINE toJSVal #-} - -instance FromJSVal Slotable where - fromJSVal v = fmap Slotable <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Slotable - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Slotable where - makeObject = makeObject . unSlotable - -class (IsGObject o) => IsSlotable o -toSlotable :: IsSlotable o => o -> Slotable -toSlotable = Slotable . coerce - -instance IsSlotable Slotable -instance IsGObject Slotable where - typeGType _ = gTypeSlotable - {-# INLINE typeGType #-} - -gTypeSlotable :: JSM GType -gTypeSlotable = GType . Object <$> jsg "Slotable" - --- | Functions for this inteface are in "JSDOM.SourceBuffer". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype SourceBuffer = SourceBuffer { unSourceBuffer :: JSVal } - -instance PToJSVal SourceBuffer where - pToJSVal = unSourceBuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal SourceBuffer where - pFromJSVal = SourceBuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal SourceBuffer where - toJSVal = return . unSourceBuffer - {-# INLINE toJSVal #-} - -instance FromJSVal SourceBuffer where - fromJSVal v = fmap SourceBuffer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SourceBuffer - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SourceBuffer where - makeObject = makeObject . unSourceBuffer - -instance IsEventTarget SourceBuffer -instance IsGObject SourceBuffer where - typeGType _ = gTypeSourceBuffer - {-# INLINE typeGType #-} - -gTypeSourceBuffer :: JSM GType -gTypeSourceBuffer = GType . Object <$> jsg "SourceBuffer" - --- | Functions for this inteface are in "JSDOM.SourceBufferList". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype SourceBufferList = SourceBufferList { unSourceBufferList :: JSVal } - -instance PToJSVal SourceBufferList where - pToJSVal = unSourceBufferList - {-# INLINE pToJSVal #-} - -instance PFromJSVal SourceBufferList where - pFromJSVal = SourceBufferList - {-# INLINE pFromJSVal #-} - -instance ToJSVal SourceBufferList where - toJSVal = return . unSourceBufferList - {-# INLINE toJSVal #-} - -instance FromJSVal SourceBufferList where - fromJSVal v = fmap SourceBufferList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SourceBufferList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SourceBufferList where - makeObject = makeObject . unSourceBufferList - -instance IsEventTarget SourceBufferList -instance IsGObject SourceBufferList where - typeGType _ = gTypeSourceBufferList - {-# INLINE typeGType #-} - -gTypeSourceBufferList :: JSM GType -gTypeSourceBufferList = GType . Object <$> jsg "SourceBufferList" - --- | Functions for this inteface are in "JSDOM.SpeechSynthesis". --- --- -newtype SpeechSynthesis = SpeechSynthesis { unSpeechSynthesis :: JSVal } - -instance PToJSVal SpeechSynthesis where - pToJSVal = unSpeechSynthesis - {-# INLINE pToJSVal #-} - -instance PFromJSVal SpeechSynthesis where - pFromJSVal = SpeechSynthesis - {-# INLINE pFromJSVal #-} - -instance ToJSVal SpeechSynthesis where - toJSVal = return . unSpeechSynthesis - {-# INLINE toJSVal #-} - -instance FromJSVal SpeechSynthesis where - fromJSVal v = fmap SpeechSynthesis <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SpeechSynthesis - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SpeechSynthesis where - makeObject = makeObject . unSpeechSynthesis - -instance IsGObject SpeechSynthesis where - typeGType _ = gTypeSpeechSynthesis - {-# INLINE typeGType #-} - -gTypeSpeechSynthesis :: JSM GType -gTypeSpeechSynthesis = GType . Object <$> jsg "SpeechSynthesis" - --- | Functions for this inteface are in "JSDOM.SpeechSynthesisEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype SpeechSynthesisEvent = SpeechSynthesisEvent { unSpeechSynthesisEvent :: JSVal } - -instance PToJSVal SpeechSynthesisEvent where - pToJSVal = unSpeechSynthesisEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal SpeechSynthesisEvent where - pFromJSVal = SpeechSynthesisEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal SpeechSynthesisEvent where - toJSVal = return . unSpeechSynthesisEvent - {-# INLINE toJSVal #-} - -instance FromJSVal SpeechSynthesisEvent where - fromJSVal v = fmap SpeechSynthesisEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SpeechSynthesisEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SpeechSynthesisEvent where - makeObject = makeObject . unSpeechSynthesisEvent - -instance IsEvent SpeechSynthesisEvent -instance IsGObject SpeechSynthesisEvent where - typeGType _ = gTypeSpeechSynthesisEvent - {-# INLINE typeGType #-} - -gTypeSpeechSynthesisEvent :: JSM GType -gTypeSpeechSynthesisEvent = GType . Object <$> jsg "SpeechSynthesisEvent" - --- | Functions for this inteface are in "JSDOM.SpeechSynthesisUtterance". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype SpeechSynthesisUtterance = SpeechSynthesisUtterance { unSpeechSynthesisUtterance :: JSVal } - -instance PToJSVal SpeechSynthesisUtterance where - pToJSVal = unSpeechSynthesisUtterance - {-# INLINE pToJSVal #-} - -instance PFromJSVal SpeechSynthesisUtterance where - pFromJSVal = SpeechSynthesisUtterance - {-# INLINE pFromJSVal #-} - -instance ToJSVal SpeechSynthesisUtterance where - toJSVal = return . unSpeechSynthesisUtterance - {-# INLINE toJSVal #-} - -instance FromJSVal SpeechSynthesisUtterance where - fromJSVal v = fmap SpeechSynthesisUtterance <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SpeechSynthesisUtterance - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SpeechSynthesisUtterance where - makeObject = makeObject . unSpeechSynthesisUtterance - -instance IsEventTarget SpeechSynthesisUtterance -instance IsGObject SpeechSynthesisUtterance where - typeGType _ = gTypeSpeechSynthesisUtterance - {-# INLINE typeGType #-} - -gTypeSpeechSynthesisUtterance :: JSM GType -gTypeSpeechSynthesisUtterance = GType . Object <$> jsg "SpeechSynthesisUtterance" - --- | Functions for this inteface are in "JSDOM.SpeechSynthesisVoice". --- --- -newtype SpeechSynthesisVoice = SpeechSynthesisVoice { unSpeechSynthesisVoice :: JSVal } - -instance PToJSVal SpeechSynthesisVoice where - pToJSVal = unSpeechSynthesisVoice - {-# INLINE pToJSVal #-} - -instance PFromJSVal SpeechSynthesisVoice where - pFromJSVal = SpeechSynthesisVoice - {-# INLINE pFromJSVal #-} - -instance ToJSVal SpeechSynthesisVoice where - toJSVal = return . unSpeechSynthesisVoice - {-# INLINE toJSVal #-} - -instance FromJSVal SpeechSynthesisVoice where - fromJSVal v = fmap SpeechSynthesisVoice <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SpeechSynthesisVoice - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SpeechSynthesisVoice where - makeObject = makeObject . unSpeechSynthesisVoice - -instance IsGObject SpeechSynthesisVoice where - typeGType _ = gTypeSpeechSynthesisVoice - {-# INLINE typeGType #-} - -gTypeSpeechSynthesisVoice :: JSM GType -gTypeSpeechSynthesisVoice = GType . Object <$> jsg "SpeechSynthesisVoice" - --- | Functions for this inteface are in "JSDOM.StaticRange". --- --- -newtype StaticRange = StaticRange { unStaticRange :: JSVal } - -instance PToJSVal StaticRange where - pToJSVal = unStaticRange - {-# INLINE pToJSVal #-} - -instance PFromJSVal StaticRange where - pFromJSVal = StaticRange - {-# INLINE pFromJSVal #-} - -instance ToJSVal StaticRange where - toJSVal = return . unStaticRange - {-# INLINE toJSVal #-} - -instance FromJSVal StaticRange where - fromJSVal v = fmap StaticRange <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StaticRange - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StaticRange where - makeObject = makeObject . unStaticRange - -instance IsGObject StaticRange where - typeGType _ = gTypeStaticRange - {-# INLINE typeGType #-} - -gTypeStaticRange :: JSM GType -gTypeStaticRange = GType . Object <$> jsg "StaticRange" - --- | Functions for this inteface are in "JSDOM.Storage". --- --- -newtype Storage = Storage { unStorage :: JSVal } - -instance PToJSVal Storage where - pToJSVal = unStorage - {-# INLINE pToJSVal #-} - -instance PFromJSVal Storage where - pFromJSVal = Storage - {-# INLINE pFromJSVal #-} - -instance ToJSVal Storage where - toJSVal = return . unStorage - {-# INLINE toJSVal #-} - -instance FromJSVal Storage where - fromJSVal v = fmap Storage <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Storage - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Storage where - makeObject = makeObject . unStorage - -instance IsGObject Storage where - typeGType _ = gTypeStorage - {-# INLINE typeGType #-} - -gTypeStorage :: JSM GType -gTypeStorage = GType . Object <$> jsg "Storage" - --- | Functions for this inteface are in "JSDOM.StorageEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype StorageEvent = StorageEvent { unStorageEvent :: JSVal } - -instance PToJSVal StorageEvent where - pToJSVal = unStorageEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal StorageEvent where - pFromJSVal = StorageEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal StorageEvent where - toJSVal = return . unStorageEvent - {-# INLINE toJSVal #-} - -instance FromJSVal StorageEvent where - fromJSVal v = fmap StorageEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StorageEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StorageEvent where - makeObject = makeObject . unStorageEvent - -instance IsEvent StorageEvent -instance IsGObject StorageEvent where - typeGType _ = gTypeStorageEvent - {-# INLINE typeGType #-} - -gTypeStorageEvent :: JSM GType -gTypeStorageEvent = GType . Object <$> jsg "StorageEvent" - --- | Functions for this inteface are in "JSDOM.StorageEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype StorageEventInit = StorageEventInit { unStorageEventInit :: JSVal } - -instance PToJSVal StorageEventInit where - pToJSVal = unStorageEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal StorageEventInit where - pFromJSVal = StorageEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal StorageEventInit where - toJSVal = return . unStorageEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal StorageEventInit where - fromJSVal v = fmap StorageEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StorageEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StorageEventInit where - makeObject = makeObject . unStorageEventInit - -instance IsEventInit StorageEventInit -instance IsGObject StorageEventInit where - typeGType _ = gTypeStorageEventInit - {-# INLINE typeGType #-} - -gTypeStorageEventInit :: JSM GType -gTypeStorageEventInit = GType . Object <$> jsg "StorageEventInit" - --- | Functions for this inteface are in "JSDOM.StorageInfo". --- --- -newtype StorageInfo = StorageInfo { unStorageInfo :: JSVal } - -instance PToJSVal StorageInfo where - pToJSVal = unStorageInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal StorageInfo where - pFromJSVal = StorageInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal StorageInfo where - toJSVal = return . unStorageInfo - {-# INLINE toJSVal #-} - -instance FromJSVal StorageInfo where - fromJSVal v = fmap StorageInfo <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StorageInfo - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StorageInfo where - makeObject = makeObject . unStorageInfo - -instance IsGObject StorageInfo where - typeGType _ = gTypeStorageInfo - {-# INLINE typeGType #-} - -gTypeStorageInfo :: JSM GType -gTypeStorageInfo = GType . Object <$> jsg "StorageInfo" - --- | Functions for this inteface are in "JSDOM.StorageQuota". --- --- -newtype StorageQuota = StorageQuota { unStorageQuota :: JSVal } - -instance PToJSVal StorageQuota where - pToJSVal = unStorageQuota - {-# INLINE pToJSVal #-} - -instance PFromJSVal StorageQuota where - pFromJSVal = StorageQuota - {-# INLINE pFromJSVal #-} - -instance ToJSVal StorageQuota where - toJSVal = return . unStorageQuota - {-# INLINE toJSVal #-} - -instance FromJSVal StorageQuota where - fromJSVal v = fmap StorageQuota <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StorageQuota - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StorageQuota where - makeObject = makeObject . unStorageQuota - -instance IsGObject StorageQuota where - typeGType _ = gTypeStorageQuota - {-# INLINE typeGType #-} - -gTypeStorageQuota :: JSM GType -gTypeStorageQuota = GType . Object <$> jsg "StorageQuota" - --- | Functions for this inteface are in "JSDOM.StyleMedia". --- --- -newtype StyleMedia = StyleMedia { unStyleMedia :: JSVal } - -instance PToJSVal StyleMedia where - pToJSVal = unStyleMedia - {-# INLINE pToJSVal #-} - -instance PFromJSVal StyleMedia where - pFromJSVal = StyleMedia - {-# INLINE pFromJSVal #-} - -instance ToJSVal StyleMedia where - toJSVal = return . unStyleMedia - {-# INLINE toJSVal #-} - -instance FromJSVal StyleMedia where - fromJSVal v = fmap StyleMedia <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StyleMedia - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StyleMedia where - makeObject = makeObject . unStyleMedia - -instance IsGObject StyleMedia where - typeGType _ = gTypeStyleMedia - {-# INLINE typeGType #-} - -gTypeStyleMedia :: JSM GType -gTypeStyleMedia = GType . Object <$> jsg "StyleMedia" - --- | Functions for this inteface are in "JSDOM.StyleSheet". --- --- -newtype StyleSheet = StyleSheet { unStyleSheet :: JSVal } - -instance PToJSVal StyleSheet where - pToJSVal = unStyleSheet - {-# INLINE pToJSVal #-} - -instance PFromJSVal StyleSheet where - pFromJSVal = StyleSheet - {-# INLINE pFromJSVal #-} - -instance ToJSVal StyleSheet where - toJSVal = return . unStyleSheet - {-# INLINE toJSVal #-} - -instance FromJSVal StyleSheet where - fromJSVal v = fmap StyleSheet <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StyleSheet - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StyleSheet where - makeObject = makeObject . unStyleSheet - -class (IsGObject o) => IsStyleSheet o -toStyleSheet :: IsStyleSheet o => o -> StyleSheet -toStyleSheet = StyleSheet . coerce - -instance IsStyleSheet StyleSheet -instance IsGObject StyleSheet where - typeGType _ = gTypeStyleSheet - {-# INLINE typeGType #-} - -gTypeStyleSheet :: JSM GType -gTypeStyleSheet = GType . Object <$> jsg "StyleSheet" - --- | Functions for this inteface are in "JSDOM.StyleSheetList". --- --- -newtype StyleSheetList = StyleSheetList { unStyleSheetList :: JSVal } - -instance PToJSVal StyleSheetList where - pToJSVal = unStyleSheetList - {-# INLINE pToJSVal #-} - -instance PFromJSVal StyleSheetList where - pFromJSVal = StyleSheetList - {-# INLINE pFromJSVal #-} - -instance ToJSVal StyleSheetList where - toJSVal = return . unStyleSheetList - {-# INLINE toJSVal #-} - -instance FromJSVal StyleSheetList where - fromJSVal v = fmap StyleSheetList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . StyleSheetList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject StyleSheetList where - makeObject = makeObject . unStyleSheetList - -instance IsGObject StyleSheetList where - typeGType _ = gTypeStyleSheetList - {-# INLINE typeGType #-} - -gTypeStyleSheetList :: JSM GType -gTypeStyleSheetList = GType . Object <$> jsg "StyleSheetList" - --- | Functions for this inteface are in "JSDOM.SubtleCrypto". --- --- -newtype SubtleCrypto = SubtleCrypto { unSubtleCrypto :: JSVal } - -instance PToJSVal SubtleCrypto where - pToJSVal = unSubtleCrypto - {-# INLINE pToJSVal #-} - -instance PFromJSVal SubtleCrypto where - pFromJSVal = SubtleCrypto - {-# INLINE pFromJSVal #-} - -instance ToJSVal SubtleCrypto where - toJSVal = return . unSubtleCrypto - {-# INLINE toJSVal #-} - -instance FromJSVal SubtleCrypto where - fromJSVal v = fmap SubtleCrypto <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . SubtleCrypto - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject SubtleCrypto where - makeObject = makeObject . unSubtleCrypto - -instance IsGObject SubtleCrypto where - typeGType _ = gTypeSubtleCrypto - {-# INLINE typeGType #-} - -gTypeSubtleCrypto :: JSM GType -gTypeSubtleCrypto = GType . Object <$> jsg "WebKitSubtleCrypto" - --- | Functions for this inteface are in "JSDOM.Text". --- Base interface functions are in: --- --- * "JSDOM.CharacterData" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.NonDocumentTypeChildNode" --- * "JSDOM.ChildNode" --- * "JSDOM.Slotable" --- --- -newtype Text = Text { unText :: JSVal } - -instance PToJSVal Text where - pToJSVal = unText - {-# INLINE pToJSVal #-} - -instance PFromJSVal Text where - pFromJSVal = Text - {-# INLINE pFromJSVal #-} - -instance ToJSVal Text where - toJSVal = return . unText - {-# INLINE toJSVal #-} - -instance FromJSVal Text where - fromJSVal v = fmap Text <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Text - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Text where - makeObject = makeObject . unText - -class (IsCharacterData o, IsNode o, IsEventTarget o, IsNonDocumentTypeChildNode o, IsChildNode o, IsSlotable o, IsGObject o) => IsText o -toText :: IsText o => o -> Text -toText = Text . coerce - -instance IsText Text -instance IsCharacterData Text -instance IsNode Text -instance IsEventTarget Text -instance IsNonDocumentTypeChildNode Text -instance IsChildNode Text -instance IsSlotable Text -instance IsGObject Text where - typeGType _ = gTypeText - {-# INLINE typeGType #-} - -gTypeText :: JSM GType -gTypeText = GType . Object <$> jsg "Text" - --- | Functions for this inteface are in "JSDOM.TextDecodeOptions". --- --- -newtype TextDecodeOptions = TextDecodeOptions { unTextDecodeOptions :: JSVal } - -instance PToJSVal TextDecodeOptions where - pToJSVal = unTextDecodeOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextDecodeOptions where - pFromJSVal = TextDecodeOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextDecodeOptions where - toJSVal = return . unTextDecodeOptions - {-# INLINE toJSVal #-} - -instance FromJSVal TextDecodeOptions where - fromJSVal v = fmap TextDecodeOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextDecodeOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextDecodeOptions where - makeObject = makeObject . unTextDecodeOptions - -instance IsGObject TextDecodeOptions where - typeGType _ = gTypeTextDecodeOptions - {-# INLINE typeGType #-} - -gTypeTextDecodeOptions :: JSM GType -gTypeTextDecodeOptions = GType . Object <$> jsg "TextDecodeOptions" - --- | Functions for this inteface are in "JSDOM.TextDecoder". --- --- -newtype TextDecoder = TextDecoder { unTextDecoder :: JSVal } - -instance PToJSVal TextDecoder where - pToJSVal = unTextDecoder - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextDecoder where - pFromJSVal = TextDecoder - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextDecoder where - toJSVal = return . unTextDecoder - {-# INLINE toJSVal #-} - -instance FromJSVal TextDecoder where - fromJSVal v = fmap TextDecoder <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextDecoder - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextDecoder where - makeObject = makeObject . unTextDecoder - -instance IsGObject TextDecoder where - typeGType _ = gTypeTextDecoder - {-# INLINE typeGType #-} - -gTypeTextDecoder :: JSM GType -gTypeTextDecoder = GType . Object <$> jsg "TextDecoder" - --- | Functions for this inteface are in "JSDOM.TextDecoderOptions". --- --- -newtype TextDecoderOptions = TextDecoderOptions { unTextDecoderOptions :: JSVal } - -instance PToJSVal TextDecoderOptions where - pToJSVal = unTextDecoderOptions - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextDecoderOptions where - pFromJSVal = TextDecoderOptions - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextDecoderOptions where - toJSVal = return . unTextDecoderOptions - {-# INLINE toJSVal #-} - -instance FromJSVal TextDecoderOptions where - fromJSVal v = fmap TextDecoderOptions <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextDecoderOptions - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextDecoderOptions where - makeObject = makeObject . unTextDecoderOptions - -instance IsGObject TextDecoderOptions where - typeGType _ = gTypeTextDecoderOptions - {-# INLINE typeGType #-} - -gTypeTextDecoderOptions :: JSM GType -gTypeTextDecoderOptions = GType . Object <$> jsg "TextDecoderOptions" - --- | Functions for this inteface are in "JSDOM.TextEncoder". --- --- -newtype TextEncoder = TextEncoder { unTextEncoder :: JSVal } - -instance PToJSVal TextEncoder where - pToJSVal = unTextEncoder - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextEncoder where - pFromJSVal = TextEncoder - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextEncoder where - toJSVal = return . unTextEncoder - {-# INLINE toJSVal #-} - -instance FromJSVal TextEncoder where - fromJSVal v = fmap TextEncoder <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextEncoder - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextEncoder where - makeObject = makeObject . unTextEncoder - -instance IsGObject TextEncoder where - typeGType _ = gTypeTextEncoder - {-# INLINE typeGType #-} - -gTypeTextEncoder :: JSM GType -gTypeTextEncoder = GType . Object <$> jsg "TextEncoder" - --- | Functions for this inteface are in "JSDOM.TextEvent". --- Base interface functions are in: --- --- * "JSDOM.UIEvent" --- * "JSDOM.Event" --- --- -newtype TextEvent = TextEvent { unTextEvent :: JSVal } - -instance PToJSVal TextEvent where - pToJSVal = unTextEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextEvent where - pFromJSVal = TextEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextEvent where - toJSVal = return . unTextEvent - {-# INLINE toJSVal #-} - -instance FromJSVal TextEvent where - fromJSVal v = fmap TextEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextEvent where - makeObject = makeObject . unTextEvent - -instance IsUIEvent TextEvent -instance IsEvent TextEvent -instance IsGObject TextEvent where - typeGType _ = gTypeTextEvent - {-# INLINE typeGType #-} - -gTypeTextEvent :: JSM GType -gTypeTextEvent = GType . Object <$> jsg "TextEvent" - --- | Functions for this inteface are in "JSDOM.TextMetrics". --- --- -newtype TextMetrics = TextMetrics { unTextMetrics :: JSVal } - -instance PToJSVal TextMetrics where - pToJSVal = unTextMetrics - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextMetrics where - pFromJSVal = TextMetrics - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextMetrics where - toJSVal = return . unTextMetrics - {-# INLINE toJSVal #-} - -instance FromJSVal TextMetrics where - fromJSVal v = fmap TextMetrics <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextMetrics - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextMetrics where - makeObject = makeObject . unTextMetrics - -instance IsGObject TextMetrics where - typeGType _ = gTypeTextMetrics - {-# INLINE typeGType #-} - -gTypeTextMetrics :: JSM GType -gTypeTextMetrics = GType . Object <$> jsg "TextMetrics" - --- | Functions for this inteface are in "JSDOM.TextTrack". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype TextTrack = TextTrack { unTextTrack :: JSVal } - -instance PToJSVal TextTrack where - pToJSVal = unTextTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextTrack where - pFromJSVal = TextTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextTrack where - toJSVal = return . unTextTrack - {-# INLINE toJSVal #-} - -instance FromJSVal TextTrack where - fromJSVal v = fmap TextTrack <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextTrack - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextTrack where - makeObject = makeObject . unTextTrack - -instance IsEventTarget TextTrack -instance IsGObject TextTrack where - typeGType _ = gTypeTextTrack - {-# INLINE typeGType #-} - -gTypeTextTrack :: JSM GType -gTypeTextTrack = GType . Object <$> jsg "TextTrack" - --- | Functions for this inteface are in "JSDOM.TextTrackCue". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype TextTrackCue = TextTrackCue { unTextTrackCue :: JSVal } - -instance PToJSVal TextTrackCue where - pToJSVal = unTextTrackCue - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextTrackCue where - pFromJSVal = TextTrackCue - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextTrackCue where - toJSVal = return . unTextTrackCue - {-# INLINE toJSVal #-} - -instance FromJSVal TextTrackCue where - fromJSVal v = fmap TextTrackCue <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextTrackCue - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextTrackCue where - makeObject = makeObject . unTextTrackCue - -class (IsEventTarget o, IsGObject o) => IsTextTrackCue o -toTextTrackCue :: IsTextTrackCue o => o -> TextTrackCue -toTextTrackCue = TextTrackCue . coerce - -instance IsTextTrackCue TextTrackCue -instance IsEventTarget TextTrackCue -instance IsGObject TextTrackCue where - typeGType _ = gTypeTextTrackCue - {-# INLINE typeGType #-} - -gTypeTextTrackCue :: JSM GType -gTypeTextTrackCue = GType . Object <$> jsg "TextTrackCue" - --- | Functions for this inteface are in "JSDOM.TextTrackCueList". --- --- -newtype TextTrackCueList = TextTrackCueList { unTextTrackCueList :: JSVal } - -instance PToJSVal TextTrackCueList where - pToJSVal = unTextTrackCueList - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextTrackCueList where - pFromJSVal = TextTrackCueList - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextTrackCueList where - toJSVal = return . unTextTrackCueList - {-# INLINE toJSVal #-} - -instance FromJSVal TextTrackCueList where - fromJSVal v = fmap TextTrackCueList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextTrackCueList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextTrackCueList where - makeObject = makeObject . unTextTrackCueList - -instance IsGObject TextTrackCueList where - typeGType _ = gTypeTextTrackCueList - {-# INLINE typeGType #-} - -gTypeTextTrackCueList :: JSM GType -gTypeTextTrackCueList = GType . Object <$> jsg "TextTrackCueList" - --- | Functions for this inteface are in "JSDOM.TextTrackList". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype TextTrackList = TextTrackList { unTextTrackList :: JSVal } - -instance PToJSVal TextTrackList where - pToJSVal = unTextTrackList - {-# INLINE pToJSVal #-} - -instance PFromJSVal TextTrackList where - pFromJSVal = TextTrackList - {-# INLINE pFromJSVal #-} - -instance ToJSVal TextTrackList where - toJSVal = return . unTextTrackList - {-# INLINE toJSVal #-} - -instance FromJSVal TextTrackList where - fromJSVal v = fmap TextTrackList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TextTrackList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TextTrackList where - makeObject = makeObject . unTextTrackList - -instance IsEventTarget TextTrackList -instance IsGObject TextTrackList where - typeGType _ = gTypeTextTrackList - {-# INLINE typeGType #-} - -gTypeTextTrackList :: JSM GType -gTypeTextTrackList = GType . Object <$> jsg "TextTrackList" - --- | Functions for this inteface are in "JSDOM.TimeRanges". --- --- -newtype TimeRanges = TimeRanges { unTimeRanges :: JSVal } - -instance PToJSVal TimeRanges where - pToJSVal = unTimeRanges - {-# INLINE pToJSVal #-} - -instance PFromJSVal TimeRanges where - pFromJSVal = TimeRanges - {-# INLINE pFromJSVal #-} - -instance ToJSVal TimeRanges where - toJSVal = return . unTimeRanges - {-# INLINE toJSVal #-} - -instance FromJSVal TimeRanges where - fromJSVal v = fmap TimeRanges <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TimeRanges - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TimeRanges where - makeObject = makeObject . unTimeRanges - -instance IsGObject TimeRanges where - typeGType _ = gTypeTimeRanges - {-# INLINE typeGType #-} - -gTypeTimeRanges :: JSM GType -gTypeTimeRanges = GType . Object <$> jsg "TimeRanges" - --- | Functions for this inteface are in "JSDOM.Touch". --- --- -newtype Touch = Touch { unTouch :: JSVal } - -instance PToJSVal Touch where - pToJSVal = unTouch - {-# INLINE pToJSVal #-} - -instance PFromJSVal Touch where - pFromJSVal = Touch - {-# INLINE pFromJSVal #-} - -instance ToJSVal Touch where - toJSVal = return . unTouch - {-# INLINE toJSVal #-} - -instance FromJSVal Touch where - fromJSVal v = fmap Touch <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Touch - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Touch where - makeObject = makeObject . unTouch - -instance IsGObject Touch where - typeGType _ = gTypeTouch - {-# INLINE typeGType #-} - -gTypeTouch :: JSM GType -gTypeTouch = GType . Object <$> jsg "Touch" - --- | Functions for this inteface are in "JSDOM.TouchEvent". --- Base interface functions are in: --- --- * "JSDOM.UIEvent" --- * "JSDOM.Event" --- --- -newtype TouchEvent = TouchEvent { unTouchEvent :: JSVal } - -instance PToJSVal TouchEvent where - pToJSVal = unTouchEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal TouchEvent where - pFromJSVal = TouchEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal TouchEvent where - toJSVal = return . unTouchEvent - {-# INLINE toJSVal #-} - -instance FromJSVal TouchEvent where - fromJSVal v = fmap TouchEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TouchEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TouchEvent where - makeObject = makeObject . unTouchEvent - -instance IsUIEvent TouchEvent -instance IsEvent TouchEvent -instance IsGObject TouchEvent where - typeGType _ = gTypeTouchEvent - {-# INLINE typeGType #-} - -gTypeTouchEvent :: JSM GType -gTypeTouchEvent = GType . Object <$> jsg "TouchEvent" - --- | Functions for this inteface are in "JSDOM.TouchEventInit". --- Base interface functions are in: --- --- * "JSDOM.UIEventInit" --- * "JSDOM.EventInit" --- --- -newtype TouchEventInit = TouchEventInit { unTouchEventInit :: JSVal } - -instance PToJSVal TouchEventInit where - pToJSVal = unTouchEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal TouchEventInit where - pFromJSVal = TouchEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal TouchEventInit where - toJSVal = return . unTouchEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal TouchEventInit where - fromJSVal v = fmap TouchEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TouchEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TouchEventInit where - makeObject = makeObject . unTouchEventInit - -instance IsUIEventInit TouchEventInit -instance IsEventInit TouchEventInit -instance IsGObject TouchEventInit where - typeGType _ = gTypeTouchEventInit - {-# INLINE typeGType #-} - -gTypeTouchEventInit :: JSM GType -gTypeTouchEventInit = GType . Object <$> jsg "TouchEventInit" - --- | Functions for this inteface are in "JSDOM.TouchList". --- --- -newtype TouchList = TouchList { unTouchList :: JSVal } - -instance PToJSVal TouchList where - pToJSVal = unTouchList - {-# INLINE pToJSVal #-} - -instance PFromJSVal TouchList where - pFromJSVal = TouchList - {-# INLINE pFromJSVal #-} - -instance ToJSVal TouchList where - toJSVal = return . unTouchList - {-# INLINE toJSVal #-} - -instance FromJSVal TouchList where - fromJSVal v = fmap TouchList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TouchList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TouchList where - makeObject = makeObject . unTouchList - -instance IsGObject TouchList where - typeGType _ = gTypeTouchList - {-# INLINE typeGType #-} - -gTypeTouchList :: JSM GType -gTypeTouchList = GType . Object <$> jsg "TouchList" - --- | Functions for this inteface are in "JSDOM.TrackEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype TrackEvent = TrackEvent { unTrackEvent :: JSVal } - -instance PToJSVal TrackEvent where - pToJSVal = unTrackEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal TrackEvent where - pFromJSVal = TrackEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal TrackEvent where - toJSVal = return . unTrackEvent - {-# INLINE toJSVal #-} - -instance FromJSVal TrackEvent where - fromJSVal v = fmap TrackEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TrackEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TrackEvent where - makeObject = makeObject . unTrackEvent - -instance IsEvent TrackEvent -instance IsGObject TrackEvent where - typeGType _ = gTypeTrackEvent - {-# INLINE typeGType #-} - -gTypeTrackEvent :: JSM GType -gTypeTrackEvent = GType . Object <$> jsg "TrackEvent" - --- | Functions for this inteface are in "JSDOM.TrackEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype TrackEventInit = TrackEventInit { unTrackEventInit :: JSVal } - -instance PToJSVal TrackEventInit where - pToJSVal = unTrackEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal TrackEventInit where - pFromJSVal = TrackEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal TrackEventInit where - toJSVal = return . unTrackEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal TrackEventInit where - fromJSVal v = fmap TrackEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TrackEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TrackEventInit where - makeObject = makeObject . unTrackEventInit - -instance IsEventInit TrackEventInit -instance IsGObject TrackEventInit where - typeGType _ = gTypeTrackEventInit - {-# INLINE typeGType #-} - -gTypeTrackEventInit :: JSM GType -gTypeTrackEventInit = GType . Object <$> jsg "TrackEventInit" - --- | Functions for this inteface are in "JSDOM.TransitionEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype TransitionEvent = TransitionEvent { unTransitionEvent :: JSVal } - -instance PToJSVal TransitionEvent where - pToJSVal = unTransitionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal TransitionEvent where - pFromJSVal = TransitionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal TransitionEvent where - toJSVal = return . unTransitionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal TransitionEvent where - fromJSVal v = fmap TransitionEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TransitionEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TransitionEvent where - makeObject = makeObject . unTransitionEvent - -instance IsEvent TransitionEvent -instance IsGObject TransitionEvent where - typeGType _ = gTypeTransitionEvent - {-# INLINE typeGType #-} - -gTypeTransitionEvent :: JSM GType -gTypeTransitionEvent = GType . Object <$> jsg "TransitionEvent" - --- | Functions for this inteface are in "JSDOM.TransitionEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype TransitionEventInit = TransitionEventInit { unTransitionEventInit :: JSVal } - -instance PToJSVal TransitionEventInit where - pToJSVal = unTransitionEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal TransitionEventInit where - pFromJSVal = TransitionEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal TransitionEventInit where - toJSVal = return . unTransitionEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal TransitionEventInit where - fromJSVal v = fmap TransitionEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TransitionEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TransitionEventInit where - makeObject = makeObject . unTransitionEventInit - -instance IsEventInit TransitionEventInit -instance IsGObject TransitionEventInit where - typeGType _ = gTypeTransitionEventInit - {-# INLINE typeGType #-} - -gTypeTransitionEventInit :: JSM GType -gTypeTransitionEventInit = GType . Object <$> jsg "TransitionEventInit" - --- | Functions for this inteface are in "JSDOM.TreeWalker". --- --- -newtype TreeWalker = TreeWalker { unTreeWalker :: JSVal } - -instance PToJSVal TreeWalker where - pToJSVal = unTreeWalker - {-# INLINE pToJSVal #-} - -instance PFromJSVal TreeWalker where - pFromJSVal = TreeWalker - {-# INLINE pFromJSVal #-} - -instance ToJSVal TreeWalker where - toJSVal = return . unTreeWalker - {-# INLINE toJSVal #-} - -instance FromJSVal TreeWalker where - fromJSVal v = fmap TreeWalker <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . TreeWalker - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject TreeWalker where - makeObject = makeObject . unTreeWalker - -instance IsGObject TreeWalker where - typeGType _ = gTypeTreeWalker - {-# INLINE typeGType #-} - -gTypeTreeWalker :: JSM GType -gTypeTreeWalker = GType . Object <$> jsg "TreeWalker" - --- | Functions for this inteface are in "JSDOM.UIEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype UIEvent = UIEvent { unUIEvent :: JSVal } - -instance PToJSVal UIEvent where - pToJSVal = unUIEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal UIEvent where - pFromJSVal = UIEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal UIEvent where - toJSVal = return . unUIEvent - {-# INLINE toJSVal #-} - -instance FromJSVal UIEvent where - fromJSVal v = fmap UIEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . UIEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject UIEvent where - makeObject = makeObject . unUIEvent - -class (IsEvent o, IsGObject o) => IsUIEvent o -toUIEvent :: IsUIEvent o => o -> UIEvent -toUIEvent = UIEvent . coerce - -instance IsUIEvent UIEvent -instance IsEvent UIEvent -instance IsGObject UIEvent where - typeGType _ = gTypeUIEvent - {-# INLINE typeGType #-} - -gTypeUIEvent :: JSM GType -gTypeUIEvent = GType . Object <$> jsg "UIEvent" - --- | Functions for this inteface are in "JSDOM.UIEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype UIEventInit = UIEventInit { unUIEventInit :: JSVal } - -instance PToJSVal UIEventInit where - pToJSVal = unUIEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal UIEventInit where - pFromJSVal = UIEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal UIEventInit where - toJSVal = return . unUIEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal UIEventInit where - fromJSVal v = fmap UIEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . UIEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject UIEventInit where - makeObject = makeObject . unUIEventInit - -class (IsEventInit o, IsGObject o) => IsUIEventInit o -toUIEventInit :: IsUIEventInit o => o -> UIEventInit -toUIEventInit = UIEventInit . coerce - -instance IsUIEventInit UIEventInit -instance IsEventInit UIEventInit -instance IsGObject UIEventInit where - typeGType _ = gTypeUIEventInit - {-# INLINE typeGType #-} - -gTypeUIEventInit :: JSM GType -gTypeUIEventInit = GType . Object <$> jsg "UIEventInit" - --- | Functions for this inteface are in "JSDOM.URL". --- --- -newtype URL = URL { unURL :: JSVal } - -instance PToJSVal URL where - pToJSVal = unURL - {-# INLINE pToJSVal #-} - -instance PFromJSVal URL where - pFromJSVal = URL - {-# INLINE pFromJSVal #-} - -instance ToJSVal URL where - toJSVal = return . unURL - {-# INLINE toJSVal #-} - -instance FromJSVal URL where - fromJSVal v = fmap URL <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . URL - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject URL where - makeObject = makeObject . unURL - -instance IsGObject URL where - typeGType _ = gTypeURL - {-# INLINE typeGType #-} - -gTypeURL :: JSM GType -gTypeURL = GType . Object <$> jsg "URL" - --- | Functions for this inteface are in "JSDOM.URLSearchParams". --- --- -newtype URLSearchParams = URLSearchParams { unURLSearchParams :: JSVal } - -instance PToJSVal URLSearchParams where - pToJSVal = unURLSearchParams - {-# INLINE pToJSVal #-} - -instance PFromJSVal URLSearchParams where - pFromJSVal = URLSearchParams - {-# INLINE pFromJSVal #-} - -instance ToJSVal URLSearchParams where - toJSVal = return . unURLSearchParams - {-# INLINE toJSVal #-} - -instance FromJSVal URLSearchParams where - fromJSVal v = fmap URLSearchParams <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . URLSearchParams - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject URLSearchParams where - makeObject = makeObject . unURLSearchParams - -instance IsGObject URLSearchParams where - typeGType _ = gTypeURLSearchParams - {-# INLINE typeGType #-} - -gTypeURLSearchParams :: JSM GType -gTypeURLSearchParams = GType . Object <$> jsg "URLSearchParams" - --- | Functions for this inteface are in "JSDOM.UserMessageHandler". --- --- -newtype UserMessageHandler = UserMessageHandler { unUserMessageHandler :: JSVal } - -instance PToJSVal UserMessageHandler where - pToJSVal = unUserMessageHandler - {-# INLINE pToJSVal #-} - -instance PFromJSVal UserMessageHandler where - pFromJSVal = UserMessageHandler - {-# INLINE pFromJSVal #-} - -instance ToJSVal UserMessageHandler where - toJSVal = return . unUserMessageHandler - {-# INLINE toJSVal #-} - -instance FromJSVal UserMessageHandler where - fromJSVal v = fmap UserMessageHandler <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . UserMessageHandler - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject UserMessageHandler where - makeObject = makeObject . unUserMessageHandler - -instance IsGObject UserMessageHandler where - typeGType _ = gTypeUserMessageHandler - {-# INLINE typeGType #-} - -gTypeUserMessageHandler :: JSM GType -gTypeUserMessageHandler = GType . Object <$> jsg "UserMessageHandler" - --- | Functions for this inteface are in "JSDOM.UserMessageHandlersNamespace". --- --- -newtype UserMessageHandlersNamespace = UserMessageHandlersNamespace { unUserMessageHandlersNamespace :: JSVal } - -instance PToJSVal UserMessageHandlersNamespace where - pToJSVal = unUserMessageHandlersNamespace - {-# INLINE pToJSVal #-} - -instance PFromJSVal UserMessageHandlersNamespace where - pFromJSVal = UserMessageHandlersNamespace - {-# INLINE pFromJSVal #-} - -instance ToJSVal UserMessageHandlersNamespace where - toJSVal = return . unUserMessageHandlersNamespace - {-# INLINE toJSVal #-} - -instance FromJSVal UserMessageHandlersNamespace where - fromJSVal v = fmap UserMessageHandlersNamespace <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . UserMessageHandlersNamespace - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject UserMessageHandlersNamespace where - makeObject = makeObject . unUserMessageHandlersNamespace - -instance IsGObject UserMessageHandlersNamespace where - typeGType _ = gTypeUserMessageHandlersNamespace - {-# INLINE typeGType #-} - -gTypeUserMessageHandlersNamespace :: JSM GType -gTypeUserMessageHandlersNamespace = GType . Object <$> jsg "UserMessageHandlersNamespace" - --- | Functions for this inteface are in "JSDOM.VTTCue". --- Base interface functions are in: --- --- * "JSDOM.TextTrackCue" --- * "JSDOM.EventTarget" --- --- -newtype VTTCue = VTTCue { unVTTCue :: JSVal } - -instance PToJSVal VTTCue where - pToJSVal = unVTTCue - {-# INLINE pToJSVal #-} - -instance PFromJSVal VTTCue where - pFromJSVal = VTTCue - {-# INLINE pFromJSVal #-} - -instance ToJSVal VTTCue where - toJSVal = return . unVTTCue - {-# INLINE toJSVal #-} - -instance FromJSVal VTTCue where - fromJSVal v = fmap VTTCue <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . VTTCue - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject VTTCue where - makeObject = makeObject . unVTTCue - -instance IsTextTrackCue VTTCue -instance IsEventTarget VTTCue -instance IsGObject VTTCue where - typeGType _ = gTypeVTTCue - {-# INLINE typeGType #-} - -gTypeVTTCue :: JSM GType -gTypeVTTCue = GType . Object <$> jsg "VTTCue" - --- | Functions for this inteface are in "JSDOM.VTTRegion". --- --- -newtype VTTRegion = VTTRegion { unVTTRegion :: JSVal } - -instance PToJSVal VTTRegion where - pToJSVal = unVTTRegion - {-# INLINE pToJSVal #-} - -instance PFromJSVal VTTRegion where - pFromJSVal = VTTRegion - {-# INLINE pFromJSVal #-} - -instance ToJSVal VTTRegion where - toJSVal = return . unVTTRegion - {-# INLINE toJSVal #-} - -instance FromJSVal VTTRegion where - fromJSVal v = fmap VTTRegion <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . VTTRegion - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject VTTRegion where - makeObject = makeObject . unVTTRegion - -instance IsGObject VTTRegion where - typeGType _ = gTypeVTTRegion - {-# INLINE typeGType #-} - -gTypeVTTRegion :: JSM GType -gTypeVTTRegion = GType . Object <$> jsg "VTTRegion" - --- | Functions for this inteface are in "JSDOM.VTTRegionList". --- --- -newtype VTTRegionList = VTTRegionList { unVTTRegionList :: JSVal } - -instance PToJSVal VTTRegionList where - pToJSVal = unVTTRegionList - {-# INLINE pToJSVal #-} - -instance PFromJSVal VTTRegionList where - pFromJSVal = VTTRegionList - {-# INLINE pFromJSVal #-} - -instance ToJSVal VTTRegionList where - toJSVal = return . unVTTRegionList - {-# INLINE toJSVal #-} - -instance FromJSVal VTTRegionList where - fromJSVal v = fmap VTTRegionList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . VTTRegionList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject VTTRegionList where - makeObject = makeObject . unVTTRegionList - -instance IsGObject VTTRegionList where - typeGType _ = gTypeVTTRegionList - {-# INLINE typeGType #-} - -gTypeVTTRegionList :: JSM GType -gTypeVTTRegionList = GType . Object <$> jsg "VTTRegionList" - --- | Functions for this inteface are in "JSDOM.ValidityState". --- --- -newtype ValidityState = ValidityState { unValidityState :: JSVal } - -instance PToJSVal ValidityState where - pToJSVal = unValidityState - {-# INLINE pToJSVal #-} - -instance PFromJSVal ValidityState where - pFromJSVal = ValidityState - {-# INLINE pFromJSVal #-} - -instance ToJSVal ValidityState where - toJSVal = return . unValidityState - {-# INLINE toJSVal #-} - -instance FromJSVal ValidityState where - fromJSVal v = fmap ValidityState <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . ValidityState - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject ValidityState where - makeObject = makeObject . unValidityState - -instance IsGObject ValidityState where - typeGType _ = gTypeValidityState - {-# INLINE typeGType #-} - -gTypeValidityState :: JSM GType -gTypeValidityState = GType . Object <$> jsg "ValidityState" - --- | Functions for this inteface are in "JSDOM.VideoPlaybackQuality". --- --- -newtype VideoPlaybackQuality = VideoPlaybackQuality { unVideoPlaybackQuality :: JSVal } - -instance PToJSVal VideoPlaybackQuality where - pToJSVal = unVideoPlaybackQuality - {-# INLINE pToJSVal #-} - -instance PFromJSVal VideoPlaybackQuality where - pFromJSVal = VideoPlaybackQuality - {-# INLINE pFromJSVal #-} - -instance ToJSVal VideoPlaybackQuality where - toJSVal = return . unVideoPlaybackQuality - {-# INLINE toJSVal #-} - -instance FromJSVal VideoPlaybackQuality where - fromJSVal v = fmap VideoPlaybackQuality <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . VideoPlaybackQuality - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject VideoPlaybackQuality where - makeObject = makeObject . unVideoPlaybackQuality - -instance IsGObject VideoPlaybackQuality where - typeGType _ = gTypeVideoPlaybackQuality - {-# INLINE typeGType #-} - -gTypeVideoPlaybackQuality :: JSM GType -gTypeVideoPlaybackQuality = GType . Object <$> jsg "VideoPlaybackQuality" - --- | Functions for this inteface are in "JSDOM.VideoTrack". --- --- -newtype VideoTrack = VideoTrack { unVideoTrack :: JSVal } - -instance PToJSVal VideoTrack where - pToJSVal = unVideoTrack - {-# INLINE pToJSVal #-} - -instance PFromJSVal VideoTrack where - pFromJSVal = VideoTrack - {-# INLINE pFromJSVal #-} - -instance ToJSVal VideoTrack where - toJSVal = return . unVideoTrack - {-# INLINE toJSVal #-} - -instance FromJSVal VideoTrack where - fromJSVal v = fmap VideoTrack <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . VideoTrack - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject VideoTrack where - makeObject = makeObject . unVideoTrack - -instance IsGObject VideoTrack where - typeGType _ = gTypeVideoTrack - {-# INLINE typeGType #-} - -gTypeVideoTrack :: JSM GType -gTypeVideoTrack = GType . Object <$> jsg "VideoTrack" - --- | Functions for this inteface are in "JSDOM.VideoTrackList". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype VideoTrackList = VideoTrackList { unVideoTrackList :: JSVal } - -instance PToJSVal VideoTrackList where - pToJSVal = unVideoTrackList - {-# INLINE pToJSVal #-} - -instance PFromJSVal VideoTrackList where - pFromJSVal = VideoTrackList - {-# INLINE pFromJSVal #-} - -instance ToJSVal VideoTrackList where - toJSVal = return . unVideoTrackList - {-# INLINE toJSVal #-} - -instance FromJSVal VideoTrackList where - fromJSVal v = fmap VideoTrackList <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . VideoTrackList - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject VideoTrackList where - makeObject = makeObject . unVideoTrackList - -instance IsEventTarget VideoTrackList -instance IsGObject VideoTrackList where - typeGType _ = gTypeVideoTrackList - {-# INLINE typeGType #-} - -gTypeVideoTrackList :: JSM GType -gTypeVideoTrackList = GType . Object <$> jsg "VideoTrackList" - --- | Functions for this inteface are in "JSDOM.WaveShaperNode". --- Base interface functions are in: --- --- * "JSDOM.AudioNode" --- * "JSDOM.EventTarget" --- --- -newtype WaveShaperNode = WaveShaperNode { unWaveShaperNode :: JSVal } - -instance PToJSVal WaveShaperNode where - pToJSVal = unWaveShaperNode - {-# INLINE pToJSVal #-} - -instance PFromJSVal WaveShaperNode where - pFromJSVal = WaveShaperNode - {-# INLINE pFromJSVal #-} - -instance ToJSVal WaveShaperNode where - toJSVal = return . unWaveShaperNode - {-# INLINE toJSVal #-} - -instance FromJSVal WaveShaperNode where - fromJSVal v = fmap WaveShaperNode <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WaveShaperNode - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WaveShaperNode where - makeObject = makeObject . unWaveShaperNode - -instance IsAudioNode WaveShaperNode -instance IsEventTarget WaveShaperNode -instance IsGObject WaveShaperNode where - typeGType _ = gTypeWaveShaperNode - {-# INLINE typeGType #-} - -gTypeWaveShaperNode :: JSM GType -gTypeWaveShaperNode = GType . Object <$> jsg "WaveShaperNode" - --- | Functions for this inteface are in "JSDOM.WebGL2RenderingContext". --- Base interface functions are in: --- --- * "JSDOM.WebGLRenderingContextBase" --- --- -newtype WebGL2RenderingContext = WebGL2RenderingContext { unWebGL2RenderingContext :: JSVal } - -instance PToJSVal WebGL2RenderingContext where - pToJSVal = unWebGL2RenderingContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGL2RenderingContext where - pFromJSVal = WebGL2RenderingContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGL2RenderingContext where - toJSVal = return . unWebGL2RenderingContext - {-# INLINE toJSVal #-} - -instance FromJSVal WebGL2RenderingContext where - fromJSVal v = fmap WebGL2RenderingContext <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGL2RenderingContext - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGL2RenderingContext where - makeObject = makeObject . unWebGL2RenderingContext - -instance IsWebGLRenderingContextBase WebGL2RenderingContext -instance IsGObject WebGL2RenderingContext where - typeGType _ = gTypeWebGL2RenderingContext - {-# INLINE typeGType #-} - -gTypeWebGL2RenderingContext :: JSM GType -gTypeWebGL2RenderingContext = GType . Object <$> jsg "WebGL2RenderingContext" - --- | Functions for this inteface are in "JSDOM.WebGLActiveInfo". --- --- -newtype WebGLActiveInfo = WebGLActiveInfo { unWebGLActiveInfo :: JSVal } - -instance PToJSVal WebGLActiveInfo where - pToJSVal = unWebGLActiveInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLActiveInfo where - pFromJSVal = WebGLActiveInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLActiveInfo where - toJSVal = return . unWebGLActiveInfo - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLActiveInfo where - fromJSVal v = fmap WebGLActiveInfo <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLActiveInfo - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLActiveInfo where - makeObject = makeObject . unWebGLActiveInfo - -instance IsGObject WebGLActiveInfo where - typeGType _ = gTypeWebGLActiveInfo - {-# INLINE typeGType #-} - -gTypeWebGLActiveInfo :: JSM GType -gTypeWebGLActiveInfo = GType . Object <$> jsg "WebGLActiveInfo" - --- | Functions for this inteface are in "JSDOM.WebGLBuffer". --- --- -newtype WebGLBuffer = WebGLBuffer { unWebGLBuffer :: JSVal } - -instance PToJSVal WebGLBuffer where - pToJSVal = unWebGLBuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLBuffer where - pFromJSVal = WebGLBuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLBuffer where - toJSVal = return . unWebGLBuffer - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLBuffer where - fromJSVal v = fmap WebGLBuffer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLBuffer - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLBuffer where - makeObject = makeObject . unWebGLBuffer - -instance IsGObject WebGLBuffer where - typeGType _ = gTypeWebGLBuffer - {-# INLINE typeGType #-} - -gTypeWebGLBuffer :: JSM GType -gTypeWebGLBuffer = GType . Object <$> jsg "WebGLBuffer" - --- | Functions for this inteface are in "JSDOM.WebGLCompressedTextureATC". --- --- -newtype WebGLCompressedTextureATC = WebGLCompressedTextureATC { unWebGLCompressedTextureATC :: JSVal } - -instance PToJSVal WebGLCompressedTextureATC where - pToJSVal = unWebGLCompressedTextureATC - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLCompressedTextureATC where - pFromJSVal = WebGLCompressedTextureATC - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLCompressedTextureATC where - toJSVal = return . unWebGLCompressedTextureATC - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLCompressedTextureATC where - fromJSVal v = fmap WebGLCompressedTextureATC <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLCompressedTextureATC - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLCompressedTextureATC where - makeObject = makeObject . unWebGLCompressedTextureATC - -instance IsGObject WebGLCompressedTextureATC where - typeGType _ = gTypeWebGLCompressedTextureATC - {-# INLINE typeGType #-} - -gTypeWebGLCompressedTextureATC :: JSM GType -gTypeWebGLCompressedTextureATC = GType . Object <$> jsg "WebGLCompressedTextureATC" - --- | Functions for this inteface are in "JSDOM.WebGLCompressedTexturePVRTC". --- --- -newtype WebGLCompressedTexturePVRTC = WebGLCompressedTexturePVRTC { unWebGLCompressedTexturePVRTC :: JSVal } - -instance PToJSVal WebGLCompressedTexturePVRTC where - pToJSVal = unWebGLCompressedTexturePVRTC - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLCompressedTexturePVRTC where - pFromJSVal = WebGLCompressedTexturePVRTC - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLCompressedTexturePVRTC where - toJSVal = return . unWebGLCompressedTexturePVRTC - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLCompressedTexturePVRTC where - fromJSVal v = fmap WebGLCompressedTexturePVRTC <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLCompressedTexturePVRTC - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLCompressedTexturePVRTC where - makeObject = makeObject . unWebGLCompressedTexturePVRTC - -instance IsGObject WebGLCompressedTexturePVRTC where - typeGType _ = gTypeWebGLCompressedTexturePVRTC - {-# INLINE typeGType #-} - -gTypeWebGLCompressedTexturePVRTC :: JSM GType -gTypeWebGLCompressedTexturePVRTC = GType . Object <$> jsg "WebGLCompressedTexturePVRTC" - --- | Functions for this inteface are in "JSDOM.WebGLCompressedTextureS3TC". --- --- -newtype WebGLCompressedTextureS3TC = WebGLCompressedTextureS3TC { unWebGLCompressedTextureS3TC :: JSVal } - -instance PToJSVal WebGLCompressedTextureS3TC where - pToJSVal = unWebGLCompressedTextureS3TC - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLCompressedTextureS3TC where - pFromJSVal = WebGLCompressedTextureS3TC - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLCompressedTextureS3TC where - toJSVal = return . unWebGLCompressedTextureS3TC - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLCompressedTextureS3TC where - fromJSVal v = fmap WebGLCompressedTextureS3TC <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLCompressedTextureS3TC - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLCompressedTextureS3TC where - makeObject = makeObject . unWebGLCompressedTextureS3TC - -instance IsGObject WebGLCompressedTextureS3TC where - typeGType _ = gTypeWebGLCompressedTextureS3TC - {-# INLINE typeGType #-} - -gTypeWebGLCompressedTextureS3TC :: JSM GType -gTypeWebGLCompressedTextureS3TC = GType . Object <$> jsg "WebGLCompressedTextureS3TC" - --- | Functions for this inteface are in "JSDOM.WebGLContextAttributes". --- --- -newtype WebGLContextAttributes = WebGLContextAttributes { unWebGLContextAttributes :: JSVal } - -instance PToJSVal WebGLContextAttributes where - pToJSVal = unWebGLContextAttributes - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLContextAttributes where - pFromJSVal = WebGLContextAttributes - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLContextAttributes where - toJSVal = return . unWebGLContextAttributes - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLContextAttributes where - fromJSVal v = fmap WebGLContextAttributes <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLContextAttributes - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLContextAttributes where - makeObject = makeObject . unWebGLContextAttributes - -instance IsGObject WebGLContextAttributes where - typeGType _ = gTypeWebGLContextAttributes - {-# INLINE typeGType #-} - -gTypeWebGLContextAttributes :: JSM GType -gTypeWebGLContextAttributes = GType . Object <$> jsg "WebGLContextAttributes" - --- | Functions for this inteface are in "JSDOM.WebGLContextEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype WebGLContextEvent = WebGLContextEvent { unWebGLContextEvent :: JSVal } - -instance PToJSVal WebGLContextEvent where - pToJSVal = unWebGLContextEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLContextEvent where - pFromJSVal = WebGLContextEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLContextEvent where - toJSVal = return . unWebGLContextEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLContextEvent where - fromJSVal v = fmap WebGLContextEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLContextEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLContextEvent where - makeObject = makeObject . unWebGLContextEvent - -instance IsEvent WebGLContextEvent -instance IsGObject WebGLContextEvent where - typeGType _ = gTypeWebGLContextEvent - {-# INLINE typeGType #-} - -gTypeWebGLContextEvent :: JSM GType -gTypeWebGLContextEvent = GType . Object <$> jsg "WebGLContextEvent" - --- | Functions for this inteface are in "JSDOM.WebGLContextEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype WebGLContextEventInit = WebGLContextEventInit { unWebGLContextEventInit :: JSVal } - -instance PToJSVal WebGLContextEventInit where - pToJSVal = unWebGLContextEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLContextEventInit where - pFromJSVal = WebGLContextEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLContextEventInit where - toJSVal = return . unWebGLContextEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLContextEventInit where - fromJSVal v = fmap WebGLContextEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLContextEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLContextEventInit where - makeObject = makeObject . unWebGLContextEventInit - -instance IsEventInit WebGLContextEventInit -instance IsGObject WebGLContextEventInit where - typeGType _ = gTypeWebGLContextEventInit - {-# INLINE typeGType #-} - -gTypeWebGLContextEventInit :: JSM GType -gTypeWebGLContextEventInit = GType . Object <$> jsg "WebGLContextEventInit" - --- | Functions for this inteface are in "JSDOM.WebGLDebugRendererInfo". --- --- -newtype WebGLDebugRendererInfo = WebGLDebugRendererInfo { unWebGLDebugRendererInfo :: JSVal } - -instance PToJSVal WebGLDebugRendererInfo where - pToJSVal = unWebGLDebugRendererInfo - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLDebugRendererInfo where - pFromJSVal = WebGLDebugRendererInfo - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLDebugRendererInfo where - toJSVal = return . unWebGLDebugRendererInfo - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLDebugRendererInfo where - fromJSVal v = fmap WebGLDebugRendererInfo <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLDebugRendererInfo - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLDebugRendererInfo where - makeObject = makeObject . unWebGLDebugRendererInfo - -instance IsGObject WebGLDebugRendererInfo where - typeGType _ = gTypeWebGLDebugRendererInfo - {-# INLINE typeGType #-} - -gTypeWebGLDebugRendererInfo :: JSM GType -gTypeWebGLDebugRendererInfo = GType . Object <$> jsg "WebGLDebugRendererInfo" - --- | Functions for this inteface are in "JSDOM.WebGLDebugShaders". --- --- -newtype WebGLDebugShaders = WebGLDebugShaders { unWebGLDebugShaders :: JSVal } - -instance PToJSVal WebGLDebugShaders where - pToJSVal = unWebGLDebugShaders - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLDebugShaders where - pFromJSVal = WebGLDebugShaders - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLDebugShaders where - toJSVal = return . unWebGLDebugShaders - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLDebugShaders where - fromJSVal v = fmap WebGLDebugShaders <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLDebugShaders - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLDebugShaders where - makeObject = makeObject . unWebGLDebugShaders - -instance IsGObject WebGLDebugShaders where - typeGType _ = gTypeWebGLDebugShaders - {-# INLINE typeGType #-} - -gTypeWebGLDebugShaders :: JSM GType -gTypeWebGLDebugShaders = GType . Object <$> jsg "WebGLDebugShaders" - --- | Functions for this inteface are in "JSDOM.WebGLDepthTexture". --- --- -newtype WebGLDepthTexture = WebGLDepthTexture { unWebGLDepthTexture :: JSVal } - -instance PToJSVal WebGLDepthTexture where - pToJSVal = unWebGLDepthTexture - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLDepthTexture where - pFromJSVal = WebGLDepthTexture - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLDepthTexture where - toJSVal = return . unWebGLDepthTexture - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLDepthTexture where - fromJSVal v = fmap WebGLDepthTexture <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLDepthTexture - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLDepthTexture where - makeObject = makeObject . unWebGLDepthTexture - -instance IsGObject WebGLDepthTexture where - typeGType _ = gTypeWebGLDepthTexture - {-# INLINE typeGType #-} - -gTypeWebGLDepthTexture :: JSM GType -gTypeWebGLDepthTexture = GType . Object <$> jsg "WebGLDepthTexture" - --- | Functions for this inteface are in "JSDOM.WebGLDrawBuffers". --- --- -newtype WebGLDrawBuffers = WebGLDrawBuffers { unWebGLDrawBuffers :: JSVal } - -instance PToJSVal WebGLDrawBuffers where - pToJSVal = unWebGLDrawBuffers - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLDrawBuffers where - pFromJSVal = WebGLDrawBuffers - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLDrawBuffers where - toJSVal = return . unWebGLDrawBuffers - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLDrawBuffers where - fromJSVal v = fmap WebGLDrawBuffers <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLDrawBuffers - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLDrawBuffers where - makeObject = makeObject . unWebGLDrawBuffers - -instance IsGObject WebGLDrawBuffers where - typeGType _ = gTypeWebGLDrawBuffers - {-# INLINE typeGType #-} - -gTypeWebGLDrawBuffers :: JSM GType -gTypeWebGLDrawBuffers = GType . Object <$> jsg "WebGLDrawBuffers" - --- | Functions for this inteface are in "JSDOM.WebGLFramebuffer". --- --- -newtype WebGLFramebuffer = WebGLFramebuffer { unWebGLFramebuffer :: JSVal } - -instance PToJSVal WebGLFramebuffer where - pToJSVal = unWebGLFramebuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLFramebuffer where - pFromJSVal = WebGLFramebuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLFramebuffer where - toJSVal = return . unWebGLFramebuffer - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLFramebuffer where - fromJSVal v = fmap WebGLFramebuffer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLFramebuffer - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLFramebuffer where - makeObject = makeObject . unWebGLFramebuffer - -instance IsGObject WebGLFramebuffer where - typeGType _ = gTypeWebGLFramebuffer - {-# INLINE typeGType #-} - -gTypeWebGLFramebuffer :: JSM GType -gTypeWebGLFramebuffer = GType . Object <$> jsg "WebGLFramebuffer" - --- | Functions for this inteface are in "JSDOM.WebGLLoseContext". --- --- -newtype WebGLLoseContext = WebGLLoseContext { unWebGLLoseContext :: JSVal } - -instance PToJSVal WebGLLoseContext where - pToJSVal = unWebGLLoseContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLLoseContext where - pFromJSVal = WebGLLoseContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLLoseContext where - toJSVal = return . unWebGLLoseContext - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLLoseContext where - fromJSVal v = fmap WebGLLoseContext <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLLoseContext - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLLoseContext where - makeObject = makeObject . unWebGLLoseContext - -instance IsGObject WebGLLoseContext where - typeGType _ = gTypeWebGLLoseContext - {-# INLINE typeGType #-} - -gTypeWebGLLoseContext :: JSM GType -gTypeWebGLLoseContext = GType . Object <$> jsg "WebGLLoseContext" - --- | Functions for this inteface are in "JSDOM.WebGLProgram". --- --- -newtype WebGLProgram = WebGLProgram { unWebGLProgram :: JSVal } - -instance PToJSVal WebGLProgram where - pToJSVal = unWebGLProgram - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLProgram where - pFromJSVal = WebGLProgram - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLProgram where - toJSVal = return . unWebGLProgram - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLProgram where - fromJSVal v = fmap WebGLProgram <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLProgram - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLProgram where - makeObject = makeObject . unWebGLProgram - -instance IsGObject WebGLProgram where - typeGType _ = gTypeWebGLProgram - {-# INLINE typeGType #-} - -gTypeWebGLProgram :: JSM GType -gTypeWebGLProgram = GType . Object <$> jsg "WebGLProgram" - --- | Functions for this inteface are in "JSDOM.WebGLQuery". --- --- -newtype WebGLQuery = WebGLQuery { unWebGLQuery :: JSVal } - -instance PToJSVal WebGLQuery where - pToJSVal = unWebGLQuery - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLQuery where - pFromJSVal = WebGLQuery - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLQuery where - toJSVal = return . unWebGLQuery - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLQuery where - fromJSVal v = fmap WebGLQuery <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLQuery - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLQuery where - makeObject = makeObject . unWebGLQuery - -instance IsGObject WebGLQuery where - typeGType _ = gTypeWebGLQuery - {-# INLINE typeGType #-} - -gTypeWebGLQuery :: JSM GType -gTypeWebGLQuery = GType . Object <$> jsg "WebGLQuery" - --- | Functions for this inteface are in "JSDOM.WebGLRenderbuffer". --- --- -newtype WebGLRenderbuffer = WebGLRenderbuffer { unWebGLRenderbuffer :: JSVal } - -instance PToJSVal WebGLRenderbuffer where - pToJSVal = unWebGLRenderbuffer - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLRenderbuffer where - pFromJSVal = WebGLRenderbuffer - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLRenderbuffer where - toJSVal = return . unWebGLRenderbuffer - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLRenderbuffer where - fromJSVal v = fmap WebGLRenderbuffer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLRenderbuffer - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLRenderbuffer where - makeObject = makeObject . unWebGLRenderbuffer - -instance IsGObject WebGLRenderbuffer where - typeGType _ = gTypeWebGLRenderbuffer - {-# INLINE typeGType #-} - -gTypeWebGLRenderbuffer :: JSM GType -gTypeWebGLRenderbuffer = GType . Object <$> jsg "WebGLRenderbuffer" - --- | Functions for this inteface are in "JSDOM.WebGLRenderingContext". --- Base interface functions are in: --- --- * "JSDOM.WebGLRenderingContextBase" --- --- -newtype WebGLRenderingContext = WebGLRenderingContext { unWebGLRenderingContext :: JSVal } - -instance PToJSVal WebGLRenderingContext where - pToJSVal = unWebGLRenderingContext - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLRenderingContext where - pFromJSVal = WebGLRenderingContext - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLRenderingContext where - toJSVal = return . unWebGLRenderingContext - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLRenderingContext where - fromJSVal v = fmap WebGLRenderingContext <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLRenderingContext - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLRenderingContext where - makeObject = makeObject . unWebGLRenderingContext - -instance IsWebGLRenderingContextBase WebGLRenderingContext -instance IsGObject WebGLRenderingContext where - typeGType _ = gTypeWebGLRenderingContext - {-# INLINE typeGType #-} - -gTypeWebGLRenderingContext :: JSM GType -gTypeWebGLRenderingContext = GType . Object <$> jsg "WebGLRenderingContext" - --- | Functions for this inteface are in "JSDOM.WebGLRenderingContextBase". --- --- -newtype WebGLRenderingContextBase = WebGLRenderingContextBase { unWebGLRenderingContextBase :: JSVal } - -instance PToJSVal WebGLRenderingContextBase where - pToJSVal = unWebGLRenderingContextBase - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLRenderingContextBase where - pFromJSVal = WebGLRenderingContextBase - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLRenderingContextBase where - toJSVal = return . unWebGLRenderingContextBase - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLRenderingContextBase where - fromJSVal v = fmap WebGLRenderingContextBase <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLRenderingContextBase - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLRenderingContextBase where - makeObject = makeObject . unWebGLRenderingContextBase - -class (IsGObject o) => IsWebGLRenderingContextBase o -toWebGLRenderingContextBase :: IsWebGLRenderingContextBase o => o -> WebGLRenderingContextBase -toWebGLRenderingContextBase = WebGLRenderingContextBase . coerce - -instance IsWebGLRenderingContextBase WebGLRenderingContextBase -instance IsGObject WebGLRenderingContextBase where - typeGType _ = gTypeWebGLRenderingContextBase - {-# INLINE typeGType #-} - -gTypeWebGLRenderingContextBase :: JSM GType -gTypeWebGLRenderingContextBase = GType . Object <$> jsg "WebGLRenderingContextBase" - --- | Functions for this inteface are in "JSDOM.WebGLSampler". --- --- -newtype WebGLSampler = WebGLSampler { unWebGLSampler :: JSVal } - -instance PToJSVal WebGLSampler where - pToJSVal = unWebGLSampler - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLSampler where - pFromJSVal = WebGLSampler - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLSampler where - toJSVal = return . unWebGLSampler - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLSampler where - fromJSVal v = fmap WebGLSampler <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLSampler - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLSampler where - makeObject = makeObject . unWebGLSampler - -instance IsGObject WebGLSampler where - typeGType _ = gTypeWebGLSampler - {-# INLINE typeGType #-} - -gTypeWebGLSampler :: JSM GType -gTypeWebGLSampler = GType . Object <$> jsg "WebGLSampler" - --- | Functions for this inteface are in "JSDOM.WebGLShader". --- --- -newtype WebGLShader = WebGLShader { unWebGLShader :: JSVal } - -instance PToJSVal WebGLShader where - pToJSVal = unWebGLShader - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLShader where - pFromJSVal = WebGLShader - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLShader where - toJSVal = return . unWebGLShader - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLShader where - fromJSVal v = fmap WebGLShader <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLShader - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLShader where - makeObject = makeObject . unWebGLShader - -instance IsGObject WebGLShader where - typeGType _ = gTypeWebGLShader - {-# INLINE typeGType #-} - -gTypeWebGLShader :: JSM GType -gTypeWebGLShader = GType . Object <$> jsg "WebGLShader" - --- | Functions for this inteface are in "JSDOM.WebGLShaderPrecisionFormat". --- --- -newtype WebGLShaderPrecisionFormat = WebGLShaderPrecisionFormat { unWebGLShaderPrecisionFormat :: JSVal } - -instance PToJSVal WebGLShaderPrecisionFormat where - pToJSVal = unWebGLShaderPrecisionFormat - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLShaderPrecisionFormat where - pFromJSVal = WebGLShaderPrecisionFormat - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLShaderPrecisionFormat where - toJSVal = return . unWebGLShaderPrecisionFormat - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLShaderPrecisionFormat where - fromJSVal v = fmap WebGLShaderPrecisionFormat <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLShaderPrecisionFormat - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLShaderPrecisionFormat where - makeObject = makeObject . unWebGLShaderPrecisionFormat - -instance IsGObject WebGLShaderPrecisionFormat where - typeGType _ = gTypeWebGLShaderPrecisionFormat - {-# INLINE typeGType #-} - -gTypeWebGLShaderPrecisionFormat :: JSM GType -gTypeWebGLShaderPrecisionFormat = GType . Object <$> jsg "WebGLShaderPrecisionFormat" - --- | Functions for this inteface are in "JSDOM.WebGLSync". --- --- -newtype WebGLSync = WebGLSync { unWebGLSync :: JSVal } - -instance PToJSVal WebGLSync where - pToJSVal = unWebGLSync - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLSync where - pFromJSVal = WebGLSync - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLSync where - toJSVal = return . unWebGLSync - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLSync where - fromJSVal v = fmap WebGLSync <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLSync - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLSync where - makeObject = makeObject . unWebGLSync - -instance IsGObject WebGLSync where - typeGType _ = gTypeWebGLSync - {-# INLINE typeGType #-} - -gTypeWebGLSync :: JSM GType -gTypeWebGLSync = GType . Object <$> jsg "WebGLSync" - --- | Functions for this inteface are in "JSDOM.WebGLTexture". --- --- -newtype WebGLTexture = WebGLTexture { unWebGLTexture :: JSVal } - -instance PToJSVal WebGLTexture where - pToJSVal = unWebGLTexture - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLTexture where - pFromJSVal = WebGLTexture - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLTexture where - toJSVal = return . unWebGLTexture - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLTexture where - fromJSVal v = fmap WebGLTexture <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLTexture - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLTexture where - makeObject = makeObject . unWebGLTexture - -instance IsGObject WebGLTexture where - typeGType _ = gTypeWebGLTexture - {-# INLINE typeGType #-} - -gTypeWebGLTexture :: JSM GType -gTypeWebGLTexture = GType . Object <$> jsg "WebGLTexture" - --- | Functions for this inteface are in "JSDOM.WebGLTransformFeedback". --- --- -newtype WebGLTransformFeedback = WebGLTransformFeedback { unWebGLTransformFeedback :: JSVal } - -instance PToJSVal WebGLTransformFeedback where - pToJSVal = unWebGLTransformFeedback - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLTransformFeedback where - pFromJSVal = WebGLTransformFeedback - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLTransformFeedback where - toJSVal = return . unWebGLTransformFeedback - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLTransformFeedback where - fromJSVal v = fmap WebGLTransformFeedback <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLTransformFeedback - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLTransformFeedback where - makeObject = makeObject . unWebGLTransformFeedback - -instance IsGObject WebGLTransformFeedback where - typeGType _ = gTypeWebGLTransformFeedback - {-# INLINE typeGType #-} - -gTypeWebGLTransformFeedback :: JSM GType -gTypeWebGLTransformFeedback = GType . Object <$> jsg "WebGLTransformFeedback" - --- | Functions for this inteface are in "JSDOM.WebGLUniformLocation". --- --- -newtype WebGLUniformLocation = WebGLUniformLocation { unWebGLUniformLocation :: JSVal } - -instance PToJSVal WebGLUniformLocation where - pToJSVal = unWebGLUniformLocation - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLUniformLocation where - pFromJSVal = WebGLUniformLocation - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLUniformLocation where - toJSVal = return . unWebGLUniformLocation - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLUniformLocation where - fromJSVal v = fmap WebGLUniformLocation <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLUniformLocation - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLUniformLocation where - makeObject = makeObject . unWebGLUniformLocation - -instance IsGObject WebGLUniformLocation where - typeGType _ = gTypeWebGLUniformLocation - {-# INLINE typeGType #-} - -gTypeWebGLUniformLocation :: JSM GType -gTypeWebGLUniformLocation = GType . Object <$> jsg "WebGLUniformLocation" - --- | Functions for this inteface are in "JSDOM.WebGLVertexArrayObject". --- --- -newtype WebGLVertexArrayObject = WebGLVertexArrayObject { unWebGLVertexArrayObject :: JSVal } - -instance PToJSVal WebGLVertexArrayObject where - pToJSVal = unWebGLVertexArrayObject - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLVertexArrayObject where - pFromJSVal = WebGLVertexArrayObject - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLVertexArrayObject where - toJSVal = return . unWebGLVertexArrayObject - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLVertexArrayObject where - fromJSVal v = fmap WebGLVertexArrayObject <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLVertexArrayObject - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLVertexArrayObject where - makeObject = makeObject . unWebGLVertexArrayObject - -instance IsGObject WebGLVertexArrayObject where - typeGType _ = gTypeWebGLVertexArrayObject - {-# INLINE typeGType #-} - -gTypeWebGLVertexArrayObject :: JSM GType -gTypeWebGLVertexArrayObject = GType . Object <$> jsg "WebGLVertexArrayObject" - --- | Functions for this inteface are in "JSDOM.WebGLVertexArrayObjectOES". --- --- -newtype WebGLVertexArrayObjectOES = WebGLVertexArrayObjectOES { unWebGLVertexArrayObjectOES :: JSVal } - -instance PToJSVal WebGLVertexArrayObjectOES where - pToJSVal = unWebGLVertexArrayObjectOES - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebGLVertexArrayObjectOES where - pFromJSVal = WebGLVertexArrayObjectOES - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebGLVertexArrayObjectOES where - toJSVal = return . unWebGLVertexArrayObjectOES - {-# INLINE toJSVal #-} - -instance FromJSVal WebGLVertexArrayObjectOES where - fromJSVal v = fmap WebGLVertexArrayObjectOES <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebGLVertexArrayObjectOES - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebGLVertexArrayObjectOES where - makeObject = makeObject . unWebGLVertexArrayObjectOES - -instance IsGObject WebGLVertexArrayObjectOES where - typeGType _ = gTypeWebGLVertexArrayObjectOES - {-# INLINE typeGType #-} - -gTypeWebGLVertexArrayObjectOES :: JSM GType -gTypeWebGLVertexArrayObjectOES = GType . Object <$> jsg "WebGLVertexArrayObjectOES" - --- | Functions for this inteface are in "JSDOM.WebKitAnimationEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype WebKitAnimationEvent = WebKitAnimationEvent { unWebKitAnimationEvent :: JSVal } - -instance PToJSVal WebKitAnimationEvent where - pToJSVal = unWebKitAnimationEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitAnimationEvent where - pFromJSVal = WebKitAnimationEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitAnimationEvent where - toJSVal = return . unWebKitAnimationEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitAnimationEvent where - fromJSVal v = fmap WebKitAnimationEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitAnimationEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitAnimationEvent where - makeObject = makeObject . unWebKitAnimationEvent - -instance IsEvent WebKitAnimationEvent -instance IsGObject WebKitAnimationEvent where - typeGType _ = gTypeWebKitAnimationEvent - {-# INLINE typeGType #-} - -gTypeWebKitAnimationEvent :: JSM GType -gTypeWebKitAnimationEvent = GType . Object <$> jsg "WebKitAnimationEvent" - --- | Functions for this inteface are in "JSDOM.WebKitAnimationEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype WebKitAnimationEventInit = WebKitAnimationEventInit { unWebKitAnimationEventInit :: JSVal } - -instance PToJSVal WebKitAnimationEventInit where - pToJSVal = unWebKitAnimationEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitAnimationEventInit where - pFromJSVal = WebKitAnimationEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitAnimationEventInit where - toJSVal = return . unWebKitAnimationEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitAnimationEventInit where - fromJSVal v = fmap WebKitAnimationEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitAnimationEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitAnimationEventInit where - makeObject = makeObject . unWebKitAnimationEventInit - -instance IsEventInit WebKitAnimationEventInit -instance IsGObject WebKitAnimationEventInit where - typeGType _ = gTypeWebKitAnimationEventInit - {-# INLINE typeGType #-} - -gTypeWebKitAnimationEventInit :: JSM GType -gTypeWebKitAnimationEventInit = GType . Object <$> jsg "WebKitAnimationEventInit" - --- | Functions for this inteface are in "JSDOM.WebKitCSSMatrix". --- --- -newtype WebKitCSSMatrix = WebKitCSSMatrix { unWebKitCSSMatrix :: JSVal } - -instance PToJSVal WebKitCSSMatrix where - pToJSVal = unWebKitCSSMatrix - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitCSSMatrix where - pFromJSVal = WebKitCSSMatrix - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitCSSMatrix where - toJSVal = return . unWebKitCSSMatrix - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitCSSMatrix where - fromJSVal v = fmap WebKitCSSMatrix <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitCSSMatrix - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitCSSMatrix where - makeObject = makeObject . unWebKitCSSMatrix - -instance IsGObject WebKitCSSMatrix where - typeGType _ = gTypeWebKitCSSMatrix - {-# INLINE typeGType #-} - -gTypeWebKitCSSMatrix :: JSM GType -gTypeWebKitCSSMatrix = GType . Object <$> jsg "WebKitCSSMatrix" - --- | Functions for this inteface are in "JSDOM.WebKitCSSRegionRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype WebKitCSSRegionRule = WebKitCSSRegionRule { unWebKitCSSRegionRule :: JSVal } - -instance PToJSVal WebKitCSSRegionRule where - pToJSVal = unWebKitCSSRegionRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitCSSRegionRule where - pFromJSVal = WebKitCSSRegionRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitCSSRegionRule where - toJSVal = return . unWebKitCSSRegionRule - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitCSSRegionRule where - fromJSVal v = fmap WebKitCSSRegionRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitCSSRegionRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitCSSRegionRule where - makeObject = makeObject . unWebKitCSSRegionRule - -instance IsCSSRule WebKitCSSRegionRule -instance IsGObject WebKitCSSRegionRule where - typeGType _ = gTypeWebKitCSSRegionRule - {-# INLINE typeGType #-} - -gTypeWebKitCSSRegionRule :: JSM GType -gTypeWebKitCSSRegionRule = GType . Object <$> jsg "WebKitCSSRegionRule" - --- | Functions for this inteface are in "JSDOM.WebKitCSSViewportRule". --- Base interface functions are in: --- --- * "JSDOM.CSSRule" --- --- -newtype WebKitCSSViewportRule = WebKitCSSViewportRule { unWebKitCSSViewportRule :: JSVal } - -instance PToJSVal WebKitCSSViewportRule where - pToJSVal = unWebKitCSSViewportRule - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitCSSViewportRule where - pFromJSVal = WebKitCSSViewportRule - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitCSSViewportRule where - toJSVal = return . unWebKitCSSViewportRule - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitCSSViewportRule where - fromJSVal v = fmap WebKitCSSViewportRule <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitCSSViewportRule - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitCSSViewportRule where - makeObject = makeObject . unWebKitCSSViewportRule - -instance IsCSSRule WebKitCSSViewportRule -instance IsGObject WebKitCSSViewportRule where - typeGType _ = gTypeWebKitCSSViewportRule - {-# INLINE typeGType #-} - -gTypeWebKitCSSViewportRule :: JSM GType -gTypeWebKitCSSViewportRule = GType . Object <$> jsg "WebKitCSSViewportRule" - --- | Functions for this inteface are in "JSDOM.WebKitMediaKeyError". --- --- -newtype WebKitMediaKeyError = WebKitMediaKeyError { unWebKitMediaKeyError :: JSVal } - -instance PToJSVal WebKitMediaKeyError where - pToJSVal = unWebKitMediaKeyError - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitMediaKeyError where - pFromJSVal = WebKitMediaKeyError - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitMediaKeyError where - toJSVal = return . unWebKitMediaKeyError - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitMediaKeyError where - fromJSVal v = fmap WebKitMediaKeyError <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitMediaKeyError - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitMediaKeyError where - makeObject = makeObject . unWebKitMediaKeyError - -instance IsGObject WebKitMediaKeyError where - typeGType _ = gTypeWebKitMediaKeyError - {-# INLINE typeGType #-} - -gTypeWebKitMediaKeyError :: JSM GType -gTypeWebKitMediaKeyError = GType . Object <$> jsg "WebKitMediaKeyError" - --- | Functions for this inteface are in "JSDOM.WebKitMediaKeyMessageEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype WebKitMediaKeyMessageEvent = WebKitMediaKeyMessageEvent { unWebKitMediaKeyMessageEvent :: JSVal } - -instance PToJSVal WebKitMediaKeyMessageEvent where - pToJSVal = unWebKitMediaKeyMessageEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitMediaKeyMessageEvent where - pFromJSVal = WebKitMediaKeyMessageEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitMediaKeyMessageEvent where - toJSVal = return . unWebKitMediaKeyMessageEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitMediaKeyMessageEvent where - fromJSVal v = fmap WebKitMediaKeyMessageEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitMediaKeyMessageEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitMediaKeyMessageEvent where - makeObject = makeObject . unWebKitMediaKeyMessageEvent - -instance IsEvent WebKitMediaKeyMessageEvent -instance IsGObject WebKitMediaKeyMessageEvent where - typeGType _ = gTypeWebKitMediaKeyMessageEvent - {-# INLINE typeGType #-} - -gTypeWebKitMediaKeyMessageEvent :: JSM GType -gTypeWebKitMediaKeyMessageEvent = GType . Object <$> jsg "WebKitMediaKeyMessageEvent" - --- | Functions for this inteface are in "JSDOM.WebKitMediaKeyMessageEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype WebKitMediaKeyMessageEventInit = WebKitMediaKeyMessageEventInit { unWebKitMediaKeyMessageEventInit :: JSVal } - -instance PToJSVal WebKitMediaKeyMessageEventInit where - pToJSVal = unWebKitMediaKeyMessageEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitMediaKeyMessageEventInit where - pFromJSVal = WebKitMediaKeyMessageEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitMediaKeyMessageEventInit where - toJSVal = return . unWebKitMediaKeyMessageEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitMediaKeyMessageEventInit where - fromJSVal v = fmap WebKitMediaKeyMessageEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitMediaKeyMessageEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitMediaKeyMessageEventInit where - makeObject = makeObject . unWebKitMediaKeyMessageEventInit - -instance IsEventInit WebKitMediaKeyMessageEventInit -instance IsGObject WebKitMediaKeyMessageEventInit where - typeGType _ = gTypeWebKitMediaKeyMessageEventInit - {-# INLINE typeGType #-} - -gTypeWebKitMediaKeyMessageEventInit :: JSM GType -gTypeWebKitMediaKeyMessageEventInit = GType . Object <$> jsg "WebKitMediaKeyMessageEventInit" - --- | Functions for this inteface are in "JSDOM.WebKitMediaKeyNeededEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype WebKitMediaKeyNeededEvent = WebKitMediaKeyNeededEvent { unWebKitMediaKeyNeededEvent :: JSVal } - -instance PToJSVal WebKitMediaKeyNeededEvent where - pToJSVal = unWebKitMediaKeyNeededEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitMediaKeyNeededEvent where - pFromJSVal = WebKitMediaKeyNeededEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitMediaKeyNeededEvent where - toJSVal = return . unWebKitMediaKeyNeededEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitMediaKeyNeededEvent where - fromJSVal v = fmap WebKitMediaKeyNeededEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitMediaKeyNeededEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitMediaKeyNeededEvent where - makeObject = makeObject . unWebKitMediaKeyNeededEvent - -instance IsEvent WebKitMediaKeyNeededEvent -instance IsGObject WebKitMediaKeyNeededEvent where - typeGType _ = gTypeWebKitMediaKeyNeededEvent - {-# INLINE typeGType #-} - -gTypeWebKitMediaKeyNeededEvent :: JSM GType -gTypeWebKitMediaKeyNeededEvent = GType . Object <$> jsg "WebKitMediaKeyNeededEvent" - --- | Functions for this inteface are in "JSDOM.WebKitMediaKeyNeededEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype WebKitMediaKeyNeededEventInit = WebKitMediaKeyNeededEventInit { unWebKitMediaKeyNeededEventInit :: JSVal } - -instance PToJSVal WebKitMediaKeyNeededEventInit where - pToJSVal = unWebKitMediaKeyNeededEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitMediaKeyNeededEventInit where - pFromJSVal = WebKitMediaKeyNeededEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitMediaKeyNeededEventInit where - toJSVal = return . unWebKitMediaKeyNeededEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitMediaKeyNeededEventInit where - fromJSVal v = fmap WebKitMediaKeyNeededEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitMediaKeyNeededEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitMediaKeyNeededEventInit where - makeObject = makeObject . unWebKitMediaKeyNeededEventInit - -instance IsEventInit WebKitMediaKeyNeededEventInit -instance IsGObject WebKitMediaKeyNeededEventInit where - typeGType _ = gTypeWebKitMediaKeyNeededEventInit - {-# INLINE typeGType #-} - -gTypeWebKitMediaKeyNeededEventInit :: JSM GType -gTypeWebKitMediaKeyNeededEventInit = GType . Object <$> jsg "WebKitMediaKeyNeededEventInit" - --- | Functions for this inteface are in "JSDOM.WebKitMediaKeySession". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype WebKitMediaKeySession = WebKitMediaKeySession { unWebKitMediaKeySession :: JSVal } - -instance PToJSVal WebKitMediaKeySession where - pToJSVal = unWebKitMediaKeySession - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitMediaKeySession where - pFromJSVal = WebKitMediaKeySession - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitMediaKeySession where - toJSVal = return . unWebKitMediaKeySession - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitMediaKeySession where - fromJSVal v = fmap WebKitMediaKeySession <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitMediaKeySession - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitMediaKeySession where - makeObject = makeObject . unWebKitMediaKeySession - -instance IsEventTarget WebKitMediaKeySession -instance IsGObject WebKitMediaKeySession where - typeGType _ = gTypeWebKitMediaKeySession - {-# INLINE typeGType #-} - -gTypeWebKitMediaKeySession :: JSM GType -gTypeWebKitMediaKeySession = GType . Object <$> jsg "WebKitMediaKeySession" - --- | Functions for this inteface are in "JSDOM.WebKitMediaKeys". --- --- -newtype WebKitMediaKeys = WebKitMediaKeys { unWebKitMediaKeys :: JSVal } - -instance PToJSVal WebKitMediaKeys where - pToJSVal = unWebKitMediaKeys - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitMediaKeys where - pFromJSVal = WebKitMediaKeys - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitMediaKeys where - toJSVal = return . unWebKitMediaKeys - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitMediaKeys where - fromJSVal v = fmap WebKitMediaKeys <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitMediaKeys - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitMediaKeys where - makeObject = makeObject . unWebKitMediaKeys - -instance IsGObject WebKitMediaKeys where - typeGType _ = gTypeWebKitMediaKeys - {-# INLINE typeGType #-} - -gTypeWebKitMediaKeys :: JSM GType -gTypeWebKitMediaKeys = GType . Object <$> jsg "WebKitMediaKeys" - --- | Functions for this inteface are in "JSDOM.WebKitNamedFlow". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype WebKitNamedFlow = WebKitNamedFlow { unWebKitNamedFlow :: JSVal } - -instance PToJSVal WebKitNamedFlow where - pToJSVal = unWebKitNamedFlow - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitNamedFlow where - pFromJSVal = WebKitNamedFlow - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitNamedFlow where - toJSVal = return . unWebKitNamedFlow - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitNamedFlow where - fromJSVal v = fmap WebKitNamedFlow <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitNamedFlow - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitNamedFlow where - makeObject = makeObject . unWebKitNamedFlow - -instance IsEventTarget WebKitNamedFlow -instance IsGObject WebKitNamedFlow where - typeGType _ = gTypeWebKitNamedFlow - {-# INLINE typeGType #-} - -gTypeWebKitNamedFlow :: JSM GType -gTypeWebKitNamedFlow = GType . Object <$> jsg "WebKitNamedFlow" - --- | Functions for this inteface are in "JSDOM.WebKitNamespace". --- --- -newtype WebKitNamespace = WebKitNamespace { unWebKitNamespace :: JSVal } - -instance PToJSVal WebKitNamespace where - pToJSVal = unWebKitNamespace - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitNamespace where - pFromJSVal = WebKitNamespace - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitNamespace where - toJSVal = return . unWebKitNamespace - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitNamespace where - fromJSVal v = fmap WebKitNamespace <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitNamespace - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitNamespace where - makeObject = makeObject . unWebKitNamespace - -instance IsGObject WebKitNamespace where - typeGType _ = gTypeWebKitNamespace - {-# INLINE typeGType #-} - -gTypeWebKitNamespace :: JSM GType -gTypeWebKitNamespace = GType . Object <$> jsg "WebKitNamespace" - --- | Functions for this inteface are in "JSDOM.WebKitPlaybackTargetAvailabilityEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype WebKitPlaybackTargetAvailabilityEvent = WebKitPlaybackTargetAvailabilityEvent { unWebKitPlaybackTargetAvailabilityEvent :: JSVal } - -instance PToJSVal WebKitPlaybackTargetAvailabilityEvent where - pToJSVal = unWebKitPlaybackTargetAvailabilityEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitPlaybackTargetAvailabilityEvent where - pFromJSVal = WebKitPlaybackTargetAvailabilityEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitPlaybackTargetAvailabilityEvent where - toJSVal = return . unWebKitPlaybackTargetAvailabilityEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitPlaybackTargetAvailabilityEvent where - fromJSVal v = fmap WebKitPlaybackTargetAvailabilityEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitPlaybackTargetAvailabilityEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitPlaybackTargetAvailabilityEvent where - makeObject = makeObject . unWebKitPlaybackTargetAvailabilityEvent - -instance IsEvent WebKitPlaybackTargetAvailabilityEvent -instance IsGObject WebKitPlaybackTargetAvailabilityEvent where - typeGType _ = gTypeWebKitPlaybackTargetAvailabilityEvent - {-# INLINE typeGType #-} - -gTypeWebKitPlaybackTargetAvailabilityEvent :: JSM GType -gTypeWebKitPlaybackTargetAvailabilityEvent = GType . Object <$> jsg "WebKitPlaybackTargetAvailabilityEvent" - --- | Functions for this inteface are in "JSDOM.WebKitPlaybackTargetAvailabilityEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype WebKitPlaybackTargetAvailabilityEventInit = WebKitPlaybackTargetAvailabilityEventInit { unWebKitPlaybackTargetAvailabilityEventInit :: JSVal } - -instance PToJSVal WebKitPlaybackTargetAvailabilityEventInit where - pToJSVal = unWebKitPlaybackTargetAvailabilityEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitPlaybackTargetAvailabilityEventInit where - pFromJSVal = WebKitPlaybackTargetAvailabilityEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitPlaybackTargetAvailabilityEventInit where - toJSVal = return . unWebKitPlaybackTargetAvailabilityEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitPlaybackTargetAvailabilityEventInit where - fromJSVal v = fmap WebKitPlaybackTargetAvailabilityEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitPlaybackTargetAvailabilityEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitPlaybackTargetAvailabilityEventInit where - makeObject = makeObject . unWebKitPlaybackTargetAvailabilityEventInit - -instance IsEventInit WebKitPlaybackTargetAvailabilityEventInit -instance IsGObject WebKitPlaybackTargetAvailabilityEventInit where - typeGType _ = gTypeWebKitPlaybackTargetAvailabilityEventInit - {-# INLINE typeGType #-} - -gTypeWebKitPlaybackTargetAvailabilityEventInit :: JSM GType -gTypeWebKitPlaybackTargetAvailabilityEventInit = GType . Object <$> jsg "WebKitPlaybackTargetAvailabilityEventInit" - --- | Functions for this inteface are in "JSDOM.WebKitPoint". --- --- -newtype WebKitPoint = WebKitPoint { unWebKitPoint :: JSVal } - -instance PToJSVal WebKitPoint where - pToJSVal = unWebKitPoint - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitPoint where - pFromJSVal = WebKitPoint - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitPoint where - toJSVal = return . unWebKitPoint - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitPoint where - fromJSVal v = fmap WebKitPoint <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitPoint - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitPoint where - makeObject = makeObject . unWebKitPoint - -instance IsGObject WebKitPoint where - typeGType _ = gTypeWebKitPoint - {-# INLINE typeGType #-} - -gTypeWebKitPoint :: JSM GType -gTypeWebKitPoint = GType . Object <$> jsg "WebKitPoint" - --- | Functions for this inteface are in "JSDOM.WebKitSubtleCrypto". --- --- -newtype WebKitSubtleCrypto = WebKitSubtleCrypto { unWebKitSubtleCrypto :: JSVal } - -instance PToJSVal WebKitSubtleCrypto where - pToJSVal = unWebKitSubtleCrypto - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitSubtleCrypto where - pFromJSVal = WebKitSubtleCrypto - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitSubtleCrypto where - toJSVal = return . unWebKitSubtleCrypto - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitSubtleCrypto where - fromJSVal v = fmap WebKitSubtleCrypto <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitSubtleCrypto - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitSubtleCrypto where - makeObject = makeObject . unWebKitSubtleCrypto - -instance IsGObject WebKitSubtleCrypto where - typeGType _ = gTypeWebKitSubtleCrypto - {-# INLINE typeGType #-} - -gTypeWebKitSubtleCrypto :: JSM GType -gTypeWebKitSubtleCrypto = GType . Object <$> jsg "WebKitSubtleCrypto" - --- | Functions for this inteface are in "JSDOM.WebKitTransitionEvent". --- Base interface functions are in: --- --- * "JSDOM.Event" --- --- -newtype WebKitTransitionEvent = WebKitTransitionEvent { unWebKitTransitionEvent :: JSVal } - -instance PToJSVal WebKitTransitionEvent where - pToJSVal = unWebKitTransitionEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitTransitionEvent where - pFromJSVal = WebKitTransitionEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitTransitionEvent where - toJSVal = return . unWebKitTransitionEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitTransitionEvent where - fromJSVal v = fmap WebKitTransitionEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitTransitionEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitTransitionEvent where - makeObject = makeObject . unWebKitTransitionEvent - -instance IsEvent WebKitTransitionEvent -instance IsGObject WebKitTransitionEvent where - typeGType _ = gTypeWebKitTransitionEvent - {-# INLINE typeGType #-} - -gTypeWebKitTransitionEvent :: JSM GType -gTypeWebKitTransitionEvent = GType . Object <$> jsg "WebKitTransitionEvent" - --- | Functions for this inteface are in "JSDOM.WebKitTransitionEventInit". --- Base interface functions are in: --- --- * "JSDOM.EventInit" --- --- -newtype WebKitTransitionEventInit = WebKitTransitionEventInit { unWebKitTransitionEventInit :: JSVal } - -instance PToJSVal WebKitTransitionEventInit where - pToJSVal = unWebKitTransitionEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebKitTransitionEventInit where - pFromJSVal = WebKitTransitionEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebKitTransitionEventInit where - toJSVal = return . unWebKitTransitionEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal WebKitTransitionEventInit where - fromJSVal v = fmap WebKitTransitionEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebKitTransitionEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebKitTransitionEventInit where - makeObject = makeObject . unWebKitTransitionEventInit - -instance IsEventInit WebKitTransitionEventInit -instance IsGObject WebKitTransitionEventInit where - typeGType _ = gTypeWebKitTransitionEventInit - {-# INLINE typeGType #-} - -gTypeWebKitTransitionEventInit :: JSM GType -gTypeWebKitTransitionEventInit = GType . Object <$> jsg "WebKitTransitionEventInit" - --- | Functions for this inteface are in "JSDOM.WebSocket". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype WebSocket = WebSocket { unWebSocket :: JSVal } - -instance PToJSVal WebSocket where - pToJSVal = unWebSocket - {-# INLINE pToJSVal #-} - -instance PFromJSVal WebSocket where - pFromJSVal = WebSocket - {-# INLINE pFromJSVal #-} - -instance ToJSVal WebSocket where - toJSVal = return . unWebSocket - {-# INLINE toJSVal #-} - -instance FromJSVal WebSocket where - fromJSVal v = fmap WebSocket <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WebSocket - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WebSocket where - makeObject = makeObject . unWebSocket - -instance IsEventTarget WebSocket -instance IsGObject WebSocket where - typeGType _ = gTypeWebSocket - {-# INLINE typeGType #-} - -gTypeWebSocket :: JSM GType -gTypeWebSocket = GType . Object <$> jsg "WebSocket" - --- | Functions for this inteface are in "JSDOM.WheelEvent". --- Base interface functions are in: --- --- * "JSDOM.MouseEvent" --- * "JSDOM.UIEvent" --- * "JSDOM.Event" --- --- -newtype WheelEvent = WheelEvent { unWheelEvent :: JSVal } - -instance PToJSVal WheelEvent where - pToJSVal = unWheelEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal WheelEvent where - pFromJSVal = WheelEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal WheelEvent where - toJSVal = return . unWheelEvent - {-# INLINE toJSVal #-} - -instance FromJSVal WheelEvent where - fromJSVal v = fmap WheelEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WheelEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WheelEvent where - makeObject = makeObject . unWheelEvent - -instance IsMouseEvent WheelEvent -instance IsUIEvent WheelEvent -instance IsEvent WheelEvent -instance IsGObject WheelEvent where - typeGType _ = gTypeWheelEvent - {-# INLINE typeGType #-} - -gTypeWheelEvent :: JSM GType -gTypeWheelEvent = GType . Object <$> jsg "WheelEvent" - --- | Functions for this inteface are in "JSDOM.WheelEventInit". --- Base interface functions are in: --- --- * "JSDOM.MouseEventInit" --- * "JSDOM.EventModifierInit" --- * "JSDOM.UIEventInit" --- * "JSDOM.EventInit" --- --- -newtype WheelEventInit = WheelEventInit { unWheelEventInit :: JSVal } - -instance PToJSVal WheelEventInit where - pToJSVal = unWheelEventInit - {-# INLINE pToJSVal #-} - -instance PFromJSVal WheelEventInit where - pFromJSVal = WheelEventInit - {-# INLINE pFromJSVal #-} - -instance ToJSVal WheelEventInit where - toJSVal = return . unWheelEventInit - {-# INLINE toJSVal #-} - -instance FromJSVal WheelEventInit where - fromJSVal v = fmap WheelEventInit <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WheelEventInit - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WheelEventInit where - makeObject = makeObject . unWheelEventInit - -instance IsMouseEventInit WheelEventInit -instance IsEventModifierInit WheelEventInit -instance IsUIEventInit WheelEventInit -instance IsEventInit WheelEventInit -instance IsGObject WheelEventInit where - typeGType _ = gTypeWheelEventInit - {-# INLINE typeGType #-} - -gTypeWheelEventInit :: JSM GType -gTypeWheelEventInit = GType . Object <$> jsg "WheelEventInit" - --- | Functions for this inteface are in "JSDOM.Window". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- * "JSDOM.WindowOrWorkerGlobalScope" --- * "JSDOM.WindowEventHandlers" --- * "JSDOM.GlobalPerformance" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.GlobalCrypto" --- --- -newtype Window = Window { unWindow :: JSVal } - -instance PToJSVal Window where - pToJSVal = unWindow - {-# INLINE pToJSVal #-} - -instance PFromJSVal Window where - pFromJSVal = Window - {-# INLINE pFromJSVal #-} - -instance ToJSVal Window where - toJSVal = return . unWindow - {-# INLINE toJSVal #-} - -instance FromJSVal Window where - fromJSVal v = fmap Window <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Window - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Window where - makeObject = makeObject . unWindow - -instance IsEventTarget Window -instance IsWindowOrWorkerGlobalScope Window -instance IsWindowEventHandlers Window -instance IsGlobalPerformance Window -instance IsGlobalEventHandlers Window -instance IsGlobalCrypto Window -instance IsGObject Window where - typeGType _ = gTypeWindow - {-# INLINE typeGType #-} - -gTypeWindow :: JSM GType -gTypeWindow = GType . Object <$> jsg "Window" - --- | Functions for this inteface are in "JSDOM.WindowEventHandlers". --- --- -newtype WindowEventHandlers = WindowEventHandlers { unWindowEventHandlers :: JSVal } - -instance PToJSVal WindowEventHandlers where - pToJSVal = unWindowEventHandlers - {-# INLINE pToJSVal #-} - -instance PFromJSVal WindowEventHandlers where - pFromJSVal = WindowEventHandlers - {-# INLINE pFromJSVal #-} - -instance ToJSVal WindowEventHandlers where - toJSVal = return . unWindowEventHandlers - {-# INLINE toJSVal #-} - -instance FromJSVal WindowEventHandlers where - fromJSVal v = fmap WindowEventHandlers <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WindowEventHandlers - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WindowEventHandlers where - makeObject = makeObject . unWindowEventHandlers - -class (IsGObject o) => IsWindowEventHandlers o -toWindowEventHandlers :: IsWindowEventHandlers o => o -> WindowEventHandlers -toWindowEventHandlers = WindowEventHandlers . coerce - -instance IsWindowEventHandlers WindowEventHandlers -instance IsGObject WindowEventHandlers where - typeGType _ = gTypeWindowEventHandlers - {-# INLINE typeGType #-} - -gTypeWindowEventHandlers :: JSM GType -gTypeWindowEventHandlers = GType . Object <$> jsg "WindowEventHandlers" - --- | Functions for this inteface are in "JSDOM.WindowOrWorkerGlobalScope". --- --- -newtype WindowOrWorkerGlobalScope = WindowOrWorkerGlobalScope { unWindowOrWorkerGlobalScope :: JSVal } - -instance PToJSVal WindowOrWorkerGlobalScope where - pToJSVal = unWindowOrWorkerGlobalScope - {-# INLINE pToJSVal #-} - -instance PFromJSVal WindowOrWorkerGlobalScope where - pFromJSVal = WindowOrWorkerGlobalScope - {-# INLINE pFromJSVal #-} - -instance ToJSVal WindowOrWorkerGlobalScope where - toJSVal = return . unWindowOrWorkerGlobalScope - {-# INLINE toJSVal #-} - -instance FromJSVal WindowOrWorkerGlobalScope where - fromJSVal v = fmap WindowOrWorkerGlobalScope <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WindowOrWorkerGlobalScope - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WindowOrWorkerGlobalScope where - makeObject = makeObject . unWindowOrWorkerGlobalScope - -class (IsGObject o) => IsWindowOrWorkerGlobalScope o -toWindowOrWorkerGlobalScope :: IsWindowOrWorkerGlobalScope o => o -> WindowOrWorkerGlobalScope -toWindowOrWorkerGlobalScope = WindowOrWorkerGlobalScope . coerce - -instance IsWindowOrWorkerGlobalScope WindowOrWorkerGlobalScope -instance IsGObject WindowOrWorkerGlobalScope where - typeGType _ = gTypeWindowOrWorkerGlobalScope - {-# INLINE typeGType #-} - -gTypeWindowOrWorkerGlobalScope :: JSM GType -gTypeWindowOrWorkerGlobalScope = GType . Object <$> jsg "WindowOrWorkerGlobalScope" - --- | Functions for this inteface are in "JSDOM.Worker". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- * "JSDOM.AbstractWorker" --- --- -newtype Worker = Worker { unWorker :: JSVal } - -instance PToJSVal Worker where - pToJSVal = unWorker - {-# INLINE pToJSVal #-} - -instance PFromJSVal Worker where - pFromJSVal = Worker - {-# INLINE pFromJSVal #-} - -instance ToJSVal Worker where - toJSVal = return . unWorker - {-# INLINE toJSVal #-} - -instance FromJSVal Worker where - fromJSVal v = fmap Worker <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . Worker - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject Worker where - makeObject = makeObject . unWorker - -instance IsEventTarget Worker -instance IsAbstractWorker Worker -instance IsGObject Worker where - typeGType _ = gTypeWorker - {-# INLINE typeGType #-} - -gTypeWorker :: JSM GType -gTypeWorker = GType . Object <$> jsg "Worker" - --- | Functions for this inteface are in "JSDOM.WorkerGlobalScope". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- * "JSDOM.WindowOrWorkerGlobalScope" --- * "JSDOM.GlobalPerformance" --- * "JSDOM.GlobalCrypto" --- --- -newtype WorkerGlobalScope = WorkerGlobalScope { unWorkerGlobalScope :: JSVal } - -instance PToJSVal WorkerGlobalScope where - pToJSVal = unWorkerGlobalScope - {-# INLINE pToJSVal #-} - -instance PFromJSVal WorkerGlobalScope where - pFromJSVal = WorkerGlobalScope - {-# INLINE pFromJSVal #-} - -instance ToJSVal WorkerGlobalScope where - toJSVal = return . unWorkerGlobalScope - {-# INLINE toJSVal #-} - -instance FromJSVal WorkerGlobalScope where - fromJSVal v = fmap WorkerGlobalScope <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WorkerGlobalScope - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WorkerGlobalScope where - makeObject = makeObject . unWorkerGlobalScope - -class (IsEventTarget o, IsWindowOrWorkerGlobalScope o, IsGlobalPerformance o, IsGlobalCrypto o, IsGObject o) => IsWorkerGlobalScope o -toWorkerGlobalScope :: IsWorkerGlobalScope o => o -> WorkerGlobalScope -toWorkerGlobalScope = WorkerGlobalScope . coerce - -instance IsWorkerGlobalScope WorkerGlobalScope -instance IsEventTarget WorkerGlobalScope -instance IsWindowOrWorkerGlobalScope WorkerGlobalScope -instance IsGlobalPerformance WorkerGlobalScope -instance IsGlobalCrypto WorkerGlobalScope -instance IsGObject WorkerGlobalScope where - typeGType _ = gTypeWorkerGlobalScope - {-# INLINE typeGType #-} - -gTypeWorkerGlobalScope :: JSM GType -gTypeWorkerGlobalScope = GType . Object <$> jsg "WorkerGlobalScope" - --- | Functions for this inteface are in "JSDOM.WorkerLocation". --- --- -newtype WorkerLocation = WorkerLocation { unWorkerLocation :: JSVal } - -instance PToJSVal WorkerLocation where - pToJSVal = unWorkerLocation - {-# INLINE pToJSVal #-} - -instance PFromJSVal WorkerLocation where - pFromJSVal = WorkerLocation - {-# INLINE pFromJSVal #-} - -instance ToJSVal WorkerLocation where - toJSVal = return . unWorkerLocation - {-# INLINE toJSVal #-} - -instance FromJSVal WorkerLocation where - fromJSVal v = fmap WorkerLocation <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WorkerLocation - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WorkerLocation where - makeObject = makeObject . unWorkerLocation - -instance IsGObject WorkerLocation where - typeGType _ = gTypeWorkerLocation - {-# INLINE typeGType #-} - -gTypeWorkerLocation :: JSM GType -gTypeWorkerLocation = GType . Object <$> jsg "WorkerLocation" - --- | Functions for this inteface are in "JSDOM.WorkerNavigator". --- Base interface functions are in: --- --- * "JSDOM.NavigatorOnLine" --- * "JSDOM.NavigatorLanguage" --- * "JSDOM.NavigatorID" --- * "JSDOM.NavigatorConcurrentHardware" --- --- -newtype WorkerNavigator = WorkerNavigator { unWorkerNavigator :: JSVal } - -instance PToJSVal WorkerNavigator where - pToJSVal = unWorkerNavigator - {-# INLINE pToJSVal #-} - -instance PFromJSVal WorkerNavigator where - pFromJSVal = WorkerNavigator - {-# INLINE pFromJSVal #-} - -instance ToJSVal WorkerNavigator where - toJSVal = return . unWorkerNavigator - {-# INLINE toJSVal #-} - -instance FromJSVal WorkerNavigator where - fromJSVal v = fmap WorkerNavigator <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WorkerNavigator - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WorkerNavigator where - makeObject = makeObject . unWorkerNavigator - -instance IsNavigatorOnLine WorkerNavigator -instance IsNavigatorLanguage WorkerNavigator -instance IsNavigatorID WorkerNavigator -instance IsNavigatorConcurrentHardware WorkerNavigator -instance IsGObject WorkerNavigator where - typeGType _ = gTypeWorkerNavigator - {-# INLINE typeGType #-} - -gTypeWorkerNavigator :: JSM GType -gTypeWorkerNavigator = GType . Object <$> jsg "WorkerNavigator" - --- | Functions for this inteface are in "JSDOM.WritableStream". --- --- -newtype WritableStream = WritableStream { unWritableStream :: JSVal } - -instance PToJSVal WritableStream where - pToJSVal = unWritableStream - {-# INLINE pToJSVal #-} - -instance PFromJSVal WritableStream where - pFromJSVal = WritableStream - {-# INLINE pFromJSVal #-} - -instance ToJSVal WritableStream where - toJSVal = return . unWritableStream - {-# INLINE toJSVal #-} - -instance FromJSVal WritableStream where - fromJSVal v = fmap WritableStream <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . WritableStream - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject WritableStream where - makeObject = makeObject . unWritableStream - -instance IsGObject WritableStream where - typeGType _ = gTypeWritableStream - {-# INLINE typeGType #-} - -gTypeWritableStream :: JSM GType -gTypeWritableStream = GType . Object <$> jsg "WritableStream" - --- | Functions for this inteface are in "JSDOM.XMLDocument". --- Base interface functions are in: --- --- * "JSDOM.Document" --- * "JSDOM.Node" --- * "JSDOM.EventTarget" --- * "JSDOM.GlobalEventHandlers" --- * "JSDOM.DocumentOrShadowRoot" --- * "JSDOM.NonElementParentNode" --- * "JSDOM.ParentNode" --- --- -newtype XMLDocument = XMLDocument { unXMLDocument :: JSVal } - -instance PToJSVal XMLDocument where - pToJSVal = unXMLDocument - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLDocument where - pFromJSVal = XMLDocument - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLDocument where - toJSVal = return . unXMLDocument - {-# INLINE toJSVal #-} - -instance FromJSVal XMLDocument where - fromJSVal v = fmap XMLDocument <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XMLDocument - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XMLDocument where - makeObject = makeObject . unXMLDocument - -instance IsDocument XMLDocument -instance IsNode XMLDocument -instance IsEventTarget XMLDocument -instance IsGlobalEventHandlers XMLDocument -instance IsDocumentOrShadowRoot XMLDocument -instance IsNonElementParentNode XMLDocument -instance IsParentNode XMLDocument -instance IsGObject XMLDocument where - typeGType _ = gTypeXMLDocument - {-# INLINE typeGType #-} - -gTypeXMLDocument :: JSM GType -gTypeXMLDocument = GType . Object <$> jsg "XMLDocument" - --- | Functions for this inteface are in "JSDOM.XMLHttpRequest". --- Base interface functions are in: --- --- * "JSDOM.XMLHttpRequestEventTarget" --- * "JSDOM.EventTarget" --- --- -newtype XMLHttpRequest = XMLHttpRequest { unXMLHttpRequest :: JSVal } - -instance PToJSVal XMLHttpRequest where - pToJSVal = unXMLHttpRequest - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLHttpRequest where - pFromJSVal = XMLHttpRequest - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLHttpRequest where - toJSVal = return . unXMLHttpRequest - {-# INLINE toJSVal #-} - -instance FromJSVal XMLHttpRequest where - fromJSVal v = fmap XMLHttpRequest <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XMLHttpRequest - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XMLHttpRequest where - makeObject = makeObject . unXMLHttpRequest - -instance IsXMLHttpRequestEventTarget XMLHttpRequest -instance IsEventTarget XMLHttpRequest -instance IsGObject XMLHttpRequest where - typeGType _ = gTypeXMLHttpRequest - {-# INLINE typeGType #-} - -gTypeXMLHttpRequest :: JSM GType -gTypeXMLHttpRequest = GType . Object <$> jsg "XMLHttpRequest" - --- | Functions for this inteface are in "JSDOM.XMLHttpRequestEventTarget". --- Base interface functions are in: --- --- * "JSDOM.EventTarget" --- --- -newtype XMLHttpRequestEventTarget = XMLHttpRequestEventTarget { unXMLHttpRequestEventTarget :: JSVal } - -instance PToJSVal XMLHttpRequestEventTarget where - pToJSVal = unXMLHttpRequestEventTarget - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLHttpRequestEventTarget where - pFromJSVal = XMLHttpRequestEventTarget - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLHttpRequestEventTarget where - toJSVal = return . unXMLHttpRequestEventTarget - {-# INLINE toJSVal #-} - -instance FromJSVal XMLHttpRequestEventTarget where - fromJSVal v = fmap XMLHttpRequestEventTarget <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XMLHttpRequestEventTarget - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XMLHttpRequestEventTarget where - makeObject = makeObject . unXMLHttpRequestEventTarget - -class (IsEventTarget o, IsGObject o) => IsXMLHttpRequestEventTarget o -toXMLHttpRequestEventTarget :: IsXMLHttpRequestEventTarget o => o -> XMLHttpRequestEventTarget -toXMLHttpRequestEventTarget = XMLHttpRequestEventTarget . coerce - -instance IsXMLHttpRequestEventTarget XMLHttpRequestEventTarget -instance IsEventTarget XMLHttpRequestEventTarget -instance IsGObject XMLHttpRequestEventTarget where - typeGType _ = gTypeXMLHttpRequestEventTarget - {-# INLINE typeGType #-} - -gTypeXMLHttpRequestEventTarget :: JSM GType -gTypeXMLHttpRequestEventTarget = GType . Object <$> jsg "XMLHttpRequestEventTarget" - --- | Functions for this inteface are in "JSDOM.XMLHttpRequestProgressEvent". --- Base interface functions are in: --- --- * "JSDOM.ProgressEvent" --- * "JSDOM.Event" --- --- -newtype XMLHttpRequestProgressEvent = XMLHttpRequestProgressEvent { unXMLHttpRequestProgressEvent :: JSVal } - -instance PToJSVal XMLHttpRequestProgressEvent where - pToJSVal = unXMLHttpRequestProgressEvent - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLHttpRequestProgressEvent where - pFromJSVal = XMLHttpRequestProgressEvent - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLHttpRequestProgressEvent where - toJSVal = return . unXMLHttpRequestProgressEvent - {-# INLINE toJSVal #-} - -instance FromJSVal XMLHttpRequestProgressEvent where - fromJSVal v = fmap XMLHttpRequestProgressEvent <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XMLHttpRequestProgressEvent - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XMLHttpRequestProgressEvent where - makeObject = makeObject . unXMLHttpRequestProgressEvent - -instance IsProgressEvent XMLHttpRequestProgressEvent -instance IsEvent XMLHttpRequestProgressEvent -instance IsGObject XMLHttpRequestProgressEvent where - typeGType _ = gTypeXMLHttpRequestProgressEvent - {-# INLINE typeGType #-} - -gTypeXMLHttpRequestProgressEvent :: JSM GType -gTypeXMLHttpRequestProgressEvent = GType . Object <$> jsg "XMLHttpRequestProgressEvent" - --- | Functions for this inteface are in "JSDOM.XMLHttpRequestUpload". --- Base interface functions are in: --- --- * "JSDOM.XMLHttpRequestEventTarget" --- * "JSDOM.EventTarget" --- --- -newtype XMLHttpRequestUpload = XMLHttpRequestUpload { unXMLHttpRequestUpload :: JSVal } - -instance PToJSVal XMLHttpRequestUpload where - pToJSVal = unXMLHttpRequestUpload - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLHttpRequestUpload where - pFromJSVal = XMLHttpRequestUpload - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLHttpRequestUpload where - toJSVal = return . unXMLHttpRequestUpload - {-# INLINE toJSVal #-} - -instance FromJSVal XMLHttpRequestUpload where - fromJSVal v = fmap XMLHttpRequestUpload <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XMLHttpRequestUpload - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XMLHttpRequestUpload where - makeObject = makeObject . unXMLHttpRequestUpload - -instance IsXMLHttpRequestEventTarget XMLHttpRequestUpload -instance IsEventTarget XMLHttpRequestUpload -instance IsGObject XMLHttpRequestUpload where - typeGType _ = gTypeXMLHttpRequestUpload - {-# INLINE typeGType #-} - -gTypeXMLHttpRequestUpload :: JSM GType -gTypeXMLHttpRequestUpload = GType . Object <$> jsg "XMLHttpRequestUpload" - --- | Functions for this inteface are in "JSDOM.XMLSerializer". --- --- -newtype XMLSerializer = XMLSerializer { unXMLSerializer :: JSVal } - -instance PToJSVal XMLSerializer where - pToJSVal = unXMLSerializer - {-# INLINE pToJSVal #-} - -instance PFromJSVal XMLSerializer where - pFromJSVal = XMLSerializer - {-# INLINE pFromJSVal #-} - -instance ToJSVal XMLSerializer where - toJSVal = return . unXMLSerializer - {-# INLINE toJSVal #-} - -instance FromJSVal XMLSerializer where - fromJSVal v = fmap XMLSerializer <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XMLSerializer - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XMLSerializer where - makeObject = makeObject . unXMLSerializer - -instance IsGObject XMLSerializer where - typeGType _ = gTypeXMLSerializer - {-# INLINE typeGType #-} - -gTypeXMLSerializer :: JSM GType -gTypeXMLSerializer = GType . Object <$> jsg "XMLSerializer" - --- | Functions for this inteface are in "JSDOM.XPathEvaluator". --- --- -newtype XPathEvaluator = XPathEvaluator { unXPathEvaluator :: JSVal } - -instance PToJSVal XPathEvaluator where - pToJSVal = unXPathEvaluator - {-# INLINE pToJSVal #-} - -instance PFromJSVal XPathEvaluator where - pFromJSVal = XPathEvaluator - {-# INLINE pFromJSVal #-} - -instance ToJSVal XPathEvaluator where - toJSVal = return . unXPathEvaluator - {-# INLINE toJSVal #-} - -instance FromJSVal XPathEvaluator where - fromJSVal v = fmap XPathEvaluator <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XPathEvaluator - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XPathEvaluator where - makeObject = makeObject . unXPathEvaluator - -instance IsGObject XPathEvaluator where - typeGType _ = gTypeXPathEvaluator - {-# INLINE typeGType #-} - -gTypeXPathEvaluator :: JSM GType -gTypeXPathEvaluator = GType . Object <$> jsg "XPathEvaluator" - --- | Functions for this inteface are in "JSDOM.XPathException". --- --- -newtype XPathException = XPathException { unXPathException :: JSVal } - -instance PToJSVal XPathException where - pToJSVal = unXPathException - {-# INLINE pToJSVal #-} - -instance PFromJSVal XPathException where - pFromJSVal = XPathException - {-# INLINE pFromJSVal #-} - -instance ToJSVal XPathException where - toJSVal = return . unXPathException - {-# INLINE toJSVal #-} - -instance FromJSVal XPathException where - fromJSVal v = fmap XPathException <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XPathException - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XPathException where - makeObject = makeObject . unXPathException - -instance IsGObject XPathException where - typeGType _ = gTypeXPathException - {-# INLINE typeGType #-} - -gTypeXPathException :: JSM GType -gTypeXPathException = GType . Object <$> jsg "XPathException" - --- | Functions for this inteface are in "JSDOM.XPathExpression". --- --- -newtype XPathExpression = XPathExpression { unXPathExpression :: JSVal } - -instance PToJSVal XPathExpression where - pToJSVal = unXPathExpression - {-# INLINE pToJSVal #-} - -instance PFromJSVal XPathExpression where - pFromJSVal = XPathExpression - {-# INLINE pFromJSVal #-} - -instance ToJSVal XPathExpression where - toJSVal = return . unXPathExpression - {-# INLINE toJSVal #-} - -instance FromJSVal XPathExpression where - fromJSVal v = fmap XPathExpression <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XPathExpression - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XPathExpression where - makeObject = makeObject . unXPathExpression - -instance IsGObject XPathExpression where - typeGType _ = gTypeXPathExpression - {-# INLINE typeGType #-} - -gTypeXPathExpression :: JSM GType -gTypeXPathExpression = GType . Object <$> jsg "XPathExpression" - --- | Functions for this inteface are in "JSDOM.XPathNSResolver". --- --- -newtype XPathNSResolver = XPathNSResolver { unXPathNSResolver :: JSVal } - -instance PToJSVal XPathNSResolver where - pToJSVal = unXPathNSResolver - {-# INLINE pToJSVal #-} - -instance PFromJSVal XPathNSResolver where - pFromJSVal = XPathNSResolver - {-# INLINE pFromJSVal #-} - -instance ToJSVal XPathNSResolver where - toJSVal = return . unXPathNSResolver - {-# INLINE toJSVal #-} - -instance FromJSVal XPathNSResolver where - fromJSVal v = fmap XPathNSResolver <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XPathNSResolver - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XPathNSResolver where - makeObject = makeObject . unXPathNSResolver - -instance IsGObject XPathNSResolver where - typeGType _ = gTypeXPathNSResolver - {-# INLINE typeGType #-} - -gTypeXPathNSResolver :: JSM GType -gTypeXPathNSResolver = GType . Object <$> jsg "XPathNSResolver" - --- | Functions for this inteface are in "JSDOM.XPathResult". --- --- -newtype XPathResult = XPathResult { unXPathResult :: JSVal } - -instance PToJSVal XPathResult where - pToJSVal = unXPathResult - {-# INLINE pToJSVal #-} - -instance PFromJSVal XPathResult where - pFromJSVal = XPathResult - {-# INLINE pFromJSVal #-} - -instance ToJSVal XPathResult where - toJSVal = return . unXPathResult - {-# INLINE toJSVal #-} - -instance FromJSVal XPathResult where - fromJSVal v = fmap XPathResult <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XPathResult - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XPathResult where - makeObject = makeObject . unXPathResult - -instance IsGObject XPathResult where - typeGType _ = gTypeXPathResult - {-# INLINE typeGType #-} - -gTypeXPathResult :: JSM GType -gTypeXPathResult = GType . Object <$> jsg "XPathResult" - --- | Functions for this inteface are in "JSDOM.XSLTProcessor". --- --- -newtype XSLTProcessor = XSLTProcessor { unXSLTProcessor :: JSVal } - -instance PToJSVal XSLTProcessor where - pToJSVal = unXSLTProcessor - {-# INLINE pToJSVal #-} - -instance PFromJSVal XSLTProcessor where - pFromJSVal = XSLTProcessor - {-# INLINE pFromJSVal #-} - -instance ToJSVal XSLTProcessor where - toJSVal = return . unXSLTProcessor - {-# INLINE toJSVal #-} - -instance FromJSVal XSLTProcessor where - fromJSVal v = fmap XSLTProcessor <$> maybeNullOrUndefined v - {-# INLINE fromJSVal #-} - fromJSValUnchecked = return . XSLTProcessor - {-# INLINE fromJSValUnchecked #-} - -instance MakeObject XSLTProcessor where - makeObject = makeObject . unXSLTProcessor - -instance IsGObject XSLTProcessor where - typeGType _ = gTypeXSLTProcessor - {-# INLINE typeGType #-} + , noJSString + + -- * JavaScript Array + , fromJSArray, fromJSArrayUnchecked + + -- * JavaScript Object + , Object(..) + + -- * Nullable + , Nullable(..), nullableToMaybe, maybeToNullable + + -- * DOM String + , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString, noDOMString + , USVString(..), IsUSVString, noUSVString + , ByteString(..), IsByteString, noByteString + , CSSOMString(..), IsCSSOMString, noCSSOMString + + -- * Object + , maybeNullOrUndefined, maybeNullOrUndefined', GType(..) + , GObject(..), noGObject, IsGObject, toGObject, gTypeGObject, isA, objectToString + , castTo, unsafeCastTo, uncheckedCastTo + , strictEqual + + -- * TypedArray + , RawTypedArray(RawTypedArray), unRawTypedArray, IsRawTypedArray, toRawTypedArray, noRawTypedArray + + , Function(Function), unFunction, IsFunction, toFunction, noFunction + + -- * Promise + , readPromise + + -- * Callbacks + , Callback(..) + , withCallback + , AudioBufferCallback(..), noAudioBufferCallback + , BlobCallback(..), noBlobCallback + , DatabaseCallback(..), noDatabaseCallback + , IntersectionObserverCallback(..), noIntersectionObserverCallback + , MediaQueryListListener(..), noMediaQueryListListener + , MediaStreamTrackSourcesCallback(..), noMediaStreamTrackSourcesCallback + , NavigatorUserMediaErrorCallback(..), noNavigatorUserMediaErrorCallback + , NavigatorUserMediaSuccessCallback(..), noNavigatorUserMediaSuccessCallback + , NotificationPermissionCallback(..) + , NodeFilter(..), noNodeFilter + , PositionCallback(..), noPositionCallback + , PositionErrorCallback(..), noPositionErrorCallback + , PerformanceObserverCallback(..), noPerformanceObserverCallback + , RequestAnimationFrameCallback(..), noRequestAnimationFrameCallback + , RTCPeerConnectionErrorCallback(..), noRTCPeerConnectionErrorCallback + , RTCSessionDescriptionCallback(..), noRTCSessionDescriptionCallback + , RTCStatsCallback(..), noRTCStatsCallback + , SQLStatementCallback(..), noSQLStatementCallback + , SQLStatementErrorCallback(..), noSQLStatementErrorCallback + , SQLTransactionCallback(..), noSQLTransactionCallback + , SQLTransactionErrorCallback(..), noSQLTransactionErrorCallback + , StorageErrorCallback(..), noStorageErrorCallback + , StorageQuotaCallback(..), noStorageQuotaCallback + , StorageUsageCallback(..), noStorageUsageCallback + , StringCallback(..) + , VoidCallback(..), noVoidCallback + + -- * Custom Types + , DOMHighResTimeStamp, noDOMHighResTimeStamp + , PerformanceEntryList, noPerformanceEntryList + + -- * Record Type + , Record(Record), unRecord + + -- * Dictionaries + , Dictionary(Dictionary), unDictionary, IsDictionary, toDictionary, noDictionary + + -- * Mutation Callback + , MutationCallback(MutationCallback), unMutationCallback, IsMutationCallback, toMutationCallback, noMutationCallback + + -- * Date + , Date(Date), unDate, IsDate, toDate, gTypeDate, noDate + + -- * Arrays + , Array(Array), unArray, IsArray, toArray, gTypeArray, noArray + , ObjectArray(ObjectArray), unObjectArray, IsObjectArray, toObjectArray, noObjectArray + , ArrayBuffer(ArrayBuffer), unArrayBuffer, IsArrayBuffer, toArrayBuffer, gTypeArrayBuffer, noArrayBuffer + , ArrayBufferView(ArrayBufferView), unArrayBufferView, IsArrayBufferView, toArrayBufferView, noArrayBufferView + , Float32Array(Float32Array), unFloat32Array, IsFloat32Array, toFloat32Array, gTypeFloat32Array, noFloat32Array + , Float64Array(Float64Array), unFloat64Array, IsFloat64Array, toFloat64Array, gTypeFloat64Array, noFloat64Array + , Uint8Array(Uint8Array), unUint8Array, IsUint8Array, toUint8Array, gTypeUint8Array, noUint8Array + , Uint8ClampedArray(Uint8ClampedArray), unUint8ClampedArray, IsUint8ClampedArray, toUint8ClampedArray, gTypeUint8ClampedArray, noUint8ClampedArray + , Uint16Array(Uint16Array), unUint16Array, IsUint16Array, toUint16Array, gTypeUint16Array, noUint16Array + , Uint32Array(Uint32Array), unUint32Array, IsUint32Array, toUint32Array, gTypeUint32Array, noUint32Array + , Int8Array(Int8Array), unInt8Array, IsInt8Array, toInt8Array, gTypeInt8Array, noInt8Array + , Int16Array(Int16Array), unInt16Array, IsInt16Array, toInt16Array, gTypeInt16Array, noInt16Array + , Int32Array(Int32Array), unInt32Array, IsInt32Array, toInt32Array, gTypeInt32Array, noInt32Array + + -- * Geolocation + , SerializedScriptValue(SerializedScriptValue), unSerializedScriptValue, IsSerializedScriptValue, toSerializedScriptValue, noSerializedScriptValue + + -- * Crypto + , Algorithm(Algorithm), unAlgorithm, IsAlgorithm, toAlgorithm, noAlgorithm + , CryptoOperationData(CryptoOperationData), unCryptoOperationData, IsCryptoOperationData, toCryptoOperationData, noCryptoOperationData + + -- * WebGL typedefs + , GLenum(..), GLboolean(..), GLbitfield(..), GLbyte(..), GLshort(..), GLint(..), GLsizei(..) + , GLintptr(..), GLsizeiptr(..), GLubyte(..), GLushort(..), GLuint(..), GLfloat(..), GLclampf(..) + , GLint64, GLuint64 + , noGLenum, noGLboolean, noGLbitfield, noGLbyte, noGLshort, noGLint, noGLsizei + , noGLintptr, noGLsizeiptr, noGLubyte, noGLushort, noGLuint, noGLfloat, noGLclampf + , noGLint64, noGLuint64 + + -- * Used for better error messages + , HasCallStack + + -- * Interface types from IDL files + +-- AUTO GENERATION STARTS HERE + , AddEventListenerOptionsOrBool(AddEventListenerOptionsOrBool), unAddEventListenerOptionsOrBool, IsAddEventListenerOptionsOrBool, toAddEventListenerOptionsOrBool + , BinaryData(BinaryData), unBinaryData, IsBinaryData, toBinaryData + , BlobPart(BlobPart), unBlobPart, IsBlobPart + , BodyInit(BodyInit), unBodyInit, IsBodyInit + , BufferDataSource(BufferDataSource), unBufferDataSource, IsBufferDataSource, toBufferDataSource + , BufferSource(BufferSource), unBufferSource, IsBufferSource, toBufferSource + , CanvasImageSource(CanvasImageSource), unCanvasImageSource, IsCanvasImageSource, toCanvasImageSource + , CanvasStyle(CanvasStyle), unCanvasStyle, IsCanvasStyle + , CredentialBodyType(CredentialBodyType), unCredentialBodyType, IsCredentialBodyType, toCredentialBodyType + , CryptoKeyOrKeyPair(CryptoKeyOrKeyPair), unCryptoKeyOrKeyPair, IsCryptoKeyOrKeyPair, toCryptoKeyOrKeyPair + , EventListenerOptionsOrBool(EventListenerOptionsOrBool), unEventListenerOptionsOrBool, IsEventListenerOptionsOrBool, toEventListenerOptionsOrBool + , Float32List(Float32List), unFloat32List, IsFloat32List + , HTMLCollectionOrElement(HTMLCollectionOrElement), unHTMLCollectionOrElement, IsHTMLCollectionOrElement, toHTMLCollectionOrElement + , HTMLElementOrLong(HTMLElementOrLong), unHTMLElementOrLong, IsHTMLElementOrLong + , HTMLOptionElementOrGroup(HTMLOptionElementOrGroup), unHTMLOptionElementOrGroup, IsHTMLOptionElementOrGroup, toHTMLOptionElementOrGroup + , IDBCursorSource(IDBCursorSource), unIDBCursorSource, IsIDBCursorSource, toIDBCursorSource + , IDBKeyPath(IDBKeyPath), unIDBKeyPath, IsIDBKeyPath + , IDBRequestResult(IDBRequestResult), unIDBRequestResult, IsIDBRequestResult, toIDBRequestResult + , IDBRequestSource(IDBRequestSource), unIDBRequestSource, IsIDBRequestSource, toIDBRequestSource + , Int32List(Int32List), unInt32List, IsInt32List + , KeyData(KeyData), unKeyData, IsKeyData, toKeyData + , MediaProvider(MediaProvider), unMediaProvider, IsMediaProvider, toMediaProvider + , MediaStreamTrackOrKind(MediaStreamTrackOrKind), unMediaStreamTrackOrKind, IsMediaStreamTrackOrKind + , MessageEventSource(MessageEventSource), unMessageEventSource, IsMessageEventSource, toMessageEventSource + , NodeOrString(NodeOrString), unNodeOrString, IsNodeOrString + , RTCIceCandidateOrInit(RTCIceCandidateOrInit), unRTCIceCandidateOrInit, IsRTCIceCandidateOrInit, toRTCIceCandidateOrInit + , RadioNodeListOrElement(RadioNodeListOrElement), unRadioNodeListOrElement, IsRadioNodeListOrElement, toRadioNodeListOrElement + , RenderingContext(RenderingContext), unRenderingContext, IsRenderingContext, toRenderingContext + , SQLValue(SQLValue), unSQLValue, IsSQLValue + , StringOrArrayBuffer(StringOrArrayBuffer), unStringOrArrayBuffer, IsStringOrArrayBuffer + , StringOrBinaryData(StringOrBinaryData), unStringOrBinaryData, IsStringOrBinaryData + , StringOrStrings(StringOrStrings), unStringOrStrings, IsStringOrStrings + , TexImageSource(TexImageSource), unTexImageSource, IsTexImageSource, toTexImageSource + , Track(Track), unTrack, IsTrack, toTrack + , URLSearchParamsInit(URLSearchParamsInit), unURLSearchParamsInit, IsURLSearchParamsInit + , XMLHttpRequestBody(XMLHttpRequestBody), unXMLHttpRequestBody, IsXMLHttpRequestBody + + , ANGLEInstancedArrays(ANGLEInstancedArrays), unANGLEInstancedArrays, noANGLEInstancedArrays, gTypeANGLEInstancedArrays + , AbstractWorker(AbstractWorker), unAbstractWorker, IsAbstractWorker, toAbstractWorker, noAbstractWorker, gTypeAbstractWorker + , Acceleration(Acceleration), unAcceleration, noAcceleration, gTypeAcceleration + , AddEventListenerOptions(AddEventListenerOptions), unAddEventListenerOptions, noAddEventListenerOptions, gTypeAddEventListenerOptions + , AesCbcCfbParams(AesCbcCfbParams), unAesCbcCfbParams, noAesCbcCfbParams, gTypeAesCbcCfbParams + , AesCtrParams(AesCtrParams), unAesCtrParams, noAesCtrParams, gTypeAesCtrParams + , AesGcmParams(AesGcmParams), unAesGcmParams, noAesGcmParams, gTypeAesGcmParams + , AesKeyParams(AesKeyParams), unAesKeyParams, noAesKeyParams, gTypeAesKeyParams + , AnalyserNode(AnalyserNode), unAnalyserNode, noAnalyserNode, gTypeAnalyserNode + , Animatable(Animatable), unAnimatable, IsAnimatable, toAnimatable, noAnimatable, gTypeAnimatable + , Animation(Animation), unAnimation, noAnimation, gTypeAnimation + , AnimationEffect(AnimationEffect), unAnimationEffect, IsAnimationEffect, toAnimationEffect, noAnimationEffect, gTypeAnimationEffect + , AnimationEvent(AnimationEvent), unAnimationEvent, noAnimationEvent, gTypeAnimationEvent + , AnimationEventInit(AnimationEventInit), unAnimationEventInit, noAnimationEventInit, gTypeAnimationEventInit + , AnimationTimeline(AnimationTimeline), unAnimationTimeline, IsAnimationTimeline, toAnimationTimeline, noAnimationTimeline, gTypeAnimationTimeline + , ApplePayError(ApplePayError), unApplePayError, noApplePayError, gTypeApplePayError + , ApplePayLineItem(ApplePayLineItem), unApplePayLineItem, noApplePayLineItem, gTypeApplePayLineItem + , ApplePayPayment(ApplePayPayment), unApplePayPayment, noApplePayPayment, gTypeApplePayPayment + , ApplePayPaymentAuthorizationResult(ApplePayPaymentAuthorizationResult), unApplePayPaymentAuthorizationResult, noApplePayPaymentAuthorizationResult, gTypeApplePayPaymentAuthorizationResult + , ApplePayPaymentAuthorizedEvent(ApplePayPaymentAuthorizedEvent), unApplePayPaymentAuthorizedEvent, noApplePayPaymentAuthorizedEvent, gTypeApplePayPaymentAuthorizedEvent + , ApplePayPaymentContact(ApplePayPaymentContact), unApplePayPaymentContact, noApplePayPaymentContact, gTypeApplePayPaymentContact + , ApplePayPaymentMethod(ApplePayPaymentMethod), unApplePayPaymentMethod, noApplePayPaymentMethod, gTypeApplePayPaymentMethod + , ApplePayPaymentMethodSelectedEvent(ApplePayPaymentMethodSelectedEvent), unApplePayPaymentMethodSelectedEvent, noApplePayPaymentMethodSelectedEvent, gTypeApplePayPaymentMethodSelectedEvent + , ApplePayPaymentMethodUpdate(ApplePayPaymentMethodUpdate), unApplePayPaymentMethodUpdate, noApplePayPaymentMethodUpdate, gTypeApplePayPaymentMethodUpdate + , ApplePayPaymentPass(ApplePayPaymentPass), unApplePayPaymentPass, noApplePayPaymentPass, gTypeApplePayPaymentPass + , ApplePayPaymentRequest(ApplePayPaymentRequest), unApplePayPaymentRequest, noApplePayPaymentRequest, gTypeApplePayPaymentRequest + , ApplePayPaymentToken(ApplePayPaymentToken), unApplePayPaymentToken, noApplePayPaymentToken, gTypeApplePayPaymentToken + , ApplePaySession(ApplePaySession), unApplePaySession, noApplePaySession, gTypeApplePaySession + , ApplePayShippingContactSelectedEvent(ApplePayShippingContactSelectedEvent), unApplePayShippingContactSelectedEvent, noApplePayShippingContactSelectedEvent, gTypeApplePayShippingContactSelectedEvent + , ApplePayShippingContactUpdate(ApplePayShippingContactUpdate), unApplePayShippingContactUpdate, noApplePayShippingContactUpdate, gTypeApplePayShippingContactUpdate + , ApplePayShippingMethod(ApplePayShippingMethod), unApplePayShippingMethod, noApplePayShippingMethod, gTypeApplePayShippingMethod + , ApplePayShippingMethodSelectedEvent(ApplePayShippingMethodSelectedEvent), unApplePayShippingMethodSelectedEvent, noApplePayShippingMethodSelectedEvent, gTypeApplePayShippingMethodSelectedEvent + , ApplePayShippingMethodUpdate(ApplePayShippingMethodUpdate), unApplePayShippingMethodUpdate, noApplePayShippingMethodUpdate, gTypeApplePayShippingMethodUpdate + , ApplePayValidateMerchantEvent(ApplePayValidateMerchantEvent), unApplePayValidateMerchantEvent, noApplePayValidateMerchantEvent, gTypeApplePayValidateMerchantEvent + , ApplicationCache(ApplicationCache), unApplicationCache, noApplicationCache, gTypeApplicationCache + , AssignedNodesOptions(AssignedNodesOptions), unAssignedNodesOptions, noAssignedNodesOptions, gTypeAssignedNodesOptions + , Attr(Attr), unAttr, noAttr, gTypeAttr + , AudioBuffer(AudioBuffer), unAudioBuffer, noAudioBuffer, gTypeAudioBuffer + , AudioBufferSourceNode(AudioBufferSourceNode), unAudioBufferSourceNode, noAudioBufferSourceNode, gTypeAudioBufferSourceNode + , AudioContext(AudioContext), unAudioContext, IsAudioContext, toAudioContext, noAudioContext, gTypeAudioContext + , AudioDestinationNode(AudioDestinationNode), unAudioDestinationNode, noAudioDestinationNode, gTypeAudioDestinationNode + , AudioListener(AudioListener), unAudioListener, noAudioListener, gTypeAudioListener + , AudioNode(AudioNode), unAudioNode, IsAudioNode, toAudioNode, noAudioNode, gTypeAudioNode + , AudioParam(AudioParam), unAudioParam, noAudioParam, gTypeAudioParam + , AudioProcessingEvent(AudioProcessingEvent), unAudioProcessingEvent, noAudioProcessingEvent, gTypeAudioProcessingEvent + , AudioTrack(AudioTrack), unAudioTrack, noAudioTrack, gTypeAudioTrack + , AudioTrackList(AudioTrackList), unAudioTrackList, noAudioTrackList, gTypeAudioTrackList + , AutocompleteErrorEvent(AutocompleteErrorEvent), unAutocompleteErrorEvent, noAutocompleteErrorEvent, gTypeAutocompleteErrorEvent + , AutocompleteErrorEventInit(AutocompleteErrorEventInit), unAutocompleteErrorEventInit, noAutocompleteErrorEventInit, gTypeAutocompleteErrorEventInit + , BarProp(BarProp), unBarProp, noBarProp, gTypeBarProp + , BasicCredential(BasicCredential), unBasicCredential, IsBasicCredential, toBasicCredential, noBasicCredential, gTypeBasicCredential + , BeforeLoadEvent(BeforeLoadEvent), unBeforeLoadEvent, noBeforeLoadEvent, gTypeBeforeLoadEvent + , BeforeLoadEventInit(BeforeLoadEventInit), unBeforeLoadEventInit, noBeforeLoadEventInit, gTypeBeforeLoadEventInit + , BeforeUnloadEvent(BeforeUnloadEvent), unBeforeUnloadEvent, noBeforeUnloadEvent, gTypeBeforeUnloadEvent + , BiquadFilterNode(BiquadFilterNode), unBiquadFilterNode, noBiquadFilterNode, gTypeBiquadFilterNode + , Blob(Blob), unBlob, IsBlob, toBlob, noBlob, gTypeBlob + , BlobPropertyBag(BlobPropertyBag), unBlobPropertyBag, IsBlobPropertyBag, toBlobPropertyBag, noBlobPropertyBag, gTypeBlobPropertyBag + , Body(Body), unBody, IsBody, toBody, noBody, gTypeBody + , ByteLengthQueuingStrategy(ByteLengthQueuingStrategy), unByteLengthQueuingStrategy, noByteLengthQueuingStrategy, gTypeByteLengthQueuingStrategy + , CDATASection(CDATASection), unCDATASection, noCDATASection, gTypeCDATASection + , CSS(CSS), unCSS, noCSS, gTypeCSS + , CSSFontFaceLoadEvent(CSSFontFaceLoadEvent), unCSSFontFaceLoadEvent, noCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent + , CSSFontFaceLoadEventInit(CSSFontFaceLoadEventInit), unCSSFontFaceLoadEventInit, noCSSFontFaceLoadEventInit, gTypeCSSFontFaceLoadEventInit + , CSSFontFaceRule(CSSFontFaceRule), unCSSFontFaceRule, noCSSFontFaceRule, gTypeCSSFontFaceRule + , CSSImportRule(CSSImportRule), unCSSImportRule, noCSSImportRule, gTypeCSSImportRule + , CSSKeyframeRule(CSSKeyframeRule), unCSSKeyframeRule, noCSSKeyframeRule, gTypeCSSKeyframeRule + , CSSKeyframesRule(CSSKeyframesRule), unCSSKeyframesRule, noCSSKeyframesRule, gTypeCSSKeyframesRule + , CSSMediaRule(CSSMediaRule), unCSSMediaRule, noCSSMediaRule, gTypeCSSMediaRule + , CSSNamespaceRule(CSSNamespaceRule), unCSSNamespaceRule, noCSSNamespaceRule, gTypeCSSNamespaceRule + , CSSPageRule(CSSPageRule), unCSSPageRule, noCSSPageRule, gTypeCSSPageRule + , CSSPrimitiveValue(CSSPrimitiveValue), unCSSPrimitiveValue, noCSSPrimitiveValue, gTypeCSSPrimitiveValue + , CSSRule(CSSRule), unCSSRule, IsCSSRule, toCSSRule, noCSSRule, gTypeCSSRule + , CSSRuleList(CSSRuleList), unCSSRuleList, noCSSRuleList, gTypeCSSRuleList + , CSSStyleDeclaration(CSSStyleDeclaration), unCSSStyleDeclaration, noCSSStyleDeclaration, gTypeCSSStyleDeclaration + , CSSStyleRule(CSSStyleRule), unCSSStyleRule, noCSSStyleRule, gTypeCSSStyleRule + , CSSStyleSheet(CSSStyleSheet), unCSSStyleSheet, noCSSStyleSheet, gTypeCSSStyleSheet + , CSSSupportsRule(CSSSupportsRule), unCSSSupportsRule, noCSSSupportsRule, gTypeCSSSupportsRule + , CSSUnknownRule(CSSUnknownRule), unCSSUnknownRule, noCSSUnknownRule, gTypeCSSUnknownRule + , CSSValue(CSSValue), unCSSValue, IsCSSValue, toCSSValue, noCSSValue, gTypeCSSValue + , CSSValueList(CSSValueList), unCSSValueList, noCSSValueList, gTypeCSSValueList + , CanvasCaptureMediaStreamTrack(CanvasCaptureMediaStreamTrack), unCanvasCaptureMediaStreamTrack, noCanvasCaptureMediaStreamTrack, gTypeCanvasCaptureMediaStreamTrack + , CanvasGradient(CanvasGradient), unCanvasGradient, noCanvasGradient, gTypeCanvasGradient + , CanvasPath(CanvasPath), unCanvasPath, IsCanvasPath, toCanvasPath, noCanvasPath, gTypeCanvasPath + , CanvasPattern(CanvasPattern), unCanvasPattern, noCanvasPattern, gTypeCanvasPattern + , CanvasProxy(CanvasProxy), unCanvasProxy, noCanvasProxy, gTypeCanvasProxy + , CanvasRenderingContext2D(CanvasRenderingContext2D), unCanvasRenderingContext2D, noCanvasRenderingContext2D, gTypeCanvasRenderingContext2D + , ChannelMergerNode(ChannelMergerNode), unChannelMergerNode, noChannelMergerNode, gTypeChannelMergerNode + , ChannelSplitterNode(ChannelSplitterNode), unChannelSplitterNode, noChannelSplitterNode, gTypeChannelSplitterNode + , CharacterData(CharacterData), unCharacterData, IsCharacterData, toCharacterData, noCharacterData, gTypeCharacterData + , ChildNode(ChildNode), unChildNode, IsChildNode, toChildNode, noChildNode, gTypeChildNode + , ClipboardEvent(ClipboardEvent), unClipboardEvent, noClipboardEvent, gTypeClipboardEvent + , ClipboardEventInit(ClipboardEventInit), unClipboardEventInit, noClipboardEventInit, gTypeClipboardEventInit + , CloseEvent(CloseEvent), unCloseEvent, noCloseEvent, gTypeCloseEvent + , CloseEventInit(CloseEventInit), unCloseEventInit, noCloseEventInit, gTypeCloseEventInit + , CommandLineAPIHost(CommandLineAPIHost), unCommandLineAPIHost, noCommandLineAPIHost, gTypeCommandLineAPIHost + , Comment(Comment), unComment, noComment, gTypeComment + , CompositionEvent(CompositionEvent), unCompositionEvent, noCompositionEvent, gTypeCompositionEvent + , CompositionEventInit(CompositionEventInit), unCompositionEventInit, noCompositionEventInit, gTypeCompositionEventInit + , ConstrainBooleanParameters(ConstrainBooleanParameters), unConstrainBooleanParameters, noConstrainBooleanParameters, gTypeConstrainBooleanParameters + , ConstrainDOMStringParameters(ConstrainDOMStringParameters), unConstrainDOMStringParameters, noConstrainDOMStringParameters, gTypeConstrainDOMStringParameters + , ConstrainDoubleRange(ConstrainDoubleRange), unConstrainDoubleRange, noConstrainDoubleRange, gTypeConstrainDoubleRange + , ConstrainLongRange(ConstrainLongRange), unConstrainLongRange, noConstrainLongRange, gTypeConstrainLongRange + , ConvolverNode(ConvolverNode), unConvolverNode, noConvolverNode, gTypeConvolverNode + , Coordinates(Coordinates), unCoordinates, noCoordinates, gTypeCoordinates + , CountQueuingStrategy(CountQueuingStrategy), unCountQueuingStrategy, noCountQueuingStrategy, gTypeCountQueuingStrategy + , Counter(Counter), unCounter, noCounter, gTypeCounter + , CredentialData(CredentialData), unCredentialData, IsCredentialData, toCredentialData, noCredentialData, gTypeCredentialData + , Crypto(Crypto), unCrypto, noCrypto, gTypeCrypto + , CryptoAlgorithmParameters(CryptoAlgorithmParameters), unCryptoAlgorithmParameters, IsCryptoAlgorithmParameters, toCryptoAlgorithmParameters, noCryptoAlgorithmParameters, gTypeCryptoAlgorithmParameters + , CryptoKey(CryptoKey), unCryptoKey, noCryptoKey, gTypeCryptoKey + , CryptoKeyPair(CryptoKeyPair), unCryptoKeyPair, noCryptoKeyPair, gTypeCryptoKeyPair + , CustomElementRegistry(CustomElementRegistry), unCustomElementRegistry, noCustomElementRegistry, gTypeCustomElementRegistry + , CustomEvent(CustomEvent), unCustomEvent, noCustomEvent, gTypeCustomEvent + , CustomEventInit(CustomEventInit), unCustomEventInit, noCustomEventInit, gTypeCustomEventInit + , DOMError(DOMError), unDOMError, IsDOMError, toDOMError, noDOMError, gTypeDOMError + , DOMException(DOMException), unDOMException, noDOMException, gTypeDOMException + , DOMImplementation(DOMImplementation), unDOMImplementation, noDOMImplementation, gTypeDOMImplementation + , DOMNamedFlowCollection(DOMNamedFlowCollection), unDOMNamedFlowCollection, noDOMNamedFlowCollection, gTypeDOMNamedFlowCollection + , DOMParser(DOMParser), unDOMParser, noDOMParser, gTypeDOMParser + , DOMPoint(DOMPoint), unDOMPoint, noDOMPoint, gTypeDOMPoint + , DOMPointInit(DOMPointInit), unDOMPointInit, noDOMPointInit, gTypeDOMPointInit + , DOMPointReadOnly(DOMPointReadOnly), unDOMPointReadOnly, IsDOMPointReadOnly, toDOMPointReadOnly, noDOMPointReadOnly, gTypeDOMPointReadOnly + , DOMRect(DOMRect), unDOMRect, noDOMRect, gTypeDOMRect + , DOMRectInit(DOMRectInit), unDOMRectInit, noDOMRectInit, gTypeDOMRectInit + , DOMRectReadOnly(DOMRectReadOnly), unDOMRectReadOnly, IsDOMRectReadOnly, toDOMRectReadOnly, noDOMRectReadOnly, gTypeDOMRectReadOnly + , DOMStringList(DOMStringList), unDOMStringList, noDOMStringList, gTypeDOMStringList + , DOMStringMap(DOMStringMap), unDOMStringMap, noDOMStringMap, gTypeDOMStringMap + , DOMTokenList(DOMTokenList), unDOMTokenList, noDOMTokenList, gTypeDOMTokenList + , DataCue(DataCue), unDataCue, noDataCue, gTypeDataCue + , DataTransfer(DataTransfer), unDataTransfer, noDataTransfer, gTypeDataTransfer + , DataTransferItem(DataTransferItem), unDataTransferItem, noDataTransferItem, gTypeDataTransferItem + , DataTransferItemList(DataTransferItemList), unDataTransferItemList, noDataTransferItemList, gTypeDataTransferItemList + , Database(Database), unDatabase, noDatabase, gTypeDatabase + , DedicatedWorkerGlobalScope(DedicatedWorkerGlobalScope), unDedicatedWorkerGlobalScope, noDedicatedWorkerGlobalScope, gTypeDedicatedWorkerGlobalScope + , DelayNode(DelayNode), unDelayNode, noDelayNode, gTypeDelayNode + , DeviceMotionEvent(DeviceMotionEvent), unDeviceMotionEvent, noDeviceMotionEvent, gTypeDeviceMotionEvent + , DeviceOrientationEvent(DeviceOrientationEvent), unDeviceOrientationEvent, noDeviceOrientationEvent, gTypeDeviceOrientationEvent + , DeviceProximityEvent(DeviceProximityEvent), unDeviceProximityEvent, noDeviceProximityEvent, gTypeDeviceProximityEvent + , DeviceProximityEventInit(DeviceProximityEventInit), unDeviceProximityEventInit, noDeviceProximityEventInit, gTypeDeviceProximityEventInit + , Document(Document), unDocument, IsDocument, toDocument, noDocument, gTypeDocument + , DocumentAndElementEventHandlers(DocumentAndElementEventHandlers), unDocumentAndElementEventHandlers, IsDocumentAndElementEventHandlers, toDocumentAndElementEventHandlers, noDocumentAndElementEventHandlers, gTypeDocumentAndElementEventHandlers + , DocumentFragment(DocumentFragment), unDocumentFragment, IsDocumentFragment, toDocumentFragment, noDocumentFragment, gTypeDocumentFragment + , DocumentOrShadowRoot(DocumentOrShadowRoot), unDocumentOrShadowRoot, IsDocumentOrShadowRoot, toDocumentOrShadowRoot, noDocumentOrShadowRoot, gTypeDocumentOrShadowRoot + , DocumentTimeline(DocumentTimeline), unDocumentTimeline, noDocumentTimeline, gTypeDocumentTimeline + , DocumentType(DocumentType), unDocumentType, noDocumentType, gTypeDocumentType + , DoubleRange(DoubleRange), unDoubleRange, IsDoubleRange, toDoubleRange, noDoubleRange, gTypeDoubleRange + , DynamicsCompressorNode(DynamicsCompressorNode), unDynamicsCompressorNode, noDynamicsCompressorNode, gTypeDynamicsCompressorNode + , EXTBlendMinMax(EXTBlendMinMax), unEXTBlendMinMax, noEXTBlendMinMax, gTypeEXTBlendMinMax + , EXTFragDepth(EXTFragDepth), unEXTFragDepth, noEXTFragDepth, gTypeEXTFragDepth + , EXTShaderTextureLOD(EXTShaderTextureLOD), unEXTShaderTextureLOD, noEXTShaderTextureLOD, gTypeEXTShaderTextureLOD + , EXTTextureFilterAnisotropic(EXTTextureFilterAnisotropic), unEXTTextureFilterAnisotropic, noEXTTextureFilterAnisotropic, gTypeEXTTextureFilterAnisotropic + , EXTsRGB(EXTsRGB), unEXTsRGB, noEXTsRGB, gTypeEXTsRGB + , EcKeyParams(EcKeyParams), unEcKeyParams, noEcKeyParams, gTypeEcKeyParams + , EcdhKeyDeriveParams(EcdhKeyDeriveParams), unEcdhKeyDeriveParams, noEcdhKeyDeriveParams, gTypeEcdhKeyDeriveParams + , EcdsaParams(EcdsaParams), unEcdsaParams, noEcdsaParams, gTypeEcdsaParams + , Element(Element), unElement, IsElement, toElement, noElement, gTypeElement + , ElementCSSInlineStyle(ElementCSSInlineStyle), unElementCSSInlineStyle, IsElementCSSInlineStyle, toElementCSSInlineStyle, noElementCSSInlineStyle, gTypeElementCSSInlineStyle + , ErrorEvent(ErrorEvent), unErrorEvent, noErrorEvent, gTypeErrorEvent + , ErrorEventInit(ErrorEventInit), unErrorEventInit, noErrorEventInit, gTypeErrorEventInit + , Event(Event), unEvent, IsEvent, toEvent, noEvent, gTypeEvent + , EventInit(EventInit), unEventInit, IsEventInit, toEventInit, noEventInit, gTypeEventInit + , EventListener(EventListener), unEventListener, noEventListener, gTypeEventListener + , EventListenerOptions(EventListenerOptions), unEventListenerOptions, IsEventListenerOptions, toEventListenerOptions, noEventListenerOptions, gTypeEventListenerOptions + , EventModifierInit(EventModifierInit), unEventModifierInit, IsEventModifierInit, toEventModifierInit, noEventModifierInit, gTypeEventModifierInit + , EventSource(EventSource), unEventSource, noEventSource, gTypeEventSource + , EventSourceInit(EventSourceInit), unEventSourceInit, noEventSourceInit, gTypeEventSourceInit + , EventTarget(EventTarget), unEventTarget, IsEventTarget, toEventTarget, noEventTarget, gTypeEventTarget + , File(File), unFile, noFile, gTypeFile + , FileError(FileError), unFileError, noFileError, gTypeFileError + , FileException(FileException), unFileException, noFileException, gTypeFileException + , FileList(FileList), unFileList, noFileList, gTypeFileList + , FilePropertyBag(FilePropertyBag), unFilePropertyBag, noFilePropertyBag, gTypeFilePropertyBag + , FileReader(FileReader), unFileReader, noFileReader, gTypeFileReader + , FileReaderSync(FileReaderSync), unFileReaderSync, noFileReaderSync, gTypeFileReaderSync + , FocusEvent(FocusEvent), unFocusEvent, noFocusEvent, gTypeFocusEvent + , FocusEventInit(FocusEventInit), unFocusEventInit, noFocusEventInit, gTypeFocusEventInit + , FontFace(FontFace), unFontFace, noFontFace, gTypeFontFace + , FontFaceDescriptors(FontFaceDescriptors), unFontFaceDescriptors, noFontFaceDescriptors, gTypeFontFaceDescriptors + , FontFaceSet(FontFaceSet), unFontFaceSet, noFontFaceSet, gTypeFontFaceSet + , FormData(FormData), unFormData, noFormData, gTypeFormData + , GainNode(GainNode), unGainNode, noGainNode, gTypeGainNode + , Gamepad(Gamepad), unGamepad, noGamepad, gTypeGamepad + , GamepadButton(GamepadButton), unGamepadButton, noGamepadButton, gTypeGamepadButton + , GamepadEvent(GamepadEvent), unGamepadEvent, noGamepadEvent, gTypeGamepadEvent + , GamepadEventInit(GamepadEventInit), unGamepadEventInit, noGamepadEventInit, gTypeGamepadEventInit + , Geolocation(Geolocation), unGeolocation, noGeolocation, gTypeGeolocation + , Geoposition(Geoposition), unGeoposition, noGeoposition, gTypeGeoposition + , GetRootNodeOptions(GetRootNodeOptions), unGetRootNodeOptions, noGetRootNodeOptions, gTypeGetRootNodeOptions + , GlobalCrypto(GlobalCrypto), unGlobalCrypto, IsGlobalCrypto, toGlobalCrypto, noGlobalCrypto, gTypeGlobalCrypto + , GlobalEventHandlers(GlobalEventHandlers), unGlobalEventHandlers, IsGlobalEventHandlers, toGlobalEventHandlers, noGlobalEventHandlers, gTypeGlobalEventHandlers + , GlobalPerformance(GlobalPerformance), unGlobalPerformance, IsGlobalPerformance, toGlobalPerformance, noGlobalPerformance, gTypeGlobalPerformance + , HTMLAllCollection(HTMLAllCollection), unHTMLAllCollection, noHTMLAllCollection, gTypeHTMLAllCollection + , HTMLAnchorElement(HTMLAnchorElement), unHTMLAnchorElement, noHTMLAnchorElement, gTypeHTMLAnchorElement + , HTMLAppletElement(HTMLAppletElement), unHTMLAppletElement, noHTMLAppletElement, gTypeHTMLAppletElement + , HTMLAreaElement(HTMLAreaElement), unHTMLAreaElement, noHTMLAreaElement, gTypeHTMLAreaElement + , HTMLAttachmentElement(HTMLAttachmentElement), unHTMLAttachmentElement, noHTMLAttachmentElement, gTypeHTMLAttachmentElement + , HTMLAudioElement(HTMLAudioElement), unHTMLAudioElement, noHTMLAudioElement, gTypeHTMLAudioElement + , HTMLBRElement(HTMLBRElement), unHTMLBRElement, noHTMLBRElement, gTypeHTMLBRElement + , HTMLBaseElement(HTMLBaseElement), unHTMLBaseElement, noHTMLBaseElement, gTypeHTMLBaseElement + , HTMLBodyElement(HTMLBodyElement), unHTMLBodyElement, noHTMLBodyElement, gTypeHTMLBodyElement + , HTMLButtonElement(HTMLButtonElement), unHTMLButtonElement, noHTMLButtonElement, gTypeHTMLButtonElement + , HTMLCanvasElement(HTMLCanvasElement), unHTMLCanvasElement, noHTMLCanvasElement, gTypeHTMLCanvasElement + , HTMLCollection(HTMLCollection), unHTMLCollection, IsHTMLCollection, toHTMLCollection, noHTMLCollection, gTypeHTMLCollection + , HTMLDListElement(HTMLDListElement), unHTMLDListElement, noHTMLDListElement, gTypeHTMLDListElement + , HTMLDataElement(HTMLDataElement), unHTMLDataElement, noHTMLDataElement, gTypeHTMLDataElement + , HTMLDataListElement(HTMLDataListElement), unHTMLDataListElement, noHTMLDataListElement, gTypeHTMLDataListElement + , HTMLDetailsElement(HTMLDetailsElement), unHTMLDetailsElement, noHTMLDetailsElement, gTypeHTMLDetailsElement + , HTMLDirectoryElement(HTMLDirectoryElement), unHTMLDirectoryElement, noHTMLDirectoryElement, gTypeHTMLDirectoryElement + , HTMLDivElement(HTMLDivElement), unHTMLDivElement, noHTMLDivElement, gTypeHTMLDivElement + , HTMLDocument(HTMLDocument), unHTMLDocument, noHTMLDocument, gTypeHTMLDocument + , HTMLElement(HTMLElement), unHTMLElement, IsHTMLElement, toHTMLElement, noHTMLElement, gTypeHTMLElement + , HTMLEmbedElement(HTMLEmbedElement), unHTMLEmbedElement, noHTMLEmbedElement, gTypeHTMLEmbedElement + , HTMLFieldSetElement(HTMLFieldSetElement), unHTMLFieldSetElement, noHTMLFieldSetElement, gTypeHTMLFieldSetElement + , HTMLFontElement(HTMLFontElement), unHTMLFontElement, noHTMLFontElement, gTypeHTMLFontElement + , HTMLFormControlsCollection(HTMLFormControlsCollection), unHTMLFormControlsCollection, noHTMLFormControlsCollection, gTypeHTMLFormControlsCollection + , HTMLFormElement(HTMLFormElement), unHTMLFormElement, noHTMLFormElement, gTypeHTMLFormElement + , HTMLFrameElement(HTMLFrameElement), unHTMLFrameElement, noHTMLFrameElement, gTypeHTMLFrameElement + , HTMLFrameSetElement(HTMLFrameSetElement), unHTMLFrameSetElement, noHTMLFrameSetElement, gTypeHTMLFrameSetElement + , HTMLHRElement(HTMLHRElement), unHTMLHRElement, noHTMLHRElement, gTypeHTMLHRElement + , HTMLHeadElement(HTMLHeadElement), unHTMLHeadElement, noHTMLHeadElement, gTypeHTMLHeadElement + , HTMLHeadingElement(HTMLHeadingElement), unHTMLHeadingElement, noHTMLHeadingElement, gTypeHTMLHeadingElement + , HTMLHtmlElement(HTMLHtmlElement), unHTMLHtmlElement, noHTMLHtmlElement, gTypeHTMLHtmlElement + , HTMLHyperlinkElementUtils(HTMLHyperlinkElementUtils), unHTMLHyperlinkElementUtils, IsHTMLHyperlinkElementUtils, toHTMLHyperlinkElementUtils, noHTMLHyperlinkElementUtils, gTypeHTMLHyperlinkElementUtils + , HTMLIFrameElement(HTMLIFrameElement), unHTMLIFrameElement, noHTMLIFrameElement, gTypeHTMLIFrameElement + , HTMLImageElement(HTMLImageElement), unHTMLImageElement, noHTMLImageElement, gTypeHTMLImageElement + , HTMLInputElement(HTMLInputElement), unHTMLInputElement, noHTMLInputElement, gTypeHTMLInputElement + , HTMLKeygenElement(HTMLKeygenElement), unHTMLKeygenElement, noHTMLKeygenElement, gTypeHTMLKeygenElement + , HTMLLIElement(HTMLLIElement), unHTMLLIElement, noHTMLLIElement, gTypeHTMLLIElement + , HTMLLabelElement(HTMLLabelElement), unHTMLLabelElement, noHTMLLabelElement, gTypeHTMLLabelElement + , HTMLLegendElement(HTMLLegendElement), unHTMLLegendElement, noHTMLLegendElement, gTypeHTMLLegendElement + , HTMLLinkElement(HTMLLinkElement), unHTMLLinkElement, noHTMLLinkElement, gTypeHTMLLinkElement + , HTMLMapElement(HTMLMapElement), unHTMLMapElement, noHTMLMapElement, gTypeHTMLMapElement + , HTMLMarqueeElement(HTMLMarqueeElement), unHTMLMarqueeElement, noHTMLMarqueeElement, gTypeHTMLMarqueeElement + , HTMLMediaElement(HTMLMediaElement), unHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement, noHTMLMediaElement, gTypeHTMLMediaElement + , HTMLMenuElement(HTMLMenuElement), unHTMLMenuElement, noHTMLMenuElement, gTypeHTMLMenuElement + , HTMLMetaElement(HTMLMetaElement), unHTMLMetaElement, noHTMLMetaElement, gTypeHTMLMetaElement + , HTMLMeterElement(HTMLMeterElement), unHTMLMeterElement, noHTMLMeterElement, gTypeHTMLMeterElement + , HTMLModElement(HTMLModElement), unHTMLModElement, noHTMLModElement, gTypeHTMLModElement + , HTMLOListElement(HTMLOListElement), unHTMLOListElement, noHTMLOListElement, gTypeHTMLOListElement + , HTMLObjectElement(HTMLObjectElement), unHTMLObjectElement, noHTMLObjectElement, gTypeHTMLObjectElement + , HTMLOptGroupElement(HTMLOptGroupElement), unHTMLOptGroupElement, noHTMLOptGroupElement, gTypeHTMLOptGroupElement + , HTMLOptionElement(HTMLOptionElement), unHTMLOptionElement, noHTMLOptionElement, gTypeHTMLOptionElement + , HTMLOptionsCollection(HTMLOptionsCollection), unHTMLOptionsCollection, noHTMLOptionsCollection, gTypeHTMLOptionsCollection + , HTMLOutputElement(HTMLOutputElement), unHTMLOutputElement, noHTMLOutputElement, gTypeHTMLOutputElement + , HTMLParagraphElement(HTMLParagraphElement), unHTMLParagraphElement, noHTMLParagraphElement, gTypeHTMLParagraphElement + , HTMLParamElement(HTMLParamElement), unHTMLParamElement, noHTMLParamElement, gTypeHTMLParamElement + , HTMLPictureElement(HTMLPictureElement), unHTMLPictureElement, noHTMLPictureElement, gTypeHTMLPictureElement + , HTMLPreElement(HTMLPreElement), unHTMLPreElement, noHTMLPreElement, gTypeHTMLPreElement + , HTMLProgressElement(HTMLProgressElement), unHTMLProgressElement, noHTMLProgressElement, gTypeHTMLProgressElement + , HTMLQuoteElement(HTMLQuoteElement), unHTMLQuoteElement, noHTMLQuoteElement, gTypeHTMLQuoteElement + , HTMLScriptElement(HTMLScriptElement), unHTMLScriptElement, noHTMLScriptElement, gTypeHTMLScriptElement + , HTMLSelectElement(HTMLSelectElement), unHTMLSelectElement, noHTMLSelectElement, gTypeHTMLSelectElement + , HTMLSlotElement(HTMLSlotElement), unHTMLSlotElement, noHTMLSlotElement, gTypeHTMLSlotElement + , HTMLSourceElement(HTMLSourceElement), unHTMLSourceElement, noHTMLSourceElement, gTypeHTMLSourceElement + , HTMLSpanElement(HTMLSpanElement), unHTMLSpanElement, noHTMLSpanElement, gTypeHTMLSpanElement + , HTMLStyleElement(HTMLStyleElement), unHTMLStyleElement, noHTMLStyleElement, gTypeHTMLStyleElement + , HTMLTableCaptionElement(HTMLTableCaptionElement), unHTMLTableCaptionElement, noHTMLTableCaptionElement, gTypeHTMLTableCaptionElement + , HTMLTableCellElement(HTMLTableCellElement), unHTMLTableCellElement, noHTMLTableCellElement, gTypeHTMLTableCellElement + , HTMLTableColElement(HTMLTableColElement), unHTMLTableColElement, noHTMLTableColElement, gTypeHTMLTableColElement + , HTMLTableElement(HTMLTableElement), unHTMLTableElement, noHTMLTableElement, gTypeHTMLTableElement + , HTMLTableRowElement(HTMLTableRowElement), unHTMLTableRowElement, noHTMLTableRowElement, gTypeHTMLTableRowElement + , HTMLTableSectionElement(HTMLTableSectionElement), unHTMLTableSectionElement, noHTMLTableSectionElement, gTypeHTMLTableSectionElement + , HTMLTemplateElement(HTMLTemplateElement), unHTMLTemplateElement, noHTMLTemplateElement, gTypeHTMLTemplateElement + , HTMLTextAreaElement(HTMLTextAreaElement), unHTMLTextAreaElement, noHTMLTextAreaElement, gTypeHTMLTextAreaElement + , HTMLTimeElement(HTMLTimeElement), unHTMLTimeElement, noHTMLTimeElement, gTypeHTMLTimeElement + , HTMLTitleElement(HTMLTitleElement), unHTMLTitleElement, noHTMLTitleElement, gTypeHTMLTitleElement + , HTMLTrackElement(HTMLTrackElement), unHTMLTrackElement, noHTMLTrackElement, gTypeHTMLTrackElement + , HTMLUListElement(HTMLUListElement), unHTMLUListElement, noHTMLUListElement, gTypeHTMLUListElement + , HTMLUnknownElement(HTMLUnknownElement), unHTMLUnknownElement, noHTMLUnknownElement, gTypeHTMLUnknownElement + , HTMLVideoElement(HTMLVideoElement), unHTMLVideoElement, noHTMLVideoElement, gTypeHTMLVideoElement + , HashChangeEvent(HashChangeEvent), unHashChangeEvent, noHashChangeEvent, gTypeHashChangeEvent + , HashChangeEventInit(HashChangeEventInit), unHashChangeEventInit, noHashChangeEventInit, gTypeHashChangeEventInit + , Headers(Headers), unHeaders, noHeaders, gTypeHeaders + , History(History), unHistory, noHistory, gTypeHistory + , HkdfParams(HkdfParams), unHkdfParams, noHkdfParams, gTypeHkdfParams + , HmacKeyParams(HmacKeyParams), unHmacKeyParams, noHmacKeyParams, gTypeHmacKeyParams + , IDBCursor(IDBCursor), unIDBCursor, IsIDBCursor, toIDBCursor, noIDBCursor, gTypeIDBCursor + , IDBCursorWithValue(IDBCursorWithValue), unIDBCursorWithValue, noIDBCursorWithValue, gTypeIDBCursorWithValue + , IDBDatabase(IDBDatabase), unIDBDatabase, noIDBDatabase, gTypeIDBDatabase + , IDBFactory(IDBFactory), unIDBFactory, noIDBFactory, gTypeIDBFactory + , IDBIndex(IDBIndex), unIDBIndex, noIDBIndex, gTypeIDBIndex + , IDBIndexParameters(IDBIndexParameters), unIDBIndexParameters, noIDBIndexParameters, gTypeIDBIndexParameters + , IDBKeyRange(IDBKeyRange), unIDBKeyRange, noIDBKeyRange, gTypeIDBKeyRange + , IDBObjectStore(IDBObjectStore), unIDBObjectStore, noIDBObjectStore, gTypeIDBObjectStore + , IDBObjectStoreParameters(IDBObjectStoreParameters), unIDBObjectStoreParameters, noIDBObjectStoreParameters, gTypeIDBObjectStoreParameters + , IDBOpenDBRequest(IDBOpenDBRequest), unIDBOpenDBRequest, noIDBOpenDBRequest, gTypeIDBOpenDBRequest + , IDBRequest(IDBRequest), unIDBRequest, IsIDBRequest, toIDBRequest, noIDBRequest, gTypeIDBRequest + , IDBTransaction(IDBTransaction), unIDBTransaction, noIDBTransaction, gTypeIDBTransaction + , IDBVersionChangeEvent(IDBVersionChangeEvent), unIDBVersionChangeEvent, noIDBVersionChangeEvent, gTypeIDBVersionChangeEvent + , IDBVersionChangeEventInit(IDBVersionChangeEventInit), unIDBVersionChangeEventInit, noIDBVersionChangeEventInit, gTypeIDBVersionChangeEventInit + , ImageData(ImageData), unImageData, noImageData, gTypeImageData + , InputEvent(InputEvent), unInputEvent, noInputEvent, gTypeInputEvent + , InputEventInit(InputEventInit), unInputEventInit, noInputEventInit, gTypeInputEventInit + , InspectorFrontendHost(InspectorFrontendHost), unInspectorFrontendHost, noInspectorFrontendHost, gTypeInspectorFrontendHost + , IntersectionObserver(IntersectionObserver), unIntersectionObserver, noIntersectionObserver, gTypeIntersectionObserver + , IntersectionObserverEntry(IntersectionObserverEntry), unIntersectionObserverEntry, noIntersectionObserverEntry, gTypeIntersectionObserverEntry + , IntersectionObserverEntryInit(IntersectionObserverEntryInit), unIntersectionObserverEntryInit, noIntersectionObserverEntryInit, gTypeIntersectionObserverEntryInit + , IntersectionObserverInit(IntersectionObserverInit), unIntersectionObserverInit, noIntersectionObserverInit, gTypeIntersectionObserverInit + , JsonWebKey(JsonWebKey), unJsonWebKey, noJsonWebKey, gTypeJsonWebKey + , KeyboardEvent(KeyboardEvent), unKeyboardEvent, noKeyboardEvent, gTypeKeyboardEvent + , KeyboardEventInit(KeyboardEventInit), unKeyboardEventInit, noKeyboardEventInit, gTypeKeyboardEventInit + , KeyframeEffect(KeyframeEffect), unKeyframeEffect, noKeyframeEffect, gTypeKeyframeEffect + , Location(Location), unLocation, noLocation, gTypeLocation + , LongRange(LongRange), unLongRange, IsLongRange, toLongRange, noLongRange, gTypeLongRange + , MediaController(MediaController), unMediaController, noMediaController, gTypeMediaController + , MediaControlsHost(MediaControlsHost), unMediaControlsHost, noMediaControlsHost, gTypeMediaControlsHost + , MediaDeviceInfo(MediaDeviceInfo), unMediaDeviceInfo, noMediaDeviceInfo, gTypeMediaDeviceInfo + , MediaDevices(MediaDevices), unMediaDevices, noMediaDevices, gTypeMediaDevices + , MediaElementAudioSourceNode(MediaElementAudioSourceNode), unMediaElementAudioSourceNode, noMediaElementAudioSourceNode, gTypeMediaElementAudioSourceNode + , MediaEncryptedEvent(MediaEncryptedEvent), unMediaEncryptedEvent, noMediaEncryptedEvent, gTypeMediaEncryptedEvent + , MediaEncryptedEventInit(MediaEncryptedEventInit), unMediaEncryptedEventInit, noMediaEncryptedEventInit, gTypeMediaEncryptedEventInit + , MediaError(MediaError), unMediaError, noMediaError, gTypeMediaError + , MediaKeyMessageEvent(MediaKeyMessageEvent), unMediaKeyMessageEvent, noMediaKeyMessageEvent, gTypeMediaKeyMessageEvent + , MediaKeyMessageEventInit(MediaKeyMessageEventInit), unMediaKeyMessageEventInit, noMediaKeyMessageEventInit, gTypeMediaKeyMessageEventInit + , MediaKeySession(MediaKeySession), unMediaKeySession, noMediaKeySession, gTypeMediaKeySession + , MediaKeyStatusMap(MediaKeyStatusMap), unMediaKeyStatusMap, noMediaKeyStatusMap, gTypeMediaKeyStatusMap + , MediaKeySystemAccess(MediaKeySystemAccess), unMediaKeySystemAccess, noMediaKeySystemAccess, gTypeMediaKeySystemAccess + , MediaKeySystemConfiguration(MediaKeySystemConfiguration), unMediaKeySystemConfiguration, noMediaKeySystemConfiguration, gTypeMediaKeySystemConfiguration + , MediaKeySystemMediaCapability(MediaKeySystemMediaCapability), unMediaKeySystemMediaCapability, noMediaKeySystemMediaCapability, gTypeMediaKeySystemMediaCapability + , MediaKeys(MediaKeys), unMediaKeys, noMediaKeys, gTypeMediaKeys + , MediaList(MediaList), unMediaList, noMediaList, gTypeMediaList + , MediaMetadata(MediaMetadata), unMediaMetadata, noMediaMetadata, gTypeMediaMetadata + , MediaQueryList(MediaQueryList), unMediaQueryList, noMediaQueryList, gTypeMediaQueryList + , MediaRemoteControls(MediaRemoteControls), unMediaRemoteControls, noMediaRemoteControls, gTypeMediaRemoteControls + , MediaSession(MediaSession), unMediaSession, noMediaSession, gTypeMediaSession + , MediaSource(MediaSource), unMediaSource, noMediaSource, gTypeMediaSource + , MediaStream(MediaStream), unMediaStream, noMediaStream, gTypeMediaStream + , MediaStreamAudioDestinationNode(MediaStreamAudioDestinationNode), unMediaStreamAudioDestinationNode, noMediaStreamAudioDestinationNode, gTypeMediaStreamAudioDestinationNode + , MediaStreamAudioSourceNode(MediaStreamAudioSourceNode), unMediaStreamAudioSourceNode, noMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode + , MediaStreamConstraints(MediaStreamConstraints), unMediaStreamConstraints, noMediaStreamConstraints, gTypeMediaStreamConstraints + , MediaStreamEvent(MediaStreamEvent), unMediaStreamEvent, noMediaStreamEvent, gTypeMediaStreamEvent + , MediaStreamEventInit(MediaStreamEventInit), unMediaStreamEventInit, noMediaStreamEventInit, gTypeMediaStreamEventInit + , MediaStreamTrack(MediaStreamTrack), unMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack, noMediaStreamTrack, gTypeMediaStreamTrack + , MediaStreamTrackEvent(MediaStreamTrackEvent), unMediaStreamTrackEvent, noMediaStreamTrackEvent, gTypeMediaStreamTrackEvent + , MediaStreamTrackEventInit(MediaStreamTrackEventInit), unMediaStreamTrackEventInit, noMediaStreamTrackEventInit, gTypeMediaStreamTrackEventInit + , MediaTrackCapabilities(MediaTrackCapabilities), unMediaTrackCapabilities, noMediaTrackCapabilities, gTypeMediaTrackCapabilities + , MediaTrackConstraintSet(MediaTrackConstraintSet), unMediaTrackConstraintSet, IsMediaTrackConstraintSet, toMediaTrackConstraintSet, noMediaTrackConstraintSet, gTypeMediaTrackConstraintSet + , MediaTrackConstraints(MediaTrackConstraints), unMediaTrackConstraints, noMediaTrackConstraints, gTypeMediaTrackConstraints + , MediaTrackSettings(MediaTrackSettings), unMediaTrackSettings, noMediaTrackSettings, gTypeMediaTrackSettings + , MediaTrackSupportedConstraints(MediaTrackSupportedConstraints), unMediaTrackSupportedConstraints, noMediaTrackSupportedConstraints, gTypeMediaTrackSupportedConstraints + , MessageChannel(MessageChannel), unMessageChannel, noMessageChannel, gTypeMessageChannel + , MessageEvent(MessageEvent), unMessageEvent, noMessageEvent, gTypeMessageEvent + , MessageEventInit(MessageEventInit), unMessageEventInit, noMessageEventInit, gTypeMessageEventInit + , MessagePort(MessagePort), unMessagePort, noMessagePort, gTypeMessagePort + , MimeType(MimeType), unMimeType, noMimeType, gTypeMimeType + , MimeTypeArray(MimeTypeArray), unMimeTypeArray, noMimeTypeArray, gTypeMimeTypeArray + , MouseEvent(MouseEvent), unMouseEvent, IsMouseEvent, toMouseEvent, noMouseEvent, gTypeMouseEvent + , MouseEventInit(MouseEventInit), unMouseEventInit, IsMouseEventInit, toMouseEventInit, noMouseEventInit, gTypeMouseEventInit + , MutationEvent(MutationEvent), unMutationEvent, noMutationEvent, gTypeMutationEvent + , MutationObserver(MutationObserver), unMutationObserver, noMutationObserver, gTypeMutationObserver + , MutationObserverInit(MutationObserverInit), unMutationObserverInit, noMutationObserverInit, gTypeMutationObserverInit + , MutationRecord(MutationRecord), unMutationRecord, noMutationRecord, gTypeMutationRecord + , NamedNodeMap(NamedNodeMap), unNamedNodeMap, noNamedNodeMap, gTypeNamedNodeMap + , Navigator(Navigator), unNavigator, noNavigator, gTypeNavigator + , NavigatorConcurrentHardware(NavigatorConcurrentHardware), unNavigatorConcurrentHardware, IsNavigatorConcurrentHardware, toNavigatorConcurrentHardware, noNavigatorConcurrentHardware, gTypeNavigatorConcurrentHardware + , NavigatorID(NavigatorID), unNavigatorID, IsNavigatorID, toNavigatorID, noNavigatorID, gTypeNavigatorID + , NavigatorLanguage(NavigatorLanguage), unNavigatorLanguage, IsNavigatorLanguage, toNavigatorLanguage, noNavigatorLanguage, gTypeNavigatorLanguage + , NavigatorOnLine(NavigatorOnLine), unNavigatorOnLine, IsNavigatorOnLine, toNavigatorOnLine, noNavigatorOnLine, gTypeNavigatorOnLine + , NavigatorUserMediaError(NavigatorUserMediaError), unNavigatorUserMediaError, noNavigatorUserMediaError, gTypeNavigatorUserMediaError + , Node(Node), unNode, IsNode, toNode, noNode, gTypeNode + , NodeIterator(NodeIterator), unNodeIterator, noNodeIterator, gTypeNodeIterator + , NodeList(NodeList), unNodeList, IsNodeList, toNodeList, noNodeList, gTypeNodeList + , NonDocumentTypeChildNode(NonDocumentTypeChildNode), unNonDocumentTypeChildNode, IsNonDocumentTypeChildNode, toNonDocumentTypeChildNode, noNonDocumentTypeChildNode, gTypeNonDocumentTypeChildNode + , NonElementParentNode(NonElementParentNode), unNonElementParentNode, IsNonElementParentNode, toNonElementParentNode, noNonElementParentNode, gTypeNonElementParentNode + , Notification(Notification), unNotification, noNotification, gTypeNotification + , NotificationOptions(NotificationOptions), unNotificationOptions, noNotificationOptions, gTypeNotificationOptions + , OESElementIndexUint(OESElementIndexUint), unOESElementIndexUint, noOESElementIndexUint, gTypeOESElementIndexUint + , OESStandardDerivatives(OESStandardDerivatives), unOESStandardDerivatives, noOESStandardDerivatives, gTypeOESStandardDerivatives + , OESTextureFloat(OESTextureFloat), unOESTextureFloat, noOESTextureFloat, gTypeOESTextureFloat + , OESTextureFloatLinear(OESTextureFloatLinear), unOESTextureFloatLinear, noOESTextureFloatLinear, gTypeOESTextureFloatLinear + , OESTextureHalfFloat(OESTextureHalfFloat), unOESTextureHalfFloat, noOESTextureHalfFloat, gTypeOESTextureHalfFloat + , OESTextureHalfFloatLinear(OESTextureHalfFloatLinear), unOESTextureHalfFloatLinear, noOESTextureHalfFloatLinear, gTypeOESTextureHalfFloatLinear + , OESVertexArrayObject(OESVertexArrayObject), unOESVertexArrayObject, noOESVertexArrayObject, gTypeOESVertexArrayObject + , OfflineAudioCompletionEvent(OfflineAudioCompletionEvent), unOfflineAudioCompletionEvent, noOfflineAudioCompletionEvent, gTypeOfflineAudioCompletionEvent + , OfflineAudioContext(OfflineAudioContext), unOfflineAudioContext, noOfflineAudioContext, gTypeOfflineAudioContext + , OscillatorNode(OscillatorNode), unOscillatorNode, noOscillatorNode, gTypeOscillatorNode + , OverconstrainedError(OverconstrainedError), unOverconstrainedError, noOverconstrainedError, gTypeOverconstrainedError + , OverconstrainedErrorEvent(OverconstrainedErrorEvent), unOverconstrainedErrorEvent, noOverconstrainedErrorEvent, gTypeOverconstrainedErrorEvent + , OverconstrainedErrorEventInit(OverconstrainedErrorEventInit), unOverconstrainedErrorEventInit, noOverconstrainedErrorEventInit, gTypeOverconstrainedErrorEventInit + , OverflowEvent(OverflowEvent), unOverflowEvent, noOverflowEvent, gTypeOverflowEvent + , OverflowEventInit(OverflowEventInit), unOverflowEventInit, noOverflowEventInit, gTypeOverflowEventInit + , PageTransitionEvent(PageTransitionEvent), unPageTransitionEvent, noPageTransitionEvent, gTypePageTransitionEvent + , PageTransitionEventInit(PageTransitionEventInit), unPageTransitionEventInit, noPageTransitionEventInit, gTypePageTransitionEventInit + , PannerNode(PannerNode), unPannerNode, noPannerNode, gTypePannerNode + , ParentNode(ParentNode), unParentNode, IsParentNode, toParentNode, noParentNode, gTypeParentNode + , PasswordCredential(PasswordCredential), unPasswordCredential, noPasswordCredential, gTypePasswordCredential + , PasswordCredentialData(PasswordCredentialData), unPasswordCredentialData, noPasswordCredentialData, gTypePasswordCredentialData + , Path2D(Path2D), unPath2D, noPath2D, gTypePath2D + , Pbkdf2Params(Pbkdf2Params), unPbkdf2Params, noPbkdf2Params, gTypePbkdf2Params + , Performance(Performance), unPerformance, noPerformance, gTypePerformance + , PerformanceEntry(PerformanceEntry), unPerformanceEntry, IsPerformanceEntry, toPerformanceEntry, noPerformanceEntry, gTypePerformanceEntry + , PerformanceMark(PerformanceMark), unPerformanceMark, noPerformanceMark, gTypePerformanceMark + , PerformanceMeasure(PerformanceMeasure), unPerformanceMeasure, noPerformanceMeasure, gTypePerformanceMeasure + , PerformanceNavigation(PerformanceNavigation), unPerformanceNavigation, noPerformanceNavigation, gTypePerformanceNavigation + , PerformanceObserver(PerformanceObserver), unPerformanceObserver, noPerformanceObserver, gTypePerformanceObserver + , PerformanceObserverEntryList(PerformanceObserverEntryList), unPerformanceObserverEntryList, noPerformanceObserverEntryList, gTypePerformanceObserverEntryList + , PerformanceObserverInit(PerformanceObserverInit), unPerformanceObserverInit, noPerformanceObserverInit, gTypePerformanceObserverInit + , PerformanceResourceTiming(PerformanceResourceTiming), unPerformanceResourceTiming, noPerformanceResourceTiming, gTypePerformanceResourceTiming + , PerformanceTiming(PerformanceTiming), unPerformanceTiming, noPerformanceTiming, gTypePerformanceTiming + , PeriodicWave(PeriodicWave), unPeriodicWave, noPeriodicWave, gTypePeriodicWave + , Plugin(Plugin), unPlugin, noPlugin, gTypePlugin + , PluginArray(PluginArray), unPluginArray, noPluginArray, gTypePluginArray + , PopStateEvent(PopStateEvent), unPopStateEvent, noPopStateEvent, gTypePopStateEvent + , PopStateEventInit(PopStateEventInit), unPopStateEventInit, noPopStateEventInit, gTypePopStateEventInit + , PositionError(PositionError), unPositionError, noPositionError, gTypePositionError + , PositionOptions(PositionOptions), unPositionOptions, noPositionOptions, gTypePositionOptions + , ProcessingInstruction(ProcessingInstruction), unProcessingInstruction, noProcessingInstruction, gTypeProcessingInstruction + , ProgressEvent(ProgressEvent), unProgressEvent, IsProgressEvent, toProgressEvent, noProgressEvent, gTypeProgressEvent + , ProgressEventInit(ProgressEventInit), unProgressEventInit, noProgressEventInit, gTypeProgressEventInit + , PromiseRejectionEvent(PromiseRejectionEvent), unPromiseRejectionEvent, noPromiseRejectionEvent, gTypePromiseRejectionEvent + , PromiseRejectionEventInit(PromiseRejectionEventInit), unPromiseRejectionEventInit, noPromiseRejectionEventInit, gTypePromiseRejectionEventInit + , QuickTimePluginReplacement(QuickTimePluginReplacement), unQuickTimePluginReplacement, noQuickTimePluginReplacement, gTypeQuickTimePluginReplacement + , RGBColor(RGBColor), unRGBColor, noRGBColor, gTypeRGBColor + , RTCAnswerOptions(RTCAnswerOptions), unRTCAnswerOptions, noRTCAnswerOptions, gTypeRTCAnswerOptions + , RTCConfiguration(RTCConfiguration), unRTCConfiguration, noRTCConfiguration, gTypeRTCConfiguration + , RTCDTMFSender(RTCDTMFSender), unRTCDTMFSender, noRTCDTMFSender, gTypeRTCDTMFSender + , RTCDTMFToneChangeEvent(RTCDTMFToneChangeEvent), unRTCDTMFToneChangeEvent, noRTCDTMFToneChangeEvent, gTypeRTCDTMFToneChangeEvent + , RTCDTMFToneChangeEventInit(RTCDTMFToneChangeEventInit), unRTCDTMFToneChangeEventInit, noRTCDTMFToneChangeEventInit, gTypeRTCDTMFToneChangeEventInit + , RTCDataChannel(RTCDataChannel), unRTCDataChannel, noRTCDataChannel, gTypeRTCDataChannel + , RTCDataChannelEvent(RTCDataChannelEvent), unRTCDataChannelEvent, noRTCDataChannelEvent, gTypeRTCDataChannelEvent + , RTCDataChannelEventInit(RTCDataChannelEventInit), unRTCDataChannelEventInit, noRTCDataChannelEventInit, gTypeRTCDataChannelEventInit + , RTCDataChannelInit(RTCDataChannelInit), unRTCDataChannelInit, noRTCDataChannelInit, gTypeRTCDataChannelInit + , RTCDataChannelStats(RTCDataChannelStats), unRTCDataChannelStats, noRTCDataChannelStats, gTypeRTCDataChannelStats + , RTCIceCandidate(RTCIceCandidate), unRTCIceCandidate, noRTCIceCandidate, gTypeRTCIceCandidate + , RTCIceCandidateEvent(RTCIceCandidateEvent), unRTCIceCandidateEvent, noRTCIceCandidateEvent, gTypeRTCIceCandidateEvent + , RTCIceCandidateInit(RTCIceCandidateInit), unRTCIceCandidateInit, noRTCIceCandidateInit, gTypeRTCIceCandidateInit + , RTCIceServer(RTCIceServer), unRTCIceServer, noRTCIceServer, gTypeRTCIceServer + , RTCIceTransport(RTCIceTransport), unRTCIceTransport, noRTCIceTransport, gTypeRTCIceTransport + , RTCInboundRTPStreamStats(RTCInboundRTPStreamStats), unRTCInboundRTPStreamStats, noRTCInboundRTPStreamStats, gTypeRTCInboundRTPStreamStats + , RTCMediaStreamTrackStats(RTCMediaStreamTrackStats), unRTCMediaStreamTrackStats, noRTCMediaStreamTrackStats, gTypeRTCMediaStreamTrackStats + , RTCOfferAnswerOptions(RTCOfferAnswerOptions), unRTCOfferAnswerOptions, IsRTCOfferAnswerOptions, toRTCOfferAnswerOptions, noRTCOfferAnswerOptions, gTypeRTCOfferAnswerOptions + , RTCOfferOptions(RTCOfferOptions), unRTCOfferOptions, noRTCOfferOptions, gTypeRTCOfferOptions + , RTCOutboundRTPStreamStats(RTCOutboundRTPStreamStats), unRTCOutboundRTPStreamStats, noRTCOutboundRTPStreamStats, gTypeRTCOutboundRTPStreamStats + , RTCPeerConnection(RTCPeerConnection), unRTCPeerConnection, noRTCPeerConnection, gTypeRTCPeerConnection + , RTCPeerConnectionIceEvent(RTCPeerConnectionIceEvent), unRTCPeerConnectionIceEvent, noRTCPeerConnectionIceEvent, gTypeRTCPeerConnectionIceEvent + , RTCRTPStreamStats(RTCRTPStreamStats), unRTCRTPStreamStats, IsRTCRTPStreamStats, toRTCRTPStreamStats, noRTCRTPStreamStats, gTypeRTCRTPStreamStats + , RTCRtpCodecParameters(RTCRtpCodecParameters), unRTCRtpCodecParameters, noRTCRtpCodecParameters, gTypeRTCRtpCodecParameters + , RTCRtpEncodingParameters(RTCRtpEncodingParameters), unRTCRtpEncodingParameters, noRTCRtpEncodingParameters, gTypeRTCRtpEncodingParameters + , RTCRtpFecParameters(RTCRtpFecParameters), unRTCRtpFecParameters, noRTCRtpFecParameters, gTypeRTCRtpFecParameters + , RTCRtpHeaderExtensionParameters(RTCRtpHeaderExtensionParameters), unRTCRtpHeaderExtensionParameters, noRTCRtpHeaderExtensionParameters, gTypeRTCRtpHeaderExtensionParameters + , RTCRtpParameters(RTCRtpParameters), unRTCRtpParameters, noRTCRtpParameters, gTypeRTCRtpParameters + , RTCRtpReceiver(RTCRtpReceiver), unRTCRtpReceiver, noRTCRtpReceiver, gTypeRTCRtpReceiver + , RTCRtpRtxParameters(RTCRtpRtxParameters), unRTCRtpRtxParameters, noRTCRtpRtxParameters, gTypeRTCRtpRtxParameters + , RTCRtpSender(RTCRtpSender), unRTCRtpSender, noRTCRtpSender, gTypeRTCRtpSender + , RTCRtpTransceiver(RTCRtpTransceiver), unRTCRtpTransceiver, noRTCRtpTransceiver, gTypeRTCRtpTransceiver + , RTCRtpTransceiverInit(RTCRtpTransceiverInit), unRTCRtpTransceiverInit, noRTCRtpTransceiverInit, gTypeRTCRtpTransceiverInit + , RTCSessionDescription(RTCSessionDescription), unRTCSessionDescription, noRTCSessionDescription, gTypeRTCSessionDescription + , RTCSessionDescriptionInit(RTCSessionDescriptionInit), unRTCSessionDescriptionInit, noRTCSessionDescriptionInit, gTypeRTCSessionDescriptionInit + , RTCStats(RTCStats), unRTCStats, IsRTCStats, toRTCStats, noRTCStats, gTypeRTCStats + , RTCStatsReport(RTCStatsReport), unRTCStatsReport, noRTCStatsReport, gTypeRTCStatsReport + , RTCTrackEvent(RTCTrackEvent), unRTCTrackEvent, noRTCTrackEvent, gTypeRTCTrackEvent + , RTCTrackEventInit(RTCTrackEventInit), unRTCTrackEventInit, noRTCTrackEventInit, gTypeRTCTrackEventInit + , RadioNodeList(RadioNodeList), unRadioNodeList, noRadioNodeList, gTypeRadioNodeList + , Range(Range), unRange, noRange, gTypeRange + , ReadableByteStreamController(ReadableByteStreamController), unReadableByteStreamController, noReadableByteStreamController, gTypeReadableByteStreamController + , ReadableStream(ReadableStream), unReadableStream, noReadableStream, gTypeReadableStream + , ReadableStreamBYOBReader(ReadableStreamBYOBReader), unReadableStreamBYOBReader, noReadableStreamBYOBReader, gTypeReadableStreamBYOBReader + , ReadableStreamBYOBRequest(ReadableStreamBYOBRequest), unReadableStreamBYOBRequest, noReadableStreamBYOBRequest, gTypeReadableStreamBYOBRequest + , ReadableStreamDefaultController(ReadableStreamDefaultController), unReadableStreamDefaultController, noReadableStreamDefaultController, gTypeReadableStreamDefaultController + , ReadableStreamDefaultReader(ReadableStreamDefaultReader), unReadableStreamDefaultReader, noReadableStreamDefaultReader, gTypeReadableStreamDefaultReader + , ReadableStreamSource(ReadableStreamSource), unReadableStreamSource, noReadableStreamSource, gTypeReadableStreamSource + , Rect(Rect), unRect, noRect, gTypeRect + , Request(Request), unRequest, noRequest, gTypeRequest + , RequestInit(RequestInit), unRequestInit, noRequestInit, gTypeRequestInit + , Response(Response), unResponse, noResponse, gTypeResponse + , RotationRate(RotationRate), unRotationRate, noRotationRate, gTypeRotationRate + , RsaHashedImportParams(RsaHashedImportParams), unRsaHashedImportParams, noRsaHashedImportParams, gTypeRsaHashedImportParams + , RsaHashedKeyGenParams(RsaHashedKeyGenParams), unRsaHashedKeyGenParams, noRsaHashedKeyGenParams, gTypeRsaHashedKeyGenParams + , RsaKeyGenParams(RsaKeyGenParams), unRsaKeyGenParams, IsRsaKeyGenParams, toRsaKeyGenParams, noRsaKeyGenParams, gTypeRsaKeyGenParams + , RsaOaepParams(RsaOaepParams), unRsaOaepParams, noRsaOaepParams, gTypeRsaOaepParams + , RsaOtherPrimesInfo(RsaOtherPrimesInfo), unRsaOtherPrimesInfo, noRsaOtherPrimesInfo, gTypeRsaOtherPrimesInfo + , SQLError(SQLError), unSQLError, noSQLError, gTypeSQLError + , SQLException(SQLException), unSQLException, noSQLException, gTypeSQLException + , SQLResultSet(SQLResultSet), unSQLResultSet, noSQLResultSet, gTypeSQLResultSet + , SQLResultSetRowList(SQLResultSetRowList), unSQLResultSetRowList, noSQLResultSetRowList, gTypeSQLResultSetRowList + , SQLTransaction(SQLTransaction), unSQLTransaction, noSQLTransaction, gTypeSQLTransaction + , SVGAElement(SVGAElement), unSVGAElement, noSVGAElement, gTypeSVGAElement + , SVGAltGlyphDefElement(SVGAltGlyphDefElement), unSVGAltGlyphDefElement, noSVGAltGlyphDefElement, gTypeSVGAltGlyphDefElement + , SVGAltGlyphElement(SVGAltGlyphElement), unSVGAltGlyphElement, noSVGAltGlyphElement, gTypeSVGAltGlyphElement + , SVGAltGlyphItemElement(SVGAltGlyphItemElement), unSVGAltGlyphItemElement, noSVGAltGlyphItemElement, gTypeSVGAltGlyphItemElement + , SVGAngle(SVGAngle), unSVGAngle, noSVGAngle, gTypeSVGAngle + , SVGAnimateColorElement(SVGAnimateColorElement), unSVGAnimateColorElement, noSVGAnimateColorElement, gTypeSVGAnimateColorElement + , SVGAnimateElement(SVGAnimateElement), unSVGAnimateElement, noSVGAnimateElement, gTypeSVGAnimateElement + , SVGAnimateMotionElement(SVGAnimateMotionElement), unSVGAnimateMotionElement, noSVGAnimateMotionElement, gTypeSVGAnimateMotionElement + , SVGAnimateTransformElement(SVGAnimateTransformElement), unSVGAnimateTransformElement, noSVGAnimateTransformElement, gTypeSVGAnimateTransformElement + , SVGAnimatedAngle(SVGAnimatedAngle), unSVGAnimatedAngle, noSVGAnimatedAngle, gTypeSVGAnimatedAngle + , SVGAnimatedBoolean(SVGAnimatedBoolean), unSVGAnimatedBoolean, noSVGAnimatedBoolean, gTypeSVGAnimatedBoolean + , SVGAnimatedEnumeration(SVGAnimatedEnumeration), unSVGAnimatedEnumeration, noSVGAnimatedEnumeration, gTypeSVGAnimatedEnumeration + , SVGAnimatedInteger(SVGAnimatedInteger), unSVGAnimatedInteger, noSVGAnimatedInteger, gTypeSVGAnimatedInteger + , SVGAnimatedLength(SVGAnimatedLength), unSVGAnimatedLength, noSVGAnimatedLength, gTypeSVGAnimatedLength + , SVGAnimatedLengthList(SVGAnimatedLengthList), unSVGAnimatedLengthList, noSVGAnimatedLengthList, gTypeSVGAnimatedLengthList + , SVGAnimatedNumber(SVGAnimatedNumber), unSVGAnimatedNumber, noSVGAnimatedNumber, gTypeSVGAnimatedNumber + , SVGAnimatedNumberList(SVGAnimatedNumberList), unSVGAnimatedNumberList, noSVGAnimatedNumberList, gTypeSVGAnimatedNumberList + , SVGAnimatedPreserveAspectRatio(SVGAnimatedPreserveAspectRatio), unSVGAnimatedPreserveAspectRatio, noSVGAnimatedPreserveAspectRatio, gTypeSVGAnimatedPreserveAspectRatio + , SVGAnimatedRect(SVGAnimatedRect), unSVGAnimatedRect, noSVGAnimatedRect, gTypeSVGAnimatedRect + , SVGAnimatedString(SVGAnimatedString), unSVGAnimatedString, noSVGAnimatedString, gTypeSVGAnimatedString + , SVGAnimatedTransformList(SVGAnimatedTransformList), unSVGAnimatedTransformList, noSVGAnimatedTransformList, gTypeSVGAnimatedTransformList + , SVGAnimationElement(SVGAnimationElement), unSVGAnimationElement, IsSVGAnimationElement, toSVGAnimationElement, noSVGAnimationElement, gTypeSVGAnimationElement + , SVGCircleElement(SVGCircleElement), unSVGCircleElement, noSVGCircleElement, gTypeSVGCircleElement + , SVGClipPathElement(SVGClipPathElement), unSVGClipPathElement, noSVGClipPathElement, gTypeSVGClipPathElement + , SVGComponentTransferFunctionElement(SVGComponentTransferFunctionElement), unSVGComponentTransferFunctionElement, IsSVGComponentTransferFunctionElement, toSVGComponentTransferFunctionElement, noSVGComponentTransferFunctionElement, gTypeSVGComponentTransferFunctionElement + , SVGCursorElement(SVGCursorElement), unSVGCursorElement, noSVGCursorElement, gTypeSVGCursorElement + , SVGDefsElement(SVGDefsElement), unSVGDefsElement, noSVGDefsElement, gTypeSVGDefsElement + , SVGDescElement(SVGDescElement), unSVGDescElement, noSVGDescElement, gTypeSVGDescElement + , SVGElement(SVGElement), unSVGElement, IsSVGElement, toSVGElement, noSVGElement, gTypeSVGElement + , SVGEllipseElement(SVGEllipseElement), unSVGEllipseElement, noSVGEllipseElement, gTypeSVGEllipseElement + , SVGException(SVGException), unSVGException, noSVGException, gTypeSVGException + , SVGExternalResourcesRequired(SVGExternalResourcesRequired), unSVGExternalResourcesRequired, IsSVGExternalResourcesRequired, toSVGExternalResourcesRequired, noSVGExternalResourcesRequired, gTypeSVGExternalResourcesRequired + , SVGFEBlendElement(SVGFEBlendElement), unSVGFEBlendElement, noSVGFEBlendElement, gTypeSVGFEBlendElement + , SVGFEColorMatrixElement(SVGFEColorMatrixElement), unSVGFEColorMatrixElement, noSVGFEColorMatrixElement, gTypeSVGFEColorMatrixElement + , SVGFEComponentTransferElement(SVGFEComponentTransferElement), unSVGFEComponentTransferElement, noSVGFEComponentTransferElement, gTypeSVGFEComponentTransferElement + , SVGFECompositeElement(SVGFECompositeElement), unSVGFECompositeElement, noSVGFECompositeElement, gTypeSVGFECompositeElement + , SVGFEConvolveMatrixElement(SVGFEConvolveMatrixElement), unSVGFEConvolveMatrixElement, noSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement + , SVGFEDiffuseLightingElement(SVGFEDiffuseLightingElement), unSVGFEDiffuseLightingElement, noSVGFEDiffuseLightingElement, gTypeSVGFEDiffuseLightingElement + , SVGFEDisplacementMapElement(SVGFEDisplacementMapElement), unSVGFEDisplacementMapElement, noSVGFEDisplacementMapElement, gTypeSVGFEDisplacementMapElement + , SVGFEDistantLightElement(SVGFEDistantLightElement), unSVGFEDistantLightElement, noSVGFEDistantLightElement, gTypeSVGFEDistantLightElement + , SVGFEDropShadowElement(SVGFEDropShadowElement), unSVGFEDropShadowElement, noSVGFEDropShadowElement, gTypeSVGFEDropShadowElement + , SVGFEFloodElement(SVGFEFloodElement), unSVGFEFloodElement, noSVGFEFloodElement, gTypeSVGFEFloodElement + , SVGFEFuncAElement(SVGFEFuncAElement), unSVGFEFuncAElement, noSVGFEFuncAElement, gTypeSVGFEFuncAElement + , SVGFEFuncBElement(SVGFEFuncBElement), unSVGFEFuncBElement, noSVGFEFuncBElement, gTypeSVGFEFuncBElement + , SVGFEFuncGElement(SVGFEFuncGElement), unSVGFEFuncGElement, noSVGFEFuncGElement, gTypeSVGFEFuncGElement + , SVGFEFuncRElement(SVGFEFuncRElement), unSVGFEFuncRElement, noSVGFEFuncRElement, gTypeSVGFEFuncRElement + , SVGFEGaussianBlurElement(SVGFEGaussianBlurElement), unSVGFEGaussianBlurElement, noSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement + , SVGFEImageElement(SVGFEImageElement), unSVGFEImageElement, noSVGFEImageElement, gTypeSVGFEImageElement + , SVGFEMergeElement(SVGFEMergeElement), unSVGFEMergeElement, noSVGFEMergeElement, gTypeSVGFEMergeElement + , SVGFEMergeNodeElement(SVGFEMergeNodeElement), unSVGFEMergeNodeElement, noSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement + , SVGFEMorphologyElement(SVGFEMorphologyElement), unSVGFEMorphologyElement, noSVGFEMorphologyElement, gTypeSVGFEMorphologyElement + , SVGFEOffsetElement(SVGFEOffsetElement), unSVGFEOffsetElement, noSVGFEOffsetElement, gTypeSVGFEOffsetElement + , SVGFEPointLightElement(SVGFEPointLightElement), unSVGFEPointLightElement, noSVGFEPointLightElement, gTypeSVGFEPointLightElement + , SVGFESpecularLightingElement(SVGFESpecularLightingElement), unSVGFESpecularLightingElement, noSVGFESpecularLightingElement, gTypeSVGFESpecularLightingElement + , SVGFESpotLightElement(SVGFESpotLightElement), unSVGFESpotLightElement, noSVGFESpotLightElement, gTypeSVGFESpotLightElement + , SVGFETileElement(SVGFETileElement), unSVGFETileElement, noSVGFETileElement, gTypeSVGFETileElement + , SVGFETurbulenceElement(SVGFETurbulenceElement), unSVGFETurbulenceElement, noSVGFETurbulenceElement, gTypeSVGFETurbulenceElement + , SVGFilterElement(SVGFilterElement), unSVGFilterElement, noSVGFilterElement, gTypeSVGFilterElement + , SVGFilterPrimitiveStandardAttributes(SVGFilterPrimitiveStandardAttributes), unSVGFilterPrimitiveStandardAttributes, IsSVGFilterPrimitiveStandardAttributes, toSVGFilterPrimitiveStandardAttributes, noSVGFilterPrimitiveStandardAttributes, gTypeSVGFilterPrimitiveStandardAttributes + , SVGFitToViewBox(SVGFitToViewBox), unSVGFitToViewBox, IsSVGFitToViewBox, toSVGFitToViewBox, noSVGFitToViewBox, gTypeSVGFitToViewBox + , SVGFontElement(SVGFontElement), unSVGFontElement, noSVGFontElement, gTypeSVGFontElement + , SVGFontFaceElement(SVGFontFaceElement), unSVGFontFaceElement, noSVGFontFaceElement, gTypeSVGFontFaceElement + , SVGFontFaceFormatElement(SVGFontFaceFormatElement), unSVGFontFaceFormatElement, noSVGFontFaceFormatElement, gTypeSVGFontFaceFormatElement + , SVGFontFaceNameElement(SVGFontFaceNameElement), unSVGFontFaceNameElement, noSVGFontFaceNameElement, gTypeSVGFontFaceNameElement + , SVGFontFaceSrcElement(SVGFontFaceSrcElement), unSVGFontFaceSrcElement, noSVGFontFaceSrcElement, gTypeSVGFontFaceSrcElement + , SVGFontFaceUriElement(SVGFontFaceUriElement), unSVGFontFaceUriElement, noSVGFontFaceUriElement, gTypeSVGFontFaceUriElement + , SVGForeignObjectElement(SVGForeignObjectElement), unSVGForeignObjectElement, noSVGForeignObjectElement, gTypeSVGForeignObjectElement + , SVGGElement(SVGGElement), unSVGGElement, noSVGGElement, gTypeSVGGElement + , SVGGlyphElement(SVGGlyphElement), unSVGGlyphElement, noSVGGlyphElement, gTypeSVGGlyphElement + , SVGGlyphRefElement(SVGGlyphRefElement), unSVGGlyphRefElement, noSVGGlyphRefElement, gTypeSVGGlyphRefElement + , SVGGradientElement(SVGGradientElement), unSVGGradientElement, IsSVGGradientElement, toSVGGradientElement, noSVGGradientElement, gTypeSVGGradientElement + , SVGGraphicsElement(SVGGraphicsElement), unSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement, noSVGGraphicsElement, gTypeSVGGraphicsElement + , SVGHKernElement(SVGHKernElement), unSVGHKernElement, noSVGHKernElement, gTypeSVGHKernElement + , SVGImageElement(SVGImageElement), unSVGImageElement, noSVGImageElement, gTypeSVGImageElement + , SVGLength(SVGLength), unSVGLength, noSVGLength, gTypeSVGLength + , SVGLengthList(SVGLengthList), unSVGLengthList, noSVGLengthList, gTypeSVGLengthList + , SVGLineElement(SVGLineElement), unSVGLineElement, noSVGLineElement, gTypeSVGLineElement + , SVGLinearGradientElement(SVGLinearGradientElement), unSVGLinearGradientElement, noSVGLinearGradientElement, gTypeSVGLinearGradientElement + , SVGMPathElement(SVGMPathElement), unSVGMPathElement, noSVGMPathElement, gTypeSVGMPathElement + , SVGMarkerElement(SVGMarkerElement), unSVGMarkerElement, noSVGMarkerElement, gTypeSVGMarkerElement + , SVGMaskElement(SVGMaskElement), unSVGMaskElement, noSVGMaskElement, gTypeSVGMaskElement + , SVGMatrix(SVGMatrix), unSVGMatrix, noSVGMatrix, gTypeSVGMatrix + , SVGMetadataElement(SVGMetadataElement), unSVGMetadataElement, noSVGMetadataElement, gTypeSVGMetadataElement + , SVGMissingGlyphElement(SVGMissingGlyphElement), unSVGMissingGlyphElement, noSVGMissingGlyphElement, gTypeSVGMissingGlyphElement + , SVGNumber(SVGNumber), unSVGNumber, noSVGNumber, gTypeSVGNumber + , SVGNumberList(SVGNumberList), unSVGNumberList, noSVGNumberList, gTypeSVGNumberList + , SVGPathElement(SVGPathElement), unSVGPathElement, noSVGPathElement, gTypeSVGPathElement + , SVGPathSeg(SVGPathSeg), unSVGPathSeg, IsSVGPathSeg, toSVGPathSeg, noSVGPathSeg, gTypeSVGPathSeg + , SVGPathSegArcAbs(SVGPathSegArcAbs), unSVGPathSegArcAbs, noSVGPathSegArcAbs, gTypeSVGPathSegArcAbs + , SVGPathSegArcRel(SVGPathSegArcRel), unSVGPathSegArcRel, noSVGPathSegArcRel, gTypeSVGPathSegArcRel + , SVGPathSegClosePath(SVGPathSegClosePath), unSVGPathSegClosePath, noSVGPathSegClosePath, gTypeSVGPathSegClosePath + , SVGPathSegCurvetoCubicAbs(SVGPathSegCurvetoCubicAbs), unSVGPathSegCurvetoCubicAbs, noSVGPathSegCurvetoCubicAbs, gTypeSVGPathSegCurvetoCubicAbs + , SVGPathSegCurvetoCubicRel(SVGPathSegCurvetoCubicRel), unSVGPathSegCurvetoCubicRel, noSVGPathSegCurvetoCubicRel, gTypeSVGPathSegCurvetoCubicRel + , SVGPathSegCurvetoCubicSmoothAbs(SVGPathSegCurvetoCubicSmoothAbs), unSVGPathSegCurvetoCubicSmoothAbs, noSVGPathSegCurvetoCubicSmoothAbs, gTypeSVGPathSegCurvetoCubicSmoothAbs + , SVGPathSegCurvetoCubicSmoothRel(SVGPathSegCurvetoCubicSmoothRel), unSVGPathSegCurvetoCubicSmoothRel, noSVGPathSegCurvetoCubicSmoothRel, gTypeSVGPathSegCurvetoCubicSmoothRel + , SVGPathSegCurvetoQuadraticAbs(SVGPathSegCurvetoQuadraticAbs), unSVGPathSegCurvetoQuadraticAbs, noSVGPathSegCurvetoQuadraticAbs, gTypeSVGPathSegCurvetoQuadraticAbs + , SVGPathSegCurvetoQuadraticRel(SVGPathSegCurvetoQuadraticRel), unSVGPathSegCurvetoQuadraticRel, noSVGPathSegCurvetoQuadraticRel, gTypeSVGPathSegCurvetoQuadraticRel + , SVGPathSegCurvetoQuadraticSmoothAbs(SVGPathSegCurvetoQuadraticSmoothAbs), unSVGPathSegCurvetoQuadraticSmoothAbs, noSVGPathSegCurvetoQuadraticSmoothAbs, gTypeSVGPathSegCurvetoQuadraticSmoothAbs + , SVGPathSegCurvetoQuadraticSmoothRel(SVGPathSegCurvetoQuadraticSmoothRel), unSVGPathSegCurvetoQuadraticSmoothRel, noSVGPathSegCurvetoQuadraticSmoothRel, gTypeSVGPathSegCurvetoQuadraticSmoothRel + , SVGPathSegLinetoAbs(SVGPathSegLinetoAbs), unSVGPathSegLinetoAbs, noSVGPathSegLinetoAbs, gTypeSVGPathSegLinetoAbs + , SVGPathSegLinetoHorizontalAbs(SVGPathSegLinetoHorizontalAbs), unSVGPathSegLinetoHorizontalAbs, noSVGPathSegLinetoHorizontalAbs, gTypeSVGPathSegLinetoHorizontalAbs + , SVGPathSegLinetoHorizontalRel(SVGPathSegLinetoHorizontalRel), unSVGPathSegLinetoHorizontalRel, noSVGPathSegLinetoHorizontalRel, gTypeSVGPathSegLinetoHorizontalRel + , SVGPathSegLinetoRel(SVGPathSegLinetoRel), unSVGPathSegLinetoRel, noSVGPathSegLinetoRel, gTypeSVGPathSegLinetoRel + , SVGPathSegLinetoVerticalAbs(SVGPathSegLinetoVerticalAbs), unSVGPathSegLinetoVerticalAbs, noSVGPathSegLinetoVerticalAbs, gTypeSVGPathSegLinetoVerticalAbs + , SVGPathSegLinetoVerticalRel(SVGPathSegLinetoVerticalRel), unSVGPathSegLinetoVerticalRel, noSVGPathSegLinetoVerticalRel, gTypeSVGPathSegLinetoVerticalRel + , SVGPathSegList(SVGPathSegList), unSVGPathSegList, noSVGPathSegList, gTypeSVGPathSegList + , SVGPathSegMovetoAbs(SVGPathSegMovetoAbs), unSVGPathSegMovetoAbs, noSVGPathSegMovetoAbs, gTypeSVGPathSegMovetoAbs + , SVGPathSegMovetoRel(SVGPathSegMovetoRel), unSVGPathSegMovetoRel, noSVGPathSegMovetoRel, gTypeSVGPathSegMovetoRel + , SVGPatternElement(SVGPatternElement), unSVGPatternElement, noSVGPatternElement, gTypeSVGPatternElement + , SVGPoint(SVGPoint), unSVGPoint, noSVGPoint, gTypeSVGPoint + , SVGPointList(SVGPointList), unSVGPointList, noSVGPointList, gTypeSVGPointList + , SVGPolygonElement(SVGPolygonElement), unSVGPolygonElement, noSVGPolygonElement, gTypeSVGPolygonElement + , SVGPolylineElement(SVGPolylineElement), unSVGPolylineElement, noSVGPolylineElement, gTypeSVGPolylineElement + , SVGPreserveAspectRatio(SVGPreserveAspectRatio), unSVGPreserveAspectRatio, noSVGPreserveAspectRatio, gTypeSVGPreserveAspectRatio + , SVGRadialGradientElement(SVGRadialGradientElement), unSVGRadialGradientElement, noSVGRadialGradientElement, gTypeSVGRadialGradientElement + , SVGRect(SVGRect), unSVGRect, noSVGRect, gTypeSVGRect + , SVGRectElement(SVGRectElement), unSVGRectElement, noSVGRectElement, gTypeSVGRectElement + , SVGRenderingIntent(SVGRenderingIntent), unSVGRenderingIntent, noSVGRenderingIntent, gTypeSVGRenderingIntent + , SVGSVGElement(SVGSVGElement), unSVGSVGElement, noSVGSVGElement, gTypeSVGSVGElement + , SVGScriptElement(SVGScriptElement), unSVGScriptElement, noSVGScriptElement, gTypeSVGScriptElement + , SVGSetElement(SVGSetElement), unSVGSetElement, noSVGSetElement, gTypeSVGSetElement + , SVGStopElement(SVGStopElement), unSVGStopElement, noSVGStopElement, gTypeSVGStopElement + , SVGStringList(SVGStringList), unSVGStringList, noSVGStringList, gTypeSVGStringList + , SVGStyleElement(SVGStyleElement), unSVGStyleElement, noSVGStyleElement, gTypeSVGStyleElement + , SVGSwitchElement(SVGSwitchElement), unSVGSwitchElement, noSVGSwitchElement, gTypeSVGSwitchElement + , SVGSymbolElement(SVGSymbolElement), unSVGSymbolElement, noSVGSymbolElement, gTypeSVGSymbolElement + , SVGTRefElement(SVGTRefElement), unSVGTRefElement, noSVGTRefElement, gTypeSVGTRefElement + , SVGTSpanElement(SVGTSpanElement), unSVGTSpanElement, noSVGTSpanElement, gTypeSVGTSpanElement + , SVGTests(SVGTests), unSVGTests, IsSVGTests, toSVGTests, noSVGTests, gTypeSVGTests + , SVGTextContentElement(SVGTextContentElement), unSVGTextContentElement, IsSVGTextContentElement, toSVGTextContentElement, noSVGTextContentElement, gTypeSVGTextContentElement + , SVGTextElement(SVGTextElement), unSVGTextElement, noSVGTextElement, gTypeSVGTextElement + , SVGTextPathElement(SVGTextPathElement), unSVGTextPathElement, noSVGTextPathElement, gTypeSVGTextPathElement + , SVGTextPositioningElement(SVGTextPositioningElement), unSVGTextPositioningElement, IsSVGTextPositioningElement, toSVGTextPositioningElement, noSVGTextPositioningElement, gTypeSVGTextPositioningElement + , SVGTitleElement(SVGTitleElement), unSVGTitleElement, noSVGTitleElement, gTypeSVGTitleElement + , SVGTransform(SVGTransform), unSVGTransform, noSVGTransform, gTypeSVGTransform + , SVGTransformList(SVGTransformList), unSVGTransformList, noSVGTransformList, gTypeSVGTransformList + , SVGURIReference(SVGURIReference), unSVGURIReference, IsSVGURIReference, toSVGURIReference, noSVGURIReference, gTypeSVGURIReference + , SVGUnitTypes(SVGUnitTypes), unSVGUnitTypes, noSVGUnitTypes, gTypeSVGUnitTypes + , SVGUseElement(SVGUseElement), unSVGUseElement, noSVGUseElement, gTypeSVGUseElement + , SVGVKernElement(SVGVKernElement), unSVGVKernElement, noSVGVKernElement, gTypeSVGVKernElement + , SVGViewElement(SVGViewElement), unSVGViewElement, noSVGViewElement, gTypeSVGViewElement + , SVGViewSpec(SVGViewSpec), unSVGViewSpec, noSVGViewSpec, gTypeSVGViewSpec + , SVGZoomAndPan(SVGZoomAndPan), unSVGZoomAndPan, IsSVGZoomAndPan, toSVGZoomAndPan, noSVGZoomAndPan, gTypeSVGZoomAndPan + , SVGZoomEvent(SVGZoomEvent), unSVGZoomEvent, noSVGZoomEvent, gTypeSVGZoomEvent + , Screen(Screen), unScreen, noScreen, gTypeScreen + , ScriptProcessorNode(ScriptProcessorNode), unScriptProcessorNode, noScriptProcessorNode, gTypeScriptProcessorNode + , ScrollToOptions(ScrollToOptions), unScrollToOptions, noScrollToOptions, gTypeScrollToOptions + , SecurityPolicyViolationEvent(SecurityPolicyViolationEvent), unSecurityPolicyViolationEvent, noSecurityPolicyViolationEvent, gTypeSecurityPolicyViolationEvent + , SecurityPolicyViolationEventInit(SecurityPolicyViolationEventInit), unSecurityPolicyViolationEventInit, noSecurityPolicyViolationEventInit, gTypeSecurityPolicyViolationEventInit + , Selection(Selection), unSelection, noSelection, gTypeSelection + , ShadowRoot(ShadowRoot), unShadowRoot, noShadowRoot, gTypeShadowRoot + , ShadowRootInit(ShadowRootInit), unShadowRootInit, noShadowRootInit, gTypeShadowRootInit + , SiteBoundCredential(SiteBoundCredential), unSiteBoundCredential, IsSiteBoundCredential, toSiteBoundCredential, noSiteBoundCredential, gTypeSiteBoundCredential + , SiteBoundCredentialData(SiteBoundCredentialData), unSiteBoundCredentialData, IsSiteBoundCredentialData, toSiteBoundCredentialData, noSiteBoundCredentialData, gTypeSiteBoundCredentialData + , Slotable(Slotable), unSlotable, IsSlotable, toSlotable, noSlotable, gTypeSlotable + , SourceBuffer(SourceBuffer), unSourceBuffer, noSourceBuffer, gTypeSourceBuffer + , SourceBufferList(SourceBufferList), unSourceBufferList, noSourceBufferList, gTypeSourceBufferList + , SpeechSynthesis(SpeechSynthesis), unSpeechSynthesis, noSpeechSynthesis, gTypeSpeechSynthesis + , SpeechSynthesisEvent(SpeechSynthesisEvent), unSpeechSynthesisEvent, noSpeechSynthesisEvent, gTypeSpeechSynthesisEvent + , SpeechSynthesisUtterance(SpeechSynthesisUtterance), unSpeechSynthesisUtterance, noSpeechSynthesisUtterance, gTypeSpeechSynthesisUtterance + , SpeechSynthesisVoice(SpeechSynthesisVoice), unSpeechSynthesisVoice, noSpeechSynthesisVoice, gTypeSpeechSynthesisVoice + , StaticRange(StaticRange), unStaticRange, noStaticRange, gTypeStaticRange + , Storage(Storage), unStorage, noStorage, gTypeStorage + , StorageEvent(StorageEvent), unStorageEvent, noStorageEvent, gTypeStorageEvent + , StorageEventInit(StorageEventInit), unStorageEventInit, noStorageEventInit, gTypeStorageEventInit + , StorageInfo(StorageInfo), unStorageInfo, noStorageInfo, gTypeStorageInfo + , StorageQuota(StorageQuota), unStorageQuota, noStorageQuota, gTypeStorageQuota + , StyleMedia(StyleMedia), unStyleMedia, noStyleMedia, gTypeStyleMedia + , StyleSheet(StyleSheet), unStyleSheet, IsStyleSheet, toStyleSheet, noStyleSheet, gTypeStyleSheet + , StyleSheetList(StyleSheetList), unStyleSheetList, noStyleSheetList, gTypeStyleSheetList + , SubtleCrypto(SubtleCrypto), unSubtleCrypto, noSubtleCrypto, gTypeSubtleCrypto + , Text(Text), unText, IsText, toText, noText, gTypeText + , TextDecodeOptions(TextDecodeOptions), unTextDecodeOptions, noTextDecodeOptions, gTypeTextDecodeOptions + , TextDecoder(TextDecoder), unTextDecoder, noTextDecoder, gTypeTextDecoder + , TextDecoderOptions(TextDecoderOptions), unTextDecoderOptions, noTextDecoderOptions, gTypeTextDecoderOptions + , TextEncoder(TextEncoder), unTextEncoder, noTextEncoder, gTypeTextEncoder + , TextEvent(TextEvent), unTextEvent, noTextEvent, gTypeTextEvent + , TextMetrics(TextMetrics), unTextMetrics, noTextMetrics, gTypeTextMetrics + , TextTrack(TextTrack), unTextTrack, noTextTrack, gTypeTextTrack + , TextTrackCue(TextTrackCue), unTextTrackCue, IsTextTrackCue, toTextTrackCue, noTextTrackCue, gTypeTextTrackCue + , TextTrackCueList(TextTrackCueList), unTextTrackCueList, noTextTrackCueList, gTypeTextTrackCueList + , TextTrackList(TextTrackList), unTextTrackList, noTextTrackList, gTypeTextTrackList + , TimeRanges(TimeRanges), unTimeRanges, noTimeRanges, gTypeTimeRanges + , Touch(Touch), unTouch, noTouch, gTypeTouch + , TouchEvent(TouchEvent), unTouchEvent, noTouchEvent, gTypeTouchEvent + , TouchEventInit(TouchEventInit), unTouchEventInit, noTouchEventInit, gTypeTouchEventInit + , TouchList(TouchList), unTouchList, noTouchList, gTypeTouchList + , TrackEvent(TrackEvent), unTrackEvent, noTrackEvent, gTypeTrackEvent + , TrackEventInit(TrackEventInit), unTrackEventInit, noTrackEventInit, gTypeTrackEventInit + , TransitionEvent(TransitionEvent), unTransitionEvent, noTransitionEvent, gTypeTransitionEvent + , TransitionEventInit(TransitionEventInit), unTransitionEventInit, noTransitionEventInit, gTypeTransitionEventInit + , TreeWalker(TreeWalker), unTreeWalker, noTreeWalker, gTypeTreeWalker + , UIEvent(UIEvent), unUIEvent, IsUIEvent, toUIEvent, noUIEvent, gTypeUIEvent + , UIEventInit(UIEventInit), unUIEventInit, IsUIEventInit, toUIEventInit, noUIEventInit, gTypeUIEventInit + , URL(URL), unURL, noURL, gTypeURL + , URLSearchParams(URLSearchParams), unURLSearchParams, noURLSearchParams, gTypeURLSearchParams + , UserMessageHandler(UserMessageHandler), unUserMessageHandler, noUserMessageHandler, gTypeUserMessageHandler + , UserMessageHandlersNamespace(UserMessageHandlersNamespace), unUserMessageHandlersNamespace, noUserMessageHandlersNamespace, gTypeUserMessageHandlersNamespace + , VTTCue(VTTCue), unVTTCue, noVTTCue, gTypeVTTCue + , VTTRegion(VTTRegion), unVTTRegion, noVTTRegion, gTypeVTTRegion + , VTTRegionList(VTTRegionList), unVTTRegionList, noVTTRegionList, gTypeVTTRegionList + , ValidityState(ValidityState), unValidityState, noValidityState, gTypeValidityState + , VideoPlaybackQuality(VideoPlaybackQuality), unVideoPlaybackQuality, noVideoPlaybackQuality, gTypeVideoPlaybackQuality + , VideoTrack(VideoTrack), unVideoTrack, noVideoTrack, gTypeVideoTrack + , VideoTrackList(VideoTrackList), unVideoTrackList, noVideoTrackList, gTypeVideoTrackList + , WaveShaperNode(WaveShaperNode), unWaveShaperNode, noWaveShaperNode, gTypeWaveShaperNode + , WebGL2RenderingContext(WebGL2RenderingContext), unWebGL2RenderingContext, noWebGL2RenderingContext, gTypeWebGL2RenderingContext + , WebGLActiveInfo(WebGLActiveInfo), unWebGLActiveInfo, noWebGLActiveInfo, gTypeWebGLActiveInfo + , WebGLBuffer(WebGLBuffer), unWebGLBuffer, noWebGLBuffer, gTypeWebGLBuffer + , WebGLCompressedTextureATC(WebGLCompressedTextureATC), unWebGLCompressedTextureATC, noWebGLCompressedTextureATC, gTypeWebGLCompressedTextureATC + , WebGLCompressedTexturePVRTC(WebGLCompressedTexturePVRTC), unWebGLCompressedTexturePVRTC, noWebGLCompressedTexturePVRTC, gTypeWebGLCompressedTexturePVRTC + , WebGLCompressedTextureS3TC(WebGLCompressedTextureS3TC), unWebGLCompressedTextureS3TC, noWebGLCompressedTextureS3TC, gTypeWebGLCompressedTextureS3TC + , WebGLContextAttributes(WebGLContextAttributes), unWebGLContextAttributes, noWebGLContextAttributes, gTypeWebGLContextAttributes + , WebGLContextEvent(WebGLContextEvent), unWebGLContextEvent, noWebGLContextEvent, gTypeWebGLContextEvent + , WebGLContextEventInit(WebGLContextEventInit), unWebGLContextEventInit, noWebGLContextEventInit, gTypeWebGLContextEventInit + , WebGLDebugRendererInfo(WebGLDebugRendererInfo), unWebGLDebugRendererInfo, noWebGLDebugRendererInfo, gTypeWebGLDebugRendererInfo + , WebGLDebugShaders(WebGLDebugShaders), unWebGLDebugShaders, noWebGLDebugShaders, gTypeWebGLDebugShaders + , WebGLDepthTexture(WebGLDepthTexture), unWebGLDepthTexture, noWebGLDepthTexture, gTypeWebGLDepthTexture + , WebGLDrawBuffers(WebGLDrawBuffers), unWebGLDrawBuffers, noWebGLDrawBuffers, gTypeWebGLDrawBuffers + , WebGLFramebuffer(WebGLFramebuffer), unWebGLFramebuffer, noWebGLFramebuffer, gTypeWebGLFramebuffer + , WebGLLoseContext(WebGLLoseContext), unWebGLLoseContext, noWebGLLoseContext, gTypeWebGLLoseContext + , WebGLProgram(WebGLProgram), unWebGLProgram, noWebGLProgram, gTypeWebGLProgram + , WebGLQuery(WebGLQuery), unWebGLQuery, noWebGLQuery, gTypeWebGLQuery + , WebGLRenderbuffer(WebGLRenderbuffer), unWebGLRenderbuffer, noWebGLRenderbuffer, gTypeWebGLRenderbuffer + , WebGLRenderingContext(WebGLRenderingContext), unWebGLRenderingContext, noWebGLRenderingContext, gTypeWebGLRenderingContext + , WebGLRenderingContextBase(WebGLRenderingContextBase), unWebGLRenderingContextBase, IsWebGLRenderingContextBase, toWebGLRenderingContextBase, noWebGLRenderingContextBase, gTypeWebGLRenderingContextBase + , WebGLSampler(WebGLSampler), unWebGLSampler, noWebGLSampler, gTypeWebGLSampler + , WebGLShader(WebGLShader), unWebGLShader, noWebGLShader, gTypeWebGLShader + , WebGLShaderPrecisionFormat(WebGLShaderPrecisionFormat), unWebGLShaderPrecisionFormat, noWebGLShaderPrecisionFormat, gTypeWebGLShaderPrecisionFormat + , WebGLSync(WebGLSync), unWebGLSync, noWebGLSync, gTypeWebGLSync + , WebGLTexture(WebGLTexture), unWebGLTexture, noWebGLTexture, gTypeWebGLTexture + , WebGLTransformFeedback(WebGLTransformFeedback), unWebGLTransformFeedback, noWebGLTransformFeedback, gTypeWebGLTransformFeedback + , WebGLUniformLocation(WebGLUniformLocation), unWebGLUniformLocation, noWebGLUniformLocation, gTypeWebGLUniformLocation + , WebGLVertexArrayObject(WebGLVertexArrayObject), unWebGLVertexArrayObject, noWebGLVertexArrayObject, gTypeWebGLVertexArrayObject + , WebGLVertexArrayObjectOES(WebGLVertexArrayObjectOES), unWebGLVertexArrayObjectOES, noWebGLVertexArrayObjectOES, gTypeWebGLVertexArrayObjectOES + , WebGPUBuffer(WebGPUBuffer), unWebGPUBuffer, noWebGPUBuffer, gTypeWebGPUBuffer + , WebGPUCommandBuffer(WebGPUCommandBuffer), unWebGPUCommandBuffer, noWebGPUCommandBuffer, gTypeWebGPUCommandBuffer + , WebGPUCommandQueue(WebGPUCommandQueue), unWebGPUCommandQueue, noWebGPUCommandQueue, gTypeWebGPUCommandQueue + , WebGPUComputeCommandEncoder(WebGPUComputeCommandEncoder), unWebGPUComputeCommandEncoder, noWebGPUComputeCommandEncoder, gTypeWebGPUComputeCommandEncoder + , WebGPUComputePipelineState(WebGPUComputePipelineState), unWebGPUComputePipelineState, noWebGPUComputePipelineState, gTypeWebGPUComputePipelineState + , WebGPUDepthStencilDescriptor(WebGPUDepthStencilDescriptor), unWebGPUDepthStencilDescriptor, noWebGPUDepthStencilDescriptor, gTypeWebGPUDepthStencilDescriptor + , WebGPUDepthStencilState(WebGPUDepthStencilState), unWebGPUDepthStencilState, noWebGPUDepthStencilState, gTypeWebGPUDepthStencilState + , WebGPUDrawable(WebGPUDrawable), unWebGPUDrawable, noWebGPUDrawable, gTypeWebGPUDrawable + , WebGPUFunction(WebGPUFunction), unWebGPUFunction, noWebGPUFunction, gTypeWebGPUFunction + , WebGPULibrary(WebGPULibrary), unWebGPULibrary, noWebGPULibrary, gTypeWebGPULibrary + , WebGPURenderCommandEncoder(WebGPURenderCommandEncoder), unWebGPURenderCommandEncoder, noWebGPURenderCommandEncoder, gTypeWebGPURenderCommandEncoder + , WebGPURenderPassAttachmentDescriptor(WebGPURenderPassAttachmentDescriptor), unWebGPURenderPassAttachmentDescriptor, IsWebGPURenderPassAttachmentDescriptor, toWebGPURenderPassAttachmentDescriptor, noWebGPURenderPassAttachmentDescriptor, gTypeWebGPURenderPassAttachmentDescriptor + , WebGPURenderPassColorAttachmentDescriptor(WebGPURenderPassColorAttachmentDescriptor), unWebGPURenderPassColorAttachmentDescriptor, noWebGPURenderPassColorAttachmentDescriptor, gTypeWebGPURenderPassColorAttachmentDescriptor + , WebGPURenderPassDepthAttachmentDescriptor(WebGPURenderPassDepthAttachmentDescriptor), unWebGPURenderPassDepthAttachmentDescriptor, noWebGPURenderPassDepthAttachmentDescriptor, gTypeWebGPURenderPassDepthAttachmentDescriptor + , WebGPURenderPassDescriptor(WebGPURenderPassDescriptor), unWebGPURenderPassDescriptor, noWebGPURenderPassDescriptor, gTypeWebGPURenderPassDescriptor + , WebGPURenderPipelineColorAttachmentDescriptor(WebGPURenderPipelineColorAttachmentDescriptor), unWebGPURenderPipelineColorAttachmentDescriptor, noWebGPURenderPipelineColorAttachmentDescriptor, gTypeWebGPURenderPipelineColorAttachmentDescriptor + , WebGPURenderPipelineDescriptor(WebGPURenderPipelineDescriptor), unWebGPURenderPipelineDescriptor, noWebGPURenderPipelineDescriptor, gTypeWebGPURenderPipelineDescriptor + , WebGPURenderPipelineState(WebGPURenderPipelineState), unWebGPURenderPipelineState, noWebGPURenderPipelineState, gTypeWebGPURenderPipelineState + , WebGPURenderingContext(WebGPURenderingContext), unWebGPURenderingContext, noWebGPURenderingContext, gTypeWebGPURenderingContext + , WebGPUSize(WebGPUSize), unWebGPUSize, noWebGPUSize, gTypeWebGPUSize + , WebGPUTexture(WebGPUTexture), unWebGPUTexture, noWebGPUTexture, gTypeWebGPUTexture + , WebGPUTextureDescriptor(WebGPUTextureDescriptor), unWebGPUTextureDescriptor, noWebGPUTextureDescriptor, gTypeWebGPUTextureDescriptor + , WebKitAnimationEvent(WebKitAnimationEvent), unWebKitAnimationEvent, noWebKitAnimationEvent, gTypeWebKitAnimationEvent + , WebKitAnimationEventInit(WebKitAnimationEventInit), unWebKitAnimationEventInit, noWebKitAnimationEventInit, gTypeWebKitAnimationEventInit + , WebKitCSSMatrix(WebKitCSSMatrix), unWebKitCSSMatrix, noWebKitCSSMatrix, gTypeWebKitCSSMatrix + , WebKitCSSRegionRule(WebKitCSSRegionRule), unWebKitCSSRegionRule, noWebKitCSSRegionRule, gTypeWebKitCSSRegionRule + , WebKitCSSViewportRule(WebKitCSSViewportRule), unWebKitCSSViewportRule, noWebKitCSSViewportRule, gTypeWebKitCSSViewportRule + , WebKitMediaKeyError(WebKitMediaKeyError), unWebKitMediaKeyError, noWebKitMediaKeyError, gTypeWebKitMediaKeyError + , WebKitMediaKeyMessageEvent(WebKitMediaKeyMessageEvent), unWebKitMediaKeyMessageEvent, noWebKitMediaKeyMessageEvent, gTypeWebKitMediaKeyMessageEvent + , WebKitMediaKeyMessageEventInit(WebKitMediaKeyMessageEventInit), unWebKitMediaKeyMessageEventInit, noWebKitMediaKeyMessageEventInit, gTypeWebKitMediaKeyMessageEventInit + , WebKitMediaKeyNeededEvent(WebKitMediaKeyNeededEvent), unWebKitMediaKeyNeededEvent, noWebKitMediaKeyNeededEvent, gTypeWebKitMediaKeyNeededEvent + , WebKitMediaKeyNeededEventInit(WebKitMediaKeyNeededEventInit), unWebKitMediaKeyNeededEventInit, noWebKitMediaKeyNeededEventInit, gTypeWebKitMediaKeyNeededEventInit + , WebKitMediaKeySession(WebKitMediaKeySession), unWebKitMediaKeySession, noWebKitMediaKeySession, gTypeWebKitMediaKeySession + , WebKitMediaKeys(WebKitMediaKeys), unWebKitMediaKeys, noWebKitMediaKeys, gTypeWebKitMediaKeys + , WebKitNamedFlow(WebKitNamedFlow), unWebKitNamedFlow, noWebKitNamedFlow, gTypeWebKitNamedFlow + , WebKitNamespace(WebKitNamespace), unWebKitNamespace, noWebKitNamespace, gTypeWebKitNamespace + , WebKitPlaybackTargetAvailabilityEvent(WebKitPlaybackTargetAvailabilityEvent), unWebKitPlaybackTargetAvailabilityEvent, noWebKitPlaybackTargetAvailabilityEvent, gTypeWebKitPlaybackTargetAvailabilityEvent + , WebKitPlaybackTargetAvailabilityEventInit(WebKitPlaybackTargetAvailabilityEventInit), unWebKitPlaybackTargetAvailabilityEventInit, noWebKitPlaybackTargetAvailabilityEventInit, gTypeWebKitPlaybackTargetAvailabilityEventInit + , WebKitPoint(WebKitPoint), unWebKitPoint, noWebKitPoint, gTypeWebKitPoint + , WebKitSubtleCrypto(WebKitSubtleCrypto), unWebKitSubtleCrypto, noWebKitSubtleCrypto, gTypeWebKitSubtleCrypto + , WebKitTransitionEvent(WebKitTransitionEvent), unWebKitTransitionEvent, noWebKitTransitionEvent, gTypeWebKitTransitionEvent + , WebKitTransitionEventInit(WebKitTransitionEventInit), unWebKitTransitionEventInit, noWebKitTransitionEventInit, gTypeWebKitTransitionEventInit + , WebSocket(WebSocket), unWebSocket, noWebSocket, gTypeWebSocket + , WheelEvent(WheelEvent), unWheelEvent, noWheelEvent, gTypeWheelEvent + , WheelEventInit(WheelEventInit), unWheelEventInit, noWheelEventInit, gTypeWheelEventInit + , Window(Window), unWindow, noWindow, gTypeWindow + , WindowEventHandlers(WindowEventHandlers), unWindowEventHandlers, IsWindowEventHandlers, toWindowEventHandlers, noWindowEventHandlers, gTypeWindowEventHandlers + , WindowOrWorkerGlobalScope(WindowOrWorkerGlobalScope), unWindowOrWorkerGlobalScope, IsWindowOrWorkerGlobalScope, toWindowOrWorkerGlobalScope, noWindowOrWorkerGlobalScope, gTypeWindowOrWorkerGlobalScope + , Worker(Worker), unWorker, noWorker, gTypeWorker + , WorkerGlobalScope(WorkerGlobalScope), unWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope, noWorkerGlobalScope, gTypeWorkerGlobalScope + , WorkerLocation(WorkerLocation), unWorkerLocation, noWorkerLocation, gTypeWorkerLocation + , WorkerNavigator(WorkerNavigator), unWorkerNavigator, noWorkerNavigator, gTypeWorkerNavigator + , WritableStream(WritableStream), unWritableStream, noWritableStream, gTypeWritableStream + , XMLDocument(XMLDocument), unXMLDocument, noXMLDocument, gTypeXMLDocument + , XMLHttpRequest(XMLHttpRequest), unXMLHttpRequest, noXMLHttpRequest, gTypeXMLHttpRequest + , XMLHttpRequestEventTarget(XMLHttpRequestEventTarget), unXMLHttpRequestEventTarget, IsXMLHttpRequestEventTarget, toXMLHttpRequestEventTarget, noXMLHttpRequestEventTarget, gTypeXMLHttpRequestEventTarget + , XMLHttpRequestProgressEvent(XMLHttpRequestProgressEvent), unXMLHttpRequestProgressEvent, noXMLHttpRequestProgressEvent, gTypeXMLHttpRequestProgressEvent + , XMLHttpRequestUpload(XMLHttpRequestUpload), unXMLHttpRequestUpload, noXMLHttpRequestUpload, gTypeXMLHttpRequestUpload + , XMLSerializer(XMLSerializer), unXMLSerializer, noXMLSerializer, gTypeXMLSerializer + , XPathEvaluator(XPathEvaluator), unXPathEvaluator, noXPathEvaluator, gTypeXPathEvaluator + , XPathException(XPathException), unXPathException, noXPathException, gTypeXPathException + , XPathExpression(XPathExpression), unXPathExpression, noXPathExpression, gTypeXPathExpression + , XPathNSResolver(XPathNSResolver), unXPathNSResolver, noXPathNSResolver, gTypeXPathNSResolver + , XPathResult(XPathResult), unXPathResult, noXPathResult, gTypeXPathResult + , XSLTProcessor(XSLTProcessor), unXSLTProcessor, noXSLTProcessor, gTypeXSLTProcessor +-- AUTO GENERATION ENDS HERE + ) where + +import Prelude () +import Prelude.Compat hiding((!!)) +import qualified Data.Text as T (unpack, Text) +import Control.Monad.IO.Class (MonadIO(..)) +import Data.Int (Int8, Int16, Int32, Int64) +import Data.Word (Word8, Word16, Word32, Word64) +import Data.Monoid ((<>)) +import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) +import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Language.Javascript.JSaddle + (Object(..), valToBool, valNull, valToNumber, (!!), js, valToText, + JSVal, JSString, JSM, maybeNullOrUndefined, maybeNullOrUndefined', + valToStr, jsg, ToJSString(..), FromJSString(..), strToText, MakeObject(..), + Nullable(..), freeFunction, instanceOf, JSContextRef, + askJSM, runJSM, MonadJSM(..), liftJSM, strictEqual, function, js2) +import qualified Language.Javascript.JSaddle as JSaddle (Function(..)) +import Foreign.Ptr (nullPtr) +import Control.Lens.Operators ((^.)) +import Data.Maybe (catMaybes) +import Language.Javascript.JSaddle.Classes (ToJSVal(..)) +import Control.Monad ((>=>)) +import Control.Concurrent.MVar (newEmptyMVar, putMVar, takeMVar) +import Data.Coerce (coerce, Coercible) +import Data.Typeable (Typeable) +import Control.Monad.Trans.Reader (ReaderT(..), ask) +import Control.Exception (bracket, Exception(..), throwIO) +#if MIN_VERSION_base(4,9,0) +import GHC.Stack (HasCallStack) +#else +import GHC.Exts (Constraint) +type HasCallStack = (() :: Constraint) +#endif + +-- | This is the same as 'JSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +type DOM = JSM +-- | This is the same as 'JSContextRef' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +type DOMContext = JSContextRef +-- | This is the same as 'MonadJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +type MonadDOM = MonadJSM + +-- | This is the same as 'liftJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +liftDOM :: MonadDOM m => DOM a -> m a +liftDOM = liftJSM + +-- | This is the same as 'askJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +askDOM :: MonadDOM m => m DOMContext +askDOM = askJSM + +-- | This is the same as 'runJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +runDOM :: MonadIO m => DOM a -> DOMContext -> m a +runDOM = runJSM + +newtype GType = GType Object + +typeInstanceIsA :: ToJSVal value => value -> GType -> JSM Bool +typeInstanceIsA o (GType t) = o `instanceOf` t + +-- | Safe but slow way to cast +-- +-- > castTo Element x >>= \case +-- > Nothing -> error "Was not an element" +-- > Just element -> ... +castTo :: forall obj obj' m. (Coercible obj JSVal, IsGObject obj', MonadJSM m) => (JSVal -> obj') -> obj -> m (Maybe obj') +castTo constructor obj = liftJSM $ do + GType gtype <- typeGType (undefined :: obj') + let jsval = coerce obj + jsval `instanceOf` gtype >>= \case + True -> return . Just $ constructor jsval + False -> return Nothing + +-- | Unsafe way to cast. Slow but if it fails an error message will +-- result and the message should be clear (uses HasCallStack). +-- +-- > element <- unsafeCastTo Element x +unsafeCastTo :: forall obj obj' m. (HasCallStack, Coercible obj JSVal, IsGObject obj', MonadJSM m) => (JSVal -> obj') -> obj -> m obj' +unsafeCastTo constructor obj = liftJSM $ do + GType gtype <- typeGType (undefined :: obj') + let jsval = coerce obj + jsval `instanceOf` gtype >>= \case + True -> return $ constructor jsval + False -> do + destType <- valToText (gtype ^. js "name") + error $ "unsafeCastTo :: invalid conversion to " + <> T.unpack destType <> " requested." + +-- | Unsafe way to cast. Fast but if it fails you program +-- will probably crash later on in some unpredictable way. +-- +-- > element <- uncheckedCastTo Element x +uncheckedCastTo :: (Coercible obj JSVal, IsGObject obj') => (JSVal -> obj') -> obj -> obj' +uncheckedCastTo constructor = constructor . coerce + +-- | Determine if this is an instance of a particular type +-- +isA :: IsGObject o => o -> GType -> JSM Bool +isA obj = typeInstanceIsA (unGObject $ toGObject obj) + +newtype GObject = GObject { unGObject :: JSVal } +noGObject :: Maybe GObject +noGObject = Nothing +{-# INLINE noGObject #-} + +class (ToJSVal o, FromJSVal o, Coercible o JSVal) => IsGObject o where + -- | Given object get the GType of the type. The actual argument + -- passed in is ignored. + typeGType :: o -> JSM GType + +-- | Safe upcast. +toGObject :: IsGObject o => o -> GObject +toGObject = GObject . coerce + +fromJSArray :: FromJSVal o => JSVal -> JSM [Maybe o] +fromJSArray a = do + l <- a ^. js "length" >>= valToNumber + mapM (\i -> a !! i >>= fromJSVal) [0..round l - 1] + +fromJSArrayUnchecked :: FromJSVal o => JSVal -> JSM [o] +fromJSArrayUnchecked = fromJSValUncheckedListOf + +-- newtype Nullable a = Nullable JSVal + +nullableToMaybe :: FromJSVal a => JSVal -> JSM (Maybe a) +nullableToMaybe = fromJSVal +{-# INLINE nullableToMaybe #-} +-- +maybeToNullable :: ToJSVal a => Maybe a -> JSM JSVal +maybeToNullable Nothing = return valNull +maybeToNullable (Just a) = toJSVal a +{-# INLINE maybeToNullable #-} + +instance PToJSVal GObject where + pToJSVal = unGObject + {-# INLINE pToJSVal #-} + +instance PFromJSVal GObject where + pFromJSVal = GObject + {-# INLINE pFromJSVal #-} + +instance ToJSVal GObject where + toJSVal = return . unGObject + {-# INLINE toJSVal #-} + +instance FromJSVal GObject where + fromJSVal val = fmap GObject <$> maybeNullOrUndefined val + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . GObject + {-# INLINE fromJSValUnchecked #-} + +--instance IsGObject o => PToJSVal o where +-- pToJSVal = unGObject . toGObject +-- {-# INLINE pToJSVal #-} +-- +--instance IsGObject o => PFromJSVal o where +-- pFromJSVal = unsafeCastGObject . GObject . castRef +-- {-# INLINE pFromJSVal #-} +-- +--instance IsGObject o => ToJSVal o where +-- toJSVal = return . unGObject . toGObject +-- {-# INLINE toJSVal #-} +-- +--instance IsGObject o => FromJSVal o where +-- fromJSVal = return . fmap (unsafeCastGObject . GObject . castRef) . maybeJSNullOrUndefined +-- {-# INLINE fromJSVal #-} + +instance IsGObject GObject where + typeGType _ = gTypeGObject + {-# INLINE typeGType #-} + +#ifdef ghcjs_HOST_OS +foreign import javascript unsafe "Object" gTypeGObject :: IO GType +#else +gTypeGObject :: JSM GType +gTypeGObject = GType . Object <$> jsg "Object" +#endif + +objectToString :: (IsGObject self, FromJSString result) => self -> JSM result +objectToString self = fromJSValUnchecked (unGObject $ toGObject self) + +-- | Fastest string type to use when you just +-- want to take a string from the DOM then +-- give it back as is. +type DOMString = JSString +noDOMString :: Maybe DOMString +noDOMString = Nothing +{-# INLINE noDOMString #-} +type CSSOMString = JSString +noCSSOMString :: Maybe CSSOMString +noCSSOMString = Nothing +{-# INLINE noCSSOMString #-} +type USVString = JSString +noUSVString :: Maybe USVString +noUSVString = Nothing +{-# INLINE noUSVString #-} +type ByteString = JSString +noByteString :: Maybe ByteString +noByteString = Nothing +{-# INLINE noByteString #-} + +fromJSStringArray :: FromJSString s => JSVal -> JSM [s] +fromJSStringArray a = do + l <- a ^. js "length" >>= valToNumber + mapM (\i -> fromJSString <$> (a !! i >>= valToStr)) [0..round l - 1] + +toMaybeJSString :: ToJSString a => Maybe a -> JSM JSVal +toMaybeJSString Nothing = return valNull +toMaybeJSString (Just a) = toJSVal (toJSString a) +{-# INLINE toMaybeJSString #-} + +fromMaybeJSString :: FromJSString a => JSVal -> JSM (Maybe a) +fromMaybeJSString = maybeNullOrUndefined' (fmap fromJSString . valToStr) +{-# INLINE fromMaybeJSString #-} + +integralToDoubleToJSVal :: Integral a => a -> JSM JSVal +integralToDoubleToJSVal a = toJSVal (fromIntegral a :: Double) + +integralFromDoubleFromJSVal :: Integral a => JSVal -> JSM (Maybe a) +integralFromDoubleFromJSVal = fmap (fmap round) . (fromJSVal :: JSVal -> JSM (Maybe Double)) + +integralFromDoubleFromJSValUnchecked :: Integral a => JSVal -> JSM a +integralFromDoubleFromJSValUnchecked = fmap round . (fromJSValUnchecked :: JSVal -> JSM Double) + +noJSString :: Maybe JSString +noJSString = Nothing +{-# INLINE noJSString #-} + +type ToDOMString s = ToJSString s +type FromDOMString s = FromJSString s +type IsDOMString s = (ToDOMString s, FromDOMString s) +type IsCSSOMString s = (ToDOMString s, FromDOMString s) +type IsUSVString s = (ToDOMString s, FromDOMString s) +type IsByteString s = (ToDOMString s, FromDOMString s) + +newtype RawTypedArray = RawTypedArray { unRawTypedArray :: JSVal } +noRawTypedArray :: Maybe RawTypedArray +noRawTypedArray = Nothing +{-# INLINE noRawTypedArray #-} + +instance PToJSVal RawTypedArray where + pToJSVal = unRawTypedArray + {-# INLINE pToJSVal #-} + +instance PFromJSVal RawTypedArray where + pFromJSVal = RawTypedArray + {-# INLINE pFromJSVal #-} + +instance ToJSVal RawTypedArray where + toJSVal = return . unRawTypedArray + {-# INLINE toJSVal #-} + +instance FromJSVal RawTypedArray where + fromJSVal v = fmap RawTypedArray <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RawTypedArray + {-# INLINE fromJSValUnchecked #-} + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsRawTypedArray o + +toRawTypedArray :: IsRawTypedArray o => o -> RawTypedArray +toRawTypedArray = RawTypedArray . coerce + +newtype Function = Function { unFunction :: JSVal } +noFunction :: Maybe Function +noFunction = Nothing +{-# INLINE noFunction #-} + +instance PToJSVal Function where + pToJSVal = unFunction + {-# INLINE pToJSVal #-} + +instance PFromJSVal Function where + pFromJSVal = Function + {-# INLINE pFromJSVal #-} + +instance ToJSVal Function where + toJSVal = return . unFunction + {-# INLINE toJSVal #-} + +instance FromJSVal Function where + fromJSVal v = fmap Function <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Function + {-# INLINE fromJSValUnchecked #-} + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsFunction o + +toFunction :: IsFunction o => o -> Function +toFunction = Function . coerce + +instance IsFunction Function + +-- Promise +newtype PromiseRejected = PromiseRejected { rejectionReason :: JSVal } deriving (Typeable) +noPromiseRejected :: Maybe PromiseRejected +noPromiseRejected = Nothing +{-# INLINE noPromiseRejected #-} + +instance Show PromiseRejected where + show _ = "A promise was rejected" +instance Exception PromiseRejected + +readPromise :: JSVal -> JSM JSVal +readPromise promise = do + resultMVar <- liftIO newEmptyMVar + success <- function (\_ _ [result] -> liftIO . putMVar resultMVar $ Right result) + error <- function (\_ _ [reason] -> liftIO . putMVar resultMVar $ Left reason) + promise ^. js2 "then" success error + result <- liftIO $ takeMVar resultMVar + freeFunction success + freeFunction error + case result of + Left reason -> liftIO . throwIO $ PromiseRejected reason + Right x -> return x + +-- Callbacks +newtype Callback a = Callback JSaddle.Function + +withCallback :: (MonadDOM m, Coercible c JSaddle.Function) + => JSM c -> (c -> JSM a) -> m a +withCallback aquire f = do + jsCtx <- askJSM + liftIO $ bracket + (runJSM aquire jsCtx) + ((`runJSM` jsCtx) . freeFunction . coerce) + (\t -> runJSM (f t) jsCtx) + +newtype AudioBufferCallback = AudioBufferCallback (Callback (JSVal -> IO ())) +noAudioBufferCallback :: Maybe AudioBufferCallback +noAudioBufferCallback = Nothing +{-# INLINE noAudioBufferCallback #-} +instance ToJSVal AudioBufferCallback where toJSVal (AudioBufferCallback (Callback r)) = toJSVal r +newtype BlobCallback = BlobCallback (Callback (JSVal -> IO ())) +noBlobCallback :: Maybe BlobCallback +noBlobCallback = Nothing +{-# INLINE noBlobCallback #-} +instance ToJSVal BlobCallback where toJSVal (BlobCallback (Callback r)) = toJSVal r +newtype DatabaseCallback = DatabaseCallback (Callback (JSVal -> IO ())) +noDatabaseCallback :: Maybe DatabaseCallback +noDatabaseCallback = Nothing +{-# INLINE noDatabaseCallback #-} +instance ToJSVal DatabaseCallback where toJSVal (DatabaseCallback (Callback r)) = toJSVal r +newtype IntersectionObserverCallback = IntersectionObserverCallback (Callback (JSVal -> JSVal -> IO ())) +noIntersectionObserverCallback :: Maybe IntersectionObserverCallback +noIntersectionObserverCallback = Nothing +{-# INLINE noIntersectionObserverCallback #-} +instance ToJSVal IntersectionObserverCallback where toJSVal (IntersectionObserverCallback (Callback r)) = toJSVal r +newtype MediaQueryListListener = MediaQueryListListener (Callback (JSVal -> IO ())) +noMediaQueryListListener :: Maybe MediaQueryListListener +noMediaQueryListListener = Nothing +{-# INLINE noMediaQueryListListener #-} +instance ToJSVal MediaQueryListListener where toJSVal (MediaQueryListListener (Callback r)) = toJSVal r +newtype MediaStreamTrackSourcesCallback = MediaStreamTrackSourcesCallback (Callback (JSVal -> IO ())) +noMediaStreamTrackSourcesCallback :: Maybe MediaStreamTrackSourcesCallback +noMediaStreamTrackSourcesCallback = Nothing +{-# INLINE noMediaStreamTrackSourcesCallback #-} +instance ToJSVal MediaStreamTrackSourcesCallback where toJSVal (MediaStreamTrackSourcesCallback (Callback r)) = toJSVal r +newtype NavigatorUserMediaErrorCallback = NavigatorUserMediaErrorCallback (Callback (JSVal -> IO ())) +noNavigatorUserMediaErrorCallback :: Maybe NavigatorUserMediaErrorCallback +noNavigatorUserMediaErrorCallback = Nothing +{-# INLINE noNavigatorUserMediaErrorCallback #-} +instance ToJSVal NavigatorUserMediaErrorCallback where toJSVal (NavigatorUserMediaErrorCallback (Callback r)) = toJSVal r +newtype NavigatorUserMediaSuccessCallback = NavigatorUserMediaSuccessCallback (Callback (JSVal -> IO ())) +noNavigatorUserMediaSuccessCallback :: Maybe NavigatorUserMediaSuccessCallback +noNavigatorUserMediaSuccessCallback = Nothing +{-# INLINE noNavigatorUserMediaSuccessCallback #-} +instance ToJSVal NavigatorUserMediaSuccessCallback where toJSVal (NavigatorUserMediaSuccessCallback (Callback r)) = toJSVal r +newtype NotificationPermissionCallback permissions = NotificationPermissionCallback (Callback (JSVal -> IO ())) +instance ToJSVal (NotificationPermissionCallback permissions) where toJSVal (NotificationPermissionCallback (Callback r)) = toJSVal r +newtype NodeFilter = NodeFilter (Callback (JSVal -> IO ())) +noNodeFilter :: Maybe NodeFilter +noNodeFilter = Nothing +{-# INLINE noNodeFilter #-} +instance ToJSVal NodeFilter where toJSVal (NodeFilter (Callback r)) = toJSVal r +newtype PositionCallback = PositionCallback (Callback (JSVal -> IO ())) +noPositionCallback :: Maybe PositionCallback +noPositionCallback = Nothing +{-# INLINE noPositionCallback #-} +instance ToJSVal PositionCallback where toJSVal (PositionCallback (Callback r)) = toJSVal r +newtype PositionErrorCallback = PositionErrorCallback (Callback (JSVal -> IO ())) +noPositionErrorCallback :: Maybe PositionErrorCallback +noPositionErrorCallback = Nothing +{-# INLINE noPositionErrorCallback #-} +instance ToJSVal PositionErrorCallback where toJSVal (PositionErrorCallback (Callback r)) = toJSVal r +newtype PerformanceObserverCallback = PerformanceObserverCallback (Callback (JSVal -> JSVal -> IO ())) +noPerformanceObserverCallback :: Maybe PerformanceObserverCallback +noPerformanceObserverCallback = Nothing +{-# INLINE noPerformanceObserverCallback #-} +instance ToJSVal PerformanceObserverCallback where toJSVal (PerformanceObserverCallback (Callback r)) = toJSVal r +newtype RequestAnimationFrameCallback = RequestAnimationFrameCallback (Callback (JSVal -> IO ())) +noRequestAnimationFrameCallback :: Maybe RequestAnimationFrameCallback +noRequestAnimationFrameCallback = Nothing +{-# INLINE noRequestAnimationFrameCallback #-} +instance ToJSVal RequestAnimationFrameCallback where toJSVal (RequestAnimationFrameCallback (Callback r)) = toJSVal r +newtype RTCPeerConnectionErrorCallback = RTCPeerConnectionErrorCallback (Callback (JSVal -> IO ())) +noRTCPeerConnectionErrorCallback :: Maybe RTCPeerConnectionErrorCallback +noRTCPeerConnectionErrorCallback = Nothing +{-# INLINE noRTCPeerConnectionErrorCallback #-} +instance ToJSVal RTCPeerConnectionErrorCallback where toJSVal (RTCPeerConnectionErrorCallback (Callback r)) = toJSVal r +newtype RTCSessionDescriptionCallback = RTCSessionDescriptionCallback (Callback (JSVal -> IO ())) +noRTCSessionDescriptionCallback :: Maybe RTCSessionDescriptionCallback +noRTCSessionDescriptionCallback = Nothing +{-# INLINE noRTCSessionDescriptionCallback #-} +instance ToJSVal RTCSessionDescriptionCallback where toJSVal (RTCSessionDescriptionCallback (Callback r)) = toJSVal r +newtype RTCStatsCallback = RTCStatsCallback (Callback (JSVal -> IO ())) +noRTCStatsCallback :: Maybe RTCStatsCallback +noRTCStatsCallback = Nothing +{-# INLINE noRTCStatsCallback #-} +instance ToJSVal RTCStatsCallback where toJSVal (RTCStatsCallback (Callback r)) = toJSVal r +newtype SQLStatementCallback = SQLStatementCallback (Callback (JSVal -> JSVal -> IO ())) +noSQLStatementCallback :: Maybe SQLStatementCallback +noSQLStatementCallback = Nothing +{-# INLINE noSQLStatementCallback #-} +instance ToJSVal SQLStatementCallback where toJSVal (SQLStatementCallback (Callback r)) = toJSVal r +newtype SQLStatementErrorCallback = SQLStatementErrorCallback (Callback (JSVal -> JSVal -> IO ())) +noSQLStatementErrorCallback :: Maybe SQLStatementErrorCallback +noSQLStatementErrorCallback = Nothing +{-# INLINE noSQLStatementErrorCallback #-} +instance ToJSVal SQLStatementErrorCallback where toJSVal (SQLStatementErrorCallback (Callback r)) = toJSVal r +newtype SQLTransactionCallback = SQLTransactionCallback (Callback (JSVal -> IO ())) +noSQLTransactionCallback :: Maybe SQLTransactionCallback +noSQLTransactionCallback = Nothing +{-# INLINE noSQLTransactionCallback #-} +instance ToJSVal SQLTransactionCallback where toJSVal (SQLTransactionCallback (Callback r)) = toJSVal r +newtype SQLTransactionErrorCallback = SQLTransactionErrorCallback (Callback (JSVal -> IO ())) +noSQLTransactionErrorCallback :: Maybe SQLTransactionErrorCallback +noSQLTransactionErrorCallback = Nothing +{-# INLINE noSQLTransactionErrorCallback #-} +instance ToJSVal SQLTransactionErrorCallback where toJSVal (SQLTransactionErrorCallback (Callback r)) = toJSVal r +newtype StorageErrorCallback = StorageErrorCallback (Callback (JSVal -> IO ())) +noStorageErrorCallback :: Maybe StorageErrorCallback +noStorageErrorCallback = Nothing +{-# INLINE noStorageErrorCallback #-} +instance ToJSVal StorageErrorCallback where toJSVal (StorageErrorCallback (Callback r)) = toJSVal r +newtype StorageQuotaCallback = StorageQuotaCallback (Callback (JSVal -> IO ())) +noStorageQuotaCallback :: Maybe StorageQuotaCallback +noStorageQuotaCallback = Nothing +{-# INLINE noStorageQuotaCallback #-} +instance ToJSVal StorageQuotaCallback where toJSVal (StorageQuotaCallback (Callback r)) = toJSVal r +newtype StorageUsageCallback = StorageUsageCallback (Callback (JSVal -> JSVal -> IO ())) +noStorageUsageCallback :: Maybe StorageUsageCallback +noStorageUsageCallback = Nothing +{-# INLINE noStorageUsageCallback #-} +instance ToJSVal StorageUsageCallback where toJSVal (StorageUsageCallback (Callback r)) = toJSVal r +newtype StringCallback s = StringCallback (Callback (JSVal -> IO ())) +instance ToJSVal (StringCallback s) where toJSVal (StringCallback (Callback r)) = toJSVal r +newtype VoidCallback = VoidCallback (Callback (IO ())) +noVoidCallback :: Maybe VoidCallback +noVoidCallback = Nothing +{-# INLINE noVoidCallback #-} +instance ToJSVal VoidCallback where toJSVal (VoidCallback (Callback r)) = toJSVal r + +-- Custom types +type DOMHighResTimeStamp = Double +noDOMHighResTimeStamp :: Maybe DOMHighResTimeStamp +noDOMHighResTimeStamp = Nothing +{-# INLINE noDOMHighResTimeStamp #-} +type PerformanceEntryList = [PerformanceEntry] +noPerformanceEntryList :: Maybe PerformanceEntryList +noPerformanceEntryList = Nothing +{-# INLINE noPerformanceEntryList #-} + +-- Record Type +newtype Record key value = Record { unRecord :: JSVal } + +instance PToJSVal (Record key value) where + pToJSVal = unRecord + {-# INLINE pToJSVal #-} + +instance PFromJSVal (Record key value) where + pFromJSVal = Record + {-# INLINE pFromJSVal #-} + +instance ToJSVal (Record key value) where + toJSVal = return . unRecord + {-# INLINE toJSVal #-} + +instance FromJSVal (Record key value) where + fromJSVal v = fmap Record <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Record + {-# INLINE fromJSValUnchecked #-} + +newtype SerializedScriptValue = SerializedScriptValue { unSerializedScriptValue :: JSVal } +noSerializedScriptValue :: Maybe SerializedScriptValue +noSerializedScriptValue = Nothing +{-# INLINE noSerializedScriptValue #-} + +instance PToJSVal SerializedScriptValue where + pToJSVal = unSerializedScriptValue + {-# INLINE pToJSVal #-} + +instance PFromJSVal SerializedScriptValue where + pFromJSVal = SerializedScriptValue + {-# INLINE pFromJSVal #-} + +instance ToJSVal SerializedScriptValue where + toJSVal = return . unSerializedScriptValue + {-# INLINE toJSVal #-} + +instance FromJSVal SerializedScriptValue where + fromJSVal v = fmap SerializedScriptValue <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SerializedScriptValue + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsSerializedScriptValue o +toSerializedScriptValue :: IsSerializedScriptValue o => o -> SerializedScriptValue +toSerializedScriptValue = SerializedScriptValue . coerce + +instance IsSerializedScriptValue SerializedScriptValue +instance IsGObject SerializedScriptValue where + typeGType _ = error "Unable to get the JavaScript type of SerializedScriptValue" + +newtype Dictionary = Dictionary { unDictionary :: JSVal } +noDictionary :: Maybe Dictionary +noDictionary = Nothing +{-# INLINE noDictionary #-} + +instance PToJSVal Dictionary where + pToJSVal = unDictionary + {-# INLINE pToJSVal #-} + +instance PFromJSVal Dictionary where + pFromJSVal = Dictionary + {-# INLINE pFromJSVal #-} + +instance ToJSVal Dictionary where + toJSVal = return . unDictionary + {-# INLINE toJSVal #-} + +instance FromJSVal Dictionary where + fromJSVal v = fmap Dictionary <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Dictionary + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsDictionary o +toDictionary :: IsDictionary o => o -> Dictionary +toDictionary = Dictionary . coerce + +instance IsDictionary Dictionary +instance IsGObject Dictionary where + typeGType _ = error "Unable to get the JavaScript type of Dictionary" + +newtype MutationCallback = MutationCallback { unMutationCallback :: JSVal } +noMutationCallback :: Maybe MutationCallback +noMutationCallback = Nothing +{-# INLINE noMutationCallback #-} + +instance PToJSVal MutationCallback where + pToJSVal = unMutationCallback + {-# INLINE pToJSVal #-} + +instance PFromJSVal MutationCallback where + pFromJSVal = MutationCallback + {-# INLINE pFromJSVal #-} + +instance ToJSVal MutationCallback where + toJSVal = return . unMutationCallback + {-# INLINE toJSVal #-} + +instance FromJSVal MutationCallback where + fromJSVal v = fmap MutationCallback <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MutationCallback + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsMutationCallback o +toMutationCallback :: IsMutationCallback o => o -> MutationCallback +toMutationCallback = MutationCallback . coerce + +instance IsMutationCallback MutationCallback +instance IsGObject MutationCallback where + typeGType _ = error "Unable to get the JavaScript type of MutationCallback" + +newtype ArrayBuffer = ArrayBuffer { unArrayBuffer :: JSVal } +noArrayBuffer :: Maybe ArrayBuffer +noArrayBuffer = Nothing +{-# INLINE noArrayBuffer #-} + +instance PToJSVal ArrayBuffer where + pToJSVal = unArrayBuffer + {-# INLINE pToJSVal #-} + +instance PFromJSVal ArrayBuffer where + pFromJSVal = ArrayBuffer + {-# INLINE pFromJSVal #-} + +instance ToJSVal ArrayBuffer where + toJSVal = return . unArrayBuffer + {-# INLINE toJSVal #-} + +instance FromJSVal ArrayBuffer where + fromJSVal v = fmap ArrayBuffer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ArrayBuffer + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsArrayBuffer o +toArrayBuffer :: IsArrayBuffer o => o -> ArrayBuffer +toArrayBuffer = ArrayBuffer . coerce + +instance IsArrayBuffer ArrayBuffer +instance IsGObject ArrayBuffer where + typeGType _ = gTypeArrayBuffer + +gTypeArrayBuffer :: JSM GType +gTypeArrayBuffer = GType . Object <$> jsg "ArrayBuffer" + +newtype Float32Array = Float32Array { unFloat32Array :: JSVal } +noFloat32Array :: Maybe Float32Array +noFloat32Array = Nothing +{-# INLINE noFloat32Array #-} + +instance PToJSVal Float32Array where + pToJSVal = unFloat32Array + {-# INLINE pToJSVal #-} + +instance PFromJSVal Float32Array where + pFromJSVal = Float32Array + {-# INLINE pFromJSVal #-} + +instance ToJSVal Float32Array where + toJSVal = return . unFloat32Array + {-# INLINE toJSVal #-} + +instance FromJSVal Float32Array where + fromJSVal v = fmap Float32Array <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Float32Array + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsFloat32Array o +toFloat32Array :: IsFloat32Array o => o -> Float32Array +toFloat32Array = Float32Array . coerce + +instance IsFloat32Array Float32Array +instance IsGObject Float32Array where + typeGType _ = gTypeFloat32Array + +gTypeFloat32Array :: JSM GType +gTypeFloat32Array = GType . Object <$> jsg "Float32Array" + +newtype Float64Array = Float64Array { unFloat64Array :: JSVal } +noFloat64Array :: Maybe Float64Array +noFloat64Array = Nothing +{-# INLINE noFloat64Array #-} + +instance PToJSVal Float64Array where + pToJSVal = unFloat64Array + {-# INLINE pToJSVal #-} + +instance PFromJSVal Float64Array where + pFromJSVal = Float64Array + {-# INLINE pFromJSVal #-} + +instance ToJSVal Float64Array where + toJSVal = return . unFloat64Array + {-# INLINE toJSVal #-} + +instance FromJSVal Float64Array where + fromJSVal v = fmap Float64Array <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Float64Array + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsFloat64Array o +toFloat64Array :: IsFloat64Array o => o -> Float64Array +toFloat64Array = Float64Array . coerce + +instance IsFloat64Array Float64Array +instance IsGObject Float64Array where + typeGType _ = gTypeFloat64Array + +gTypeFloat64Array :: JSM GType +gTypeFloat64Array = GType . Object <$> jsg "Float64Array" + +newtype Uint8Array = Uint8Array { unUint8Array :: JSVal } +noUint8Array :: Maybe Uint8Array +noUint8Array = Nothing +{-# INLINE noUint8Array #-} + +instance PToJSVal Uint8Array where + pToJSVal = unUint8Array + {-# INLINE pToJSVal #-} + +instance PFromJSVal Uint8Array where + pFromJSVal = Uint8Array + {-# INLINE pFromJSVal #-} + +instance ToJSVal Uint8Array where + toJSVal = return . unUint8Array + {-# INLINE toJSVal #-} + +instance FromJSVal Uint8Array where + fromJSVal v = fmap Uint8Array <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Uint8Array + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsUint8Array o +toUint8Array :: IsUint8Array o => o -> Uint8Array +toUint8Array = Uint8Array . coerce + +instance IsUint8Array Uint8Array +instance IsGObject Uint8Array where + typeGType _ = gTypeUint8Array + +gTypeUint8Array :: JSM GType +gTypeUint8Array = GType . Object <$> jsg "Uint8Array" + +newtype Uint8ClampedArray = Uint8ClampedArray { unUint8ClampedArray :: JSVal } +noUint8ClampedArray :: Maybe Uint8ClampedArray +noUint8ClampedArray = Nothing +{-# INLINE noUint8ClampedArray #-} + +instance PToJSVal Uint8ClampedArray where + pToJSVal = unUint8ClampedArray + {-# INLINE pToJSVal #-} + +instance PFromJSVal Uint8ClampedArray where + pFromJSVal = Uint8ClampedArray + {-# INLINE pFromJSVal #-} + +instance ToJSVal Uint8ClampedArray where + toJSVal = return . unUint8ClampedArray + {-# INLINE toJSVal #-} + +instance FromJSVal Uint8ClampedArray where + fromJSVal v = fmap Uint8ClampedArray <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Uint8ClampedArray + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsUint8ClampedArray o +toUint8ClampedArray :: IsUint8ClampedArray o => o -> Uint8ClampedArray +toUint8ClampedArray = Uint8ClampedArray . coerce + +instance IsUint8ClampedArray Uint8ClampedArray +instance IsGObject Uint8ClampedArray where + typeGType _ = gTypeUint8ClampedArray + +gTypeUint8ClampedArray :: JSM GType +gTypeUint8ClampedArray = GType . Object <$> jsg "Uint8ClampedArray" + +newtype Uint16Array = Uint16Array { unUint16Array :: JSVal } +noUint16Array :: Maybe Uint16Array +noUint16Array = Nothing +{-# INLINE noUint16Array #-} + +instance PToJSVal Uint16Array where + pToJSVal = unUint16Array + {-# INLINE pToJSVal #-} + +instance PFromJSVal Uint16Array where + pFromJSVal = Uint16Array + {-# INLINE pFromJSVal #-} + +instance ToJSVal Uint16Array where + toJSVal = return . unUint16Array + {-# INLINE toJSVal #-} + +instance FromJSVal Uint16Array where + fromJSVal v = fmap Uint16Array <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Uint16Array + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsUint16Array o +toUint16Array :: IsUint16Array o => o -> Uint16Array +toUint16Array = Uint16Array . coerce + +instance IsUint16Array Uint16Array +instance IsGObject Uint16Array where + typeGType _ = gTypeUint16Array + +gTypeUint16Array :: JSM GType +gTypeUint16Array = GType . Object <$> jsg "Uint16Array" + +newtype Uint32Array = Uint32Array { unUint32Array :: JSVal } +noUint32Array :: Maybe Uint32Array +noUint32Array = Nothing +{-# INLINE noUint32Array #-} + +instance PToJSVal Uint32Array where + pToJSVal = unUint32Array + {-# INLINE pToJSVal #-} + +instance PFromJSVal Uint32Array where + pFromJSVal = Uint32Array + {-# INLINE pFromJSVal #-} + +instance ToJSVal Uint32Array where + toJSVal = return . unUint32Array + {-# INLINE toJSVal #-} + +instance FromJSVal Uint32Array where + fromJSVal v = fmap Uint32Array <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Uint32Array + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsUint32Array o +toUint32Array :: IsUint32Array o => o -> Uint32Array +toUint32Array = Uint32Array . coerce + +instance IsUint32Array Uint32Array +instance IsGObject Uint32Array where + typeGType _ = gTypeUint32Array + +gTypeUint32Array :: JSM GType +gTypeUint32Array = GType . Object <$> jsg "Uint32Array" + +newtype Int8Array = Int8Array { unInt8Array :: JSVal } +noInt8Array :: Maybe Int8Array +noInt8Array = Nothing +{-# INLINE noInt8Array #-} + +instance PToJSVal Int8Array where + pToJSVal = unInt8Array + {-# INLINE pToJSVal #-} + +instance PFromJSVal Int8Array where + pFromJSVal = Int8Array + {-# INLINE pFromJSVal #-} + +instance ToJSVal Int8Array where + toJSVal = return . unInt8Array + {-# INLINE toJSVal #-} + +instance FromJSVal Int8Array where + fromJSVal v = fmap Int8Array <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Int8Array + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsInt8Array o +toInt8Array :: IsInt8Array o => o -> Int8Array +toInt8Array = Int8Array . coerce + +instance IsInt8Array Int8Array +instance IsGObject Int8Array where + typeGType _ = gTypeInt8Array + +gTypeInt8Array :: JSM GType +gTypeInt8Array = GType . Object <$> jsg "Int8Array" + +newtype Int16Array = Int16Array { unInt16Array :: JSVal } +noInt16Array :: Maybe Int16Array +noInt16Array = Nothing +{-# INLINE noInt16Array #-} + +instance PToJSVal Int16Array where + pToJSVal = unInt16Array + {-# INLINE pToJSVal #-} + +instance PFromJSVal Int16Array where + pFromJSVal = Int16Array + {-# INLINE pFromJSVal #-} + +instance ToJSVal Int16Array where + toJSVal = return . unInt16Array + {-# INLINE toJSVal #-} + +instance FromJSVal Int16Array where + fromJSVal v = fmap Int16Array <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Int16Array + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsInt16Array o +toInt16Array :: IsInt16Array o => o -> Int16Array +toInt16Array = Int16Array . coerce + +instance IsInt16Array Int16Array +instance IsGObject Int16Array where + typeGType _ = gTypeInt16Array + +gTypeInt16Array :: JSM GType +gTypeInt16Array = GType . Object <$> jsg "Int16Array" + +newtype Int32Array = Int32Array { unInt32Array :: JSVal } +noInt32Array :: Maybe Int32Array +noInt32Array = Nothing +{-# INLINE noInt32Array #-} + +instance PToJSVal Int32Array where + pToJSVal = unInt32Array + {-# INLINE pToJSVal #-} + +instance PFromJSVal Int32Array where + pFromJSVal = Int32Array + {-# INLINE pFromJSVal #-} + +instance ToJSVal Int32Array where + toJSVal = return . unInt32Array + {-# INLINE toJSVal #-} + +instance FromJSVal Int32Array where + fromJSVal v = fmap Int32Array <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Int32Array + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsInt32Array o +toInt32Array :: IsInt32Array o => o -> Int32Array +toInt32Array = Int32Array . coerce + +instance IsInt32Array Int32Array +instance IsGObject Int32Array where + typeGType _ = gTypeInt32Array + +gTypeInt32Array :: JSM GType +gTypeInt32Array = GType . Object <$> jsg "Int32Array" + +newtype ObjectArray = ObjectArray { unObjectArray :: JSVal } +noObjectArray :: Maybe ObjectArray +noObjectArray = Nothing +{-# INLINE noObjectArray #-} + +instance PToJSVal ObjectArray where + pToJSVal = unObjectArray + {-# INLINE pToJSVal #-} + +instance PFromJSVal ObjectArray where + pFromJSVal = ObjectArray + {-# INLINE pFromJSVal #-} + +instance ToJSVal ObjectArray where + toJSVal = return . unObjectArray + {-# INLINE toJSVal #-} + +instance FromJSVal ObjectArray where + fromJSVal v = fmap ObjectArray <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ObjectArray + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsObjectArray o +toObjectArray :: IsObjectArray o => o -> ObjectArray +toObjectArray = ObjectArray . coerce + +instance IsObjectArray ObjectArray +instance IsGObject ObjectArray where + typeGType _ = error "Unable to get the JavaScript type of ObjectArray" + +newtype ArrayBufferView = ArrayBufferView { unArrayBufferView :: JSVal } +noArrayBufferView :: Maybe ArrayBufferView +noArrayBufferView = Nothing +{-# INLINE noArrayBufferView #-} + +instance PToJSVal ArrayBufferView where + pToJSVal = unArrayBufferView + {-# INLINE pToJSVal #-} + +instance PFromJSVal ArrayBufferView where + pFromJSVal = ArrayBufferView + {-# INLINE pFromJSVal #-} + +instance ToJSVal ArrayBufferView where + toJSVal = return . unArrayBufferView + {-# INLINE toJSVal #-} + +instance FromJSVal ArrayBufferView where + fromJSVal v = fmap ArrayBufferView <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ArrayBufferView + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsArrayBufferView o +toArrayBufferView :: IsArrayBufferView o => o -> ArrayBufferView +toArrayBufferView = ArrayBufferView . coerce + +instance IsArrayBufferView ArrayBufferView +instance IsGObject ArrayBufferView where + typeGType _ = error "Unable to get the JavaScript type of ArrayBufferView" + +newtype Array = Array { unArray :: JSVal } +noArray :: Maybe Array +noArray = Nothing +{-# INLINE noArray #-} + +instance PToJSVal Array where + pToJSVal = unArray + {-# INLINE pToJSVal #-} + +instance PFromJSVal Array where + pFromJSVal = Array + {-# INLINE pFromJSVal #-} + +instance ToJSVal Array where + toJSVal = return . unArray + {-# INLINE toJSVal #-} + +instance FromJSVal Array where + fromJSVal v = fmap Array <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Array + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsArray o +toArray :: IsArray o => o -> Array +toArray = Array . coerce + +instance IsArray Array +instance IsGObject Array where + typeGType _ = gTypeArray + +gTypeArray :: JSM GType +gTypeArray = GType . Object <$> jsg "Array" + +newtype Date = Date { unDate :: JSVal } +noDate :: Maybe Date +noDate = Nothing +{-# INLINE noDate #-} + +instance PToJSVal Date where + pToJSVal = unDate + {-# INLINE pToJSVal #-} + +instance PFromJSVal Date where + pFromJSVal = Date + {-# INLINE pFromJSVal #-} + +instance ToJSVal Date where + toJSVal = return . unDate + {-# INLINE toJSVal #-} + +instance FromJSVal Date where + fromJSVal v = fmap Date <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Date + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsDate o +toDate :: IsDate o => o -> Date +toDate = Date . coerce + +instance IsDate Date +instance IsGObject Date where + typeGType _ = gTypeDate + +gTypeDate :: JSM GType +gTypeDate = GType . Object <$> jsg "Date" + +newtype Algorithm = Algorithm { unAlgorithm :: JSVal } +noAlgorithm :: Maybe Algorithm +noAlgorithm = Nothing +{-# INLINE noAlgorithm #-} + +instance PToJSVal Algorithm where + pToJSVal = unAlgorithm + {-# INLINE pToJSVal #-} + +instance PFromJSVal Algorithm where + pFromJSVal = Algorithm + {-# INLINE pFromJSVal #-} + +instance ToJSVal Algorithm where + toJSVal = return . unAlgorithm + {-# INLINE toJSVal #-} + +instance FromJSVal Algorithm where + fromJSVal v = fmap Algorithm <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Algorithm + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsAlgorithm o +toAlgorithm :: IsAlgorithm o => o -> Algorithm +toAlgorithm = Algorithm . coerce + +instance IsAlgorithm Algorithm +instance IsGObject Algorithm where + typeGType _ = error "Unable to get the JavaScript type of Algorithm" + +newtype CryptoOperationData = CryptoOperationData { unCryptoOperationData :: JSVal } +noCryptoOperationData :: Maybe CryptoOperationData +noCryptoOperationData = Nothing +{-# INLINE noCryptoOperationData #-} + +instance PToJSVal CryptoOperationData where + pToJSVal = unCryptoOperationData + {-# INLINE pToJSVal #-} + +instance PFromJSVal CryptoOperationData where + pFromJSVal = CryptoOperationData + {-# INLINE pFromJSVal #-} + +instance ToJSVal CryptoOperationData where + toJSVal = return . unCryptoOperationData + {-# INLINE toJSVal #-} + +instance FromJSVal CryptoOperationData where + fromJSVal v = fmap CryptoOperationData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CryptoOperationData + {-# INLINE fromJSValUnchecked #-} + +class IsGObject o => IsCryptoOperationData o +toCryptoOperationData :: IsCryptoOperationData o => o -> CryptoOperationData +toCryptoOperationData = CryptoOperationData . coerce + +instance IsCryptoOperationData CryptoOperationData +instance IsGObject CryptoOperationData where + typeGType _ = error "Unable to get the JavaScript type of CryptoOperationData" +instance IsCryptoOperationData ArrayBuffer +instance IsCryptoOperationData ArrayBufferView + +type GLenum = Word32 +noGLenum :: Maybe GLenum +noGLenum = Nothing +{-# INLINE noGLenum #-} +type GLboolean = Bool +noGLboolean :: Maybe GLboolean +noGLboolean = Nothing +{-# INLINE noGLboolean #-} +type GLbitfield = Word32 +noGLbitfield :: Maybe GLbitfield +noGLbitfield = Nothing +{-# INLINE noGLbitfield #-} +type GLbyte = Int8 +noGLbyte :: Maybe GLbyte +noGLbyte = Nothing +{-# INLINE noGLbyte #-} +type GLshort = Int16 +noGLshort :: Maybe GLshort +noGLshort = Nothing +{-# INLINE noGLshort #-} +type GLint = Int32 +noGLint :: Maybe GLint +noGLint = Nothing +{-# INLINE noGLint #-} +type GLint64 = Int64 +noGLint64 :: Maybe GLint64 +noGLint64 = Nothing +{-# INLINE noGLint64 #-} +type GLsizei = Int32 +noGLsizei :: Maybe GLsizei +noGLsizei = Nothing +{-# INLINE noGLsizei #-} +type GLintptr = Int64 +noGLintptr :: Maybe GLintptr +noGLintptr = Nothing +{-# INLINE noGLintptr #-} +type GLsizeiptr = Int64 +noGLsizeiptr :: Maybe GLsizeiptr +noGLsizeiptr = Nothing +{-# INLINE noGLsizeiptr #-} +type GLubyte = Word8 +noGLubyte :: Maybe GLubyte +noGLubyte = Nothing +{-# INLINE noGLubyte #-} +type GLushort = Word16 +noGLushort :: Maybe GLushort +noGLushort = Nothing +{-# INLINE noGLushort #-} +type GLuint = Word32 +noGLuint :: Maybe GLuint +noGLuint = Nothing +{-# INLINE noGLuint #-} +type GLuint64 = Word64 +noGLuint64 :: Maybe GLuint64 +noGLuint64 = Nothing +{-# INLINE noGLuint64 #-} +type GLfloat = Double +noGLfloat :: Maybe GLfloat +noGLfloat = Nothing +{-# INLINE noGLfloat #-} +type GLclampf = Double +noGLclampf :: Maybe GLclampf +noGLclampf = Nothing +{-# INLINE noGLclampf #-} + +-- AUTO GENERATION STARTS HERE +-- The remainder of this file is generated from IDL files using domconv-webkit-jsffi +newtype AddEventListenerOptionsOrBool = AddEventListenerOptionsOrBool { unAddEventListenerOptionsOrBool :: JSVal } + +instance PToJSVal AddEventListenerOptionsOrBool where + pToJSVal = unAddEventListenerOptionsOrBool + {-# INLINE pToJSVal #-} + +instance PFromJSVal AddEventListenerOptionsOrBool where + pFromJSVal = AddEventListenerOptionsOrBool + {-# INLINE pFromJSVal #-} + +instance ToJSVal AddEventListenerOptionsOrBool where + toJSVal = return . unAddEventListenerOptionsOrBool + {-# INLINE toJSVal #-} + +instance FromJSVal AddEventListenerOptionsOrBool where + fromJSVal v = fmap AddEventListenerOptionsOrBool <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AddEventListenerOptionsOrBool + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AddEventListenerOptionsOrBool where + makeObject = makeObject . unAddEventListenerOptionsOrBool + +class (FromJSVal o, ToJSVal o, PToJSVal o) => IsAddEventListenerOptionsOrBool o + +toAddEventListenerOptionsOrBool :: IsAddEventListenerOptionsOrBool o => o -> AddEventListenerOptionsOrBool +toAddEventListenerOptionsOrBool = AddEventListenerOptionsOrBool . pToJSVal + +instance IsAddEventListenerOptionsOrBool AddEventListenerOptionsOrBool +instance IsAddEventListenerOptionsOrBool Bool +instance IsAddEventListenerOptionsOrBool AddEventListenerOptions + +newtype BinaryData = BinaryData { unBinaryData :: JSVal } + +instance PToJSVal BinaryData where + pToJSVal = unBinaryData + {-# INLINE pToJSVal #-} + +instance PFromJSVal BinaryData where + pFromJSVal = BinaryData + {-# INLINE pFromJSVal #-} + +instance ToJSVal BinaryData where + toJSVal = return . unBinaryData + {-# INLINE toJSVal #-} + +instance FromJSVal BinaryData where + fromJSVal v = fmap BinaryData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BinaryData + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BinaryData where + makeObject = makeObject . unBinaryData + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsBinaryData o + +toBinaryData :: IsBinaryData o => o -> BinaryData +toBinaryData = BinaryData . coerce + +instance IsBinaryData BinaryData +instance IsBinaryData ArrayBuffer +instance IsBinaryData ArrayBufferView + +newtype BlobPart = BlobPart { unBlobPart :: JSVal } + +instance PToJSVal BlobPart where + pToJSVal = unBlobPart + {-# INLINE pToJSVal #-} + +instance PFromJSVal BlobPart where + pFromJSVal = BlobPart + {-# INLINE pFromJSVal #-} + +instance ToJSVal BlobPart where + toJSVal = return . unBlobPart + {-# INLINE toJSVal #-} + +instance FromJSVal BlobPart where + fromJSVal v = fmap BlobPart <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BlobPart + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BlobPart where + makeObject = makeObject . unBlobPart + +class (FromJSVal o, ToJSVal o) => IsBlobPart o + +instance IsBlobPart BlobPart +instance IsBlobPart BinaryData +instance IsBlobPart BufferSource +instance IsBlobPart ArrayBufferView +instance IsBlobPart ArrayBuffer +instance IsBlobPart Blob +instance IsBlobPart File +instance IsBlobPart Text +instance IsBlobPart JSString +instance IsBlobPart String + +newtype BodyInit = BodyInit { unBodyInit :: JSVal } + +instance PToJSVal BodyInit where + pToJSVal = unBodyInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal BodyInit where + pFromJSVal = BodyInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal BodyInit where + toJSVal = return . unBodyInit + {-# INLINE toJSVal #-} + +instance FromJSVal BodyInit where + fromJSVal v = fmap BodyInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BodyInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BodyInit where + makeObject = makeObject . unBodyInit + +class (FromJSVal o, ToJSVal o) => IsBodyInit o + +instance IsBodyInit BodyInit +instance IsBodyInit Text +instance IsBodyInit JSString +instance IsBodyInit String +instance IsBodyInit FormData +instance IsBodyInit BinaryData +instance IsBodyInit BufferSource +instance IsBodyInit ArrayBufferView +instance IsBodyInit ArrayBuffer +instance IsBodyInit Blob +instance IsBodyInit File + +newtype BufferDataSource = BufferDataSource { unBufferDataSource :: JSVal } + +instance PToJSVal BufferDataSource where + pToJSVal = unBufferDataSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal BufferDataSource where + pFromJSVal = BufferDataSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal BufferDataSource where + toJSVal = return . unBufferDataSource + {-# INLINE toJSVal #-} + +instance FromJSVal BufferDataSource where + fromJSVal v = fmap BufferDataSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BufferDataSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BufferDataSource where + makeObject = makeObject . unBufferDataSource + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsBufferDataSource o + +toBufferDataSource :: IsBufferDataSource o => o -> BufferDataSource +toBufferDataSource = BufferDataSource . coerce + +instance IsBufferDataSource BufferDataSource +instance IsBufferDataSource ArrayBuffer +instance IsBufferDataSource ArrayBufferView + +newtype BufferSource = BufferSource { unBufferSource :: JSVal } + +instance PToJSVal BufferSource where + pToJSVal = unBufferSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal BufferSource where + pFromJSVal = BufferSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal BufferSource where + toJSVal = return . unBufferSource + {-# INLINE toJSVal #-} + +instance FromJSVal BufferSource where + fromJSVal v = fmap BufferSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BufferSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BufferSource where + makeObject = makeObject . unBufferSource + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsBufferSource o + +toBufferSource :: IsBufferSource o => o -> BufferSource +toBufferSource = BufferSource . coerce + +instance IsBufferSource BufferSource +instance IsBufferSource ArrayBuffer +instance IsBufferSource ArrayBufferView + +newtype CanvasImageSource = CanvasImageSource { unCanvasImageSource :: JSVal } + +instance PToJSVal CanvasImageSource where + pToJSVal = unCanvasImageSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal CanvasImageSource where + pFromJSVal = CanvasImageSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal CanvasImageSource where + toJSVal = return . unCanvasImageSource + {-# INLINE toJSVal #-} + +instance FromJSVal CanvasImageSource where + fromJSVal v = fmap CanvasImageSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CanvasImageSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CanvasImageSource where + makeObject = makeObject . unCanvasImageSource + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsCanvasImageSource o + +toCanvasImageSource :: IsCanvasImageSource o => o -> CanvasImageSource +toCanvasImageSource = CanvasImageSource . coerce + +instance IsCanvasImageSource CanvasImageSource +instance IsCanvasImageSource HTMLImageElement +instance IsCanvasImageSource HTMLVideoElement +instance IsCanvasImageSource HTMLCanvasElement + +newtype CanvasStyle = CanvasStyle { unCanvasStyle :: JSVal } + +instance PToJSVal CanvasStyle where + pToJSVal = unCanvasStyle + {-# INLINE pToJSVal #-} + +instance PFromJSVal CanvasStyle where + pFromJSVal = CanvasStyle + {-# INLINE pFromJSVal #-} + +instance ToJSVal CanvasStyle where + toJSVal = return . unCanvasStyle + {-# INLINE toJSVal #-} + +instance FromJSVal CanvasStyle where + fromJSVal v = fmap CanvasStyle <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CanvasStyle + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CanvasStyle where + makeObject = makeObject . unCanvasStyle + +class (FromJSVal o, ToJSVal o) => IsCanvasStyle o + +instance IsCanvasStyle CanvasStyle +instance IsCanvasStyle CanvasPattern +instance IsCanvasStyle CanvasGradient +instance IsCanvasStyle Text +instance IsCanvasStyle JSString +instance IsCanvasStyle String + +newtype CredentialBodyType = CredentialBodyType { unCredentialBodyType :: JSVal } + +instance PToJSVal CredentialBodyType where + pToJSVal = unCredentialBodyType + {-# INLINE pToJSVal #-} + +instance PFromJSVal CredentialBodyType where + pFromJSVal = CredentialBodyType + {-# INLINE pFromJSVal #-} + +instance ToJSVal CredentialBodyType where + toJSVal = return . unCredentialBodyType + {-# INLINE toJSVal #-} + +instance FromJSVal CredentialBodyType where + fromJSVal v = fmap CredentialBodyType <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CredentialBodyType + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CredentialBodyType where + makeObject = makeObject . unCredentialBodyType + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsCredentialBodyType o + +toCredentialBodyType :: IsCredentialBodyType o => o -> CredentialBodyType +toCredentialBodyType = CredentialBodyType . coerce + +instance IsCredentialBodyType CredentialBodyType +instance IsCredentialBodyType URLSearchParams +instance IsCredentialBodyType FormData + +newtype CryptoKeyOrKeyPair = CryptoKeyOrKeyPair { unCryptoKeyOrKeyPair :: JSVal } + +instance PToJSVal CryptoKeyOrKeyPair where + pToJSVal = unCryptoKeyOrKeyPair + {-# INLINE pToJSVal #-} + +instance PFromJSVal CryptoKeyOrKeyPair where + pFromJSVal = CryptoKeyOrKeyPair + {-# INLINE pFromJSVal #-} + +instance ToJSVal CryptoKeyOrKeyPair where + toJSVal = return . unCryptoKeyOrKeyPair + {-# INLINE toJSVal #-} + +instance FromJSVal CryptoKeyOrKeyPair where + fromJSVal v = fmap CryptoKeyOrKeyPair <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CryptoKeyOrKeyPair + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CryptoKeyOrKeyPair where + makeObject = makeObject . unCryptoKeyOrKeyPair + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsCryptoKeyOrKeyPair o + +toCryptoKeyOrKeyPair :: IsCryptoKeyOrKeyPair o => o -> CryptoKeyOrKeyPair +toCryptoKeyOrKeyPair = CryptoKeyOrKeyPair . coerce + +instance IsCryptoKeyOrKeyPair CryptoKeyOrKeyPair +instance IsCryptoKeyOrKeyPair CryptoKeyPair +instance IsCryptoKeyOrKeyPair CryptoKey + +newtype EventListenerOptionsOrBool = EventListenerOptionsOrBool { unEventListenerOptionsOrBool :: JSVal } + +instance PToJSVal EventListenerOptionsOrBool where + pToJSVal = unEventListenerOptionsOrBool + {-# INLINE pToJSVal #-} + +instance PFromJSVal EventListenerOptionsOrBool where + pFromJSVal = EventListenerOptionsOrBool + {-# INLINE pFromJSVal #-} + +instance ToJSVal EventListenerOptionsOrBool where + toJSVal = return . unEventListenerOptionsOrBool + {-# INLINE toJSVal #-} + +instance FromJSVal EventListenerOptionsOrBool where + fromJSVal v = fmap EventListenerOptionsOrBool <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EventListenerOptionsOrBool + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EventListenerOptionsOrBool where + makeObject = makeObject . unEventListenerOptionsOrBool + +class (FromJSVal o, ToJSVal o, PToJSVal o) => IsEventListenerOptionsOrBool o + +toEventListenerOptionsOrBool :: IsEventListenerOptionsOrBool o => o -> EventListenerOptionsOrBool +toEventListenerOptionsOrBool = EventListenerOptionsOrBool . pToJSVal + +instance IsEventListenerOptionsOrBool EventListenerOptionsOrBool +instance IsEventListenerOptionsOrBool Bool +instance IsEventListenerOptionsOrBool EventListenerOptions +instance IsEventListenerOptionsOrBool AddEventListenerOptions + +newtype Float32List = Float32List { unFloat32List :: JSVal } + +instance PToJSVal Float32List where + pToJSVal = unFloat32List + {-# INLINE pToJSVal #-} + +instance PFromJSVal Float32List where + pFromJSVal = Float32List + {-# INLINE pFromJSVal #-} + +instance ToJSVal Float32List where + toJSVal = return . unFloat32List + {-# INLINE toJSVal #-} + +instance FromJSVal Float32List where + fromJSVal v = fmap Float32List <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Float32List + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Float32List where + makeObject = makeObject . unFloat32List + +class (FromJSVal o, ToJSVal o) => IsFloat32List o + +instance IsFloat32List Float32List +instance IsFloat32List [GLfloat] +instance IsFloat32List Float32Array + +newtype HTMLCollectionOrElement = HTMLCollectionOrElement { unHTMLCollectionOrElement :: JSVal } + +instance PToJSVal HTMLCollectionOrElement where + pToJSVal = unHTMLCollectionOrElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLCollectionOrElement where + pFromJSVal = HTMLCollectionOrElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLCollectionOrElement where + toJSVal = return . unHTMLCollectionOrElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLCollectionOrElement where + fromJSVal v = fmap HTMLCollectionOrElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLCollectionOrElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLCollectionOrElement where + makeObject = makeObject . unHTMLCollectionOrElement + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsHTMLCollectionOrElement o + +toHTMLCollectionOrElement :: IsHTMLCollectionOrElement o => o -> HTMLCollectionOrElement +toHTMLCollectionOrElement = HTMLCollectionOrElement . coerce + +instance IsHTMLCollectionOrElement HTMLCollectionOrElement +instance IsHTMLCollectionOrElement Element +instance IsHTMLCollectionOrElement SVGViewElement +instance IsHTMLCollectionOrElement SVGVKernElement +instance IsHTMLCollectionOrElement SVGUseElement +instance IsHTMLCollectionOrElement SVGTitleElement +instance IsHTMLCollectionOrElement SVGTextPositioningElement +instance IsHTMLCollectionOrElement SVGTextPathElement +instance IsHTMLCollectionOrElement SVGTextElement +instance IsHTMLCollectionOrElement SVGTextContentElement +instance IsHTMLCollectionOrElement SVGTSpanElement +instance IsHTMLCollectionOrElement SVGTRefElement +instance IsHTMLCollectionOrElement SVGSymbolElement +instance IsHTMLCollectionOrElement SVGSwitchElement +instance IsHTMLCollectionOrElement SVGStyleElement +instance IsHTMLCollectionOrElement SVGStopElement +instance IsHTMLCollectionOrElement SVGSetElement +instance IsHTMLCollectionOrElement SVGScriptElement +instance IsHTMLCollectionOrElement SVGSVGElement +instance IsHTMLCollectionOrElement SVGRectElement +instance IsHTMLCollectionOrElement SVGRadialGradientElement +instance IsHTMLCollectionOrElement SVGPolylineElement +instance IsHTMLCollectionOrElement SVGPolygonElement +instance IsHTMLCollectionOrElement SVGPatternElement +instance IsHTMLCollectionOrElement SVGPathElement +instance IsHTMLCollectionOrElement SVGMissingGlyphElement +instance IsHTMLCollectionOrElement SVGMetadataElement +instance IsHTMLCollectionOrElement SVGMaskElement +instance IsHTMLCollectionOrElement SVGMarkerElement +instance IsHTMLCollectionOrElement SVGMPathElement +instance IsHTMLCollectionOrElement SVGLinearGradientElement +instance IsHTMLCollectionOrElement SVGLineElement +instance IsHTMLCollectionOrElement SVGImageElement +instance IsHTMLCollectionOrElement SVGHKernElement +instance IsHTMLCollectionOrElement SVGGraphicsElement +instance IsHTMLCollectionOrElement SVGGradientElement +instance IsHTMLCollectionOrElement SVGGlyphRefElement +instance IsHTMLCollectionOrElement SVGGlyphElement +instance IsHTMLCollectionOrElement SVGGElement +instance IsHTMLCollectionOrElement SVGForeignObjectElement +instance IsHTMLCollectionOrElement SVGFontFaceUriElement +instance IsHTMLCollectionOrElement SVGFontFaceSrcElement +instance IsHTMLCollectionOrElement SVGFontFaceNameElement +instance IsHTMLCollectionOrElement SVGFontFaceFormatElement +instance IsHTMLCollectionOrElement SVGFontFaceElement +instance IsHTMLCollectionOrElement SVGFontElement +instance IsHTMLCollectionOrElement SVGFilterElement +instance IsHTMLCollectionOrElement SVGFETurbulenceElement +instance IsHTMLCollectionOrElement SVGFETileElement +instance IsHTMLCollectionOrElement SVGFESpotLightElement +instance IsHTMLCollectionOrElement SVGFESpecularLightingElement +instance IsHTMLCollectionOrElement SVGFEPointLightElement +instance IsHTMLCollectionOrElement SVGFEOffsetElement +instance IsHTMLCollectionOrElement SVGFEMorphologyElement +instance IsHTMLCollectionOrElement SVGFEMergeNodeElement +instance IsHTMLCollectionOrElement SVGFEMergeElement +instance IsHTMLCollectionOrElement SVGFEImageElement +instance IsHTMLCollectionOrElement SVGFEGaussianBlurElement +instance IsHTMLCollectionOrElement SVGFEFuncRElement +instance IsHTMLCollectionOrElement SVGFEFuncGElement +instance IsHTMLCollectionOrElement SVGFEFuncBElement +instance IsHTMLCollectionOrElement SVGFEFuncAElement +instance IsHTMLCollectionOrElement SVGFEFloodElement +instance IsHTMLCollectionOrElement SVGFEDropShadowElement +instance IsHTMLCollectionOrElement SVGFEDistantLightElement +instance IsHTMLCollectionOrElement SVGFEDisplacementMapElement +instance IsHTMLCollectionOrElement SVGFEDiffuseLightingElement +instance IsHTMLCollectionOrElement SVGFEConvolveMatrixElement +instance IsHTMLCollectionOrElement SVGFECompositeElement +instance IsHTMLCollectionOrElement SVGFEComponentTransferElement +instance IsHTMLCollectionOrElement SVGFEColorMatrixElement +instance IsHTMLCollectionOrElement SVGFEBlendElement +instance IsHTMLCollectionOrElement SVGEllipseElement +instance IsHTMLCollectionOrElement SVGElement +instance IsHTMLCollectionOrElement SVGDescElement +instance IsHTMLCollectionOrElement SVGDefsElement +instance IsHTMLCollectionOrElement SVGCursorElement +instance IsHTMLCollectionOrElement SVGComponentTransferFunctionElement +instance IsHTMLCollectionOrElement SVGClipPathElement +instance IsHTMLCollectionOrElement SVGCircleElement +instance IsHTMLCollectionOrElement SVGAnimationElement +instance IsHTMLCollectionOrElement SVGAnimateTransformElement +instance IsHTMLCollectionOrElement SVGAnimateMotionElement +instance IsHTMLCollectionOrElement SVGAnimateElement +instance IsHTMLCollectionOrElement SVGAnimateColorElement +instance IsHTMLCollectionOrElement SVGAltGlyphItemElement +instance IsHTMLCollectionOrElement SVGAltGlyphElement +instance IsHTMLCollectionOrElement SVGAltGlyphDefElement +instance IsHTMLCollectionOrElement SVGAElement +instance IsHTMLCollectionOrElement HTMLVideoElement +instance IsHTMLCollectionOrElement HTMLUnknownElement +instance IsHTMLCollectionOrElement HTMLUListElement +instance IsHTMLCollectionOrElement HTMLTrackElement +instance IsHTMLCollectionOrElement HTMLTitleElement +instance IsHTMLCollectionOrElement HTMLTimeElement +instance IsHTMLCollectionOrElement HTMLTextAreaElement +instance IsHTMLCollectionOrElement HTMLTemplateElement +instance IsHTMLCollectionOrElement HTMLTableSectionElement +instance IsHTMLCollectionOrElement HTMLTableRowElement +instance IsHTMLCollectionOrElement HTMLTableElement +instance IsHTMLCollectionOrElement HTMLTableColElement +instance IsHTMLCollectionOrElement HTMLTableCellElement +instance IsHTMLCollectionOrElement HTMLTableCaptionElement +instance IsHTMLCollectionOrElement HTMLStyleElement +instance IsHTMLCollectionOrElement HTMLSpanElement +instance IsHTMLCollectionOrElement HTMLSourceElement +instance IsHTMLCollectionOrElement HTMLSlotElement +instance IsHTMLCollectionOrElement HTMLSelectElement +instance IsHTMLCollectionOrElement HTMLScriptElement +instance IsHTMLCollectionOrElement HTMLQuoteElement +instance IsHTMLCollectionOrElement HTMLProgressElement +instance IsHTMLCollectionOrElement HTMLPreElement +instance IsHTMLCollectionOrElement HTMLPictureElement +instance IsHTMLCollectionOrElement HTMLParamElement +instance IsHTMLCollectionOrElement HTMLParagraphElement +instance IsHTMLCollectionOrElement HTMLOutputElement +instance IsHTMLCollectionOrElement HTMLOptionElement +instance IsHTMLCollectionOrElement HTMLOptGroupElement +instance IsHTMLCollectionOrElement HTMLObjectElement +instance IsHTMLCollectionOrElement HTMLOListElement +instance IsHTMLCollectionOrElement HTMLModElement +instance IsHTMLCollectionOrElement HTMLMeterElement +instance IsHTMLCollectionOrElement HTMLMetaElement +instance IsHTMLCollectionOrElement HTMLMenuElement +instance IsHTMLCollectionOrElement HTMLMediaElement +instance IsHTMLCollectionOrElement HTMLMarqueeElement +instance IsHTMLCollectionOrElement HTMLMapElement +instance IsHTMLCollectionOrElement HTMLLinkElement +instance IsHTMLCollectionOrElement HTMLLegendElement +instance IsHTMLCollectionOrElement HTMLLabelElement +instance IsHTMLCollectionOrElement HTMLLIElement +instance IsHTMLCollectionOrElement HTMLKeygenElement +instance IsHTMLCollectionOrElement HTMLInputElement +instance IsHTMLCollectionOrElement HTMLImageElement +instance IsHTMLCollectionOrElement HTMLIFrameElement +instance IsHTMLCollectionOrElement HTMLHtmlElement +instance IsHTMLCollectionOrElement HTMLHeadingElement +instance IsHTMLCollectionOrElement HTMLHeadElement +instance IsHTMLCollectionOrElement HTMLHRElement +instance IsHTMLCollectionOrElement HTMLFrameSetElement +instance IsHTMLCollectionOrElement HTMLFrameElement +instance IsHTMLCollectionOrElement HTMLFormElement +instance IsHTMLCollectionOrElement HTMLFontElement +instance IsHTMLCollectionOrElement HTMLFieldSetElement +instance IsHTMLCollectionOrElement HTMLEmbedElement +instance IsHTMLCollectionOrElement HTMLElement +instance IsHTMLCollectionOrElement HTMLDivElement +instance IsHTMLCollectionOrElement HTMLDirectoryElement +instance IsHTMLCollectionOrElement HTMLDetailsElement +instance IsHTMLCollectionOrElement HTMLDataListElement +instance IsHTMLCollectionOrElement HTMLDataElement +instance IsHTMLCollectionOrElement HTMLDListElement +instance IsHTMLCollectionOrElement HTMLCanvasElement +instance IsHTMLCollectionOrElement HTMLButtonElement +instance IsHTMLCollectionOrElement HTMLBodyElement +instance IsHTMLCollectionOrElement HTMLBaseElement +instance IsHTMLCollectionOrElement HTMLBRElement +instance IsHTMLCollectionOrElement HTMLAudioElement +instance IsHTMLCollectionOrElement HTMLAttachmentElement +instance IsHTMLCollectionOrElement HTMLAreaElement +instance IsHTMLCollectionOrElement HTMLAppletElement +instance IsHTMLCollectionOrElement HTMLAnchorElement +instance IsHTMLCollectionOrElement HTMLCollection +instance IsHTMLCollectionOrElement HTMLOptionsCollection +instance IsHTMLCollectionOrElement HTMLFormControlsCollection + +newtype HTMLElementOrLong = HTMLElementOrLong { unHTMLElementOrLong :: JSVal } + +instance PToJSVal HTMLElementOrLong where + pToJSVal = unHTMLElementOrLong + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLElementOrLong where + pFromJSVal = HTMLElementOrLong + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLElementOrLong where + toJSVal = return . unHTMLElementOrLong + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLElementOrLong where + fromJSVal v = fmap HTMLElementOrLong <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLElementOrLong + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLElementOrLong where + makeObject = makeObject . unHTMLElementOrLong + +class (FromJSVal o, ToJSVal o) => IsHTMLElementOrLong o + +instance IsHTMLElementOrLong HTMLElementOrLong +instance IsHTMLElementOrLong Int +instance IsHTMLElementOrLong HTMLElement +instance IsHTMLElementOrLong HTMLVideoElement +instance IsHTMLElementOrLong HTMLUnknownElement +instance IsHTMLElementOrLong HTMLUListElement +instance IsHTMLElementOrLong HTMLTrackElement +instance IsHTMLElementOrLong HTMLTitleElement +instance IsHTMLElementOrLong HTMLTimeElement +instance IsHTMLElementOrLong HTMLTextAreaElement +instance IsHTMLElementOrLong HTMLTemplateElement +instance IsHTMLElementOrLong HTMLTableSectionElement +instance IsHTMLElementOrLong HTMLTableRowElement +instance IsHTMLElementOrLong HTMLTableElement +instance IsHTMLElementOrLong HTMLTableColElement +instance IsHTMLElementOrLong HTMLTableCellElement +instance IsHTMLElementOrLong HTMLTableCaptionElement +instance IsHTMLElementOrLong HTMLStyleElement +instance IsHTMLElementOrLong HTMLSpanElement +instance IsHTMLElementOrLong HTMLSourceElement +instance IsHTMLElementOrLong HTMLSlotElement +instance IsHTMLElementOrLong HTMLSelectElement +instance IsHTMLElementOrLong HTMLScriptElement +instance IsHTMLElementOrLong HTMLQuoteElement +instance IsHTMLElementOrLong HTMLProgressElement +instance IsHTMLElementOrLong HTMLPreElement +instance IsHTMLElementOrLong HTMLPictureElement +instance IsHTMLElementOrLong HTMLParamElement +instance IsHTMLElementOrLong HTMLParagraphElement +instance IsHTMLElementOrLong HTMLOutputElement +instance IsHTMLElementOrLong HTMLOptionElement +instance IsHTMLElementOrLong HTMLOptGroupElement +instance IsHTMLElementOrLong HTMLObjectElement +instance IsHTMLElementOrLong HTMLOListElement +instance IsHTMLElementOrLong HTMLModElement +instance IsHTMLElementOrLong HTMLMeterElement +instance IsHTMLElementOrLong HTMLMetaElement +instance IsHTMLElementOrLong HTMLMenuElement +instance IsHTMLElementOrLong HTMLMediaElement +instance IsHTMLElementOrLong HTMLMarqueeElement +instance IsHTMLElementOrLong HTMLMapElement +instance IsHTMLElementOrLong HTMLLinkElement +instance IsHTMLElementOrLong HTMLLegendElement +instance IsHTMLElementOrLong HTMLLabelElement +instance IsHTMLElementOrLong HTMLLIElement +instance IsHTMLElementOrLong HTMLKeygenElement +instance IsHTMLElementOrLong HTMLInputElement +instance IsHTMLElementOrLong HTMLImageElement +instance IsHTMLElementOrLong HTMLIFrameElement +instance IsHTMLElementOrLong HTMLHtmlElement +instance IsHTMLElementOrLong HTMLHeadingElement +instance IsHTMLElementOrLong HTMLHeadElement +instance IsHTMLElementOrLong HTMLHRElement +instance IsHTMLElementOrLong HTMLFrameSetElement +instance IsHTMLElementOrLong HTMLFrameElement +instance IsHTMLElementOrLong HTMLFormElement +instance IsHTMLElementOrLong HTMLFontElement +instance IsHTMLElementOrLong HTMLFieldSetElement +instance IsHTMLElementOrLong HTMLEmbedElement +instance IsHTMLElementOrLong HTMLDivElement +instance IsHTMLElementOrLong HTMLDirectoryElement +instance IsHTMLElementOrLong HTMLDetailsElement +instance IsHTMLElementOrLong HTMLDataListElement +instance IsHTMLElementOrLong HTMLDataElement +instance IsHTMLElementOrLong HTMLDListElement +instance IsHTMLElementOrLong HTMLCanvasElement +instance IsHTMLElementOrLong HTMLButtonElement +instance IsHTMLElementOrLong HTMLBodyElement +instance IsHTMLElementOrLong HTMLBaseElement +instance IsHTMLElementOrLong HTMLBRElement +instance IsHTMLElementOrLong HTMLAudioElement +instance IsHTMLElementOrLong HTMLAttachmentElement +instance IsHTMLElementOrLong HTMLAreaElement +instance IsHTMLElementOrLong HTMLAppletElement +instance IsHTMLElementOrLong HTMLAnchorElement + +newtype HTMLOptionElementOrGroup = HTMLOptionElementOrGroup { unHTMLOptionElementOrGroup :: JSVal } + +instance PToJSVal HTMLOptionElementOrGroup where + pToJSVal = unHTMLOptionElementOrGroup + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLOptionElementOrGroup where + pFromJSVal = HTMLOptionElementOrGroup + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLOptionElementOrGroup where + toJSVal = return . unHTMLOptionElementOrGroup + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLOptionElementOrGroup where + fromJSVal v = fmap HTMLOptionElementOrGroup <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLOptionElementOrGroup + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLOptionElementOrGroup where + makeObject = makeObject . unHTMLOptionElementOrGroup + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsHTMLOptionElementOrGroup o + +toHTMLOptionElementOrGroup :: IsHTMLOptionElementOrGroup o => o -> HTMLOptionElementOrGroup +toHTMLOptionElementOrGroup = HTMLOptionElementOrGroup . coerce + +instance IsHTMLOptionElementOrGroup HTMLOptionElementOrGroup +instance IsHTMLOptionElementOrGroup HTMLOptGroupElement +instance IsHTMLOptionElementOrGroup HTMLOptionElement + +newtype IDBCursorSource = IDBCursorSource { unIDBCursorSource :: JSVal } + +instance PToJSVal IDBCursorSource where + pToJSVal = unIDBCursorSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBCursorSource where + pFromJSVal = IDBCursorSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBCursorSource where + toJSVal = return . unIDBCursorSource + {-# INLINE toJSVal #-} + +instance FromJSVal IDBCursorSource where + fromJSVal v = fmap IDBCursorSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBCursorSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBCursorSource where + makeObject = makeObject . unIDBCursorSource + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsIDBCursorSource o + +toIDBCursorSource :: IsIDBCursorSource o => o -> IDBCursorSource +toIDBCursorSource = IDBCursorSource . coerce + +instance IsIDBCursorSource IDBCursorSource +instance IsIDBCursorSource IDBIndex +instance IsIDBCursorSource IDBObjectStore + +newtype IDBKeyPath = IDBKeyPath { unIDBKeyPath :: JSVal } + +instance PToJSVal IDBKeyPath where + pToJSVal = unIDBKeyPath + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBKeyPath where + pFromJSVal = IDBKeyPath + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBKeyPath where + toJSVal = return . unIDBKeyPath + {-# INLINE toJSVal #-} + +instance FromJSVal IDBKeyPath where + fromJSVal v = fmap IDBKeyPath <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBKeyPath + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBKeyPath where + makeObject = makeObject . unIDBKeyPath + +class (FromJSVal o, ToJSVal o) => IsIDBKeyPath o + +instance IsIDBKeyPath IDBKeyPath +instance IsIDBKeyPath [Text] +instance IsIDBKeyPath [JSString] +instance IsIDBKeyPath [String] +instance IsIDBKeyPath Text +instance IsIDBKeyPath JSString +instance IsIDBKeyPath String + +newtype IDBRequestResult = IDBRequestResult { unIDBRequestResult :: JSVal } + +instance PToJSVal IDBRequestResult where + pToJSVal = unIDBRequestResult + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBRequestResult where + pFromJSVal = IDBRequestResult + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBRequestResult where + toJSVal = return . unIDBRequestResult + {-# INLINE toJSVal #-} + +instance FromJSVal IDBRequestResult where + fromJSVal v = fmap IDBRequestResult <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBRequestResult + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBRequestResult where + makeObject = makeObject . unIDBRequestResult + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsIDBRequestResult o + +toIDBRequestResult :: IsIDBRequestResult o => o -> IDBRequestResult +toIDBRequestResult = IDBRequestResult . coerce + +instance IsIDBRequestResult IDBRequestResult +instance IsIDBRequestResult JSVal +instance IsIDBRequestResult IDBDatabase +instance IsIDBRequestResult IDBCursor +instance IsIDBRequestResult IDBCursorWithValue + +newtype IDBRequestSource = IDBRequestSource { unIDBRequestSource :: JSVal } + +instance PToJSVal IDBRequestSource where + pToJSVal = unIDBRequestSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBRequestSource where + pFromJSVal = IDBRequestSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBRequestSource where + toJSVal = return . unIDBRequestSource + {-# INLINE toJSVal #-} + +instance FromJSVal IDBRequestSource where + fromJSVal v = fmap IDBRequestSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBRequestSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBRequestSource where + makeObject = makeObject . unIDBRequestSource + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsIDBRequestSource o + +toIDBRequestSource :: IsIDBRequestSource o => o -> IDBRequestSource +toIDBRequestSource = IDBRequestSource . coerce + +instance IsIDBRequestSource IDBRequestSource +instance IsIDBRequestSource IDBCursor +instance IsIDBRequestSource IDBCursorWithValue +instance IsIDBRequestSource IDBIndex +instance IsIDBRequestSource IDBObjectStore + +newtype Int32List = Int32List { unInt32List :: JSVal } + +instance PToJSVal Int32List where + pToJSVal = unInt32List + {-# INLINE pToJSVal #-} + +instance PFromJSVal Int32List where + pFromJSVal = Int32List + {-# INLINE pFromJSVal #-} + +instance ToJSVal Int32List where + toJSVal = return . unInt32List + {-# INLINE toJSVal #-} + +instance FromJSVal Int32List where + fromJSVal v = fmap Int32List <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Int32List + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Int32List where + makeObject = makeObject . unInt32List + +class (FromJSVal o, ToJSVal o) => IsInt32List o + +instance IsInt32List Int32List +instance IsInt32List [GLint] +instance IsInt32List Int32Array + +newtype KeyData = KeyData { unKeyData :: JSVal } + +instance PToJSVal KeyData where + pToJSVal = unKeyData + {-# INLINE pToJSVal #-} + +instance PFromJSVal KeyData where + pFromJSVal = KeyData + {-# INLINE pFromJSVal #-} + +instance ToJSVal KeyData where + toJSVal = return . unKeyData + {-# INLINE toJSVal #-} + +instance FromJSVal KeyData where + fromJSVal v = fmap KeyData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . KeyData + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject KeyData where + makeObject = makeObject . unKeyData + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsKeyData o + +toKeyData :: IsKeyData o => o -> KeyData +toKeyData = KeyData . coerce + +instance IsKeyData KeyData +instance IsKeyData JsonWebKey +instance IsKeyData BinaryData +instance IsKeyData BufferSource +instance IsKeyData ArrayBufferView +instance IsKeyData ArrayBuffer + +newtype MediaProvider = MediaProvider { unMediaProvider :: JSVal } + +instance PToJSVal MediaProvider where + pToJSVal = unMediaProvider + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaProvider where + pFromJSVal = MediaProvider + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaProvider where + toJSVal = return . unMediaProvider + {-# INLINE toJSVal #-} + +instance FromJSVal MediaProvider where + fromJSVal v = fmap MediaProvider <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaProvider + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaProvider where + makeObject = makeObject . unMediaProvider + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsMediaProvider o + +toMediaProvider :: IsMediaProvider o => o -> MediaProvider +toMediaProvider = MediaProvider . coerce + +instance IsMediaProvider MediaProvider +instance IsMediaProvider MediaStream +instance IsMediaProvider MediaSource +instance IsMediaProvider Blob +instance IsMediaProvider File + +newtype MediaStreamTrackOrKind = MediaStreamTrackOrKind { unMediaStreamTrackOrKind :: JSVal } + +instance PToJSVal MediaStreamTrackOrKind where + pToJSVal = unMediaStreamTrackOrKind + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStreamTrackOrKind where + pFromJSVal = MediaStreamTrackOrKind + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStreamTrackOrKind where + toJSVal = return . unMediaStreamTrackOrKind + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStreamTrackOrKind where + fromJSVal v = fmap MediaStreamTrackOrKind <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStreamTrackOrKind + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStreamTrackOrKind where + makeObject = makeObject . unMediaStreamTrackOrKind + +class (FromJSVal o, ToJSVal o) => IsMediaStreamTrackOrKind o + +instance IsMediaStreamTrackOrKind MediaStreamTrackOrKind +instance IsMediaStreamTrackOrKind Text +instance IsMediaStreamTrackOrKind JSString +instance IsMediaStreamTrackOrKind String +instance IsMediaStreamTrackOrKind MediaStreamTrack +instance IsMediaStreamTrackOrKind CanvasCaptureMediaStreamTrack + +newtype MessageEventSource = MessageEventSource { unMessageEventSource :: JSVal } + +instance PToJSVal MessageEventSource where + pToJSVal = unMessageEventSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal MessageEventSource where + pFromJSVal = MessageEventSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal MessageEventSource where + toJSVal = return . unMessageEventSource + {-# INLINE toJSVal #-} + +instance FromJSVal MessageEventSource where + fromJSVal v = fmap MessageEventSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MessageEventSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MessageEventSource where + makeObject = makeObject . unMessageEventSource + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsMessageEventSource o + +toMessageEventSource :: IsMessageEventSource o => o -> MessageEventSource +toMessageEventSource = MessageEventSource . coerce + +instance IsMessageEventSource MessageEventSource +instance IsMessageEventSource MessagePort +instance IsMessageEventSource Window + +newtype NodeOrString = NodeOrString { unNodeOrString :: JSVal } + +instance PToJSVal NodeOrString where + pToJSVal = unNodeOrString + {-# INLINE pToJSVal #-} + +instance PFromJSVal NodeOrString where + pFromJSVal = NodeOrString + {-# INLINE pFromJSVal #-} + +instance ToJSVal NodeOrString where + toJSVal = return . unNodeOrString + {-# INLINE toJSVal #-} + +instance FromJSVal NodeOrString where + fromJSVal v = fmap NodeOrString <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NodeOrString + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NodeOrString where + makeObject = makeObject . unNodeOrString + +class (FromJSVal o, ToJSVal o) => IsNodeOrString o + +instance IsNodeOrString NodeOrString +instance IsNodeOrString Text +instance IsNodeOrString JSString +instance IsNodeOrString String +instance IsNodeOrString Node +instance IsNodeOrString XMLDocument +instance IsNodeOrString ShadowRoot +instance IsNodeOrString SVGViewElement +instance IsNodeOrString SVGVKernElement +instance IsNodeOrString SVGUseElement +instance IsNodeOrString SVGTitleElement +instance IsNodeOrString SVGTextPositioningElement +instance IsNodeOrString SVGTextPathElement +instance IsNodeOrString SVGTextElement +instance IsNodeOrString SVGTextContentElement +instance IsNodeOrString SVGTSpanElement +instance IsNodeOrString SVGTRefElement +instance IsNodeOrString SVGSymbolElement +instance IsNodeOrString SVGSwitchElement +instance IsNodeOrString SVGStyleElement +instance IsNodeOrString SVGStopElement +instance IsNodeOrString SVGSetElement +instance IsNodeOrString SVGScriptElement +instance IsNodeOrString SVGSVGElement +instance IsNodeOrString SVGRectElement +instance IsNodeOrString SVGRadialGradientElement +instance IsNodeOrString SVGPolylineElement +instance IsNodeOrString SVGPolygonElement +instance IsNodeOrString SVGPatternElement +instance IsNodeOrString SVGPathElement +instance IsNodeOrString SVGMissingGlyphElement +instance IsNodeOrString SVGMetadataElement +instance IsNodeOrString SVGMaskElement +instance IsNodeOrString SVGMarkerElement +instance IsNodeOrString SVGMPathElement +instance IsNodeOrString SVGLinearGradientElement +instance IsNodeOrString SVGLineElement +instance IsNodeOrString SVGImageElement +instance IsNodeOrString SVGHKernElement +instance IsNodeOrString SVGGraphicsElement +instance IsNodeOrString SVGGradientElement +instance IsNodeOrString SVGGlyphRefElement +instance IsNodeOrString SVGGlyphElement +instance IsNodeOrString SVGGElement +instance IsNodeOrString SVGForeignObjectElement +instance IsNodeOrString SVGFontFaceUriElement +instance IsNodeOrString SVGFontFaceSrcElement +instance IsNodeOrString SVGFontFaceNameElement +instance IsNodeOrString SVGFontFaceFormatElement +instance IsNodeOrString SVGFontFaceElement +instance IsNodeOrString SVGFontElement +instance IsNodeOrString SVGFilterElement +instance IsNodeOrString SVGFETurbulenceElement +instance IsNodeOrString SVGFETileElement +instance IsNodeOrString SVGFESpotLightElement +instance IsNodeOrString SVGFESpecularLightingElement +instance IsNodeOrString SVGFEPointLightElement +instance IsNodeOrString SVGFEOffsetElement +instance IsNodeOrString SVGFEMorphologyElement +instance IsNodeOrString SVGFEMergeNodeElement +instance IsNodeOrString SVGFEMergeElement +instance IsNodeOrString SVGFEImageElement +instance IsNodeOrString SVGFEGaussianBlurElement +instance IsNodeOrString SVGFEFuncRElement +instance IsNodeOrString SVGFEFuncGElement +instance IsNodeOrString SVGFEFuncBElement +instance IsNodeOrString SVGFEFuncAElement +instance IsNodeOrString SVGFEFloodElement +instance IsNodeOrString SVGFEDropShadowElement +instance IsNodeOrString SVGFEDistantLightElement +instance IsNodeOrString SVGFEDisplacementMapElement +instance IsNodeOrString SVGFEDiffuseLightingElement +instance IsNodeOrString SVGFEConvolveMatrixElement +instance IsNodeOrString SVGFECompositeElement +instance IsNodeOrString SVGFEComponentTransferElement +instance IsNodeOrString SVGFEColorMatrixElement +instance IsNodeOrString SVGFEBlendElement +instance IsNodeOrString SVGEllipseElement +instance IsNodeOrString SVGElement +instance IsNodeOrString SVGDescElement +instance IsNodeOrString SVGDefsElement +instance IsNodeOrString SVGCursorElement +instance IsNodeOrString SVGComponentTransferFunctionElement +instance IsNodeOrString SVGClipPathElement +instance IsNodeOrString SVGCircleElement +instance IsNodeOrString SVGAnimationElement +instance IsNodeOrString SVGAnimateTransformElement +instance IsNodeOrString SVGAnimateMotionElement +instance IsNodeOrString SVGAnimateElement +instance IsNodeOrString SVGAnimateColorElement +instance IsNodeOrString SVGAltGlyphItemElement +instance IsNodeOrString SVGAltGlyphElement +instance IsNodeOrString SVGAltGlyphDefElement +instance IsNodeOrString SVGAElement +instance IsNodeOrString ProcessingInstruction +instance IsNodeOrString HTMLVideoElement +instance IsNodeOrString HTMLUnknownElement +instance IsNodeOrString HTMLUListElement +instance IsNodeOrString HTMLTrackElement +instance IsNodeOrString HTMLTitleElement +instance IsNodeOrString HTMLTimeElement +instance IsNodeOrString HTMLTextAreaElement +instance IsNodeOrString HTMLTemplateElement +instance IsNodeOrString HTMLTableSectionElement +instance IsNodeOrString HTMLTableRowElement +instance IsNodeOrString HTMLTableElement +instance IsNodeOrString HTMLTableColElement +instance IsNodeOrString HTMLTableCellElement +instance IsNodeOrString HTMLTableCaptionElement +instance IsNodeOrString HTMLStyleElement +instance IsNodeOrString HTMLSpanElement +instance IsNodeOrString HTMLSourceElement +instance IsNodeOrString HTMLSlotElement +instance IsNodeOrString HTMLSelectElement +instance IsNodeOrString HTMLScriptElement +instance IsNodeOrString HTMLQuoteElement +instance IsNodeOrString HTMLProgressElement +instance IsNodeOrString HTMLPreElement +instance IsNodeOrString HTMLPictureElement +instance IsNodeOrString HTMLParamElement +instance IsNodeOrString HTMLParagraphElement +instance IsNodeOrString HTMLOutputElement +instance IsNodeOrString HTMLOptionElement +instance IsNodeOrString HTMLOptGroupElement +instance IsNodeOrString HTMLObjectElement +instance IsNodeOrString HTMLOListElement +instance IsNodeOrString HTMLModElement +instance IsNodeOrString HTMLMeterElement +instance IsNodeOrString HTMLMetaElement +instance IsNodeOrString HTMLMenuElement +instance IsNodeOrString HTMLMediaElement +instance IsNodeOrString HTMLMarqueeElement +instance IsNodeOrString HTMLMapElement +instance IsNodeOrString HTMLLinkElement +instance IsNodeOrString HTMLLegendElement +instance IsNodeOrString HTMLLabelElement +instance IsNodeOrString HTMLLIElement +instance IsNodeOrString HTMLKeygenElement +instance IsNodeOrString HTMLInputElement +instance IsNodeOrString HTMLImageElement +instance IsNodeOrString HTMLIFrameElement +instance IsNodeOrString HTMLHtmlElement +instance IsNodeOrString HTMLHeadingElement +instance IsNodeOrString HTMLHeadElement +instance IsNodeOrString HTMLHRElement +instance IsNodeOrString HTMLFrameSetElement +instance IsNodeOrString HTMLFrameElement +instance IsNodeOrString HTMLFormElement +instance IsNodeOrString HTMLFontElement +instance IsNodeOrString HTMLFieldSetElement +instance IsNodeOrString HTMLEmbedElement +instance IsNodeOrString HTMLElement +instance IsNodeOrString HTMLDocument +instance IsNodeOrString HTMLDivElement +instance IsNodeOrString HTMLDirectoryElement +instance IsNodeOrString HTMLDetailsElement +instance IsNodeOrString HTMLDataListElement +instance IsNodeOrString HTMLDataElement +instance IsNodeOrString HTMLDListElement +instance IsNodeOrString HTMLCanvasElement +instance IsNodeOrString HTMLButtonElement +instance IsNodeOrString HTMLBodyElement +instance IsNodeOrString HTMLBaseElement +instance IsNodeOrString HTMLBRElement +instance IsNodeOrString HTMLAudioElement +instance IsNodeOrString HTMLAttachmentElement +instance IsNodeOrString HTMLAreaElement +instance IsNodeOrString HTMLAppletElement +instance IsNodeOrString HTMLAnchorElement +instance IsNodeOrString Element +instance IsNodeOrString DocumentType +instance IsNodeOrString DocumentFragment +instance IsNodeOrString Document +instance IsNodeOrString Comment +instance IsNodeOrString CharacterData +instance IsNodeOrString CDATASection +instance IsNodeOrString Attr + +newtype RTCIceCandidateOrInit = RTCIceCandidateOrInit { unRTCIceCandidateOrInit :: JSVal } + +instance PToJSVal RTCIceCandidateOrInit where + pToJSVal = unRTCIceCandidateOrInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCIceCandidateOrInit where + pFromJSVal = RTCIceCandidateOrInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCIceCandidateOrInit where + toJSVal = return . unRTCIceCandidateOrInit + {-# INLINE toJSVal #-} + +instance FromJSVal RTCIceCandidateOrInit where + fromJSVal v = fmap RTCIceCandidateOrInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCIceCandidateOrInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCIceCandidateOrInit where + makeObject = makeObject . unRTCIceCandidateOrInit + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsRTCIceCandidateOrInit o + +toRTCIceCandidateOrInit :: IsRTCIceCandidateOrInit o => o -> RTCIceCandidateOrInit +toRTCIceCandidateOrInit = RTCIceCandidateOrInit . coerce + +instance IsRTCIceCandidateOrInit RTCIceCandidateOrInit +instance IsRTCIceCandidateOrInit RTCIceCandidate +instance IsRTCIceCandidateOrInit RTCIceCandidateInit + +newtype RadioNodeListOrElement = RadioNodeListOrElement { unRadioNodeListOrElement :: JSVal } + +instance PToJSVal RadioNodeListOrElement where + pToJSVal = unRadioNodeListOrElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal RadioNodeListOrElement where + pFromJSVal = RadioNodeListOrElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal RadioNodeListOrElement where + toJSVal = return . unRadioNodeListOrElement + {-# INLINE toJSVal #-} + +instance FromJSVal RadioNodeListOrElement where + fromJSVal v = fmap RadioNodeListOrElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RadioNodeListOrElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RadioNodeListOrElement where + makeObject = makeObject . unRadioNodeListOrElement + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsRadioNodeListOrElement o + +toRadioNodeListOrElement :: IsRadioNodeListOrElement o => o -> RadioNodeListOrElement +toRadioNodeListOrElement = RadioNodeListOrElement . coerce + +instance IsRadioNodeListOrElement RadioNodeListOrElement +instance IsRadioNodeListOrElement Element +instance IsRadioNodeListOrElement SVGViewElement +instance IsRadioNodeListOrElement SVGVKernElement +instance IsRadioNodeListOrElement SVGUseElement +instance IsRadioNodeListOrElement SVGTitleElement +instance IsRadioNodeListOrElement SVGTextPositioningElement +instance IsRadioNodeListOrElement SVGTextPathElement +instance IsRadioNodeListOrElement SVGTextElement +instance IsRadioNodeListOrElement SVGTextContentElement +instance IsRadioNodeListOrElement SVGTSpanElement +instance IsRadioNodeListOrElement SVGTRefElement +instance IsRadioNodeListOrElement SVGSymbolElement +instance IsRadioNodeListOrElement SVGSwitchElement +instance IsRadioNodeListOrElement SVGStyleElement +instance IsRadioNodeListOrElement SVGStopElement +instance IsRadioNodeListOrElement SVGSetElement +instance IsRadioNodeListOrElement SVGScriptElement +instance IsRadioNodeListOrElement SVGSVGElement +instance IsRadioNodeListOrElement SVGRectElement +instance IsRadioNodeListOrElement SVGRadialGradientElement +instance IsRadioNodeListOrElement SVGPolylineElement +instance IsRadioNodeListOrElement SVGPolygonElement +instance IsRadioNodeListOrElement SVGPatternElement +instance IsRadioNodeListOrElement SVGPathElement +instance IsRadioNodeListOrElement SVGMissingGlyphElement +instance IsRadioNodeListOrElement SVGMetadataElement +instance IsRadioNodeListOrElement SVGMaskElement +instance IsRadioNodeListOrElement SVGMarkerElement +instance IsRadioNodeListOrElement SVGMPathElement +instance IsRadioNodeListOrElement SVGLinearGradientElement +instance IsRadioNodeListOrElement SVGLineElement +instance IsRadioNodeListOrElement SVGImageElement +instance IsRadioNodeListOrElement SVGHKernElement +instance IsRadioNodeListOrElement SVGGraphicsElement +instance IsRadioNodeListOrElement SVGGradientElement +instance IsRadioNodeListOrElement SVGGlyphRefElement +instance IsRadioNodeListOrElement SVGGlyphElement +instance IsRadioNodeListOrElement SVGGElement +instance IsRadioNodeListOrElement SVGForeignObjectElement +instance IsRadioNodeListOrElement SVGFontFaceUriElement +instance IsRadioNodeListOrElement SVGFontFaceSrcElement +instance IsRadioNodeListOrElement SVGFontFaceNameElement +instance IsRadioNodeListOrElement SVGFontFaceFormatElement +instance IsRadioNodeListOrElement SVGFontFaceElement +instance IsRadioNodeListOrElement SVGFontElement +instance IsRadioNodeListOrElement SVGFilterElement +instance IsRadioNodeListOrElement SVGFETurbulenceElement +instance IsRadioNodeListOrElement SVGFETileElement +instance IsRadioNodeListOrElement SVGFESpotLightElement +instance IsRadioNodeListOrElement SVGFESpecularLightingElement +instance IsRadioNodeListOrElement SVGFEPointLightElement +instance IsRadioNodeListOrElement SVGFEOffsetElement +instance IsRadioNodeListOrElement SVGFEMorphologyElement +instance IsRadioNodeListOrElement SVGFEMergeNodeElement +instance IsRadioNodeListOrElement SVGFEMergeElement +instance IsRadioNodeListOrElement SVGFEImageElement +instance IsRadioNodeListOrElement SVGFEGaussianBlurElement +instance IsRadioNodeListOrElement SVGFEFuncRElement +instance IsRadioNodeListOrElement SVGFEFuncGElement +instance IsRadioNodeListOrElement SVGFEFuncBElement +instance IsRadioNodeListOrElement SVGFEFuncAElement +instance IsRadioNodeListOrElement SVGFEFloodElement +instance IsRadioNodeListOrElement SVGFEDropShadowElement +instance IsRadioNodeListOrElement SVGFEDistantLightElement +instance IsRadioNodeListOrElement SVGFEDisplacementMapElement +instance IsRadioNodeListOrElement SVGFEDiffuseLightingElement +instance IsRadioNodeListOrElement SVGFEConvolveMatrixElement +instance IsRadioNodeListOrElement SVGFECompositeElement +instance IsRadioNodeListOrElement SVGFEComponentTransferElement +instance IsRadioNodeListOrElement SVGFEColorMatrixElement +instance IsRadioNodeListOrElement SVGFEBlendElement +instance IsRadioNodeListOrElement SVGEllipseElement +instance IsRadioNodeListOrElement SVGElement +instance IsRadioNodeListOrElement SVGDescElement +instance IsRadioNodeListOrElement SVGDefsElement +instance IsRadioNodeListOrElement SVGCursorElement +instance IsRadioNodeListOrElement SVGComponentTransferFunctionElement +instance IsRadioNodeListOrElement SVGClipPathElement +instance IsRadioNodeListOrElement SVGCircleElement +instance IsRadioNodeListOrElement SVGAnimationElement +instance IsRadioNodeListOrElement SVGAnimateTransformElement +instance IsRadioNodeListOrElement SVGAnimateMotionElement +instance IsRadioNodeListOrElement SVGAnimateElement +instance IsRadioNodeListOrElement SVGAnimateColorElement +instance IsRadioNodeListOrElement SVGAltGlyphItemElement +instance IsRadioNodeListOrElement SVGAltGlyphElement +instance IsRadioNodeListOrElement SVGAltGlyphDefElement +instance IsRadioNodeListOrElement SVGAElement +instance IsRadioNodeListOrElement HTMLVideoElement +instance IsRadioNodeListOrElement HTMLUnknownElement +instance IsRadioNodeListOrElement HTMLUListElement +instance IsRadioNodeListOrElement HTMLTrackElement +instance IsRadioNodeListOrElement HTMLTitleElement +instance IsRadioNodeListOrElement HTMLTimeElement +instance IsRadioNodeListOrElement HTMLTextAreaElement +instance IsRadioNodeListOrElement HTMLTemplateElement +instance IsRadioNodeListOrElement HTMLTableSectionElement +instance IsRadioNodeListOrElement HTMLTableRowElement +instance IsRadioNodeListOrElement HTMLTableElement +instance IsRadioNodeListOrElement HTMLTableColElement +instance IsRadioNodeListOrElement HTMLTableCellElement +instance IsRadioNodeListOrElement HTMLTableCaptionElement +instance IsRadioNodeListOrElement HTMLStyleElement +instance IsRadioNodeListOrElement HTMLSpanElement +instance IsRadioNodeListOrElement HTMLSourceElement +instance IsRadioNodeListOrElement HTMLSlotElement +instance IsRadioNodeListOrElement HTMLSelectElement +instance IsRadioNodeListOrElement HTMLScriptElement +instance IsRadioNodeListOrElement HTMLQuoteElement +instance IsRadioNodeListOrElement HTMLProgressElement +instance IsRadioNodeListOrElement HTMLPreElement +instance IsRadioNodeListOrElement HTMLPictureElement +instance IsRadioNodeListOrElement HTMLParamElement +instance IsRadioNodeListOrElement HTMLParagraphElement +instance IsRadioNodeListOrElement HTMLOutputElement +instance IsRadioNodeListOrElement HTMLOptionElement +instance IsRadioNodeListOrElement HTMLOptGroupElement +instance IsRadioNodeListOrElement HTMLObjectElement +instance IsRadioNodeListOrElement HTMLOListElement +instance IsRadioNodeListOrElement HTMLModElement +instance IsRadioNodeListOrElement HTMLMeterElement +instance IsRadioNodeListOrElement HTMLMetaElement +instance IsRadioNodeListOrElement HTMLMenuElement +instance IsRadioNodeListOrElement HTMLMediaElement +instance IsRadioNodeListOrElement HTMLMarqueeElement +instance IsRadioNodeListOrElement HTMLMapElement +instance IsRadioNodeListOrElement HTMLLinkElement +instance IsRadioNodeListOrElement HTMLLegendElement +instance IsRadioNodeListOrElement HTMLLabelElement +instance IsRadioNodeListOrElement HTMLLIElement +instance IsRadioNodeListOrElement HTMLKeygenElement +instance IsRadioNodeListOrElement HTMLInputElement +instance IsRadioNodeListOrElement HTMLImageElement +instance IsRadioNodeListOrElement HTMLIFrameElement +instance IsRadioNodeListOrElement HTMLHtmlElement +instance IsRadioNodeListOrElement HTMLHeadingElement +instance IsRadioNodeListOrElement HTMLHeadElement +instance IsRadioNodeListOrElement HTMLHRElement +instance IsRadioNodeListOrElement HTMLFrameSetElement +instance IsRadioNodeListOrElement HTMLFrameElement +instance IsRadioNodeListOrElement HTMLFormElement +instance IsRadioNodeListOrElement HTMLFontElement +instance IsRadioNodeListOrElement HTMLFieldSetElement +instance IsRadioNodeListOrElement HTMLEmbedElement +instance IsRadioNodeListOrElement HTMLElement +instance IsRadioNodeListOrElement HTMLDivElement +instance IsRadioNodeListOrElement HTMLDirectoryElement +instance IsRadioNodeListOrElement HTMLDetailsElement +instance IsRadioNodeListOrElement HTMLDataListElement +instance IsRadioNodeListOrElement HTMLDataElement +instance IsRadioNodeListOrElement HTMLDListElement +instance IsRadioNodeListOrElement HTMLCanvasElement +instance IsRadioNodeListOrElement HTMLButtonElement +instance IsRadioNodeListOrElement HTMLBodyElement +instance IsRadioNodeListOrElement HTMLBaseElement +instance IsRadioNodeListOrElement HTMLBRElement +instance IsRadioNodeListOrElement HTMLAudioElement +instance IsRadioNodeListOrElement HTMLAttachmentElement +instance IsRadioNodeListOrElement HTMLAreaElement +instance IsRadioNodeListOrElement HTMLAppletElement +instance IsRadioNodeListOrElement HTMLAnchorElement +instance IsRadioNodeListOrElement RadioNodeList + +newtype RenderingContext = RenderingContext { unRenderingContext :: JSVal } + +instance PToJSVal RenderingContext where + pToJSVal = unRenderingContext + {-# INLINE pToJSVal #-} + +instance PFromJSVal RenderingContext where + pFromJSVal = RenderingContext + {-# INLINE pFromJSVal #-} + +instance ToJSVal RenderingContext where + toJSVal = return . unRenderingContext + {-# INLINE toJSVal #-} + +instance FromJSVal RenderingContext where + fromJSVal v = fmap RenderingContext <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RenderingContext + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RenderingContext where + makeObject = makeObject . unRenderingContext + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsRenderingContext o + +toRenderingContext :: IsRenderingContext o => o -> RenderingContext +toRenderingContext = RenderingContext . coerce + +instance IsRenderingContext RenderingContext +instance IsRenderingContext WebGLRenderingContextBase +instance IsRenderingContext WebGLRenderingContext +instance IsRenderingContext WebGL2RenderingContext +instance IsRenderingContext CanvasRenderingContext2D + +newtype SQLValue = SQLValue { unSQLValue :: JSVal } + +instance PToJSVal SQLValue where + pToJSVal = unSQLValue + {-# INLINE pToJSVal #-} + +instance PFromJSVal SQLValue where + pFromJSVal = SQLValue + {-# INLINE pFromJSVal #-} + +instance ToJSVal SQLValue where + toJSVal = return . unSQLValue + {-# INLINE toJSVal #-} + +instance FromJSVal SQLValue where + fromJSVal v = fmap SQLValue <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SQLValue + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SQLValue where + makeObject = makeObject . unSQLValue + +class (FromJSVal o, ToJSVal o) => IsSQLValue o + +instance IsSQLValue SQLValue +instance IsSQLValue (Maybe Text) +instance IsSQLValue (Maybe JSString) +instance IsSQLValue (Maybe String) +instance IsSQLValue Double + +newtype StringOrArrayBuffer = StringOrArrayBuffer { unStringOrArrayBuffer :: JSVal } + +instance PToJSVal StringOrArrayBuffer where + pToJSVal = unStringOrArrayBuffer + {-# INLINE pToJSVal #-} + +instance PFromJSVal StringOrArrayBuffer where + pFromJSVal = StringOrArrayBuffer + {-# INLINE pFromJSVal #-} + +instance ToJSVal StringOrArrayBuffer where + toJSVal = return . unStringOrArrayBuffer + {-# INLINE toJSVal #-} + +instance FromJSVal StringOrArrayBuffer where + fromJSVal v = fmap StringOrArrayBuffer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StringOrArrayBuffer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StringOrArrayBuffer where + makeObject = makeObject . unStringOrArrayBuffer + +class (FromJSVal o, ToJSVal o) => IsStringOrArrayBuffer o + +instance IsStringOrArrayBuffer StringOrArrayBuffer +instance IsStringOrArrayBuffer ArrayBuffer +instance IsStringOrArrayBuffer Text +instance IsStringOrArrayBuffer JSString +instance IsStringOrArrayBuffer String + +newtype StringOrBinaryData = StringOrBinaryData { unStringOrBinaryData :: JSVal } + +instance PToJSVal StringOrBinaryData where + pToJSVal = unStringOrBinaryData + {-# INLINE pToJSVal #-} + +instance PFromJSVal StringOrBinaryData where + pFromJSVal = StringOrBinaryData + {-# INLINE pFromJSVal #-} + +instance ToJSVal StringOrBinaryData where + toJSVal = return . unStringOrBinaryData + {-# INLINE toJSVal #-} + +instance FromJSVal StringOrBinaryData where + fromJSVal v = fmap StringOrBinaryData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StringOrBinaryData + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StringOrBinaryData where + makeObject = makeObject . unStringOrBinaryData + +class (FromJSVal o, ToJSVal o) => IsStringOrBinaryData o + +instance IsStringOrBinaryData StringOrBinaryData +instance IsStringOrBinaryData BinaryData +instance IsStringOrBinaryData BufferSource +instance IsStringOrBinaryData ArrayBufferView +instance IsStringOrBinaryData ArrayBuffer +instance IsStringOrBinaryData Text +instance IsStringOrBinaryData JSString +instance IsStringOrBinaryData String + +newtype StringOrStrings = StringOrStrings { unStringOrStrings :: JSVal } + +instance PToJSVal StringOrStrings where + pToJSVal = unStringOrStrings + {-# INLINE pToJSVal #-} + +instance PFromJSVal StringOrStrings where + pFromJSVal = StringOrStrings + {-# INLINE pFromJSVal #-} + +instance ToJSVal StringOrStrings where + toJSVal = return . unStringOrStrings + {-# INLINE toJSVal #-} + +instance FromJSVal StringOrStrings where + fromJSVal v = fmap StringOrStrings <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StringOrStrings + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StringOrStrings where + makeObject = makeObject . unStringOrStrings + +class (FromJSVal o, ToJSVal o) => IsStringOrStrings o + +instance IsStringOrStrings StringOrStrings +instance IsStringOrStrings [Text] +instance IsStringOrStrings [JSString] +instance IsStringOrStrings [String] +instance IsStringOrStrings Text +instance IsStringOrStrings JSString +instance IsStringOrStrings String + +newtype TexImageSource = TexImageSource { unTexImageSource :: JSVal } + +instance PToJSVal TexImageSource where + pToJSVal = unTexImageSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal TexImageSource where + pFromJSVal = TexImageSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal TexImageSource where + toJSVal = return . unTexImageSource + {-# INLINE toJSVal #-} + +instance FromJSVal TexImageSource where + fromJSVal v = fmap TexImageSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TexImageSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TexImageSource where + makeObject = makeObject . unTexImageSource + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsTexImageSource o + +toTexImageSource :: IsTexImageSource o => o -> TexImageSource +toTexImageSource = TexImageSource . coerce + +instance IsTexImageSource TexImageSource +instance IsTexImageSource ImageData +instance IsTexImageSource HTMLImageElement +instance IsTexImageSource HTMLVideoElement +instance IsTexImageSource HTMLCanvasElement + +newtype Track = Track { unTrack :: JSVal } + +instance PToJSVal Track where + pToJSVal = unTrack + {-# INLINE pToJSVal #-} + +instance PFromJSVal Track where + pFromJSVal = Track + {-# INLINE pFromJSVal #-} + +instance ToJSVal Track where + toJSVal = return . unTrack + {-# INLINE toJSVal #-} + +instance FromJSVal Track where + fromJSVal v = fmap Track <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Track + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Track where + makeObject = makeObject . unTrack + +class (FromJSVal o, ToJSVal o, PFromJSVal o, PToJSVal o, Coercible o JSVal) => IsTrack o + +toTrack :: IsTrack o => o -> Track +toTrack = Track . coerce + +instance IsTrack Track +instance IsTrack TextTrack +instance IsTrack AudioTrack +instance IsTrack VideoTrack + +newtype URLSearchParamsInit = URLSearchParamsInit { unURLSearchParamsInit :: JSVal } + +instance PToJSVal URLSearchParamsInit where + pToJSVal = unURLSearchParamsInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal URLSearchParamsInit where + pFromJSVal = URLSearchParamsInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal URLSearchParamsInit where + toJSVal = return . unURLSearchParamsInit + {-# INLINE toJSVal #-} + +instance FromJSVal URLSearchParamsInit where + fromJSVal v = fmap URLSearchParamsInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . URLSearchParamsInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject URLSearchParamsInit where + makeObject = makeObject . unURLSearchParamsInit + +class (FromJSVal o, ToJSVal o) => IsURLSearchParamsInit o + +instance IsURLSearchParamsInit URLSearchParamsInit +instance IsURLSearchParamsInit Text +instance IsURLSearchParamsInit JSString +instance IsURLSearchParamsInit String +instance IsURLSearchParamsInit [[Text]] +instance IsURLSearchParamsInit [[JSString]] +instance IsURLSearchParamsInit [[String]] + +newtype XMLHttpRequestBody = XMLHttpRequestBody { unXMLHttpRequestBody :: JSVal } + +instance PToJSVal XMLHttpRequestBody where + pToJSVal = unXMLHttpRequestBody + {-# INLINE pToJSVal #-} + +instance PFromJSVal XMLHttpRequestBody where + pFromJSVal = XMLHttpRequestBody + {-# INLINE pFromJSVal #-} + +instance ToJSVal XMLHttpRequestBody where + toJSVal = return . unXMLHttpRequestBody + {-# INLINE toJSVal #-} + +instance FromJSVal XMLHttpRequestBody where + fromJSVal v = fmap XMLHttpRequestBody <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XMLHttpRequestBody + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XMLHttpRequestBody where + makeObject = makeObject . unXMLHttpRequestBody + +class (FromJSVal o, ToJSVal o) => IsXMLHttpRequestBody o + +instance IsXMLHttpRequestBody XMLHttpRequestBody +instance IsXMLHttpRequestBody BodyInit +instance IsXMLHttpRequestBody Blob +instance IsXMLHttpRequestBody BinaryData +instance IsXMLHttpRequestBody BufferSource +instance IsXMLHttpRequestBody ArrayBufferView +instance IsXMLHttpRequestBody ArrayBuffer +instance IsXMLHttpRequestBody FormData +instance IsXMLHttpRequestBody Text +instance IsXMLHttpRequestBody JSString +instance IsXMLHttpRequestBody String +instance IsXMLHttpRequestBody Document +instance IsXMLHttpRequestBody XMLDocument +instance IsXMLHttpRequestBody HTMLDocument + + +-- | Functions for this inteface are in "JSDOM.ANGLEInstancedArrays". +-- +-- +newtype ANGLEInstancedArrays = ANGLEInstancedArrays { unANGLEInstancedArrays :: JSVal } + +instance PToJSVal ANGLEInstancedArrays where + pToJSVal = unANGLEInstancedArrays + {-# INLINE pToJSVal #-} + +instance PFromJSVal ANGLEInstancedArrays where + pFromJSVal = ANGLEInstancedArrays + {-# INLINE pFromJSVal #-} + +instance ToJSVal ANGLEInstancedArrays where + toJSVal = return . unANGLEInstancedArrays + {-# INLINE toJSVal #-} + +instance FromJSVal ANGLEInstancedArrays where + fromJSVal v = fmap ANGLEInstancedArrays <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ANGLEInstancedArrays + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ANGLEInstancedArrays where + makeObject = makeObject . unANGLEInstancedArrays + +instance IsGObject ANGLEInstancedArrays where + typeGType _ = gTypeANGLEInstancedArrays + {-# INLINE typeGType #-} + +noANGLEInstancedArrays :: Maybe ANGLEInstancedArrays +noANGLEInstancedArrays = Nothing +{-# INLINE noANGLEInstancedArrays #-} + +gTypeANGLEInstancedArrays :: JSM GType +gTypeANGLEInstancedArrays = GType . Object <$> jsg "ANGLEInstancedArrays" + +-- | Functions for this inteface are in "JSDOM.AbstractWorker". +-- +-- +newtype AbstractWorker = AbstractWorker { unAbstractWorker :: JSVal } + +instance PToJSVal AbstractWorker where + pToJSVal = unAbstractWorker + {-# INLINE pToJSVal #-} + +instance PFromJSVal AbstractWorker where + pFromJSVal = AbstractWorker + {-# INLINE pFromJSVal #-} + +instance ToJSVal AbstractWorker where + toJSVal = return . unAbstractWorker + {-# INLINE toJSVal #-} + +instance FromJSVal AbstractWorker where + fromJSVal v = fmap AbstractWorker <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AbstractWorker + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AbstractWorker where + makeObject = makeObject . unAbstractWorker + +class (IsGObject o) => IsAbstractWorker o +toAbstractWorker :: IsAbstractWorker o => o -> AbstractWorker +toAbstractWorker = AbstractWorker . coerce + +instance IsAbstractWorker AbstractWorker +instance IsGObject AbstractWorker where + typeGType _ = gTypeAbstractWorker + {-# INLINE typeGType #-} + +noAbstractWorker :: Maybe AbstractWorker +noAbstractWorker = Nothing +{-# INLINE noAbstractWorker #-} + +gTypeAbstractWorker :: JSM GType +gTypeAbstractWorker = GType . Object <$> jsg "AbstractWorker" + +-- | Functions for this inteface are in "JSDOM.Acceleration". +-- +-- +newtype Acceleration = Acceleration { unAcceleration :: JSVal } + +instance PToJSVal Acceleration where + pToJSVal = unAcceleration + {-# INLINE pToJSVal #-} + +instance PFromJSVal Acceleration where + pFromJSVal = Acceleration + {-# INLINE pFromJSVal #-} + +instance ToJSVal Acceleration where + toJSVal = return . unAcceleration + {-# INLINE toJSVal #-} + +instance FromJSVal Acceleration where + fromJSVal v = fmap Acceleration <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Acceleration + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Acceleration where + makeObject = makeObject . unAcceleration + +instance IsGObject Acceleration where + typeGType _ = gTypeAcceleration + {-# INLINE typeGType #-} + +noAcceleration :: Maybe Acceleration +noAcceleration = Nothing +{-# INLINE noAcceleration #-} + +gTypeAcceleration :: JSM GType +gTypeAcceleration = GType . Object <$> jsg "Acceleration" + +-- | Functions for this inteface are in "JSDOM.AddEventListenerOptions". +-- Base interface functions are in: +-- +-- * "JSDOM.EventListenerOptions" +-- +-- +newtype AddEventListenerOptions = AddEventListenerOptions { unAddEventListenerOptions :: JSVal } + +instance PToJSVal AddEventListenerOptions where + pToJSVal = unAddEventListenerOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal AddEventListenerOptions where + pFromJSVal = AddEventListenerOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal AddEventListenerOptions where + toJSVal = return . unAddEventListenerOptions + {-# INLINE toJSVal #-} + +instance FromJSVal AddEventListenerOptions where + fromJSVal v = fmap AddEventListenerOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AddEventListenerOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AddEventListenerOptions where + makeObject = makeObject . unAddEventListenerOptions + +instance IsEventListenerOptions AddEventListenerOptions +instance IsGObject AddEventListenerOptions where + typeGType _ = gTypeAddEventListenerOptions + {-# INLINE typeGType #-} + +noAddEventListenerOptions :: Maybe AddEventListenerOptions +noAddEventListenerOptions = Nothing +{-# INLINE noAddEventListenerOptions #-} + +gTypeAddEventListenerOptions :: JSM GType +gTypeAddEventListenerOptions = GType . Object <$> jsg "AddEventListenerOptions" + +-- | Functions for this inteface are in "JSDOM.AesCbcCfbParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype AesCbcCfbParams = AesCbcCfbParams { unAesCbcCfbParams :: JSVal } + +instance PToJSVal AesCbcCfbParams where + pToJSVal = unAesCbcCfbParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal AesCbcCfbParams where + pFromJSVal = AesCbcCfbParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal AesCbcCfbParams where + toJSVal = return . unAesCbcCfbParams + {-# INLINE toJSVal #-} + +instance FromJSVal AesCbcCfbParams where + fromJSVal v = fmap AesCbcCfbParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AesCbcCfbParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AesCbcCfbParams where + makeObject = makeObject . unAesCbcCfbParams + +instance IsCryptoAlgorithmParameters AesCbcCfbParams +instance IsGObject AesCbcCfbParams where + typeGType _ = gTypeAesCbcCfbParams + {-# INLINE typeGType #-} + +noAesCbcCfbParams :: Maybe AesCbcCfbParams +noAesCbcCfbParams = Nothing +{-# INLINE noAesCbcCfbParams #-} + +gTypeAesCbcCfbParams :: JSM GType +gTypeAesCbcCfbParams = GType . Object <$> jsg "AesCbcCfbParams" + +-- | Functions for this inteface are in "JSDOM.AesCtrParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype AesCtrParams = AesCtrParams { unAesCtrParams :: JSVal } + +instance PToJSVal AesCtrParams where + pToJSVal = unAesCtrParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal AesCtrParams where + pFromJSVal = AesCtrParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal AesCtrParams where + toJSVal = return . unAesCtrParams + {-# INLINE toJSVal #-} + +instance FromJSVal AesCtrParams where + fromJSVal v = fmap AesCtrParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AesCtrParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AesCtrParams where + makeObject = makeObject . unAesCtrParams + +instance IsCryptoAlgorithmParameters AesCtrParams +instance IsGObject AesCtrParams where + typeGType _ = gTypeAesCtrParams + {-# INLINE typeGType #-} + +noAesCtrParams :: Maybe AesCtrParams +noAesCtrParams = Nothing +{-# INLINE noAesCtrParams #-} + +gTypeAesCtrParams :: JSM GType +gTypeAesCtrParams = GType . Object <$> jsg "AesCtrParams" + +-- | Functions for this inteface are in "JSDOM.AesGcmParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype AesGcmParams = AesGcmParams { unAesGcmParams :: JSVal } + +instance PToJSVal AesGcmParams where + pToJSVal = unAesGcmParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal AesGcmParams where + pFromJSVal = AesGcmParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal AesGcmParams where + toJSVal = return . unAesGcmParams + {-# INLINE toJSVal #-} + +instance FromJSVal AesGcmParams where + fromJSVal v = fmap AesGcmParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AesGcmParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AesGcmParams where + makeObject = makeObject . unAesGcmParams + +instance IsCryptoAlgorithmParameters AesGcmParams +instance IsGObject AesGcmParams where + typeGType _ = gTypeAesGcmParams + {-# INLINE typeGType #-} + +noAesGcmParams :: Maybe AesGcmParams +noAesGcmParams = Nothing +{-# INLINE noAesGcmParams #-} + +gTypeAesGcmParams :: JSM GType +gTypeAesGcmParams = GType . Object <$> jsg "AesGcmParams" + +-- | Functions for this inteface are in "JSDOM.AesKeyParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype AesKeyParams = AesKeyParams { unAesKeyParams :: JSVal } + +instance PToJSVal AesKeyParams where + pToJSVal = unAesKeyParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal AesKeyParams where + pFromJSVal = AesKeyParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal AesKeyParams where + toJSVal = return . unAesKeyParams + {-# INLINE toJSVal #-} + +instance FromJSVal AesKeyParams where + fromJSVal v = fmap AesKeyParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AesKeyParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AesKeyParams where + makeObject = makeObject . unAesKeyParams + +instance IsCryptoAlgorithmParameters AesKeyParams +instance IsGObject AesKeyParams where + typeGType _ = gTypeAesKeyParams + {-# INLINE typeGType #-} + +noAesKeyParams :: Maybe AesKeyParams +noAesKeyParams = Nothing +{-# INLINE noAesKeyParams #-} + +gTypeAesKeyParams :: JSM GType +gTypeAesKeyParams = GType . Object <$> jsg "AesKeyParams" + +-- | Functions for this inteface are in "JSDOM.AnalyserNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype AnalyserNode = AnalyserNode { unAnalyserNode :: JSVal } + +instance PToJSVal AnalyserNode where + pToJSVal = unAnalyserNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal AnalyserNode where + pFromJSVal = AnalyserNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal AnalyserNode where + toJSVal = return . unAnalyserNode + {-# INLINE toJSVal #-} + +instance FromJSVal AnalyserNode where + fromJSVal v = fmap AnalyserNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AnalyserNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AnalyserNode where + makeObject = makeObject . unAnalyserNode + +instance IsAudioNode AnalyserNode +instance IsEventTarget AnalyserNode +instance IsGObject AnalyserNode where + typeGType _ = gTypeAnalyserNode + {-# INLINE typeGType #-} + +noAnalyserNode :: Maybe AnalyserNode +noAnalyserNode = Nothing +{-# INLINE noAnalyserNode #-} + +gTypeAnalyserNode :: JSM GType +gTypeAnalyserNode = GType . Object <$> jsg "AnalyserNode" + +-- | Functions for this inteface are in "JSDOM.Animatable". +-- +-- +newtype Animatable = Animatable { unAnimatable :: JSVal } + +instance PToJSVal Animatable where + pToJSVal = unAnimatable + {-# INLINE pToJSVal #-} + +instance PFromJSVal Animatable where + pFromJSVal = Animatable + {-# INLINE pFromJSVal #-} + +instance ToJSVal Animatable where + toJSVal = return . unAnimatable + {-# INLINE toJSVal #-} + +instance FromJSVal Animatable where + fromJSVal v = fmap Animatable <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Animatable + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Animatable where + makeObject = makeObject . unAnimatable + +class (IsGObject o) => IsAnimatable o +toAnimatable :: IsAnimatable o => o -> Animatable +toAnimatable = Animatable . coerce + +instance IsAnimatable Animatable +instance IsGObject Animatable where + typeGType _ = gTypeAnimatable + {-# INLINE typeGType #-} + +noAnimatable :: Maybe Animatable +noAnimatable = Nothing +{-# INLINE noAnimatable #-} + +gTypeAnimatable :: JSM GType +gTypeAnimatable = GType . Object <$> jsg "Animatable" + +-- | Functions for this inteface are in "JSDOM.Animation". +-- +-- +newtype Animation = Animation { unAnimation :: JSVal } + +instance PToJSVal Animation where + pToJSVal = unAnimation + {-# INLINE pToJSVal #-} + +instance PFromJSVal Animation where + pFromJSVal = Animation + {-# INLINE pFromJSVal #-} + +instance ToJSVal Animation where + toJSVal = return . unAnimation + {-# INLINE toJSVal #-} + +instance FromJSVal Animation where + fromJSVal v = fmap Animation <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Animation + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Animation where + makeObject = makeObject . unAnimation + +instance IsGObject Animation where + typeGType _ = gTypeAnimation + {-# INLINE typeGType #-} + +noAnimation :: Maybe Animation +noAnimation = Nothing +{-# INLINE noAnimation #-} + +gTypeAnimation :: JSM GType +gTypeAnimation = GType . Object <$> jsg "Animation" + +-- | Functions for this inteface are in "JSDOM.AnimationEffect". +-- +-- +newtype AnimationEffect = AnimationEffect { unAnimationEffect :: JSVal } + +instance PToJSVal AnimationEffect where + pToJSVal = unAnimationEffect + {-# INLINE pToJSVal #-} + +instance PFromJSVal AnimationEffect where + pFromJSVal = AnimationEffect + {-# INLINE pFromJSVal #-} + +instance ToJSVal AnimationEffect where + toJSVal = return . unAnimationEffect + {-# INLINE toJSVal #-} + +instance FromJSVal AnimationEffect where + fromJSVal v = fmap AnimationEffect <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AnimationEffect + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AnimationEffect where + makeObject = makeObject . unAnimationEffect + +class (IsGObject o) => IsAnimationEffect o +toAnimationEffect :: IsAnimationEffect o => o -> AnimationEffect +toAnimationEffect = AnimationEffect . coerce + +instance IsAnimationEffect AnimationEffect +instance IsGObject AnimationEffect where + typeGType _ = gTypeAnimationEffect + {-# INLINE typeGType #-} + +noAnimationEffect :: Maybe AnimationEffect +noAnimationEffect = Nothing +{-# INLINE noAnimationEffect #-} + +gTypeAnimationEffect :: JSM GType +gTypeAnimationEffect = GType . Object <$> jsg "AnimationEffect" + +-- | Functions for this inteface are in "JSDOM.AnimationEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype AnimationEvent = AnimationEvent { unAnimationEvent :: JSVal } + +instance PToJSVal AnimationEvent where + pToJSVal = unAnimationEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal AnimationEvent where + pFromJSVal = AnimationEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal AnimationEvent where + toJSVal = return . unAnimationEvent + {-# INLINE toJSVal #-} + +instance FromJSVal AnimationEvent where + fromJSVal v = fmap AnimationEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AnimationEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AnimationEvent where + makeObject = makeObject . unAnimationEvent + +instance IsEvent AnimationEvent +instance IsGObject AnimationEvent where + typeGType _ = gTypeAnimationEvent + {-# INLINE typeGType #-} + +noAnimationEvent :: Maybe AnimationEvent +noAnimationEvent = Nothing +{-# INLINE noAnimationEvent #-} + +gTypeAnimationEvent :: JSM GType +gTypeAnimationEvent = GType . Object <$> jsg "AnimationEvent" + +-- | Functions for this inteface are in "JSDOM.AnimationEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype AnimationEventInit = AnimationEventInit { unAnimationEventInit :: JSVal } + +instance PToJSVal AnimationEventInit where + pToJSVal = unAnimationEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal AnimationEventInit where + pFromJSVal = AnimationEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal AnimationEventInit where + toJSVal = return . unAnimationEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal AnimationEventInit where + fromJSVal v = fmap AnimationEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AnimationEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AnimationEventInit where + makeObject = makeObject . unAnimationEventInit + +instance IsEventInit AnimationEventInit +instance IsGObject AnimationEventInit where + typeGType _ = gTypeAnimationEventInit + {-# INLINE typeGType #-} + +noAnimationEventInit :: Maybe AnimationEventInit +noAnimationEventInit = Nothing +{-# INLINE noAnimationEventInit #-} + +gTypeAnimationEventInit :: JSM GType +gTypeAnimationEventInit = GType . Object <$> jsg "AnimationEventInit" + +-- | Functions for this inteface are in "JSDOM.AnimationTimeline". +-- +-- +newtype AnimationTimeline = AnimationTimeline { unAnimationTimeline :: JSVal } + +instance PToJSVal AnimationTimeline where + pToJSVal = unAnimationTimeline + {-# INLINE pToJSVal #-} + +instance PFromJSVal AnimationTimeline where + pFromJSVal = AnimationTimeline + {-# INLINE pFromJSVal #-} + +instance ToJSVal AnimationTimeline where + toJSVal = return . unAnimationTimeline + {-# INLINE toJSVal #-} + +instance FromJSVal AnimationTimeline where + fromJSVal v = fmap AnimationTimeline <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AnimationTimeline + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AnimationTimeline where + makeObject = makeObject . unAnimationTimeline + +class (IsGObject o) => IsAnimationTimeline o +toAnimationTimeline :: IsAnimationTimeline o => o -> AnimationTimeline +toAnimationTimeline = AnimationTimeline . coerce + +instance IsAnimationTimeline AnimationTimeline +instance IsGObject AnimationTimeline where + typeGType _ = gTypeAnimationTimeline + {-# INLINE typeGType #-} + +noAnimationTimeline :: Maybe AnimationTimeline +noAnimationTimeline = Nothing +{-# INLINE noAnimationTimeline #-} + +gTypeAnimationTimeline :: JSM GType +gTypeAnimationTimeline = GType . Object <$> jsg "AnimationTimeline" + +-- | Functions for this inteface are in "JSDOM.ApplePayError". +-- +-- +newtype ApplePayError = ApplePayError { unApplePayError :: JSVal } + +instance PToJSVal ApplePayError where + pToJSVal = unApplePayError + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayError where + pFromJSVal = ApplePayError + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayError where + toJSVal = return . unApplePayError + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayError where + fromJSVal v = fmap ApplePayError <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayError + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayError where + makeObject = makeObject . unApplePayError + +instance IsGObject ApplePayError where + typeGType _ = gTypeApplePayError + {-# INLINE typeGType #-} + +noApplePayError :: Maybe ApplePayError +noApplePayError = Nothing +{-# INLINE noApplePayError #-} + +gTypeApplePayError :: JSM GType +gTypeApplePayError = GType . Object <$> jsg "ApplePayError" + +-- | Functions for this inteface are in "JSDOM.ApplePayLineItem". +-- +-- +newtype ApplePayLineItem = ApplePayLineItem { unApplePayLineItem :: JSVal } + +instance PToJSVal ApplePayLineItem where + pToJSVal = unApplePayLineItem + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayLineItem where + pFromJSVal = ApplePayLineItem + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayLineItem where + toJSVal = return . unApplePayLineItem + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayLineItem where + fromJSVal v = fmap ApplePayLineItem <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayLineItem + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayLineItem where + makeObject = makeObject . unApplePayLineItem + +instance IsGObject ApplePayLineItem where + typeGType _ = gTypeApplePayLineItem + {-# INLINE typeGType #-} + +noApplePayLineItem :: Maybe ApplePayLineItem +noApplePayLineItem = Nothing +{-# INLINE noApplePayLineItem #-} + +gTypeApplePayLineItem :: JSM GType +gTypeApplePayLineItem = GType . Object <$> jsg "ApplePayLineItem" + +-- | Functions for this inteface are in "JSDOM.ApplePayPayment". +-- +-- +newtype ApplePayPayment = ApplePayPayment { unApplePayPayment :: JSVal } + +instance PToJSVal ApplePayPayment where + pToJSVal = unApplePayPayment + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPayment where + pFromJSVal = ApplePayPayment + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPayment where + toJSVal = return . unApplePayPayment + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPayment where + fromJSVal v = fmap ApplePayPayment <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPayment + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPayment where + makeObject = makeObject . unApplePayPayment + +instance IsGObject ApplePayPayment where + typeGType _ = gTypeApplePayPayment + {-# INLINE typeGType #-} + +noApplePayPayment :: Maybe ApplePayPayment +noApplePayPayment = Nothing +{-# INLINE noApplePayPayment #-} + +gTypeApplePayPayment :: JSM GType +gTypeApplePayPayment = GType . Object <$> jsg "ApplePayPayment" + +-- | Functions for this inteface are in "JSDOM.ApplePayPaymentAuthorizationResult". +-- +-- +newtype ApplePayPaymentAuthorizationResult = ApplePayPaymentAuthorizationResult { unApplePayPaymentAuthorizationResult :: JSVal } + +instance PToJSVal ApplePayPaymentAuthorizationResult where + pToJSVal = unApplePayPaymentAuthorizationResult + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPaymentAuthorizationResult where + pFromJSVal = ApplePayPaymentAuthorizationResult + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPaymentAuthorizationResult where + toJSVal = return . unApplePayPaymentAuthorizationResult + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPaymentAuthorizationResult where + fromJSVal v = fmap ApplePayPaymentAuthorizationResult <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPaymentAuthorizationResult + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPaymentAuthorizationResult where + makeObject = makeObject . unApplePayPaymentAuthorizationResult + +instance IsGObject ApplePayPaymentAuthorizationResult where + typeGType _ = gTypeApplePayPaymentAuthorizationResult + {-# INLINE typeGType #-} + +noApplePayPaymentAuthorizationResult :: Maybe ApplePayPaymentAuthorizationResult +noApplePayPaymentAuthorizationResult = Nothing +{-# INLINE noApplePayPaymentAuthorizationResult #-} + +gTypeApplePayPaymentAuthorizationResult :: JSM GType +gTypeApplePayPaymentAuthorizationResult = GType . Object <$> jsg "ApplePayPaymentAuthorizationResult" + +-- | Functions for this inteface are in "JSDOM.ApplePayPaymentAuthorizedEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype ApplePayPaymentAuthorizedEvent = ApplePayPaymentAuthorizedEvent { unApplePayPaymentAuthorizedEvent :: JSVal } + +instance PToJSVal ApplePayPaymentAuthorizedEvent where + pToJSVal = unApplePayPaymentAuthorizedEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPaymentAuthorizedEvent where + pFromJSVal = ApplePayPaymentAuthorizedEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPaymentAuthorizedEvent where + toJSVal = return . unApplePayPaymentAuthorizedEvent + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPaymentAuthorizedEvent where + fromJSVal v = fmap ApplePayPaymentAuthorizedEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPaymentAuthorizedEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPaymentAuthorizedEvent where + makeObject = makeObject . unApplePayPaymentAuthorizedEvent + +instance IsEvent ApplePayPaymentAuthorizedEvent +instance IsGObject ApplePayPaymentAuthorizedEvent where + typeGType _ = gTypeApplePayPaymentAuthorizedEvent + {-# INLINE typeGType #-} + +noApplePayPaymentAuthorizedEvent :: Maybe ApplePayPaymentAuthorizedEvent +noApplePayPaymentAuthorizedEvent = Nothing +{-# INLINE noApplePayPaymentAuthorizedEvent #-} + +gTypeApplePayPaymentAuthorizedEvent :: JSM GType +gTypeApplePayPaymentAuthorizedEvent = GType . Object <$> jsg "ApplePayPaymentAuthorizedEvent" + +-- | Functions for this inteface are in "JSDOM.ApplePayPaymentContact". +-- +-- +newtype ApplePayPaymentContact = ApplePayPaymentContact { unApplePayPaymentContact :: JSVal } + +instance PToJSVal ApplePayPaymentContact where + pToJSVal = unApplePayPaymentContact + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPaymentContact where + pFromJSVal = ApplePayPaymentContact + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPaymentContact where + toJSVal = return . unApplePayPaymentContact + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPaymentContact where + fromJSVal v = fmap ApplePayPaymentContact <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPaymentContact + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPaymentContact where + makeObject = makeObject . unApplePayPaymentContact + +instance IsGObject ApplePayPaymentContact where + typeGType _ = gTypeApplePayPaymentContact + {-# INLINE typeGType #-} + +noApplePayPaymentContact :: Maybe ApplePayPaymentContact +noApplePayPaymentContact = Nothing +{-# INLINE noApplePayPaymentContact #-} + +gTypeApplePayPaymentContact :: JSM GType +gTypeApplePayPaymentContact = GType . Object <$> jsg "ApplePayPaymentContact" + +-- | Functions for this inteface are in "JSDOM.ApplePayPaymentMethod". +-- +-- +newtype ApplePayPaymentMethod = ApplePayPaymentMethod { unApplePayPaymentMethod :: JSVal } + +instance PToJSVal ApplePayPaymentMethod where + pToJSVal = unApplePayPaymentMethod + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPaymentMethod where + pFromJSVal = ApplePayPaymentMethod + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPaymentMethod where + toJSVal = return . unApplePayPaymentMethod + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPaymentMethod where + fromJSVal v = fmap ApplePayPaymentMethod <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPaymentMethod + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPaymentMethod where + makeObject = makeObject . unApplePayPaymentMethod + +instance IsGObject ApplePayPaymentMethod where + typeGType _ = gTypeApplePayPaymentMethod + {-# INLINE typeGType #-} + +noApplePayPaymentMethod :: Maybe ApplePayPaymentMethod +noApplePayPaymentMethod = Nothing +{-# INLINE noApplePayPaymentMethod #-} + +gTypeApplePayPaymentMethod :: JSM GType +gTypeApplePayPaymentMethod = GType . Object <$> jsg "ApplePayPaymentMethod" + +-- | Functions for this inteface are in "JSDOM.ApplePayPaymentMethodSelectedEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype ApplePayPaymentMethodSelectedEvent = ApplePayPaymentMethodSelectedEvent { unApplePayPaymentMethodSelectedEvent :: JSVal } + +instance PToJSVal ApplePayPaymentMethodSelectedEvent where + pToJSVal = unApplePayPaymentMethodSelectedEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPaymentMethodSelectedEvent where + pFromJSVal = ApplePayPaymentMethodSelectedEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPaymentMethodSelectedEvent where + toJSVal = return . unApplePayPaymentMethodSelectedEvent + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPaymentMethodSelectedEvent where + fromJSVal v = fmap ApplePayPaymentMethodSelectedEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPaymentMethodSelectedEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPaymentMethodSelectedEvent where + makeObject = makeObject . unApplePayPaymentMethodSelectedEvent + +instance IsEvent ApplePayPaymentMethodSelectedEvent +instance IsGObject ApplePayPaymentMethodSelectedEvent where + typeGType _ = gTypeApplePayPaymentMethodSelectedEvent + {-# INLINE typeGType #-} + +noApplePayPaymentMethodSelectedEvent :: Maybe ApplePayPaymentMethodSelectedEvent +noApplePayPaymentMethodSelectedEvent = Nothing +{-# INLINE noApplePayPaymentMethodSelectedEvent #-} + +gTypeApplePayPaymentMethodSelectedEvent :: JSM GType +gTypeApplePayPaymentMethodSelectedEvent = GType . Object <$> jsg "ApplePayPaymentMethodSelectedEvent" + +-- | Functions for this inteface are in "JSDOM.ApplePayPaymentMethodUpdate". +-- +-- +newtype ApplePayPaymentMethodUpdate = ApplePayPaymentMethodUpdate { unApplePayPaymentMethodUpdate :: JSVal } + +instance PToJSVal ApplePayPaymentMethodUpdate where + pToJSVal = unApplePayPaymentMethodUpdate + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPaymentMethodUpdate where + pFromJSVal = ApplePayPaymentMethodUpdate + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPaymentMethodUpdate where + toJSVal = return . unApplePayPaymentMethodUpdate + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPaymentMethodUpdate where + fromJSVal v = fmap ApplePayPaymentMethodUpdate <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPaymentMethodUpdate + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPaymentMethodUpdate where + makeObject = makeObject . unApplePayPaymentMethodUpdate + +instance IsGObject ApplePayPaymentMethodUpdate where + typeGType _ = gTypeApplePayPaymentMethodUpdate + {-# INLINE typeGType #-} + +noApplePayPaymentMethodUpdate :: Maybe ApplePayPaymentMethodUpdate +noApplePayPaymentMethodUpdate = Nothing +{-# INLINE noApplePayPaymentMethodUpdate #-} + +gTypeApplePayPaymentMethodUpdate :: JSM GType +gTypeApplePayPaymentMethodUpdate = GType . Object <$> jsg "ApplePayPaymentMethodUpdate" + +-- | Functions for this inteface are in "JSDOM.ApplePayPaymentPass". +-- +-- +newtype ApplePayPaymentPass = ApplePayPaymentPass { unApplePayPaymentPass :: JSVal } + +instance PToJSVal ApplePayPaymentPass where + pToJSVal = unApplePayPaymentPass + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPaymentPass where + pFromJSVal = ApplePayPaymentPass + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPaymentPass where + toJSVal = return . unApplePayPaymentPass + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPaymentPass where + fromJSVal v = fmap ApplePayPaymentPass <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPaymentPass + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPaymentPass where + makeObject = makeObject . unApplePayPaymentPass + +instance IsGObject ApplePayPaymentPass where + typeGType _ = gTypeApplePayPaymentPass + {-# INLINE typeGType #-} + +noApplePayPaymentPass :: Maybe ApplePayPaymentPass +noApplePayPaymentPass = Nothing +{-# INLINE noApplePayPaymentPass #-} + +gTypeApplePayPaymentPass :: JSM GType +gTypeApplePayPaymentPass = GType . Object <$> jsg "ApplePayPaymentPass" + +-- | Functions for this inteface are in "JSDOM.ApplePayPaymentRequest". +-- +-- +newtype ApplePayPaymentRequest = ApplePayPaymentRequest { unApplePayPaymentRequest :: JSVal } + +instance PToJSVal ApplePayPaymentRequest where + pToJSVal = unApplePayPaymentRequest + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPaymentRequest where + pFromJSVal = ApplePayPaymentRequest + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPaymentRequest where + toJSVal = return . unApplePayPaymentRequest + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPaymentRequest where + fromJSVal v = fmap ApplePayPaymentRequest <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPaymentRequest + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPaymentRequest where + makeObject = makeObject . unApplePayPaymentRequest + +instance IsGObject ApplePayPaymentRequest where + typeGType _ = gTypeApplePayPaymentRequest + {-# INLINE typeGType #-} + +noApplePayPaymentRequest :: Maybe ApplePayPaymentRequest +noApplePayPaymentRequest = Nothing +{-# INLINE noApplePayPaymentRequest #-} + +gTypeApplePayPaymentRequest :: JSM GType +gTypeApplePayPaymentRequest = GType . Object <$> jsg "ApplePayPaymentRequest" + +-- | Functions for this inteface are in "JSDOM.ApplePayPaymentToken". +-- +-- +newtype ApplePayPaymentToken = ApplePayPaymentToken { unApplePayPaymentToken :: JSVal } + +instance PToJSVal ApplePayPaymentToken where + pToJSVal = unApplePayPaymentToken + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayPaymentToken where + pFromJSVal = ApplePayPaymentToken + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayPaymentToken where + toJSVal = return . unApplePayPaymentToken + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayPaymentToken where + fromJSVal v = fmap ApplePayPaymentToken <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayPaymentToken + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayPaymentToken where + makeObject = makeObject . unApplePayPaymentToken + +instance IsGObject ApplePayPaymentToken where + typeGType _ = gTypeApplePayPaymentToken + {-# INLINE typeGType #-} + +noApplePayPaymentToken :: Maybe ApplePayPaymentToken +noApplePayPaymentToken = Nothing +{-# INLINE noApplePayPaymentToken #-} + +gTypeApplePayPaymentToken :: JSM GType +gTypeApplePayPaymentToken = GType . Object <$> jsg "ApplePayPaymentToken" + +-- | Functions for this inteface are in "JSDOM.ApplePaySession". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype ApplePaySession = ApplePaySession { unApplePaySession :: JSVal } + +instance PToJSVal ApplePaySession where + pToJSVal = unApplePaySession + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePaySession where + pFromJSVal = ApplePaySession + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePaySession where + toJSVal = return . unApplePaySession + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePaySession where + fromJSVal v = fmap ApplePaySession <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePaySession + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePaySession where + makeObject = makeObject . unApplePaySession + +instance IsEventTarget ApplePaySession +instance IsGObject ApplePaySession where + typeGType _ = gTypeApplePaySession + {-# INLINE typeGType #-} + +noApplePaySession :: Maybe ApplePaySession +noApplePaySession = Nothing +{-# INLINE noApplePaySession #-} + +gTypeApplePaySession :: JSM GType +gTypeApplePaySession = GType . Object <$> jsg "ApplePaySession" + +-- | Functions for this inteface are in "JSDOM.ApplePayShippingContactSelectedEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype ApplePayShippingContactSelectedEvent = ApplePayShippingContactSelectedEvent { unApplePayShippingContactSelectedEvent :: JSVal } + +instance PToJSVal ApplePayShippingContactSelectedEvent where + pToJSVal = unApplePayShippingContactSelectedEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayShippingContactSelectedEvent where + pFromJSVal = ApplePayShippingContactSelectedEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayShippingContactSelectedEvent where + toJSVal = return . unApplePayShippingContactSelectedEvent + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayShippingContactSelectedEvent where + fromJSVal v = fmap ApplePayShippingContactSelectedEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayShippingContactSelectedEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayShippingContactSelectedEvent where + makeObject = makeObject . unApplePayShippingContactSelectedEvent + +instance IsEvent ApplePayShippingContactSelectedEvent +instance IsGObject ApplePayShippingContactSelectedEvent where + typeGType _ = gTypeApplePayShippingContactSelectedEvent + {-# INLINE typeGType #-} + +noApplePayShippingContactSelectedEvent :: Maybe ApplePayShippingContactSelectedEvent +noApplePayShippingContactSelectedEvent = Nothing +{-# INLINE noApplePayShippingContactSelectedEvent #-} + +gTypeApplePayShippingContactSelectedEvent :: JSM GType +gTypeApplePayShippingContactSelectedEvent = GType . Object <$> jsg "ApplePayShippingContactSelectedEvent" + +-- | Functions for this inteface are in "JSDOM.ApplePayShippingContactUpdate". +-- +-- +newtype ApplePayShippingContactUpdate = ApplePayShippingContactUpdate { unApplePayShippingContactUpdate :: JSVal } + +instance PToJSVal ApplePayShippingContactUpdate where + pToJSVal = unApplePayShippingContactUpdate + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayShippingContactUpdate where + pFromJSVal = ApplePayShippingContactUpdate + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayShippingContactUpdate where + toJSVal = return . unApplePayShippingContactUpdate + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayShippingContactUpdate where + fromJSVal v = fmap ApplePayShippingContactUpdate <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayShippingContactUpdate + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayShippingContactUpdate where + makeObject = makeObject . unApplePayShippingContactUpdate + +instance IsGObject ApplePayShippingContactUpdate where + typeGType _ = gTypeApplePayShippingContactUpdate + {-# INLINE typeGType #-} + +noApplePayShippingContactUpdate :: Maybe ApplePayShippingContactUpdate +noApplePayShippingContactUpdate = Nothing +{-# INLINE noApplePayShippingContactUpdate #-} + +gTypeApplePayShippingContactUpdate :: JSM GType +gTypeApplePayShippingContactUpdate = GType . Object <$> jsg "ApplePayShippingContactUpdate" + +-- | Functions for this inteface are in "JSDOM.ApplePayShippingMethod". +-- +-- +newtype ApplePayShippingMethod = ApplePayShippingMethod { unApplePayShippingMethod :: JSVal } + +instance PToJSVal ApplePayShippingMethod where + pToJSVal = unApplePayShippingMethod + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayShippingMethod where + pFromJSVal = ApplePayShippingMethod + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayShippingMethod where + toJSVal = return . unApplePayShippingMethod + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayShippingMethod where + fromJSVal v = fmap ApplePayShippingMethod <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayShippingMethod + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayShippingMethod where + makeObject = makeObject . unApplePayShippingMethod + +instance IsGObject ApplePayShippingMethod where + typeGType _ = gTypeApplePayShippingMethod + {-# INLINE typeGType #-} + +noApplePayShippingMethod :: Maybe ApplePayShippingMethod +noApplePayShippingMethod = Nothing +{-# INLINE noApplePayShippingMethod #-} + +gTypeApplePayShippingMethod :: JSM GType +gTypeApplePayShippingMethod = GType . Object <$> jsg "ApplePayShippingMethod" + +-- | Functions for this inteface are in "JSDOM.ApplePayShippingMethodSelectedEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype ApplePayShippingMethodSelectedEvent = ApplePayShippingMethodSelectedEvent { unApplePayShippingMethodSelectedEvent :: JSVal } + +instance PToJSVal ApplePayShippingMethodSelectedEvent where + pToJSVal = unApplePayShippingMethodSelectedEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayShippingMethodSelectedEvent where + pFromJSVal = ApplePayShippingMethodSelectedEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayShippingMethodSelectedEvent where + toJSVal = return . unApplePayShippingMethodSelectedEvent + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayShippingMethodSelectedEvent where + fromJSVal v = fmap ApplePayShippingMethodSelectedEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayShippingMethodSelectedEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayShippingMethodSelectedEvent where + makeObject = makeObject . unApplePayShippingMethodSelectedEvent + +instance IsEvent ApplePayShippingMethodSelectedEvent +instance IsGObject ApplePayShippingMethodSelectedEvent where + typeGType _ = gTypeApplePayShippingMethodSelectedEvent + {-# INLINE typeGType #-} + +noApplePayShippingMethodSelectedEvent :: Maybe ApplePayShippingMethodSelectedEvent +noApplePayShippingMethodSelectedEvent = Nothing +{-# INLINE noApplePayShippingMethodSelectedEvent #-} + +gTypeApplePayShippingMethodSelectedEvent :: JSM GType +gTypeApplePayShippingMethodSelectedEvent = GType . Object <$> jsg "ApplePayShippingMethodSelectedEvent" + +-- | Functions for this inteface are in "JSDOM.ApplePayShippingMethodUpdate". +-- +-- +newtype ApplePayShippingMethodUpdate = ApplePayShippingMethodUpdate { unApplePayShippingMethodUpdate :: JSVal } + +instance PToJSVal ApplePayShippingMethodUpdate where + pToJSVal = unApplePayShippingMethodUpdate + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayShippingMethodUpdate where + pFromJSVal = ApplePayShippingMethodUpdate + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayShippingMethodUpdate where + toJSVal = return . unApplePayShippingMethodUpdate + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayShippingMethodUpdate where + fromJSVal v = fmap ApplePayShippingMethodUpdate <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayShippingMethodUpdate + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayShippingMethodUpdate where + makeObject = makeObject . unApplePayShippingMethodUpdate + +instance IsGObject ApplePayShippingMethodUpdate where + typeGType _ = gTypeApplePayShippingMethodUpdate + {-# INLINE typeGType #-} + +noApplePayShippingMethodUpdate :: Maybe ApplePayShippingMethodUpdate +noApplePayShippingMethodUpdate = Nothing +{-# INLINE noApplePayShippingMethodUpdate #-} + +gTypeApplePayShippingMethodUpdate :: JSM GType +gTypeApplePayShippingMethodUpdate = GType . Object <$> jsg "ApplePayShippingMethodUpdate" + +-- | Functions for this inteface are in "JSDOM.ApplePayValidateMerchantEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype ApplePayValidateMerchantEvent = ApplePayValidateMerchantEvent { unApplePayValidateMerchantEvent :: JSVal } + +instance PToJSVal ApplePayValidateMerchantEvent where + pToJSVal = unApplePayValidateMerchantEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplePayValidateMerchantEvent where + pFromJSVal = ApplePayValidateMerchantEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplePayValidateMerchantEvent where + toJSVal = return . unApplePayValidateMerchantEvent + {-# INLINE toJSVal #-} + +instance FromJSVal ApplePayValidateMerchantEvent where + fromJSVal v = fmap ApplePayValidateMerchantEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplePayValidateMerchantEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplePayValidateMerchantEvent where + makeObject = makeObject . unApplePayValidateMerchantEvent + +instance IsEvent ApplePayValidateMerchantEvent +instance IsGObject ApplePayValidateMerchantEvent where + typeGType _ = gTypeApplePayValidateMerchantEvent + {-# INLINE typeGType #-} + +noApplePayValidateMerchantEvent :: Maybe ApplePayValidateMerchantEvent +noApplePayValidateMerchantEvent = Nothing +{-# INLINE noApplePayValidateMerchantEvent #-} + +gTypeApplePayValidateMerchantEvent :: JSM GType +gTypeApplePayValidateMerchantEvent = GType . Object <$> jsg "ApplePayValidateMerchantEvent" + +-- | Functions for this inteface are in "JSDOM.ApplicationCache". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype ApplicationCache = ApplicationCache { unApplicationCache :: JSVal } + +instance PToJSVal ApplicationCache where + pToJSVal = unApplicationCache + {-# INLINE pToJSVal #-} + +instance PFromJSVal ApplicationCache where + pFromJSVal = ApplicationCache + {-# INLINE pFromJSVal #-} + +instance ToJSVal ApplicationCache where + toJSVal = return . unApplicationCache + {-# INLINE toJSVal #-} + +instance FromJSVal ApplicationCache where + fromJSVal v = fmap ApplicationCache <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ApplicationCache + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ApplicationCache where + makeObject = makeObject . unApplicationCache + +instance IsEventTarget ApplicationCache +instance IsGObject ApplicationCache where + typeGType _ = gTypeApplicationCache + {-# INLINE typeGType #-} + +noApplicationCache :: Maybe ApplicationCache +noApplicationCache = Nothing +{-# INLINE noApplicationCache #-} + +gTypeApplicationCache :: JSM GType +gTypeApplicationCache = GType . Object <$> jsg "ApplicationCache" + +-- | Functions for this inteface are in "JSDOM.AssignedNodesOptions". +-- +-- +newtype AssignedNodesOptions = AssignedNodesOptions { unAssignedNodesOptions :: JSVal } + +instance PToJSVal AssignedNodesOptions where + pToJSVal = unAssignedNodesOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal AssignedNodesOptions where + pFromJSVal = AssignedNodesOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal AssignedNodesOptions where + toJSVal = return . unAssignedNodesOptions + {-# INLINE toJSVal #-} + +instance FromJSVal AssignedNodesOptions where + fromJSVal v = fmap AssignedNodesOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AssignedNodesOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AssignedNodesOptions where + makeObject = makeObject . unAssignedNodesOptions + +instance IsGObject AssignedNodesOptions where + typeGType _ = gTypeAssignedNodesOptions + {-# INLINE typeGType #-} + +noAssignedNodesOptions :: Maybe AssignedNodesOptions +noAssignedNodesOptions = Nothing +{-# INLINE noAssignedNodesOptions #-} + +gTypeAssignedNodesOptions :: JSM GType +gTypeAssignedNodesOptions = GType . Object <$> jsg "AssignedNodesOptions" + +-- | Functions for this inteface are in "JSDOM.Attr". +-- Base interface functions are in: +-- +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- +-- +newtype Attr = Attr { unAttr :: JSVal } + +instance PToJSVal Attr where + pToJSVal = unAttr + {-# INLINE pToJSVal #-} + +instance PFromJSVal Attr where + pFromJSVal = Attr + {-# INLINE pFromJSVal #-} + +instance ToJSVal Attr where + toJSVal = return . unAttr + {-# INLINE toJSVal #-} + +instance FromJSVal Attr where + fromJSVal v = fmap Attr <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Attr + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Attr where + makeObject = makeObject . unAttr + +instance IsNode Attr +instance IsEventTarget Attr +instance IsGObject Attr where + typeGType _ = gTypeAttr + {-# INLINE typeGType #-} + +noAttr :: Maybe Attr +noAttr = Nothing +{-# INLINE noAttr #-} + +gTypeAttr :: JSM GType +gTypeAttr = GType . Object <$> jsg "Attr" + +-- | Functions for this inteface are in "JSDOM.AudioBuffer". +-- +-- +newtype AudioBuffer = AudioBuffer { unAudioBuffer :: JSVal } + +instance PToJSVal AudioBuffer where + pToJSVal = unAudioBuffer + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioBuffer where + pFromJSVal = AudioBuffer + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioBuffer where + toJSVal = return . unAudioBuffer + {-# INLINE toJSVal #-} + +instance FromJSVal AudioBuffer where + fromJSVal v = fmap AudioBuffer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioBuffer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioBuffer where + makeObject = makeObject . unAudioBuffer + +instance IsGObject AudioBuffer where + typeGType _ = gTypeAudioBuffer + {-# INLINE typeGType #-} + +noAudioBuffer :: Maybe AudioBuffer +noAudioBuffer = Nothing +{-# INLINE noAudioBuffer #-} + +gTypeAudioBuffer :: JSM GType +gTypeAudioBuffer = GType . Object <$> jsg "AudioBuffer" + +-- | Functions for this inteface are in "JSDOM.AudioBufferSourceNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype AudioBufferSourceNode = AudioBufferSourceNode { unAudioBufferSourceNode :: JSVal } + +instance PToJSVal AudioBufferSourceNode where + pToJSVal = unAudioBufferSourceNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioBufferSourceNode where + pFromJSVal = AudioBufferSourceNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioBufferSourceNode where + toJSVal = return . unAudioBufferSourceNode + {-# INLINE toJSVal #-} + +instance FromJSVal AudioBufferSourceNode where + fromJSVal v = fmap AudioBufferSourceNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioBufferSourceNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioBufferSourceNode where + makeObject = makeObject . unAudioBufferSourceNode + +instance IsAudioNode AudioBufferSourceNode +instance IsEventTarget AudioBufferSourceNode +instance IsGObject AudioBufferSourceNode where + typeGType _ = gTypeAudioBufferSourceNode + {-# INLINE typeGType #-} + +noAudioBufferSourceNode :: Maybe AudioBufferSourceNode +noAudioBufferSourceNode = Nothing +{-# INLINE noAudioBufferSourceNode #-} + +gTypeAudioBufferSourceNode :: JSM GType +gTypeAudioBufferSourceNode = GType . Object <$> jsg "AudioBufferSourceNode" + +-- | Functions for this inteface are in "JSDOM.AudioContext". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype AudioContext = AudioContext { unAudioContext :: JSVal } + +instance PToJSVal AudioContext where + pToJSVal = unAudioContext + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioContext where + pFromJSVal = AudioContext + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioContext where + toJSVal = return . unAudioContext + {-# INLINE toJSVal #-} + +instance FromJSVal AudioContext where + fromJSVal v = fmap AudioContext <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioContext + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioContext where + makeObject = makeObject . unAudioContext + +class (IsEventTarget o, IsGObject o) => IsAudioContext o +toAudioContext :: IsAudioContext o => o -> AudioContext +toAudioContext = AudioContext . coerce + +instance IsAudioContext AudioContext +instance IsEventTarget AudioContext +instance IsGObject AudioContext where + typeGType _ = gTypeAudioContext + {-# INLINE typeGType #-} + +noAudioContext :: Maybe AudioContext +noAudioContext = Nothing +{-# INLINE noAudioContext #-} + +gTypeAudioContext :: JSM GType +gTypeAudioContext = GType . Object <$> jsg "AudioContext" + +-- | Functions for this inteface are in "JSDOM.AudioDestinationNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype AudioDestinationNode = AudioDestinationNode { unAudioDestinationNode :: JSVal } + +instance PToJSVal AudioDestinationNode where + pToJSVal = unAudioDestinationNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioDestinationNode where + pFromJSVal = AudioDestinationNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioDestinationNode where + toJSVal = return . unAudioDestinationNode + {-# INLINE toJSVal #-} + +instance FromJSVal AudioDestinationNode where + fromJSVal v = fmap AudioDestinationNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioDestinationNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioDestinationNode where + makeObject = makeObject . unAudioDestinationNode + +instance IsAudioNode AudioDestinationNode +instance IsEventTarget AudioDestinationNode +instance IsGObject AudioDestinationNode where + typeGType _ = gTypeAudioDestinationNode + {-# INLINE typeGType #-} + +noAudioDestinationNode :: Maybe AudioDestinationNode +noAudioDestinationNode = Nothing +{-# INLINE noAudioDestinationNode #-} + +gTypeAudioDestinationNode :: JSM GType +gTypeAudioDestinationNode = GType . Object <$> jsg "AudioDestinationNode" + +-- | Functions for this inteface are in "JSDOM.AudioListener". +-- +-- +newtype AudioListener = AudioListener { unAudioListener :: JSVal } + +instance PToJSVal AudioListener where + pToJSVal = unAudioListener + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioListener where + pFromJSVal = AudioListener + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioListener where + toJSVal = return . unAudioListener + {-# INLINE toJSVal #-} + +instance FromJSVal AudioListener where + fromJSVal v = fmap AudioListener <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioListener + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioListener where + makeObject = makeObject . unAudioListener + +instance IsGObject AudioListener where + typeGType _ = gTypeAudioListener + {-# INLINE typeGType #-} + +noAudioListener :: Maybe AudioListener +noAudioListener = Nothing +{-# INLINE noAudioListener #-} + +gTypeAudioListener :: JSM GType +gTypeAudioListener = GType . Object <$> jsg "AudioListener" + +-- | Functions for this inteface are in "JSDOM.AudioNode". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype AudioNode = AudioNode { unAudioNode :: JSVal } + +instance PToJSVal AudioNode where + pToJSVal = unAudioNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioNode where + pFromJSVal = AudioNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioNode where + toJSVal = return . unAudioNode + {-# INLINE toJSVal #-} + +instance FromJSVal AudioNode where + fromJSVal v = fmap AudioNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioNode where + makeObject = makeObject . unAudioNode + +class (IsEventTarget o, IsGObject o) => IsAudioNode o +toAudioNode :: IsAudioNode o => o -> AudioNode +toAudioNode = AudioNode . coerce + +instance IsAudioNode AudioNode +instance IsEventTarget AudioNode +instance IsGObject AudioNode where + typeGType _ = gTypeAudioNode + {-# INLINE typeGType #-} + +noAudioNode :: Maybe AudioNode +noAudioNode = Nothing +{-# INLINE noAudioNode #-} + +gTypeAudioNode :: JSM GType +gTypeAudioNode = GType . Object <$> jsg "AudioNode" + +-- | Functions for this inteface are in "JSDOM.AudioParam". +-- +-- +newtype AudioParam = AudioParam { unAudioParam :: JSVal } + +instance PToJSVal AudioParam where + pToJSVal = unAudioParam + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioParam where + pFromJSVal = AudioParam + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioParam where + toJSVal = return . unAudioParam + {-# INLINE toJSVal #-} + +instance FromJSVal AudioParam where + fromJSVal v = fmap AudioParam <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioParam + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioParam where + makeObject = makeObject . unAudioParam + +instance IsGObject AudioParam where + typeGType _ = gTypeAudioParam + {-# INLINE typeGType #-} + +noAudioParam :: Maybe AudioParam +noAudioParam = Nothing +{-# INLINE noAudioParam #-} + +gTypeAudioParam :: JSM GType +gTypeAudioParam = GType . Object <$> jsg "AudioParam" + +-- | Functions for this inteface are in "JSDOM.AudioProcessingEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype AudioProcessingEvent = AudioProcessingEvent { unAudioProcessingEvent :: JSVal } + +instance PToJSVal AudioProcessingEvent where + pToJSVal = unAudioProcessingEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioProcessingEvent where + pFromJSVal = AudioProcessingEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioProcessingEvent where + toJSVal = return . unAudioProcessingEvent + {-# INLINE toJSVal #-} + +instance FromJSVal AudioProcessingEvent where + fromJSVal v = fmap AudioProcessingEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioProcessingEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioProcessingEvent where + makeObject = makeObject . unAudioProcessingEvent + +instance IsEvent AudioProcessingEvent +instance IsGObject AudioProcessingEvent where + typeGType _ = gTypeAudioProcessingEvent + {-# INLINE typeGType #-} + +noAudioProcessingEvent :: Maybe AudioProcessingEvent +noAudioProcessingEvent = Nothing +{-# INLINE noAudioProcessingEvent #-} + +gTypeAudioProcessingEvent :: JSM GType +gTypeAudioProcessingEvent = GType . Object <$> jsg "AudioProcessingEvent" + +-- | Functions for this inteface are in "JSDOM.AudioTrack". +-- +-- +newtype AudioTrack = AudioTrack { unAudioTrack :: JSVal } + +instance PToJSVal AudioTrack where + pToJSVal = unAudioTrack + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioTrack where + pFromJSVal = AudioTrack + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioTrack where + toJSVal = return . unAudioTrack + {-# INLINE toJSVal #-} + +instance FromJSVal AudioTrack where + fromJSVal v = fmap AudioTrack <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioTrack + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioTrack where + makeObject = makeObject . unAudioTrack + +instance IsGObject AudioTrack where + typeGType _ = gTypeAudioTrack + {-# INLINE typeGType #-} + +noAudioTrack :: Maybe AudioTrack +noAudioTrack = Nothing +{-# INLINE noAudioTrack #-} + +gTypeAudioTrack :: JSM GType +gTypeAudioTrack = GType . Object <$> jsg "AudioTrack" + +-- | Functions for this inteface are in "JSDOM.AudioTrackList". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype AudioTrackList = AudioTrackList { unAudioTrackList :: JSVal } + +instance PToJSVal AudioTrackList where + pToJSVal = unAudioTrackList + {-# INLINE pToJSVal #-} + +instance PFromJSVal AudioTrackList where + pFromJSVal = AudioTrackList + {-# INLINE pFromJSVal #-} + +instance ToJSVal AudioTrackList where + toJSVal = return . unAudioTrackList + {-# INLINE toJSVal #-} + +instance FromJSVal AudioTrackList where + fromJSVal v = fmap AudioTrackList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AudioTrackList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AudioTrackList where + makeObject = makeObject . unAudioTrackList + +instance IsEventTarget AudioTrackList +instance IsGObject AudioTrackList where + typeGType _ = gTypeAudioTrackList + {-# INLINE typeGType #-} + +noAudioTrackList :: Maybe AudioTrackList +noAudioTrackList = Nothing +{-# INLINE noAudioTrackList #-} + +gTypeAudioTrackList :: JSM GType +gTypeAudioTrackList = GType . Object <$> jsg "AudioTrackList" + +-- | Functions for this inteface are in "JSDOM.AutocompleteErrorEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype AutocompleteErrorEvent = AutocompleteErrorEvent { unAutocompleteErrorEvent :: JSVal } + +instance PToJSVal AutocompleteErrorEvent where + pToJSVal = unAutocompleteErrorEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal AutocompleteErrorEvent where + pFromJSVal = AutocompleteErrorEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal AutocompleteErrorEvent where + toJSVal = return . unAutocompleteErrorEvent + {-# INLINE toJSVal #-} + +instance FromJSVal AutocompleteErrorEvent where + fromJSVal v = fmap AutocompleteErrorEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AutocompleteErrorEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AutocompleteErrorEvent where + makeObject = makeObject . unAutocompleteErrorEvent + +instance IsEvent AutocompleteErrorEvent +instance IsGObject AutocompleteErrorEvent where + typeGType _ = gTypeAutocompleteErrorEvent + {-# INLINE typeGType #-} + +noAutocompleteErrorEvent :: Maybe AutocompleteErrorEvent +noAutocompleteErrorEvent = Nothing +{-# INLINE noAutocompleteErrorEvent #-} + +gTypeAutocompleteErrorEvent :: JSM GType +gTypeAutocompleteErrorEvent = GType . Object <$> jsg "AutocompleteErrorEvent" + +-- | Functions for this inteface are in "JSDOM.AutocompleteErrorEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype AutocompleteErrorEventInit = AutocompleteErrorEventInit { unAutocompleteErrorEventInit :: JSVal } + +instance PToJSVal AutocompleteErrorEventInit where + pToJSVal = unAutocompleteErrorEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal AutocompleteErrorEventInit where + pFromJSVal = AutocompleteErrorEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal AutocompleteErrorEventInit where + toJSVal = return . unAutocompleteErrorEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal AutocompleteErrorEventInit where + fromJSVal v = fmap AutocompleteErrorEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . AutocompleteErrorEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject AutocompleteErrorEventInit where + makeObject = makeObject . unAutocompleteErrorEventInit + +instance IsEventInit AutocompleteErrorEventInit +instance IsGObject AutocompleteErrorEventInit where + typeGType _ = gTypeAutocompleteErrorEventInit + {-# INLINE typeGType #-} + +noAutocompleteErrorEventInit :: Maybe AutocompleteErrorEventInit +noAutocompleteErrorEventInit = Nothing +{-# INLINE noAutocompleteErrorEventInit #-} + +gTypeAutocompleteErrorEventInit :: JSM GType +gTypeAutocompleteErrorEventInit = GType . Object <$> jsg "AutocompleteErrorEventInit" + +-- | Functions for this inteface are in "JSDOM.BarProp". +-- +-- +newtype BarProp = BarProp { unBarProp :: JSVal } + +instance PToJSVal BarProp where + pToJSVal = unBarProp + {-# INLINE pToJSVal #-} + +instance PFromJSVal BarProp where + pFromJSVal = BarProp + {-# INLINE pFromJSVal #-} + +instance ToJSVal BarProp where + toJSVal = return . unBarProp + {-# INLINE toJSVal #-} + +instance FromJSVal BarProp where + fromJSVal v = fmap BarProp <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BarProp + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BarProp where + makeObject = makeObject . unBarProp + +instance IsGObject BarProp where + typeGType _ = gTypeBarProp + {-# INLINE typeGType #-} + +noBarProp :: Maybe BarProp +noBarProp = Nothing +{-# INLINE noBarProp #-} + +gTypeBarProp :: JSM GType +gTypeBarProp = GType . Object <$> jsg "BarProp" + +-- | Functions for this inteface are in "JSDOM.BasicCredential". +-- +-- +newtype BasicCredential = BasicCredential { unBasicCredential :: JSVal } + +instance PToJSVal BasicCredential where + pToJSVal = unBasicCredential + {-# INLINE pToJSVal #-} + +instance PFromJSVal BasicCredential where + pFromJSVal = BasicCredential + {-# INLINE pFromJSVal #-} + +instance ToJSVal BasicCredential where + toJSVal = return . unBasicCredential + {-# INLINE toJSVal #-} + +instance FromJSVal BasicCredential where + fromJSVal v = fmap BasicCredential <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BasicCredential + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BasicCredential where + makeObject = makeObject . unBasicCredential + +class (IsGObject o) => IsBasicCredential o +toBasicCredential :: IsBasicCredential o => o -> BasicCredential +toBasicCredential = BasicCredential . coerce + +instance IsBasicCredential BasicCredential +instance IsGObject BasicCredential where + typeGType _ = gTypeBasicCredential + {-# INLINE typeGType #-} + +noBasicCredential :: Maybe BasicCredential +noBasicCredential = Nothing +{-# INLINE noBasicCredential #-} + +gTypeBasicCredential :: JSM GType +gTypeBasicCredential = GType . Object <$> jsg "BasicCredential" + +-- | Functions for this inteface are in "JSDOM.BeforeLoadEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype BeforeLoadEvent = BeforeLoadEvent { unBeforeLoadEvent :: JSVal } + +instance PToJSVal BeforeLoadEvent where + pToJSVal = unBeforeLoadEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal BeforeLoadEvent where + pFromJSVal = BeforeLoadEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal BeforeLoadEvent where + toJSVal = return . unBeforeLoadEvent + {-# INLINE toJSVal #-} + +instance FromJSVal BeforeLoadEvent where + fromJSVal v = fmap BeforeLoadEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BeforeLoadEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BeforeLoadEvent where + makeObject = makeObject . unBeforeLoadEvent + +instance IsEvent BeforeLoadEvent +instance IsGObject BeforeLoadEvent where + typeGType _ = gTypeBeforeLoadEvent + {-# INLINE typeGType #-} + +noBeforeLoadEvent :: Maybe BeforeLoadEvent +noBeforeLoadEvent = Nothing +{-# INLINE noBeforeLoadEvent #-} + +gTypeBeforeLoadEvent :: JSM GType +gTypeBeforeLoadEvent = GType . Object <$> jsg "BeforeLoadEvent" + +-- | Functions for this inteface are in "JSDOM.BeforeLoadEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype BeforeLoadEventInit = BeforeLoadEventInit { unBeforeLoadEventInit :: JSVal } + +instance PToJSVal BeforeLoadEventInit where + pToJSVal = unBeforeLoadEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal BeforeLoadEventInit where + pFromJSVal = BeforeLoadEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal BeforeLoadEventInit where + toJSVal = return . unBeforeLoadEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal BeforeLoadEventInit where + fromJSVal v = fmap BeforeLoadEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BeforeLoadEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BeforeLoadEventInit where + makeObject = makeObject . unBeforeLoadEventInit + +instance IsEventInit BeforeLoadEventInit +instance IsGObject BeforeLoadEventInit where + typeGType _ = gTypeBeforeLoadEventInit + {-# INLINE typeGType #-} + +noBeforeLoadEventInit :: Maybe BeforeLoadEventInit +noBeforeLoadEventInit = Nothing +{-# INLINE noBeforeLoadEventInit #-} + +gTypeBeforeLoadEventInit :: JSM GType +gTypeBeforeLoadEventInit = GType . Object <$> jsg "BeforeLoadEventInit" + +-- | Functions for this inteface are in "JSDOM.BeforeUnloadEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype BeforeUnloadEvent = BeforeUnloadEvent { unBeforeUnloadEvent :: JSVal } + +instance PToJSVal BeforeUnloadEvent where + pToJSVal = unBeforeUnloadEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal BeforeUnloadEvent where + pFromJSVal = BeforeUnloadEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal BeforeUnloadEvent where + toJSVal = return . unBeforeUnloadEvent + {-# INLINE toJSVal #-} + +instance FromJSVal BeforeUnloadEvent where + fromJSVal v = fmap BeforeUnloadEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BeforeUnloadEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BeforeUnloadEvent where + makeObject = makeObject . unBeforeUnloadEvent + +instance IsEvent BeforeUnloadEvent +instance IsGObject BeforeUnloadEvent where + typeGType _ = gTypeBeforeUnloadEvent + {-# INLINE typeGType #-} + +noBeforeUnloadEvent :: Maybe BeforeUnloadEvent +noBeforeUnloadEvent = Nothing +{-# INLINE noBeforeUnloadEvent #-} + +gTypeBeforeUnloadEvent :: JSM GType +gTypeBeforeUnloadEvent = GType . Object <$> jsg "BeforeUnloadEvent" + +-- | Functions for this inteface are in "JSDOM.BiquadFilterNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype BiquadFilterNode = BiquadFilterNode { unBiquadFilterNode :: JSVal } + +instance PToJSVal BiquadFilterNode where + pToJSVal = unBiquadFilterNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal BiquadFilterNode where + pFromJSVal = BiquadFilterNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal BiquadFilterNode where + toJSVal = return . unBiquadFilterNode + {-# INLINE toJSVal #-} + +instance FromJSVal BiquadFilterNode where + fromJSVal v = fmap BiquadFilterNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BiquadFilterNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BiquadFilterNode where + makeObject = makeObject . unBiquadFilterNode + +instance IsAudioNode BiquadFilterNode +instance IsEventTarget BiquadFilterNode +instance IsGObject BiquadFilterNode where + typeGType _ = gTypeBiquadFilterNode + {-# INLINE typeGType #-} + +noBiquadFilterNode :: Maybe BiquadFilterNode +noBiquadFilterNode = Nothing +{-# INLINE noBiquadFilterNode #-} + +gTypeBiquadFilterNode :: JSM GType +gTypeBiquadFilterNode = GType . Object <$> jsg "BiquadFilterNode" + +-- | Functions for this inteface are in "JSDOM.Blob". +-- +-- +newtype Blob = Blob { unBlob :: JSVal } + +instance PToJSVal Blob where + pToJSVal = unBlob + {-# INLINE pToJSVal #-} + +instance PFromJSVal Blob where + pFromJSVal = Blob + {-# INLINE pFromJSVal #-} + +instance ToJSVal Blob where + toJSVal = return . unBlob + {-# INLINE toJSVal #-} + +instance FromJSVal Blob where + fromJSVal v = fmap Blob <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Blob + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Blob where + makeObject = makeObject . unBlob + +class (IsGObject o) => IsBlob o +toBlob :: IsBlob o => o -> Blob +toBlob = Blob . coerce + +instance IsBlob Blob +instance IsGObject Blob where + typeGType _ = gTypeBlob + {-# INLINE typeGType #-} + +noBlob :: Maybe Blob +noBlob = Nothing +{-# INLINE noBlob #-} + +gTypeBlob :: JSM GType +gTypeBlob = GType . Object <$> jsg "Blob" + +-- | Functions for this inteface are in "JSDOM.BlobPropertyBag". +-- +-- +newtype BlobPropertyBag = BlobPropertyBag { unBlobPropertyBag :: JSVal } + +instance PToJSVal BlobPropertyBag where + pToJSVal = unBlobPropertyBag + {-# INLINE pToJSVal #-} + +instance PFromJSVal BlobPropertyBag where + pFromJSVal = BlobPropertyBag + {-# INLINE pFromJSVal #-} + +instance ToJSVal BlobPropertyBag where + toJSVal = return . unBlobPropertyBag + {-# INLINE toJSVal #-} + +instance FromJSVal BlobPropertyBag where + fromJSVal v = fmap BlobPropertyBag <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . BlobPropertyBag + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject BlobPropertyBag where + makeObject = makeObject . unBlobPropertyBag + +class (IsGObject o) => IsBlobPropertyBag o +toBlobPropertyBag :: IsBlobPropertyBag o => o -> BlobPropertyBag +toBlobPropertyBag = BlobPropertyBag . coerce + +instance IsBlobPropertyBag BlobPropertyBag +instance IsGObject BlobPropertyBag where + typeGType _ = gTypeBlobPropertyBag + {-# INLINE typeGType #-} + +noBlobPropertyBag :: Maybe BlobPropertyBag +noBlobPropertyBag = Nothing +{-# INLINE noBlobPropertyBag #-} + +gTypeBlobPropertyBag :: JSM GType +gTypeBlobPropertyBag = GType . Object <$> jsg "BlobPropertyBag" + +-- | Functions for this inteface are in "JSDOM.Body". +-- +-- +newtype Body = Body { unBody :: JSVal } + +instance PToJSVal Body where + pToJSVal = unBody + {-# INLINE pToJSVal #-} + +instance PFromJSVal Body where + pFromJSVal = Body + {-# INLINE pFromJSVal #-} + +instance ToJSVal Body where + toJSVal = return . unBody + {-# INLINE toJSVal #-} + +instance FromJSVal Body where + fromJSVal v = fmap Body <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Body + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Body where + makeObject = makeObject . unBody + +class (IsGObject o) => IsBody o +toBody :: IsBody o => o -> Body +toBody = Body . coerce + +instance IsBody Body +instance IsGObject Body where + typeGType _ = gTypeBody + {-# INLINE typeGType #-} + +noBody :: Maybe Body +noBody = Nothing +{-# INLINE noBody #-} + +gTypeBody :: JSM GType +gTypeBody = GType . Object <$> jsg "Body" + +-- | Functions for this inteface are in "JSDOM.ByteLengthQueuingStrategy". +-- +-- +newtype ByteLengthQueuingStrategy = ByteLengthQueuingStrategy { unByteLengthQueuingStrategy :: JSVal } + +instance PToJSVal ByteLengthQueuingStrategy where + pToJSVal = unByteLengthQueuingStrategy + {-# INLINE pToJSVal #-} + +instance PFromJSVal ByteLengthQueuingStrategy where + pFromJSVal = ByteLengthQueuingStrategy + {-# INLINE pFromJSVal #-} + +instance ToJSVal ByteLengthQueuingStrategy where + toJSVal = return . unByteLengthQueuingStrategy + {-# INLINE toJSVal #-} + +instance FromJSVal ByteLengthQueuingStrategy where + fromJSVal v = fmap ByteLengthQueuingStrategy <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ByteLengthQueuingStrategy + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ByteLengthQueuingStrategy where + makeObject = makeObject . unByteLengthQueuingStrategy + +instance IsGObject ByteLengthQueuingStrategy where + typeGType _ = gTypeByteLengthQueuingStrategy + {-# INLINE typeGType #-} + +noByteLengthQueuingStrategy :: Maybe ByteLengthQueuingStrategy +noByteLengthQueuingStrategy = Nothing +{-# INLINE noByteLengthQueuingStrategy #-} + +gTypeByteLengthQueuingStrategy :: JSM GType +gTypeByteLengthQueuingStrategy = GType . Object <$> jsg "ByteLengthQueuingStrategy" + +-- | Functions for this inteface are in "JSDOM.CDATASection". +-- Base interface functions are in: +-- +-- * "JSDOM.Text" +-- * "JSDOM.CharacterData" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Slotable" +-- +-- +newtype CDATASection = CDATASection { unCDATASection :: JSVal } + +instance PToJSVal CDATASection where + pToJSVal = unCDATASection + {-# INLINE pToJSVal #-} + +instance PFromJSVal CDATASection where + pFromJSVal = CDATASection + {-# INLINE pFromJSVal #-} + +instance ToJSVal CDATASection where + toJSVal = return . unCDATASection + {-# INLINE toJSVal #-} + +instance FromJSVal CDATASection where + fromJSVal v = fmap CDATASection <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CDATASection + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CDATASection where + makeObject = makeObject . unCDATASection + +instance IsText CDATASection +instance IsCharacterData CDATASection +instance IsNode CDATASection +instance IsEventTarget CDATASection +instance IsNonDocumentTypeChildNode CDATASection +instance IsChildNode CDATASection +instance IsSlotable CDATASection +instance IsGObject CDATASection where + typeGType _ = gTypeCDATASection + {-# INLINE typeGType #-} + +noCDATASection :: Maybe CDATASection +noCDATASection = Nothing +{-# INLINE noCDATASection #-} + +gTypeCDATASection :: JSM GType +gTypeCDATASection = GType . Object <$> jsg "CDATASection" + +-- | Functions for this inteface are in "JSDOM.CSS". +-- +-- +newtype CSS = CSS { unCSS :: JSVal } + +instance PToJSVal CSS where + pToJSVal = unCSS + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSS where + pFromJSVal = CSS + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSS where + toJSVal = return . unCSS + {-# INLINE toJSVal #-} + +instance FromJSVal CSS where + fromJSVal v = fmap CSS <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSS + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSS where + makeObject = makeObject . unCSS + +instance IsGObject CSS where + typeGType _ = gTypeCSS + {-# INLINE typeGType #-} + +noCSS :: Maybe CSS +noCSS = Nothing +{-# INLINE noCSS #-} + +gTypeCSS :: JSM GType +gTypeCSS = GType . Object <$> jsg "CSS" + +-- | Functions for this inteface are in "JSDOM.CSSFontFaceLoadEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype CSSFontFaceLoadEvent = CSSFontFaceLoadEvent { unCSSFontFaceLoadEvent :: JSVal } + +instance PToJSVal CSSFontFaceLoadEvent where + pToJSVal = unCSSFontFaceLoadEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSFontFaceLoadEvent where + pFromJSVal = CSSFontFaceLoadEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSFontFaceLoadEvent where + toJSVal = return . unCSSFontFaceLoadEvent + {-# INLINE toJSVal #-} + +instance FromJSVal CSSFontFaceLoadEvent where + fromJSVal v = fmap CSSFontFaceLoadEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSFontFaceLoadEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSFontFaceLoadEvent where + makeObject = makeObject . unCSSFontFaceLoadEvent + +instance IsEvent CSSFontFaceLoadEvent +instance IsGObject CSSFontFaceLoadEvent where + typeGType _ = gTypeCSSFontFaceLoadEvent + {-# INLINE typeGType #-} + +noCSSFontFaceLoadEvent :: Maybe CSSFontFaceLoadEvent +noCSSFontFaceLoadEvent = Nothing +{-# INLINE noCSSFontFaceLoadEvent #-} + +gTypeCSSFontFaceLoadEvent :: JSM GType +gTypeCSSFontFaceLoadEvent = GType . Object <$> jsg "CSSFontFaceLoadEvent" + +-- | Functions for this inteface are in "JSDOM.CSSFontFaceLoadEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype CSSFontFaceLoadEventInit = CSSFontFaceLoadEventInit { unCSSFontFaceLoadEventInit :: JSVal } + +instance PToJSVal CSSFontFaceLoadEventInit where + pToJSVal = unCSSFontFaceLoadEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSFontFaceLoadEventInit where + pFromJSVal = CSSFontFaceLoadEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSFontFaceLoadEventInit where + toJSVal = return . unCSSFontFaceLoadEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal CSSFontFaceLoadEventInit where + fromJSVal v = fmap CSSFontFaceLoadEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSFontFaceLoadEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSFontFaceLoadEventInit where + makeObject = makeObject . unCSSFontFaceLoadEventInit + +instance IsEventInit CSSFontFaceLoadEventInit +instance IsGObject CSSFontFaceLoadEventInit where + typeGType _ = gTypeCSSFontFaceLoadEventInit + {-# INLINE typeGType #-} + +noCSSFontFaceLoadEventInit :: Maybe CSSFontFaceLoadEventInit +noCSSFontFaceLoadEventInit = Nothing +{-# INLINE noCSSFontFaceLoadEventInit #-} + +gTypeCSSFontFaceLoadEventInit :: JSM GType +gTypeCSSFontFaceLoadEventInit = GType . Object <$> jsg "CSSFontFaceLoadEventInit" + +-- | Functions for this inteface are in "JSDOM.CSSFontFaceRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSFontFaceRule = CSSFontFaceRule { unCSSFontFaceRule :: JSVal } + +instance PToJSVal CSSFontFaceRule where + pToJSVal = unCSSFontFaceRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSFontFaceRule where + pFromJSVal = CSSFontFaceRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSFontFaceRule where + toJSVal = return . unCSSFontFaceRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSFontFaceRule where + fromJSVal v = fmap CSSFontFaceRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSFontFaceRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSFontFaceRule where + makeObject = makeObject . unCSSFontFaceRule + +instance IsCSSRule CSSFontFaceRule +instance IsGObject CSSFontFaceRule where + typeGType _ = gTypeCSSFontFaceRule + {-# INLINE typeGType #-} + +noCSSFontFaceRule :: Maybe CSSFontFaceRule +noCSSFontFaceRule = Nothing +{-# INLINE noCSSFontFaceRule #-} + +gTypeCSSFontFaceRule :: JSM GType +gTypeCSSFontFaceRule = GType . Object <$> jsg "CSSFontFaceRule" + +-- | Functions for this inteface are in "JSDOM.CSSImportRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSImportRule = CSSImportRule { unCSSImportRule :: JSVal } + +instance PToJSVal CSSImportRule where + pToJSVal = unCSSImportRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSImportRule where + pFromJSVal = CSSImportRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSImportRule where + toJSVal = return . unCSSImportRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSImportRule where + fromJSVal v = fmap CSSImportRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSImportRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSImportRule where + makeObject = makeObject . unCSSImportRule + +instance IsCSSRule CSSImportRule +instance IsGObject CSSImportRule where + typeGType _ = gTypeCSSImportRule + {-# INLINE typeGType #-} + +noCSSImportRule :: Maybe CSSImportRule +noCSSImportRule = Nothing +{-# INLINE noCSSImportRule #-} + +gTypeCSSImportRule :: JSM GType +gTypeCSSImportRule = GType . Object <$> jsg "CSSImportRule" + +-- | Functions for this inteface are in "JSDOM.CSSKeyframeRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSKeyframeRule = CSSKeyframeRule { unCSSKeyframeRule :: JSVal } + +instance PToJSVal CSSKeyframeRule where + pToJSVal = unCSSKeyframeRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSKeyframeRule where + pFromJSVal = CSSKeyframeRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSKeyframeRule where + toJSVal = return . unCSSKeyframeRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSKeyframeRule where + fromJSVal v = fmap CSSKeyframeRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSKeyframeRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSKeyframeRule where + makeObject = makeObject . unCSSKeyframeRule + +instance IsCSSRule CSSKeyframeRule +instance IsGObject CSSKeyframeRule where + typeGType _ = gTypeCSSKeyframeRule + {-# INLINE typeGType #-} + +noCSSKeyframeRule :: Maybe CSSKeyframeRule +noCSSKeyframeRule = Nothing +{-# INLINE noCSSKeyframeRule #-} + +gTypeCSSKeyframeRule :: JSM GType +gTypeCSSKeyframeRule = GType . Object <$> jsg "CSSKeyframeRule" + +-- | Functions for this inteface are in "JSDOM.CSSKeyframesRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSKeyframesRule = CSSKeyframesRule { unCSSKeyframesRule :: JSVal } + +instance PToJSVal CSSKeyframesRule where + pToJSVal = unCSSKeyframesRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSKeyframesRule where + pFromJSVal = CSSKeyframesRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSKeyframesRule where + toJSVal = return . unCSSKeyframesRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSKeyframesRule where + fromJSVal v = fmap CSSKeyframesRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSKeyframesRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSKeyframesRule where + makeObject = makeObject . unCSSKeyframesRule + +instance IsCSSRule CSSKeyframesRule +instance IsGObject CSSKeyframesRule where + typeGType _ = gTypeCSSKeyframesRule + {-# INLINE typeGType #-} + +noCSSKeyframesRule :: Maybe CSSKeyframesRule +noCSSKeyframesRule = Nothing +{-# INLINE noCSSKeyframesRule #-} + +gTypeCSSKeyframesRule :: JSM GType +gTypeCSSKeyframesRule = GType . Object <$> jsg "CSSKeyframesRule" + +-- | Functions for this inteface are in "JSDOM.CSSMediaRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSMediaRule = CSSMediaRule { unCSSMediaRule :: JSVal } + +instance PToJSVal CSSMediaRule where + pToJSVal = unCSSMediaRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSMediaRule where + pFromJSVal = CSSMediaRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSMediaRule where + toJSVal = return . unCSSMediaRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSMediaRule where + fromJSVal v = fmap CSSMediaRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSMediaRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSMediaRule where + makeObject = makeObject . unCSSMediaRule + +instance IsCSSRule CSSMediaRule +instance IsGObject CSSMediaRule where + typeGType _ = gTypeCSSMediaRule + {-# INLINE typeGType #-} + +noCSSMediaRule :: Maybe CSSMediaRule +noCSSMediaRule = Nothing +{-# INLINE noCSSMediaRule #-} + +gTypeCSSMediaRule :: JSM GType +gTypeCSSMediaRule = GType . Object <$> jsg "CSSMediaRule" + +-- | Functions for this inteface are in "JSDOM.CSSNamespaceRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSNamespaceRule = CSSNamespaceRule { unCSSNamespaceRule :: JSVal } + +instance PToJSVal CSSNamespaceRule where + pToJSVal = unCSSNamespaceRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSNamespaceRule where + pFromJSVal = CSSNamespaceRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSNamespaceRule where + toJSVal = return . unCSSNamespaceRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSNamespaceRule where + fromJSVal v = fmap CSSNamespaceRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSNamespaceRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSNamespaceRule where + makeObject = makeObject . unCSSNamespaceRule + +instance IsCSSRule CSSNamespaceRule +instance IsGObject CSSNamespaceRule where + typeGType _ = gTypeCSSNamespaceRule + {-# INLINE typeGType #-} + +noCSSNamespaceRule :: Maybe CSSNamespaceRule +noCSSNamespaceRule = Nothing +{-# INLINE noCSSNamespaceRule #-} + +gTypeCSSNamespaceRule :: JSM GType +gTypeCSSNamespaceRule = GType . Object <$> jsg "CSSNamespaceRule" + +-- | Functions for this inteface are in "JSDOM.CSSPageRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSPageRule = CSSPageRule { unCSSPageRule :: JSVal } + +instance PToJSVal CSSPageRule where + pToJSVal = unCSSPageRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSPageRule where + pFromJSVal = CSSPageRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSPageRule where + toJSVal = return . unCSSPageRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSPageRule where + fromJSVal v = fmap CSSPageRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSPageRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSPageRule where + makeObject = makeObject . unCSSPageRule + +instance IsCSSRule CSSPageRule +instance IsGObject CSSPageRule where + typeGType _ = gTypeCSSPageRule + {-# INLINE typeGType #-} + +noCSSPageRule :: Maybe CSSPageRule +noCSSPageRule = Nothing +{-# INLINE noCSSPageRule #-} + +gTypeCSSPageRule :: JSM GType +gTypeCSSPageRule = GType . Object <$> jsg "CSSPageRule" + +-- | Functions for this inteface are in "JSDOM.CSSPrimitiveValue". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSValue" +-- +-- +newtype CSSPrimitiveValue = CSSPrimitiveValue { unCSSPrimitiveValue :: JSVal } + +instance PToJSVal CSSPrimitiveValue where + pToJSVal = unCSSPrimitiveValue + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSPrimitiveValue where + pFromJSVal = CSSPrimitiveValue + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSPrimitiveValue where + toJSVal = return . unCSSPrimitiveValue + {-# INLINE toJSVal #-} + +instance FromJSVal CSSPrimitiveValue where + fromJSVal v = fmap CSSPrimitiveValue <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSPrimitiveValue + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSPrimitiveValue where + makeObject = makeObject . unCSSPrimitiveValue + +instance IsCSSValue CSSPrimitiveValue +instance IsGObject CSSPrimitiveValue where + typeGType _ = gTypeCSSPrimitiveValue + {-# INLINE typeGType #-} + +noCSSPrimitiveValue :: Maybe CSSPrimitiveValue +noCSSPrimitiveValue = Nothing +{-# INLINE noCSSPrimitiveValue #-} + +gTypeCSSPrimitiveValue :: JSM GType +gTypeCSSPrimitiveValue = GType . Object <$> jsg "CSSPrimitiveValue" + +-- | Functions for this inteface are in "JSDOM.CSSRule". +-- +-- +newtype CSSRule = CSSRule { unCSSRule :: JSVal } + +instance PToJSVal CSSRule where + pToJSVal = unCSSRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSRule where + pFromJSVal = CSSRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSRule where + toJSVal = return . unCSSRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSRule where + fromJSVal v = fmap CSSRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSRule where + makeObject = makeObject . unCSSRule + +class (IsGObject o) => IsCSSRule o +toCSSRule :: IsCSSRule o => o -> CSSRule +toCSSRule = CSSRule . coerce + +instance IsCSSRule CSSRule +instance IsGObject CSSRule where + typeGType _ = gTypeCSSRule + {-# INLINE typeGType #-} + +noCSSRule :: Maybe CSSRule +noCSSRule = Nothing +{-# INLINE noCSSRule #-} + +gTypeCSSRule :: JSM GType +gTypeCSSRule = GType . Object <$> jsg "CSSRule" + +-- | Functions for this inteface are in "JSDOM.CSSRuleList". +-- +-- +newtype CSSRuleList = CSSRuleList { unCSSRuleList :: JSVal } + +instance PToJSVal CSSRuleList where + pToJSVal = unCSSRuleList + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSRuleList where + pFromJSVal = CSSRuleList + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSRuleList where + toJSVal = return . unCSSRuleList + {-# INLINE toJSVal #-} + +instance FromJSVal CSSRuleList where + fromJSVal v = fmap CSSRuleList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSRuleList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSRuleList where + makeObject = makeObject . unCSSRuleList + +instance IsGObject CSSRuleList where + typeGType _ = gTypeCSSRuleList + {-# INLINE typeGType #-} + +noCSSRuleList :: Maybe CSSRuleList +noCSSRuleList = Nothing +{-# INLINE noCSSRuleList #-} + +gTypeCSSRuleList :: JSM GType +gTypeCSSRuleList = GType . Object <$> jsg "CSSRuleList" + +-- | Functions for this inteface are in "JSDOM.CSSStyleDeclaration". +-- +-- +newtype CSSStyleDeclaration = CSSStyleDeclaration { unCSSStyleDeclaration :: JSVal } + +instance PToJSVal CSSStyleDeclaration where + pToJSVal = unCSSStyleDeclaration + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSStyleDeclaration where + pFromJSVal = CSSStyleDeclaration + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSStyleDeclaration where + toJSVal = return . unCSSStyleDeclaration + {-# INLINE toJSVal #-} + +instance FromJSVal CSSStyleDeclaration where + fromJSVal v = fmap CSSStyleDeclaration <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSStyleDeclaration + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSStyleDeclaration where + makeObject = makeObject . unCSSStyleDeclaration + +instance IsGObject CSSStyleDeclaration where + typeGType _ = gTypeCSSStyleDeclaration + {-# INLINE typeGType #-} + +noCSSStyleDeclaration :: Maybe CSSStyleDeclaration +noCSSStyleDeclaration = Nothing +{-# INLINE noCSSStyleDeclaration #-} + +gTypeCSSStyleDeclaration :: JSM GType +gTypeCSSStyleDeclaration = GType . Object <$> jsg "CSSStyleDeclaration" + +-- | Functions for this inteface are in "JSDOM.CSSStyleRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSStyleRule = CSSStyleRule { unCSSStyleRule :: JSVal } + +instance PToJSVal CSSStyleRule where + pToJSVal = unCSSStyleRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSStyleRule where + pFromJSVal = CSSStyleRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSStyleRule where + toJSVal = return . unCSSStyleRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSStyleRule where + fromJSVal v = fmap CSSStyleRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSStyleRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSStyleRule where + makeObject = makeObject . unCSSStyleRule + +instance IsCSSRule CSSStyleRule +instance IsGObject CSSStyleRule where + typeGType _ = gTypeCSSStyleRule + {-# INLINE typeGType #-} + +noCSSStyleRule :: Maybe CSSStyleRule +noCSSStyleRule = Nothing +{-# INLINE noCSSStyleRule #-} + +gTypeCSSStyleRule :: JSM GType +gTypeCSSStyleRule = GType . Object <$> jsg "CSSStyleRule" + +-- | Functions for this inteface are in "JSDOM.CSSStyleSheet". +-- Base interface functions are in: +-- +-- * "JSDOM.StyleSheet" +-- +-- +newtype CSSStyleSheet = CSSStyleSheet { unCSSStyleSheet :: JSVal } + +instance PToJSVal CSSStyleSheet where + pToJSVal = unCSSStyleSheet + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSStyleSheet where + pFromJSVal = CSSStyleSheet + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSStyleSheet where + toJSVal = return . unCSSStyleSheet + {-# INLINE toJSVal #-} + +instance FromJSVal CSSStyleSheet where + fromJSVal v = fmap CSSStyleSheet <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSStyleSheet + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSStyleSheet where + makeObject = makeObject . unCSSStyleSheet + +instance IsStyleSheet CSSStyleSheet +instance IsGObject CSSStyleSheet where + typeGType _ = gTypeCSSStyleSheet + {-# INLINE typeGType #-} + +noCSSStyleSheet :: Maybe CSSStyleSheet +noCSSStyleSheet = Nothing +{-# INLINE noCSSStyleSheet #-} + +gTypeCSSStyleSheet :: JSM GType +gTypeCSSStyleSheet = GType . Object <$> jsg "CSSStyleSheet" + +-- | Functions for this inteface are in "JSDOM.CSSSupportsRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSSupportsRule = CSSSupportsRule { unCSSSupportsRule :: JSVal } + +instance PToJSVal CSSSupportsRule where + pToJSVal = unCSSSupportsRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSSupportsRule where + pFromJSVal = CSSSupportsRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSSupportsRule where + toJSVal = return . unCSSSupportsRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSSupportsRule where + fromJSVal v = fmap CSSSupportsRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSSupportsRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSSupportsRule where + makeObject = makeObject . unCSSSupportsRule + +instance IsCSSRule CSSSupportsRule +instance IsGObject CSSSupportsRule where + typeGType _ = gTypeCSSSupportsRule + {-# INLINE typeGType #-} + +noCSSSupportsRule :: Maybe CSSSupportsRule +noCSSSupportsRule = Nothing +{-# INLINE noCSSSupportsRule #-} + +gTypeCSSSupportsRule :: JSM GType +gTypeCSSSupportsRule = GType . Object <$> jsg "CSSSupportsRule" + +-- | Functions for this inteface are in "JSDOM.CSSUnknownRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype CSSUnknownRule = CSSUnknownRule { unCSSUnknownRule :: JSVal } + +instance PToJSVal CSSUnknownRule where + pToJSVal = unCSSUnknownRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSUnknownRule where + pFromJSVal = CSSUnknownRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSUnknownRule where + toJSVal = return . unCSSUnknownRule + {-# INLINE toJSVal #-} + +instance FromJSVal CSSUnknownRule where + fromJSVal v = fmap CSSUnknownRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSUnknownRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSUnknownRule where + makeObject = makeObject . unCSSUnknownRule + +instance IsCSSRule CSSUnknownRule +instance IsGObject CSSUnknownRule where + typeGType _ = gTypeCSSUnknownRule + {-# INLINE typeGType #-} + +noCSSUnknownRule :: Maybe CSSUnknownRule +noCSSUnknownRule = Nothing +{-# INLINE noCSSUnknownRule #-} + +gTypeCSSUnknownRule :: JSM GType +gTypeCSSUnknownRule = GType . Object <$> jsg "CSSUnknownRule" + +-- | Functions for this inteface are in "JSDOM.CSSValue". +-- +-- +newtype CSSValue = CSSValue { unCSSValue :: JSVal } + +instance PToJSVal CSSValue where + pToJSVal = unCSSValue + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSValue where + pFromJSVal = CSSValue + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSValue where + toJSVal = return . unCSSValue + {-# INLINE toJSVal #-} + +instance FromJSVal CSSValue where + fromJSVal v = fmap CSSValue <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSValue + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSValue where + makeObject = makeObject . unCSSValue + +class (IsGObject o) => IsCSSValue o +toCSSValue :: IsCSSValue o => o -> CSSValue +toCSSValue = CSSValue . coerce + +instance IsCSSValue CSSValue +instance IsGObject CSSValue where + typeGType _ = gTypeCSSValue + {-# INLINE typeGType #-} + +noCSSValue :: Maybe CSSValue +noCSSValue = Nothing +{-# INLINE noCSSValue #-} + +gTypeCSSValue :: JSM GType +gTypeCSSValue = GType . Object <$> jsg "CSSValue" + +-- | Functions for this inteface are in "JSDOM.CSSValueList". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSValue" +-- +-- +newtype CSSValueList = CSSValueList { unCSSValueList :: JSVal } + +instance PToJSVal CSSValueList where + pToJSVal = unCSSValueList + {-# INLINE pToJSVal #-} + +instance PFromJSVal CSSValueList where + pFromJSVal = CSSValueList + {-# INLINE pFromJSVal #-} + +instance ToJSVal CSSValueList where + toJSVal = return . unCSSValueList + {-# INLINE toJSVal #-} + +instance FromJSVal CSSValueList where + fromJSVal v = fmap CSSValueList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CSSValueList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CSSValueList where + makeObject = makeObject . unCSSValueList + +instance IsCSSValue CSSValueList +instance IsGObject CSSValueList where + typeGType _ = gTypeCSSValueList + {-# INLINE typeGType #-} + +noCSSValueList :: Maybe CSSValueList +noCSSValueList = Nothing +{-# INLINE noCSSValueList #-} + +gTypeCSSValueList :: JSM GType +gTypeCSSValueList = GType . Object <$> jsg "CSSValueList" + +-- | Functions for this inteface are in "JSDOM.CanvasCaptureMediaStreamTrack". +-- Base interface functions are in: +-- +-- * "JSDOM.MediaStreamTrack" +-- * "JSDOM.EventTarget" +-- +-- +newtype CanvasCaptureMediaStreamTrack = CanvasCaptureMediaStreamTrack { unCanvasCaptureMediaStreamTrack :: JSVal } + +instance PToJSVal CanvasCaptureMediaStreamTrack where + pToJSVal = unCanvasCaptureMediaStreamTrack + {-# INLINE pToJSVal #-} + +instance PFromJSVal CanvasCaptureMediaStreamTrack where + pFromJSVal = CanvasCaptureMediaStreamTrack + {-# INLINE pFromJSVal #-} + +instance ToJSVal CanvasCaptureMediaStreamTrack where + toJSVal = return . unCanvasCaptureMediaStreamTrack + {-# INLINE toJSVal #-} + +instance FromJSVal CanvasCaptureMediaStreamTrack where + fromJSVal v = fmap CanvasCaptureMediaStreamTrack <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CanvasCaptureMediaStreamTrack + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CanvasCaptureMediaStreamTrack where + makeObject = makeObject . unCanvasCaptureMediaStreamTrack + +instance IsMediaStreamTrack CanvasCaptureMediaStreamTrack +instance IsEventTarget CanvasCaptureMediaStreamTrack +instance IsGObject CanvasCaptureMediaStreamTrack where + typeGType _ = gTypeCanvasCaptureMediaStreamTrack + {-# INLINE typeGType #-} + +noCanvasCaptureMediaStreamTrack :: Maybe CanvasCaptureMediaStreamTrack +noCanvasCaptureMediaStreamTrack = Nothing +{-# INLINE noCanvasCaptureMediaStreamTrack #-} + +gTypeCanvasCaptureMediaStreamTrack :: JSM GType +gTypeCanvasCaptureMediaStreamTrack = GType . Object <$> jsg "CanvasCaptureMediaStreamTrack" + +-- | Functions for this inteface are in "JSDOM.CanvasGradient". +-- +-- +newtype CanvasGradient = CanvasGradient { unCanvasGradient :: JSVal } + +instance PToJSVal CanvasGradient where + pToJSVal = unCanvasGradient + {-# INLINE pToJSVal #-} + +instance PFromJSVal CanvasGradient where + pFromJSVal = CanvasGradient + {-# INLINE pFromJSVal #-} + +instance ToJSVal CanvasGradient where + toJSVal = return . unCanvasGradient + {-# INLINE toJSVal #-} + +instance FromJSVal CanvasGradient where + fromJSVal v = fmap CanvasGradient <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CanvasGradient + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CanvasGradient where + makeObject = makeObject . unCanvasGradient + +instance IsGObject CanvasGradient where + typeGType _ = gTypeCanvasGradient + {-# INLINE typeGType #-} + +noCanvasGradient :: Maybe CanvasGradient +noCanvasGradient = Nothing +{-# INLINE noCanvasGradient #-} + +gTypeCanvasGradient :: JSM GType +gTypeCanvasGradient = GType . Object <$> jsg "CanvasGradient" + +-- | Functions for this inteface are in "JSDOM.CanvasPath". +-- +-- +newtype CanvasPath = CanvasPath { unCanvasPath :: JSVal } + +instance PToJSVal CanvasPath where + pToJSVal = unCanvasPath + {-# INLINE pToJSVal #-} + +instance PFromJSVal CanvasPath where + pFromJSVal = CanvasPath + {-# INLINE pFromJSVal #-} + +instance ToJSVal CanvasPath where + toJSVal = return . unCanvasPath + {-# INLINE toJSVal #-} + +instance FromJSVal CanvasPath where + fromJSVal v = fmap CanvasPath <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CanvasPath + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CanvasPath where + makeObject = makeObject . unCanvasPath + +class (IsGObject o) => IsCanvasPath o +toCanvasPath :: IsCanvasPath o => o -> CanvasPath +toCanvasPath = CanvasPath . coerce + +instance IsCanvasPath CanvasPath +instance IsGObject CanvasPath where + typeGType _ = gTypeCanvasPath + {-# INLINE typeGType #-} + +noCanvasPath :: Maybe CanvasPath +noCanvasPath = Nothing +{-# INLINE noCanvasPath #-} + +gTypeCanvasPath :: JSM GType +gTypeCanvasPath = GType . Object <$> jsg "CanvasPath" + +-- | Functions for this inteface are in "JSDOM.CanvasPattern". +-- +-- +newtype CanvasPattern = CanvasPattern { unCanvasPattern :: JSVal } + +instance PToJSVal CanvasPattern where + pToJSVal = unCanvasPattern + {-# INLINE pToJSVal #-} + +instance PFromJSVal CanvasPattern where + pFromJSVal = CanvasPattern + {-# INLINE pFromJSVal #-} + +instance ToJSVal CanvasPattern where + toJSVal = return . unCanvasPattern + {-# INLINE toJSVal #-} + +instance FromJSVal CanvasPattern where + fromJSVal v = fmap CanvasPattern <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CanvasPattern + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CanvasPattern where + makeObject = makeObject . unCanvasPattern + +instance IsGObject CanvasPattern where + typeGType _ = gTypeCanvasPattern + {-# INLINE typeGType #-} + +noCanvasPattern :: Maybe CanvasPattern +noCanvasPattern = Nothing +{-# INLINE noCanvasPattern #-} + +gTypeCanvasPattern :: JSM GType +gTypeCanvasPattern = GType . Object <$> jsg "CanvasPattern" + +-- | Functions for this inteface are in "JSDOM.CanvasProxy". +-- +-- +newtype CanvasProxy = CanvasProxy { unCanvasProxy :: JSVal } + +instance PToJSVal CanvasProxy where + pToJSVal = unCanvasProxy + {-# INLINE pToJSVal #-} + +instance PFromJSVal CanvasProxy where + pFromJSVal = CanvasProxy + {-# INLINE pFromJSVal #-} + +instance ToJSVal CanvasProxy where + toJSVal = return . unCanvasProxy + {-# INLINE toJSVal #-} + +instance FromJSVal CanvasProxy where + fromJSVal v = fmap CanvasProxy <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CanvasProxy + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CanvasProxy where + makeObject = makeObject . unCanvasProxy + +instance IsGObject CanvasProxy where + typeGType _ = gTypeCanvasProxy + {-# INLINE typeGType #-} + +noCanvasProxy :: Maybe CanvasProxy +noCanvasProxy = Nothing +{-# INLINE noCanvasProxy #-} + +gTypeCanvasProxy :: JSM GType +gTypeCanvasProxy = GType . Object <$> jsg "CanvasProxy" + +-- | Functions for this inteface are in "JSDOM.CanvasRenderingContext2D". +-- Base interface functions are in: +-- +-- * "JSDOM.CanvasPath" +-- +-- +newtype CanvasRenderingContext2D = CanvasRenderingContext2D { unCanvasRenderingContext2D :: JSVal } + +instance PToJSVal CanvasRenderingContext2D where + pToJSVal = unCanvasRenderingContext2D + {-# INLINE pToJSVal #-} + +instance PFromJSVal CanvasRenderingContext2D where + pFromJSVal = CanvasRenderingContext2D + {-# INLINE pFromJSVal #-} + +instance ToJSVal CanvasRenderingContext2D where + toJSVal = return . unCanvasRenderingContext2D + {-# INLINE toJSVal #-} + +instance FromJSVal CanvasRenderingContext2D where + fromJSVal v = fmap CanvasRenderingContext2D <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CanvasRenderingContext2D + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CanvasRenderingContext2D where + makeObject = makeObject . unCanvasRenderingContext2D + +instance IsCanvasPath CanvasRenderingContext2D +instance IsGObject CanvasRenderingContext2D where + typeGType _ = gTypeCanvasRenderingContext2D + {-# INLINE typeGType #-} + +noCanvasRenderingContext2D :: Maybe CanvasRenderingContext2D +noCanvasRenderingContext2D = Nothing +{-# INLINE noCanvasRenderingContext2D #-} + +gTypeCanvasRenderingContext2D :: JSM GType +gTypeCanvasRenderingContext2D = GType . Object <$> jsg "CanvasRenderingContext2D" + +-- | Functions for this inteface are in "JSDOM.ChannelMergerNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype ChannelMergerNode = ChannelMergerNode { unChannelMergerNode :: JSVal } + +instance PToJSVal ChannelMergerNode where + pToJSVal = unChannelMergerNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal ChannelMergerNode where + pFromJSVal = ChannelMergerNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal ChannelMergerNode where + toJSVal = return . unChannelMergerNode + {-# INLINE toJSVal #-} + +instance FromJSVal ChannelMergerNode where + fromJSVal v = fmap ChannelMergerNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ChannelMergerNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ChannelMergerNode where + makeObject = makeObject . unChannelMergerNode + +instance IsAudioNode ChannelMergerNode +instance IsEventTarget ChannelMergerNode +instance IsGObject ChannelMergerNode where + typeGType _ = gTypeChannelMergerNode + {-# INLINE typeGType #-} + +noChannelMergerNode :: Maybe ChannelMergerNode +noChannelMergerNode = Nothing +{-# INLINE noChannelMergerNode #-} + +gTypeChannelMergerNode :: JSM GType +gTypeChannelMergerNode = GType . Object <$> jsg "ChannelMergerNode" + +-- | Functions for this inteface are in "JSDOM.ChannelSplitterNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype ChannelSplitterNode = ChannelSplitterNode { unChannelSplitterNode :: JSVal } + +instance PToJSVal ChannelSplitterNode where + pToJSVal = unChannelSplitterNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal ChannelSplitterNode where + pFromJSVal = ChannelSplitterNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal ChannelSplitterNode where + toJSVal = return . unChannelSplitterNode + {-# INLINE toJSVal #-} + +instance FromJSVal ChannelSplitterNode where + fromJSVal v = fmap ChannelSplitterNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ChannelSplitterNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ChannelSplitterNode where + makeObject = makeObject . unChannelSplitterNode + +instance IsAudioNode ChannelSplitterNode +instance IsEventTarget ChannelSplitterNode +instance IsGObject ChannelSplitterNode where + typeGType _ = gTypeChannelSplitterNode + {-# INLINE typeGType #-} + +noChannelSplitterNode :: Maybe ChannelSplitterNode +noChannelSplitterNode = Nothing +{-# INLINE noChannelSplitterNode #-} + +gTypeChannelSplitterNode :: JSM GType +gTypeChannelSplitterNode = GType . Object <$> jsg "ChannelSplitterNode" + +-- | Functions for this inteface are in "JSDOM.CharacterData". +-- Base interface functions are in: +-- +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.ChildNode" +-- +-- +newtype CharacterData = CharacterData { unCharacterData :: JSVal } + +instance PToJSVal CharacterData where + pToJSVal = unCharacterData + {-# INLINE pToJSVal #-} + +instance PFromJSVal CharacterData where + pFromJSVal = CharacterData + {-# INLINE pFromJSVal #-} + +instance ToJSVal CharacterData where + toJSVal = return . unCharacterData + {-# INLINE toJSVal #-} + +instance FromJSVal CharacterData where + fromJSVal v = fmap CharacterData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CharacterData + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CharacterData where + makeObject = makeObject . unCharacterData + +class (IsNode o, IsEventTarget o, IsNonDocumentTypeChildNode o, IsChildNode o, IsGObject o) => IsCharacterData o +toCharacterData :: IsCharacterData o => o -> CharacterData +toCharacterData = CharacterData . coerce + +instance IsCharacterData CharacterData +instance IsNode CharacterData +instance IsEventTarget CharacterData +instance IsNonDocumentTypeChildNode CharacterData +instance IsChildNode CharacterData +instance IsGObject CharacterData where + typeGType _ = gTypeCharacterData + {-# INLINE typeGType #-} + +noCharacterData :: Maybe CharacterData +noCharacterData = Nothing +{-# INLINE noCharacterData #-} + +gTypeCharacterData :: JSM GType +gTypeCharacterData = GType . Object <$> jsg "CharacterData" + +-- | Functions for this inteface are in "JSDOM.ChildNode". +-- +-- +newtype ChildNode = ChildNode { unChildNode :: JSVal } + +instance PToJSVal ChildNode where + pToJSVal = unChildNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal ChildNode where + pFromJSVal = ChildNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal ChildNode where + toJSVal = return . unChildNode + {-# INLINE toJSVal #-} + +instance FromJSVal ChildNode where + fromJSVal v = fmap ChildNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ChildNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ChildNode where + makeObject = makeObject . unChildNode + +class (IsGObject o) => IsChildNode o +toChildNode :: IsChildNode o => o -> ChildNode +toChildNode = ChildNode . coerce + +instance IsChildNode ChildNode +instance IsGObject ChildNode where + typeGType _ = gTypeChildNode + {-# INLINE typeGType #-} + +noChildNode :: Maybe ChildNode +noChildNode = Nothing +{-# INLINE noChildNode #-} + +gTypeChildNode :: JSM GType +gTypeChildNode = GType . Object <$> jsg "ChildNode" + +-- | Functions for this inteface are in "JSDOM.ClipboardEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype ClipboardEvent = ClipboardEvent { unClipboardEvent :: JSVal } + +instance PToJSVal ClipboardEvent where + pToJSVal = unClipboardEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal ClipboardEvent where + pFromJSVal = ClipboardEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal ClipboardEvent where + toJSVal = return . unClipboardEvent + {-# INLINE toJSVal #-} + +instance FromJSVal ClipboardEvent where + fromJSVal v = fmap ClipboardEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ClipboardEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ClipboardEvent where + makeObject = makeObject . unClipboardEvent + +instance IsEvent ClipboardEvent +instance IsGObject ClipboardEvent where + typeGType _ = gTypeClipboardEvent + {-# INLINE typeGType #-} + +noClipboardEvent :: Maybe ClipboardEvent +noClipboardEvent = Nothing +{-# INLINE noClipboardEvent #-} + +gTypeClipboardEvent :: JSM GType +gTypeClipboardEvent = GType . Object <$> jsg "ClipboardEvent" + +-- | Functions for this inteface are in "JSDOM.ClipboardEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype ClipboardEventInit = ClipboardEventInit { unClipboardEventInit :: JSVal } + +instance PToJSVal ClipboardEventInit where + pToJSVal = unClipboardEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal ClipboardEventInit where + pFromJSVal = ClipboardEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal ClipboardEventInit where + toJSVal = return . unClipboardEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal ClipboardEventInit where + fromJSVal v = fmap ClipboardEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ClipboardEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ClipboardEventInit where + makeObject = makeObject . unClipboardEventInit + +instance IsEventInit ClipboardEventInit +instance IsGObject ClipboardEventInit where + typeGType _ = gTypeClipboardEventInit + {-# INLINE typeGType #-} + +noClipboardEventInit :: Maybe ClipboardEventInit +noClipboardEventInit = Nothing +{-# INLINE noClipboardEventInit #-} + +gTypeClipboardEventInit :: JSM GType +gTypeClipboardEventInit = GType . Object <$> jsg "ClipboardEventInit" + +-- | Functions for this inteface are in "JSDOM.CloseEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype CloseEvent = CloseEvent { unCloseEvent :: JSVal } + +instance PToJSVal CloseEvent where + pToJSVal = unCloseEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal CloseEvent where + pFromJSVal = CloseEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal CloseEvent where + toJSVal = return . unCloseEvent + {-# INLINE toJSVal #-} + +instance FromJSVal CloseEvent where + fromJSVal v = fmap CloseEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CloseEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CloseEvent where + makeObject = makeObject . unCloseEvent + +instance IsEvent CloseEvent +instance IsGObject CloseEvent where + typeGType _ = gTypeCloseEvent + {-# INLINE typeGType #-} + +noCloseEvent :: Maybe CloseEvent +noCloseEvent = Nothing +{-# INLINE noCloseEvent #-} + +gTypeCloseEvent :: JSM GType +gTypeCloseEvent = GType . Object <$> jsg "CloseEvent" + +-- | Functions for this inteface are in "JSDOM.CloseEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype CloseEventInit = CloseEventInit { unCloseEventInit :: JSVal } + +instance PToJSVal CloseEventInit where + pToJSVal = unCloseEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal CloseEventInit where + pFromJSVal = CloseEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal CloseEventInit where + toJSVal = return . unCloseEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal CloseEventInit where + fromJSVal v = fmap CloseEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CloseEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CloseEventInit where + makeObject = makeObject . unCloseEventInit + +instance IsEventInit CloseEventInit +instance IsGObject CloseEventInit where + typeGType _ = gTypeCloseEventInit + {-# INLINE typeGType #-} + +noCloseEventInit :: Maybe CloseEventInit +noCloseEventInit = Nothing +{-# INLINE noCloseEventInit #-} + +gTypeCloseEventInit :: JSM GType +gTypeCloseEventInit = GType . Object <$> jsg "CloseEventInit" + +-- | Functions for this inteface are in "JSDOM.CommandLineAPIHost". +-- +-- +newtype CommandLineAPIHost = CommandLineAPIHost { unCommandLineAPIHost :: JSVal } + +instance PToJSVal CommandLineAPIHost where + pToJSVal = unCommandLineAPIHost + {-# INLINE pToJSVal #-} + +instance PFromJSVal CommandLineAPIHost where + pFromJSVal = CommandLineAPIHost + {-# INLINE pFromJSVal #-} + +instance ToJSVal CommandLineAPIHost where + toJSVal = return . unCommandLineAPIHost + {-# INLINE toJSVal #-} + +instance FromJSVal CommandLineAPIHost where + fromJSVal v = fmap CommandLineAPIHost <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CommandLineAPIHost + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CommandLineAPIHost where + makeObject = makeObject . unCommandLineAPIHost + +instance IsGObject CommandLineAPIHost where + typeGType _ = gTypeCommandLineAPIHost + {-# INLINE typeGType #-} + +noCommandLineAPIHost :: Maybe CommandLineAPIHost +noCommandLineAPIHost = Nothing +{-# INLINE noCommandLineAPIHost #-} + +gTypeCommandLineAPIHost :: JSM GType +gTypeCommandLineAPIHost = GType . Object <$> jsg "CommandLineAPIHost" + +-- | Functions for this inteface are in "JSDOM.Comment". +-- Base interface functions are in: +-- +-- * "JSDOM.CharacterData" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.ChildNode" +-- +-- +newtype Comment = Comment { unComment :: JSVal } + +instance PToJSVal Comment where + pToJSVal = unComment + {-# INLINE pToJSVal #-} + +instance PFromJSVal Comment where + pFromJSVal = Comment + {-# INLINE pFromJSVal #-} + +instance ToJSVal Comment where + toJSVal = return . unComment + {-# INLINE toJSVal #-} + +instance FromJSVal Comment where + fromJSVal v = fmap Comment <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Comment + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Comment where + makeObject = makeObject . unComment + +instance IsCharacterData Comment +instance IsNode Comment +instance IsEventTarget Comment +instance IsNonDocumentTypeChildNode Comment +instance IsChildNode Comment +instance IsGObject Comment where + typeGType _ = gTypeComment + {-# INLINE typeGType #-} + +noComment :: Maybe Comment +noComment = Nothing +{-# INLINE noComment #-} + +gTypeComment :: JSM GType +gTypeComment = GType . Object <$> jsg "Comment" + +-- | Functions for this inteface are in "JSDOM.CompositionEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEvent" +-- * "JSDOM.Event" +-- +-- +newtype CompositionEvent = CompositionEvent { unCompositionEvent :: JSVal } + +instance PToJSVal CompositionEvent where + pToJSVal = unCompositionEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal CompositionEvent where + pFromJSVal = CompositionEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal CompositionEvent where + toJSVal = return . unCompositionEvent + {-# INLINE toJSVal #-} + +instance FromJSVal CompositionEvent where + fromJSVal v = fmap CompositionEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CompositionEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CompositionEvent where + makeObject = makeObject . unCompositionEvent + +instance IsUIEvent CompositionEvent +instance IsEvent CompositionEvent +instance IsGObject CompositionEvent where + typeGType _ = gTypeCompositionEvent + {-# INLINE typeGType #-} + +noCompositionEvent :: Maybe CompositionEvent +noCompositionEvent = Nothing +{-# INLINE noCompositionEvent #-} + +gTypeCompositionEvent :: JSM GType +gTypeCompositionEvent = GType . Object <$> jsg "CompositionEvent" + +-- | Functions for this inteface are in "JSDOM.CompositionEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEventInit" +-- * "JSDOM.EventInit" +-- +-- +newtype CompositionEventInit = CompositionEventInit { unCompositionEventInit :: JSVal } + +instance PToJSVal CompositionEventInit where + pToJSVal = unCompositionEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal CompositionEventInit where + pFromJSVal = CompositionEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal CompositionEventInit where + toJSVal = return . unCompositionEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal CompositionEventInit where + fromJSVal v = fmap CompositionEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CompositionEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CompositionEventInit where + makeObject = makeObject . unCompositionEventInit + +instance IsUIEventInit CompositionEventInit +instance IsEventInit CompositionEventInit +instance IsGObject CompositionEventInit where + typeGType _ = gTypeCompositionEventInit + {-# INLINE typeGType #-} + +noCompositionEventInit :: Maybe CompositionEventInit +noCompositionEventInit = Nothing +{-# INLINE noCompositionEventInit #-} + +gTypeCompositionEventInit :: JSM GType +gTypeCompositionEventInit = GType . Object <$> jsg "CompositionEventInit" + +-- | Functions for this inteface are in "JSDOM.ConstrainBooleanParameters". +-- +-- +newtype ConstrainBooleanParameters = ConstrainBooleanParameters { unConstrainBooleanParameters :: JSVal } + +instance PToJSVal ConstrainBooleanParameters where + pToJSVal = unConstrainBooleanParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal ConstrainBooleanParameters where + pFromJSVal = ConstrainBooleanParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal ConstrainBooleanParameters where + toJSVal = return . unConstrainBooleanParameters + {-# INLINE toJSVal #-} + +instance FromJSVal ConstrainBooleanParameters where + fromJSVal v = fmap ConstrainBooleanParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ConstrainBooleanParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ConstrainBooleanParameters where + makeObject = makeObject . unConstrainBooleanParameters + +instance IsGObject ConstrainBooleanParameters where + typeGType _ = gTypeConstrainBooleanParameters + {-# INLINE typeGType #-} + +noConstrainBooleanParameters :: Maybe ConstrainBooleanParameters +noConstrainBooleanParameters = Nothing +{-# INLINE noConstrainBooleanParameters #-} + +gTypeConstrainBooleanParameters :: JSM GType +gTypeConstrainBooleanParameters = GType . Object <$> jsg "ConstrainBooleanParameters" + +-- | Functions for this inteface are in "JSDOM.ConstrainDOMStringParameters". +-- +-- +newtype ConstrainDOMStringParameters = ConstrainDOMStringParameters { unConstrainDOMStringParameters :: JSVal } + +instance PToJSVal ConstrainDOMStringParameters where + pToJSVal = unConstrainDOMStringParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal ConstrainDOMStringParameters where + pFromJSVal = ConstrainDOMStringParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal ConstrainDOMStringParameters where + toJSVal = return . unConstrainDOMStringParameters + {-# INLINE toJSVal #-} + +instance FromJSVal ConstrainDOMStringParameters where + fromJSVal v = fmap ConstrainDOMStringParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ConstrainDOMStringParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ConstrainDOMStringParameters where + makeObject = makeObject . unConstrainDOMStringParameters + +instance IsGObject ConstrainDOMStringParameters where + typeGType _ = gTypeConstrainDOMStringParameters + {-# INLINE typeGType #-} + +noConstrainDOMStringParameters :: Maybe ConstrainDOMStringParameters +noConstrainDOMStringParameters = Nothing +{-# INLINE noConstrainDOMStringParameters #-} + +gTypeConstrainDOMStringParameters :: JSM GType +gTypeConstrainDOMStringParameters = GType . Object <$> jsg "ConstrainDOMStringParameters" + +-- | Functions for this inteface are in "JSDOM.ConstrainDoubleRange". +-- Base interface functions are in: +-- +-- * "JSDOM.DoubleRange" +-- +-- +newtype ConstrainDoubleRange = ConstrainDoubleRange { unConstrainDoubleRange :: JSVal } + +instance PToJSVal ConstrainDoubleRange where + pToJSVal = unConstrainDoubleRange + {-# INLINE pToJSVal #-} + +instance PFromJSVal ConstrainDoubleRange where + pFromJSVal = ConstrainDoubleRange + {-# INLINE pFromJSVal #-} + +instance ToJSVal ConstrainDoubleRange where + toJSVal = return . unConstrainDoubleRange + {-# INLINE toJSVal #-} + +instance FromJSVal ConstrainDoubleRange where + fromJSVal v = fmap ConstrainDoubleRange <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ConstrainDoubleRange + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ConstrainDoubleRange where + makeObject = makeObject . unConstrainDoubleRange + +instance IsDoubleRange ConstrainDoubleRange +instance IsGObject ConstrainDoubleRange where + typeGType _ = gTypeConstrainDoubleRange + {-# INLINE typeGType #-} + +noConstrainDoubleRange :: Maybe ConstrainDoubleRange +noConstrainDoubleRange = Nothing +{-# INLINE noConstrainDoubleRange #-} + +gTypeConstrainDoubleRange :: JSM GType +gTypeConstrainDoubleRange = GType . Object <$> jsg "ConstrainDoubleRange" + +-- | Functions for this inteface are in "JSDOM.ConstrainLongRange". +-- Base interface functions are in: +-- +-- * "JSDOM.LongRange" +-- +-- +newtype ConstrainLongRange = ConstrainLongRange { unConstrainLongRange :: JSVal } + +instance PToJSVal ConstrainLongRange where + pToJSVal = unConstrainLongRange + {-# INLINE pToJSVal #-} + +instance PFromJSVal ConstrainLongRange where + pFromJSVal = ConstrainLongRange + {-# INLINE pFromJSVal #-} + +instance ToJSVal ConstrainLongRange where + toJSVal = return . unConstrainLongRange + {-# INLINE toJSVal #-} + +instance FromJSVal ConstrainLongRange where + fromJSVal v = fmap ConstrainLongRange <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ConstrainLongRange + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ConstrainLongRange where + makeObject = makeObject . unConstrainLongRange + +instance IsLongRange ConstrainLongRange +instance IsGObject ConstrainLongRange where + typeGType _ = gTypeConstrainLongRange + {-# INLINE typeGType #-} + +noConstrainLongRange :: Maybe ConstrainLongRange +noConstrainLongRange = Nothing +{-# INLINE noConstrainLongRange #-} + +gTypeConstrainLongRange :: JSM GType +gTypeConstrainLongRange = GType . Object <$> jsg "ConstrainLongRange" + +-- | Functions for this inteface are in "JSDOM.ConvolverNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype ConvolverNode = ConvolverNode { unConvolverNode :: JSVal } + +instance PToJSVal ConvolverNode where + pToJSVal = unConvolverNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal ConvolverNode where + pFromJSVal = ConvolverNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal ConvolverNode where + toJSVal = return . unConvolverNode + {-# INLINE toJSVal #-} + +instance FromJSVal ConvolverNode where + fromJSVal v = fmap ConvolverNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ConvolverNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ConvolverNode where + makeObject = makeObject . unConvolverNode + +instance IsAudioNode ConvolverNode +instance IsEventTarget ConvolverNode +instance IsGObject ConvolverNode where + typeGType _ = gTypeConvolverNode + {-# INLINE typeGType #-} + +noConvolverNode :: Maybe ConvolverNode +noConvolverNode = Nothing +{-# INLINE noConvolverNode #-} + +gTypeConvolverNode :: JSM GType +gTypeConvolverNode = GType . Object <$> jsg "ConvolverNode" + +-- | Functions for this inteface are in "JSDOM.Coordinates". +-- +-- +newtype Coordinates = Coordinates { unCoordinates :: JSVal } + +instance PToJSVal Coordinates where + pToJSVal = unCoordinates + {-# INLINE pToJSVal #-} + +instance PFromJSVal Coordinates where + pFromJSVal = Coordinates + {-# INLINE pFromJSVal #-} + +instance ToJSVal Coordinates where + toJSVal = return . unCoordinates + {-# INLINE toJSVal #-} + +instance FromJSVal Coordinates where + fromJSVal v = fmap Coordinates <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Coordinates + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Coordinates where + makeObject = makeObject . unCoordinates + +instance IsGObject Coordinates where + typeGType _ = gTypeCoordinates + {-# INLINE typeGType #-} + +noCoordinates :: Maybe Coordinates +noCoordinates = Nothing +{-# INLINE noCoordinates #-} + +gTypeCoordinates :: JSM GType +gTypeCoordinates = GType . Object <$> jsg "Coordinates" + +-- | Functions for this inteface are in "JSDOM.CountQueuingStrategy". +-- +-- +newtype CountQueuingStrategy = CountQueuingStrategy { unCountQueuingStrategy :: JSVal } + +instance PToJSVal CountQueuingStrategy where + pToJSVal = unCountQueuingStrategy + {-# INLINE pToJSVal #-} + +instance PFromJSVal CountQueuingStrategy where + pFromJSVal = CountQueuingStrategy + {-# INLINE pFromJSVal #-} + +instance ToJSVal CountQueuingStrategy where + toJSVal = return . unCountQueuingStrategy + {-# INLINE toJSVal #-} + +instance FromJSVal CountQueuingStrategy where + fromJSVal v = fmap CountQueuingStrategy <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CountQueuingStrategy + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CountQueuingStrategy where + makeObject = makeObject . unCountQueuingStrategy + +instance IsGObject CountQueuingStrategy where + typeGType _ = gTypeCountQueuingStrategy + {-# INLINE typeGType #-} + +noCountQueuingStrategy :: Maybe CountQueuingStrategy +noCountQueuingStrategy = Nothing +{-# INLINE noCountQueuingStrategy #-} + +gTypeCountQueuingStrategy :: JSM GType +gTypeCountQueuingStrategy = GType . Object <$> jsg "CountQueuingStrategy" + +-- | Functions for this inteface are in "JSDOM.Counter". +-- +-- +newtype Counter = Counter { unCounter :: JSVal } + +instance PToJSVal Counter where + pToJSVal = unCounter + {-# INLINE pToJSVal #-} + +instance PFromJSVal Counter where + pFromJSVal = Counter + {-# INLINE pFromJSVal #-} + +instance ToJSVal Counter where + toJSVal = return . unCounter + {-# INLINE toJSVal #-} + +instance FromJSVal Counter where + fromJSVal v = fmap Counter <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Counter + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Counter where + makeObject = makeObject . unCounter + +instance IsGObject Counter where + typeGType _ = gTypeCounter + {-# INLINE typeGType #-} + +noCounter :: Maybe Counter +noCounter = Nothing +{-# INLINE noCounter #-} + +gTypeCounter :: JSM GType +gTypeCounter = GType . Object <$> jsg "Counter" + +-- | Functions for this inteface are in "JSDOM.CredentialData". +-- +-- +newtype CredentialData = CredentialData { unCredentialData :: JSVal } + +instance PToJSVal CredentialData where + pToJSVal = unCredentialData + {-# INLINE pToJSVal #-} + +instance PFromJSVal CredentialData where + pFromJSVal = CredentialData + {-# INLINE pFromJSVal #-} + +instance ToJSVal CredentialData where + toJSVal = return . unCredentialData + {-# INLINE toJSVal #-} + +instance FromJSVal CredentialData where + fromJSVal v = fmap CredentialData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CredentialData + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CredentialData where + makeObject = makeObject . unCredentialData + +class (IsGObject o) => IsCredentialData o +toCredentialData :: IsCredentialData o => o -> CredentialData +toCredentialData = CredentialData . coerce + +instance IsCredentialData CredentialData +instance IsGObject CredentialData where + typeGType _ = gTypeCredentialData + {-# INLINE typeGType #-} + +noCredentialData :: Maybe CredentialData +noCredentialData = Nothing +{-# INLINE noCredentialData #-} + +gTypeCredentialData :: JSM GType +gTypeCredentialData = GType . Object <$> jsg "CredentialData" + +-- | Functions for this inteface are in "JSDOM.Crypto". +-- +-- +newtype Crypto = Crypto { unCrypto :: JSVal } + +instance PToJSVal Crypto where + pToJSVal = unCrypto + {-# INLINE pToJSVal #-} + +instance PFromJSVal Crypto where + pFromJSVal = Crypto + {-# INLINE pFromJSVal #-} + +instance ToJSVal Crypto where + toJSVal = return . unCrypto + {-# INLINE toJSVal #-} + +instance FromJSVal Crypto where + fromJSVal v = fmap Crypto <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Crypto + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Crypto where + makeObject = makeObject . unCrypto + +instance IsGObject Crypto where + typeGType _ = gTypeCrypto + {-# INLINE typeGType #-} + +noCrypto :: Maybe Crypto +noCrypto = Nothing +{-# INLINE noCrypto #-} + +gTypeCrypto :: JSM GType +gTypeCrypto = GType . Object <$> jsg "Crypto" + +-- | Functions for this inteface are in "JSDOM.CryptoAlgorithmParameters". +-- +-- +newtype CryptoAlgorithmParameters = CryptoAlgorithmParameters { unCryptoAlgorithmParameters :: JSVal } + +instance PToJSVal CryptoAlgorithmParameters where + pToJSVal = unCryptoAlgorithmParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal CryptoAlgorithmParameters where + pFromJSVal = CryptoAlgorithmParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal CryptoAlgorithmParameters where + toJSVal = return . unCryptoAlgorithmParameters + {-# INLINE toJSVal #-} + +instance FromJSVal CryptoAlgorithmParameters where + fromJSVal v = fmap CryptoAlgorithmParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CryptoAlgorithmParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CryptoAlgorithmParameters where + makeObject = makeObject . unCryptoAlgorithmParameters + +class (IsGObject o) => IsCryptoAlgorithmParameters o +toCryptoAlgorithmParameters :: IsCryptoAlgorithmParameters o => o -> CryptoAlgorithmParameters +toCryptoAlgorithmParameters = CryptoAlgorithmParameters . coerce + +instance IsCryptoAlgorithmParameters CryptoAlgorithmParameters +instance IsGObject CryptoAlgorithmParameters where + typeGType _ = gTypeCryptoAlgorithmParameters + {-# INLINE typeGType #-} + +noCryptoAlgorithmParameters :: Maybe CryptoAlgorithmParameters +noCryptoAlgorithmParameters = Nothing +{-# INLINE noCryptoAlgorithmParameters #-} + +gTypeCryptoAlgorithmParameters :: JSM GType +gTypeCryptoAlgorithmParameters = GType . Object <$> jsg "CryptoAlgorithmParameters" + +-- | Functions for this inteface are in "JSDOM.CryptoKey". +-- +-- +newtype CryptoKey = CryptoKey { unCryptoKey :: JSVal } + +instance PToJSVal CryptoKey where + pToJSVal = unCryptoKey + {-# INLINE pToJSVal #-} + +instance PFromJSVal CryptoKey where + pFromJSVal = CryptoKey + {-# INLINE pFromJSVal #-} + +instance ToJSVal CryptoKey where + toJSVal = return . unCryptoKey + {-# INLINE toJSVal #-} + +instance FromJSVal CryptoKey where + fromJSVal v = fmap CryptoKey <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CryptoKey + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CryptoKey where + makeObject = makeObject . unCryptoKey + +instance IsGObject CryptoKey where + typeGType _ = gTypeCryptoKey + {-# INLINE typeGType #-} + +noCryptoKey :: Maybe CryptoKey +noCryptoKey = Nothing +{-# INLINE noCryptoKey #-} + +gTypeCryptoKey :: JSM GType +gTypeCryptoKey = GType . Object <$> jsg "CryptoKey" + +-- | Functions for this inteface are in "JSDOM.CryptoKeyPair". +-- +-- +newtype CryptoKeyPair = CryptoKeyPair { unCryptoKeyPair :: JSVal } + +instance PToJSVal CryptoKeyPair where + pToJSVal = unCryptoKeyPair + {-# INLINE pToJSVal #-} + +instance PFromJSVal CryptoKeyPair where + pFromJSVal = CryptoKeyPair + {-# INLINE pFromJSVal #-} + +instance ToJSVal CryptoKeyPair where + toJSVal = return . unCryptoKeyPair + {-# INLINE toJSVal #-} + +instance FromJSVal CryptoKeyPair where + fromJSVal v = fmap CryptoKeyPair <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CryptoKeyPair + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CryptoKeyPair where + makeObject = makeObject . unCryptoKeyPair + +instance IsGObject CryptoKeyPair where + typeGType _ = gTypeCryptoKeyPair + {-# INLINE typeGType #-} + +noCryptoKeyPair :: Maybe CryptoKeyPair +noCryptoKeyPair = Nothing +{-# INLINE noCryptoKeyPair #-} + +gTypeCryptoKeyPair :: JSM GType +gTypeCryptoKeyPair = GType . Object <$> jsg "CryptoKeyPair" + +-- | Functions for this inteface are in "JSDOM.CustomElementRegistry". +-- +-- +newtype CustomElementRegistry = CustomElementRegistry { unCustomElementRegistry :: JSVal } + +instance PToJSVal CustomElementRegistry where + pToJSVal = unCustomElementRegistry + {-# INLINE pToJSVal #-} + +instance PFromJSVal CustomElementRegistry where + pFromJSVal = CustomElementRegistry + {-# INLINE pFromJSVal #-} + +instance ToJSVal CustomElementRegistry where + toJSVal = return . unCustomElementRegistry + {-# INLINE toJSVal #-} + +instance FromJSVal CustomElementRegistry where + fromJSVal v = fmap CustomElementRegistry <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CustomElementRegistry + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CustomElementRegistry where + makeObject = makeObject . unCustomElementRegistry + +instance IsGObject CustomElementRegistry where + typeGType _ = gTypeCustomElementRegistry + {-# INLINE typeGType #-} + +noCustomElementRegistry :: Maybe CustomElementRegistry +noCustomElementRegistry = Nothing +{-# INLINE noCustomElementRegistry #-} + +gTypeCustomElementRegistry :: JSM GType +gTypeCustomElementRegistry = GType . Object <$> jsg "CustomElementRegistry" + +-- | Functions for this inteface are in "JSDOM.CustomEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype CustomEvent = CustomEvent { unCustomEvent :: JSVal } + +instance PToJSVal CustomEvent where + pToJSVal = unCustomEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal CustomEvent where + pFromJSVal = CustomEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal CustomEvent where + toJSVal = return . unCustomEvent + {-# INLINE toJSVal #-} + +instance FromJSVal CustomEvent where + fromJSVal v = fmap CustomEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CustomEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CustomEvent where + makeObject = makeObject . unCustomEvent + +instance IsEvent CustomEvent +instance IsGObject CustomEvent where + typeGType _ = gTypeCustomEvent + {-# INLINE typeGType #-} + +noCustomEvent :: Maybe CustomEvent +noCustomEvent = Nothing +{-# INLINE noCustomEvent #-} + +gTypeCustomEvent :: JSM GType +gTypeCustomEvent = GType . Object <$> jsg "CustomEvent" + +-- | Functions for this inteface are in "JSDOM.CustomEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype CustomEventInit = CustomEventInit { unCustomEventInit :: JSVal } + +instance PToJSVal CustomEventInit where + pToJSVal = unCustomEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal CustomEventInit where + pFromJSVal = CustomEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal CustomEventInit where + toJSVal = return . unCustomEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal CustomEventInit where + fromJSVal v = fmap CustomEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . CustomEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject CustomEventInit where + makeObject = makeObject . unCustomEventInit + +instance IsEventInit CustomEventInit +instance IsGObject CustomEventInit where + typeGType _ = gTypeCustomEventInit + {-# INLINE typeGType #-} + +noCustomEventInit :: Maybe CustomEventInit +noCustomEventInit = Nothing +{-# INLINE noCustomEventInit #-} + +gTypeCustomEventInit :: JSM GType +gTypeCustomEventInit = GType . Object <$> jsg "CustomEventInit" + +-- | Functions for this inteface are in "JSDOM.DOMError". +-- +-- +newtype DOMError = DOMError { unDOMError :: JSVal } + +instance PToJSVal DOMError where + pToJSVal = unDOMError + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMError where + pFromJSVal = DOMError + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMError where + toJSVal = return . unDOMError + {-# INLINE toJSVal #-} + +instance FromJSVal DOMError where + fromJSVal v = fmap DOMError <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMError + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMError where + makeObject = makeObject . unDOMError + +class (IsGObject o) => IsDOMError o +toDOMError :: IsDOMError o => o -> DOMError +toDOMError = DOMError . coerce + +instance IsDOMError DOMError +instance IsGObject DOMError where + typeGType _ = gTypeDOMError + {-# INLINE typeGType #-} + +noDOMError :: Maybe DOMError +noDOMError = Nothing +{-# INLINE noDOMError #-} + +gTypeDOMError :: JSM GType +gTypeDOMError = GType . Object <$> jsg "DOMError" + +-- | Functions for this inteface are in "JSDOM.DOMException". +-- +-- +newtype DOMException = DOMException { unDOMException :: JSVal } + +instance PToJSVal DOMException where + pToJSVal = unDOMException + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMException where + pFromJSVal = DOMException + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMException where + toJSVal = return . unDOMException + {-# INLINE toJSVal #-} + +instance FromJSVal DOMException where + fromJSVal v = fmap DOMException <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMException + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMException where + makeObject = makeObject . unDOMException + +instance IsGObject DOMException where + typeGType _ = gTypeDOMException + {-# INLINE typeGType #-} + +noDOMException :: Maybe DOMException +noDOMException = Nothing +{-# INLINE noDOMException #-} + +gTypeDOMException :: JSM GType +gTypeDOMException = GType . Object <$> jsg "DOMException" + +-- | Functions for this inteface are in "JSDOM.DOMImplementation". +-- +-- +newtype DOMImplementation = DOMImplementation { unDOMImplementation :: JSVal } + +instance PToJSVal DOMImplementation where + pToJSVal = unDOMImplementation + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMImplementation where + pFromJSVal = DOMImplementation + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMImplementation where + toJSVal = return . unDOMImplementation + {-# INLINE toJSVal #-} + +instance FromJSVal DOMImplementation where + fromJSVal v = fmap DOMImplementation <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMImplementation + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMImplementation where + makeObject = makeObject . unDOMImplementation + +instance IsGObject DOMImplementation where + typeGType _ = gTypeDOMImplementation + {-# INLINE typeGType #-} + +noDOMImplementation :: Maybe DOMImplementation +noDOMImplementation = Nothing +{-# INLINE noDOMImplementation #-} + +gTypeDOMImplementation :: JSM GType +gTypeDOMImplementation = GType . Object <$> jsg "DOMImplementation" + +-- | Functions for this inteface are in "JSDOM.DOMNamedFlowCollection". +-- +-- +newtype DOMNamedFlowCollection = DOMNamedFlowCollection { unDOMNamedFlowCollection :: JSVal } + +instance PToJSVal DOMNamedFlowCollection where + pToJSVal = unDOMNamedFlowCollection + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMNamedFlowCollection where + pFromJSVal = DOMNamedFlowCollection + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMNamedFlowCollection where + toJSVal = return . unDOMNamedFlowCollection + {-# INLINE toJSVal #-} + +instance FromJSVal DOMNamedFlowCollection where + fromJSVal v = fmap DOMNamedFlowCollection <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMNamedFlowCollection + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMNamedFlowCollection where + makeObject = makeObject . unDOMNamedFlowCollection + +instance IsGObject DOMNamedFlowCollection where + typeGType _ = gTypeDOMNamedFlowCollection + {-# INLINE typeGType #-} + +noDOMNamedFlowCollection :: Maybe DOMNamedFlowCollection +noDOMNamedFlowCollection = Nothing +{-# INLINE noDOMNamedFlowCollection #-} + +gTypeDOMNamedFlowCollection :: JSM GType +gTypeDOMNamedFlowCollection = GType . Object <$> jsg "WebKitNamedFlowCollection" + +-- | Functions for this inteface are in "JSDOM.DOMParser". +-- +-- +newtype DOMParser = DOMParser { unDOMParser :: JSVal } + +instance PToJSVal DOMParser where + pToJSVal = unDOMParser + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMParser where + pFromJSVal = DOMParser + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMParser where + toJSVal = return . unDOMParser + {-# INLINE toJSVal #-} + +instance FromJSVal DOMParser where + fromJSVal v = fmap DOMParser <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMParser + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMParser where + makeObject = makeObject . unDOMParser + +instance IsGObject DOMParser where + typeGType _ = gTypeDOMParser + {-# INLINE typeGType #-} + +noDOMParser :: Maybe DOMParser +noDOMParser = Nothing +{-# INLINE noDOMParser #-} + +gTypeDOMParser :: JSM GType +gTypeDOMParser = GType . Object <$> jsg "DOMParser" + +-- | Functions for this inteface are in "JSDOM.DOMPoint". +-- Base interface functions are in: +-- +-- * "JSDOM.DOMPointReadOnly" +-- +-- +newtype DOMPoint = DOMPoint { unDOMPoint :: JSVal } + +instance PToJSVal DOMPoint where + pToJSVal = unDOMPoint + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMPoint where + pFromJSVal = DOMPoint + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMPoint where + toJSVal = return . unDOMPoint + {-# INLINE toJSVal #-} + +instance FromJSVal DOMPoint where + fromJSVal v = fmap DOMPoint <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMPoint + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMPoint where + makeObject = makeObject . unDOMPoint + +instance IsDOMPointReadOnly DOMPoint +instance IsGObject DOMPoint where + typeGType _ = gTypeDOMPoint + {-# INLINE typeGType #-} + +noDOMPoint :: Maybe DOMPoint +noDOMPoint = Nothing +{-# INLINE noDOMPoint #-} + +gTypeDOMPoint :: JSM GType +gTypeDOMPoint = GType . Object <$> jsg "DOMPoint" + +-- | Functions for this inteface are in "JSDOM.DOMPointInit". +-- +-- +newtype DOMPointInit = DOMPointInit { unDOMPointInit :: JSVal } + +instance PToJSVal DOMPointInit where + pToJSVal = unDOMPointInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMPointInit where + pFromJSVal = DOMPointInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMPointInit where + toJSVal = return . unDOMPointInit + {-# INLINE toJSVal #-} + +instance FromJSVal DOMPointInit where + fromJSVal v = fmap DOMPointInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMPointInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMPointInit where + makeObject = makeObject . unDOMPointInit + +instance IsGObject DOMPointInit where + typeGType _ = gTypeDOMPointInit + {-# INLINE typeGType #-} + +noDOMPointInit :: Maybe DOMPointInit +noDOMPointInit = Nothing +{-# INLINE noDOMPointInit #-} + +gTypeDOMPointInit :: JSM GType +gTypeDOMPointInit = GType . Object <$> jsg "DOMPointInit" + +-- | Functions for this inteface are in "JSDOM.DOMPointReadOnly". +-- +-- +newtype DOMPointReadOnly = DOMPointReadOnly { unDOMPointReadOnly :: JSVal } + +instance PToJSVal DOMPointReadOnly where + pToJSVal = unDOMPointReadOnly + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMPointReadOnly where + pFromJSVal = DOMPointReadOnly + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMPointReadOnly where + toJSVal = return . unDOMPointReadOnly + {-# INLINE toJSVal #-} + +instance FromJSVal DOMPointReadOnly where + fromJSVal v = fmap DOMPointReadOnly <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMPointReadOnly + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMPointReadOnly where + makeObject = makeObject . unDOMPointReadOnly + +class (IsGObject o) => IsDOMPointReadOnly o +toDOMPointReadOnly :: IsDOMPointReadOnly o => o -> DOMPointReadOnly +toDOMPointReadOnly = DOMPointReadOnly . coerce + +instance IsDOMPointReadOnly DOMPointReadOnly +instance IsGObject DOMPointReadOnly where + typeGType _ = gTypeDOMPointReadOnly + {-# INLINE typeGType #-} + +noDOMPointReadOnly :: Maybe DOMPointReadOnly +noDOMPointReadOnly = Nothing +{-# INLINE noDOMPointReadOnly #-} + +gTypeDOMPointReadOnly :: JSM GType +gTypeDOMPointReadOnly = GType . Object <$> jsg "DOMPointReadOnly" + +-- | Functions for this inteface are in "JSDOM.DOMRect". +-- Base interface functions are in: +-- +-- * "JSDOM.DOMRectReadOnly" +-- +-- +newtype DOMRect = DOMRect { unDOMRect :: JSVal } + +instance PToJSVal DOMRect where + pToJSVal = unDOMRect + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMRect where + pFromJSVal = DOMRect + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMRect where + toJSVal = return . unDOMRect + {-# INLINE toJSVal #-} + +instance FromJSVal DOMRect where + fromJSVal v = fmap DOMRect <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMRect + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMRect where + makeObject = makeObject . unDOMRect + +instance IsDOMRectReadOnly DOMRect +instance IsGObject DOMRect where + typeGType _ = gTypeDOMRect + {-# INLINE typeGType #-} + +noDOMRect :: Maybe DOMRect +noDOMRect = Nothing +{-# INLINE noDOMRect #-} + +gTypeDOMRect :: JSM GType +gTypeDOMRect = GType . Object <$> jsg "DOMRect" + +-- | Functions for this inteface are in "JSDOM.DOMRectInit". +-- +-- +newtype DOMRectInit = DOMRectInit { unDOMRectInit :: JSVal } + +instance PToJSVal DOMRectInit where + pToJSVal = unDOMRectInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMRectInit where + pFromJSVal = DOMRectInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMRectInit where + toJSVal = return . unDOMRectInit + {-# INLINE toJSVal #-} + +instance FromJSVal DOMRectInit where + fromJSVal v = fmap DOMRectInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMRectInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMRectInit where + makeObject = makeObject . unDOMRectInit + +instance IsGObject DOMRectInit where + typeGType _ = gTypeDOMRectInit + {-# INLINE typeGType #-} + +noDOMRectInit :: Maybe DOMRectInit +noDOMRectInit = Nothing +{-# INLINE noDOMRectInit #-} + +gTypeDOMRectInit :: JSM GType +gTypeDOMRectInit = GType . Object <$> jsg "DOMRectInit" + +-- | Functions for this inteface are in "JSDOM.DOMRectReadOnly". +-- +-- +newtype DOMRectReadOnly = DOMRectReadOnly { unDOMRectReadOnly :: JSVal } + +instance PToJSVal DOMRectReadOnly where + pToJSVal = unDOMRectReadOnly + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMRectReadOnly where + pFromJSVal = DOMRectReadOnly + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMRectReadOnly where + toJSVal = return . unDOMRectReadOnly + {-# INLINE toJSVal #-} + +instance FromJSVal DOMRectReadOnly where + fromJSVal v = fmap DOMRectReadOnly <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMRectReadOnly + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMRectReadOnly where + makeObject = makeObject . unDOMRectReadOnly + +class (IsGObject o) => IsDOMRectReadOnly o +toDOMRectReadOnly :: IsDOMRectReadOnly o => o -> DOMRectReadOnly +toDOMRectReadOnly = DOMRectReadOnly . coerce + +instance IsDOMRectReadOnly DOMRectReadOnly +instance IsGObject DOMRectReadOnly where + typeGType _ = gTypeDOMRectReadOnly + {-# INLINE typeGType #-} + +noDOMRectReadOnly :: Maybe DOMRectReadOnly +noDOMRectReadOnly = Nothing +{-# INLINE noDOMRectReadOnly #-} + +gTypeDOMRectReadOnly :: JSM GType +gTypeDOMRectReadOnly = GType . Object <$> jsg "DOMRectReadOnly" + +-- | Functions for this inteface are in "JSDOM.DOMStringList". +-- +-- +newtype DOMStringList = DOMStringList { unDOMStringList :: JSVal } + +instance PToJSVal DOMStringList where + pToJSVal = unDOMStringList + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMStringList where + pFromJSVal = DOMStringList + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMStringList where + toJSVal = return . unDOMStringList + {-# INLINE toJSVal #-} + +instance FromJSVal DOMStringList where + fromJSVal v = fmap DOMStringList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMStringList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMStringList where + makeObject = makeObject . unDOMStringList + +instance IsGObject DOMStringList where + typeGType _ = gTypeDOMStringList + {-# INLINE typeGType #-} + +noDOMStringList :: Maybe DOMStringList +noDOMStringList = Nothing +{-# INLINE noDOMStringList #-} + +gTypeDOMStringList :: JSM GType +gTypeDOMStringList = GType . Object <$> jsg "DOMStringList" + +-- | Functions for this inteface are in "JSDOM.DOMStringMap". +-- +-- +newtype DOMStringMap = DOMStringMap { unDOMStringMap :: JSVal } + +instance PToJSVal DOMStringMap where + pToJSVal = unDOMStringMap + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMStringMap where + pFromJSVal = DOMStringMap + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMStringMap where + toJSVal = return . unDOMStringMap + {-# INLINE toJSVal #-} + +instance FromJSVal DOMStringMap where + fromJSVal v = fmap DOMStringMap <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMStringMap + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMStringMap where + makeObject = makeObject . unDOMStringMap + +instance IsGObject DOMStringMap where + typeGType _ = gTypeDOMStringMap + {-# INLINE typeGType #-} + +noDOMStringMap :: Maybe DOMStringMap +noDOMStringMap = Nothing +{-# INLINE noDOMStringMap #-} + +gTypeDOMStringMap :: JSM GType +gTypeDOMStringMap = GType . Object <$> jsg "DOMStringMap" + +-- | Functions for this inteface are in "JSDOM.DOMTokenList". +-- +-- +newtype DOMTokenList = DOMTokenList { unDOMTokenList :: JSVal } + +instance PToJSVal DOMTokenList where + pToJSVal = unDOMTokenList + {-# INLINE pToJSVal #-} + +instance PFromJSVal DOMTokenList where + pFromJSVal = DOMTokenList + {-# INLINE pFromJSVal #-} + +instance ToJSVal DOMTokenList where + toJSVal = return . unDOMTokenList + {-# INLINE toJSVal #-} + +instance FromJSVal DOMTokenList where + fromJSVal v = fmap DOMTokenList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DOMTokenList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DOMTokenList where + makeObject = makeObject . unDOMTokenList + +instance IsGObject DOMTokenList where + typeGType _ = gTypeDOMTokenList + {-# INLINE typeGType #-} + +noDOMTokenList :: Maybe DOMTokenList +noDOMTokenList = Nothing +{-# INLINE noDOMTokenList #-} + +gTypeDOMTokenList :: JSM GType +gTypeDOMTokenList = GType . Object <$> jsg "DOMTokenList" + +-- | Functions for this inteface are in "JSDOM.DataCue". +-- Base interface functions are in: +-- +-- * "JSDOM.TextTrackCue" +-- * "JSDOM.EventTarget" +-- +-- +newtype DataCue = DataCue { unDataCue :: JSVal } + +instance PToJSVal DataCue where + pToJSVal = unDataCue + {-# INLINE pToJSVal #-} + +instance PFromJSVal DataCue where + pFromJSVal = DataCue + {-# INLINE pFromJSVal #-} + +instance ToJSVal DataCue where + toJSVal = return . unDataCue + {-# INLINE toJSVal #-} + +instance FromJSVal DataCue where + fromJSVal v = fmap DataCue <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DataCue + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DataCue where + makeObject = makeObject . unDataCue + +instance IsTextTrackCue DataCue +instance IsEventTarget DataCue +instance IsGObject DataCue where + typeGType _ = gTypeDataCue + {-# INLINE typeGType #-} + +noDataCue :: Maybe DataCue +noDataCue = Nothing +{-# INLINE noDataCue #-} + +gTypeDataCue :: JSM GType +gTypeDataCue = GType . Object <$> jsg "WebKitDataCue" + +-- | Functions for this inteface are in "JSDOM.DataTransfer". +-- +-- +newtype DataTransfer = DataTransfer { unDataTransfer :: JSVal } + +instance PToJSVal DataTransfer where + pToJSVal = unDataTransfer + {-# INLINE pToJSVal #-} + +instance PFromJSVal DataTransfer where + pFromJSVal = DataTransfer + {-# INLINE pFromJSVal #-} + +instance ToJSVal DataTransfer where + toJSVal = return . unDataTransfer + {-# INLINE toJSVal #-} + +instance FromJSVal DataTransfer where + fromJSVal v = fmap DataTransfer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DataTransfer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DataTransfer where + makeObject = makeObject . unDataTransfer + +instance IsGObject DataTransfer where + typeGType _ = gTypeDataTransfer + {-# INLINE typeGType #-} + +noDataTransfer :: Maybe DataTransfer +noDataTransfer = Nothing +{-# INLINE noDataTransfer #-} + +gTypeDataTransfer :: JSM GType +gTypeDataTransfer = GType . Object <$> jsg "DataTransfer" + +-- | Functions for this inteface are in "JSDOM.DataTransferItem". +-- +-- +newtype DataTransferItem = DataTransferItem { unDataTransferItem :: JSVal } + +instance PToJSVal DataTransferItem where + pToJSVal = unDataTransferItem + {-# INLINE pToJSVal #-} + +instance PFromJSVal DataTransferItem where + pFromJSVal = DataTransferItem + {-# INLINE pFromJSVal #-} + +instance ToJSVal DataTransferItem where + toJSVal = return . unDataTransferItem + {-# INLINE toJSVal #-} + +instance FromJSVal DataTransferItem where + fromJSVal v = fmap DataTransferItem <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DataTransferItem + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DataTransferItem where + makeObject = makeObject . unDataTransferItem + +instance IsGObject DataTransferItem where + typeGType _ = gTypeDataTransferItem + {-# INLINE typeGType #-} + +noDataTransferItem :: Maybe DataTransferItem +noDataTransferItem = Nothing +{-# INLINE noDataTransferItem #-} + +gTypeDataTransferItem :: JSM GType +gTypeDataTransferItem = GType . Object <$> jsg "DataTransferItem" + +-- | Functions for this inteface are in "JSDOM.DataTransferItemList". +-- +-- +newtype DataTransferItemList = DataTransferItemList { unDataTransferItemList :: JSVal } + +instance PToJSVal DataTransferItemList where + pToJSVal = unDataTransferItemList + {-# INLINE pToJSVal #-} + +instance PFromJSVal DataTransferItemList where + pFromJSVal = DataTransferItemList + {-# INLINE pFromJSVal #-} + +instance ToJSVal DataTransferItemList where + toJSVal = return . unDataTransferItemList + {-# INLINE toJSVal #-} + +instance FromJSVal DataTransferItemList where + fromJSVal v = fmap DataTransferItemList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DataTransferItemList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DataTransferItemList where + makeObject = makeObject . unDataTransferItemList + +instance IsGObject DataTransferItemList where + typeGType _ = gTypeDataTransferItemList + {-# INLINE typeGType #-} + +noDataTransferItemList :: Maybe DataTransferItemList +noDataTransferItemList = Nothing +{-# INLINE noDataTransferItemList #-} + +gTypeDataTransferItemList :: JSM GType +gTypeDataTransferItemList = GType . Object <$> jsg "DataTransferItemList" + +-- | Functions for this inteface are in "JSDOM.Database". +-- +-- +newtype Database = Database { unDatabase :: JSVal } + +instance PToJSVal Database where + pToJSVal = unDatabase + {-# INLINE pToJSVal #-} + +instance PFromJSVal Database where + pFromJSVal = Database + {-# INLINE pFromJSVal #-} + +instance ToJSVal Database where + toJSVal = return . unDatabase + {-# INLINE toJSVal #-} + +instance FromJSVal Database where + fromJSVal v = fmap Database <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Database + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Database where + makeObject = makeObject . unDatabase + +instance IsGObject Database where + typeGType _ = gTypeDatabase + {-# INLINE typeGType #-} + +noDatabase :: Maybe Database +noDatabase = Nothing +{-# INLINE noDatabase #-} + +gTypeDatabase :: JSM GType +gTypeDatabase = GType . Object <$> jsg "Database" + +-- | Functions for this inteface are in "JSDOM.DedicatedWorkerGlobalScope". +-- Base interface functions are in: +-- +-- * "JSDOM.WorkerGlobalScope" +-- * "JSDOM.EventTarget" +-- * "JSDOM.WindowOrWorkerGlobalScope" +-- * "JSDOM.GlobalPerformance" +-- * "JSDOM.GlobalCrypto" +-- +-- +newtype DedicatedWorkerGlobalScope = DedicatedWorkerGlobalScope { unDedicatedWorkerGlobalScope :: JSVal } + +instance PToJSVal DedicatedWorkerGlobalScope where + pToJSVal = unDedicatedWorkerGlobalScope + {-# INLINE pToJSVal #-} + +instance PFromJSVal DedicatedWorkerGlobalScope where + pFromJSVal = DedicatedWorkerGlobalScope + {-# INLINE pFromJSVal #-} + +instance ToJSVal DedicatedWorkerGlobalScope where + toJSVal = return . unDedicatedWorkerGlobalScope + {-# INLINE toJSVal #-} + +instance FromJSVal DedicatedWorkerGlobalScope where + fromJSVal v = fmap DedicatedWorkerGlobalScope <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DedicatedWorkerGlobalScope + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DedicatedWorkerGlobalScope where + makeObject = makeObject . unDedicatedWorkerGlobalScope + +instance IsWorkerGlobalScope DedicatedWorkerGlobalScope +instance IsEventTarget DedicatedWorkerGlobalScope +instance IsWindowOrWorkerGlobalScope DedicatedWorkerGlobalScope +instance IsGlobalPerformance DedicatedWorkerGlobalScope +instance IsGlobalCrypto DedicatedWorkerGlobalScope +instance IsGObject DedicatedWorkerGlobalScope where + typeGType _ = gTypeDedicatedWorkerGlobalScope + {-# INLINE typeGType #-} + +noDedicatedWorkerGlobalScope :: Maybe DedicatedWorkerGlobalScope +noDedicatedWorkerGlobalScope = Nothing +{-# INLINE noDedicatedWorkerGlobalScope #-} + +gTypeDedicatedWorkerGlobalScope :: JSM GType +gTypeDedicatedWorkerGlobalScope = GType . Object <$> jsg "DedicatedWorkerGlobalScope" + +-- | Functions for this inteface are in "JSDOM.DelayNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype DelayNode = DelayNode { unDelayNode :: JSVal } + +instance PToJSVal DelayNode where + pToJSVal = unDelayNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal DelayNode where + pFromJSVal = DelayNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal DelayNode where + toJSVal = return . unDelayNode + {-# INLINE toJSVal #-} + +instance FromJSVal DelayNode where + fromJSVal v = fmap DelayNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DelayNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DelayNode where + makeObject = makeObject . unDelayNode + +instance IsAudioNode DelayNode +instance IsEventTarget DelayNode +instance IsGObject DelayNode where + typeGType _ = gTypeDelayNode + {-# INLINE typeGType #-} + +noDelayNode :: Maybe DelayNode +noDelayNode = Nothing +{-# INLINE noDelayNode #-} + +gTypeDelayNode :: JSM GType +gTypeDelayNode = GType . Object <$> jsg "DelayNode" + +-- | Functions for this inteface are in "JSDOM.DeviceMotionEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype DeviceMotionEvent = DeviceMotionEvent { unDeviceMotionEvent :: JSVal } + +instance PToJSVal DeviceMotionEvent where + pToJSVal = unDeviceMotionEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal DeviceMotionEvent where + pFromJSVal = DeviceMotionEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal DeviceMotionEvent where + toJSVal = return . unDeviceMotionEvent + {-# INLINE toJSVal #-} + +instance FromJSVal DeviceMotionEvent where + fromJSVal v = fmap DeviceMotionEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DeviceMotionEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DeviceMotionEvent where + makeObject = makeObject . unDeviceMotionEvent + +instance IsEvent DeviceMotionEvent +instance IsGObject DeviceMotionEvent where + typeGType _ = gTypeDeviceMotionEvent + {-# INLINE typeGType #-} + +noDeviceMotionEvent :: Maybe DeviceMotionEvent +noDeviceMotionEvent = Nothing +{-# INLINE noDeviceMotionEvent #-} + +gTypeDeviceMotionEvent :: JSM GType +gTypeDeviceMotionEvent = GType . Object <$> jsg "DeviceMotionEvent" + +-- | Functions for this inteface are in "JSDOM.DeviceOrientationEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype DeviceOrientationEvent = DeviceOrientationEvent { unDeviceOrientationEvent :: JSVal } + +instance PToJSVal DeviceOrientationEvent where + pToJSVal = unDeviceOrientationEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal DeviceOrientationEvent where + pFromJSVal = DeviceOrientationEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal DeviceOrientationEvent where + toJSVal = return . unDeviceOrientationEvent + {-# INLINE toJSVal #-} + +instance FromJSVal DeviceOrientationEvent where + fromJSVal v = fmap DeviceOrientationEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DeviceOrientationEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DeviceOrientationEvent where + makeObject = makeObject . unDeviceOrientationEvent + +instance IsEvent DeviceOrientationEvent +instance IsGObject DeviceOrientationEvent where + typeGType _ = gTypeDeviceOrientationEvent + {-# INLINE typeGType #-} + +noDeviceOrientationEvent :: Maybe DeviceOrientationEvent +noDeviceOrientationEvent = Nothing +{-# INLINE noDeviceOrientationEvent #-} + +gTypeDeviceOrientationEvent :: JSM GType +gTypeDeviceOrientationEvent = GType . Object <$> jsg "DeviceOrientationEvent" + +-- | Functions for this inteface are in "JSDOM.DeviceProximityEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype DeviceProximityEvent = DeviceProximityEvent { unDeviceProximityEvent :: JSVal } + +instance PToJSVal DeviceProximityEvent where + pToJSVal = unDeviceProximityEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal DeviceProximityEvent where + pFromJSVal = DeviceProximityEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal DeviceProximityEvent where + toJSVal = return . unDeviceProximityEvent + {-# INLINE toJSVal #-} + +instance FromJSVal DeviceProximityEvent where + fromJSVal v = fmap DeviceProximityEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DeviceProximityEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DeviceProximityEvent where + makeObject = makeObject . unDeviceProximityEvent + +instance IsEvent DeviceProximityEvent +instance IsGObject DeviceProximityEvent where + typeGType _ = gTypeDeviceProximityEvent + {-# INLINE typeGType #-} + +noDeviceProximityEvent :: Maybe DeviceProximityEvent +noDeviceProximityEvent = Nothing +{-# INLINE noDeviceProximityEvent #-} + +gTypeDeviceProximityEvent :: JSM GType +gTypeDeviceProximityEvent = GType . Object <$> jsg "DeviceProximityEvent" + +-- | Functions for this inteface are in "JSDOM.DeviceProximityEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype DeviceProximityEventInit = DeviceProximityEventInit { unDeviceProximityEventInit :: JSVal } + +instance PToJSVal DeviceProximityEventInit where + pToJSVal = unDeviceProximityEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal DeviceProximityEventInit where + pFromJSVal = DeviceProximityEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal DeviceProximityEventInit where + toJSVal = return . unDeviceProximityEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal DeviceProximityEventInit where + fromJSVal v = fmap DeviceProximityEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DeviceProximityEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DeviceProximityEventInit where + makeObject = makeObject . unDeviceProximityEventInit + +instance IsEventInit DeviceProximityEventInit +instance IsGObject DeviceProximityEventInit where + typeGType _ = gTypeDeviceProximityEventInit + {-# INLINE typeGType #-} + +noDeviceProximityEventInit :: Maybe DeviceProximityEventInit +noDeviceProximityEventInit = Nothing +{-# INLINE noDeviceProximityEventInit #-} + +gTypeDeviceProximityEventInit :: JSM GType +gTypeDeviceProximityEventInit = GType . Object <$> jsg "DeviceProximityEventInit" + +-- | Functions for this inteface are in "JSDOM.Document". +-- Base interface functions are in: +-- +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.DocumentOrShadowRoot" +-- * "JSDOM.NonElementParentNode" +-- * "JSDOM.ParentNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- +-- +newtype Document = Document { unDocument :: JSVal } + +instance PToJSVal Document where + pToJSVal = unDocument + {-# INLINE pToJSVal #-} + +instance PFromJSVal Document where + pFromJSVal = Document + {-# INLINE pFromJSVal #-} + +instance ToJSVal Document where + toJSVal = return . unDocument + {-# INLINE toJSVal #-} + +instance FromJSVal Document where + fromJSVal v = fmap Document <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Document + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Document where + makeObject = makeObject . unDocument + +class (IsNode o, IsEventTarget o, IsGlobalEventHandlers o, IsDocumentOrShadowRoot o, IsNonElementParentNode o, IsParentNode o, IsDocumentAndElementEventHandlers o, IsGObject o) => IsDocument o +toDocument :: IsDocument o => o -> Document +toDocument = Document . coerce + +instance IsDocument Document +instance IsNode Document +instance IsEventTarget Document +instance IsGlobalEventHandlers Document +instance IsDocumentOrShadowRoot Document +instance IsNonElementParentNode Document +instance IsParentNode Document +instance IsDocumentAndElementEventHandlers Document +instance IsGObject Document where + typeGType _ = gTypeDocument + {-# INLINE typeGType #-} + +noDocument :: Maybe Document +noDocument = Nothing +{-# INLINE noDocument #-} + +gTypeDocument :: JSM GType +gTypeDocument = GType . Object <$> jsg "Document" + +-- | Functions for this inteface are in "JSDOM.DocumentAndElementEventHandlers". +-- +-- +newtype DocumentAndElementEventHandlers = DocumentAndElementEventHandlers { unDocumentAndElementEventHandlers :: JSVal } + +instance PToJSVal DocumentAndElementEventHandlers where + pToJSVal = unDocumentAndElementEventHandlers + {-# INLINE pToJSVal #-} + +instance PFromJSVal DocumentAndElementEventHandlers where + pFromJSVal = DocumentAndElementEventHandlers + {-# INLINE pFromJSVal #-} + +instance ToJSVal DocumentAndElementEventHandlers where + toJSVal = return . unDocumentAndElementEventHandlers + {-# INLINE toJSVal #-} + +instance FromJSVal DocumentAndElementEventHandlers where + fromJSVal v = fmap DocumentAndElementEventHandlers <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DocumentAndElementEventHandlers + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DocumentAndElementEventHandlers where + makeObject = makeObject . unDocumentAndElementEventHandlers + +class (IsGObject o) => IsDocumentAndElementEventHandlers o +toDocumentAndElementEventHandlers :: IsDocumentAndElementEventHandlers o => o -> DocumentAndElementEventHandlers +toDocumentAndElementEventHandlers = DocumentAndElementEventHandlers . coerce + +instance IsDocumentAndElementEventHandlers DocumentAndElementEventHandlers +instance IsGObject DocumentAndElementEventHandlers where + typeGType _ = gTypeDocumentAndElementEventHandlers + {-# INLINE typeGType #-} + +noDocumentAndElementEventHandlers :: Maybe DocumentAndElementEventHandlers +noDocumentAndElementEventHandlers = Nothing +{-# INLINE noDocumentAndElementEventHandlers #-} + +gTypeDocumentAndElementEventHandlers :: JSM GType +gTypeDocumentAndElementEventHandlers = GType . Object <$> jsg "DocumentAndElementEventHandlers" + +-- | Functions for this inteface are in "JSDOM.DocumentFragment". +-- Base interface functions are in: +-- +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.NonElementParentNode" +-- * "JSDOM.ParentNode" +-- +-- +newtype DocumentFragment = DocumentFragment { unDocumentFragment :: JSVal } + +instance PToJSVal DocumentFragment where + pToJSVal = unDocumentFragment + {-# INLINE pToJSVal #-} + +instance PFromJSVal DocumentFragment where + pFromJSVal = DocumentFragment + {-# INLINE pFromJSVal #-} + +instance ToJSVal DocumentFragment where + toJSVal = return . unDocumentFragment + {-# INLINE toJSVal #-} + +instance FromJSVal DocumentFragment where + fromJSVal v = fmap DocumentFragment <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DocumentFragment + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DocumentFragment where + makeObject = makeObject . unDocumentFragment + +class (IsNode o, IsEventTarget o, IsNonElementParentNode o, IsParentNode o, IsGObject o) => IsDocumentFragment o +toDocumentFragment :: IsDocumentFragment o => o -> DocumentFragment +toDocumentFragment = DocumentFragment . coerce + +instance IsDocumentFragment DocumentFragment +instance IsNode DocumentFragment +instance IsEventTarget DocumentFragment +instance IsNonElementParentNode DocumentFragment +instance IsParentNode DocumentFragment +instance IsGObject DocumentFragment where + typeGType _ = gTypeDocumentFragment + {-# INLINE typeGType #-} + +noDocumentFragment :: Maybe DocumentFragment +noDocumentFragment = Nothing +{-# INLINE noDocumentFragment #-} + +gTypeDocumentFragment :: JSM GType +gTypeDocumentFragment = GType . Object <$> jsg "DocumentFragment" + +-- | Functions for this inteface are in "JSDOM.DocumentOrShadowRoot". +-- +-- +newtype DocumentOrShadowRoot = DocumentOrShadowRoot { unDocumentOrShadowRoot :: JSVal } + +instance PToJSVal DocumentOrShadowRoot where + pToJSVal = unDocumentOrShadowRoot + {-# INLINE pToJSVal #-} + +instance PFromJSVal DocumentOrShadowRoot where + pFromJSVal = DocumentOrShadowRoot + {-# INLINE pFromJSVal #-} + +instance ToJSVal DocumentOrShadowRoot where + toJSVal = return . unDocumentOrShadowRoot + {-# INLINE toJSVal #-} + +instance FromJSVal DocumentOrShadowRoot where + fromJSVal v = fmap DocumentOrShadowRoot <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DocumentOrShadowRoot + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DocumentOrShadowRoot where + makeObject = makeObject . unDocumentOrShadowRoot + +class (IsGObject o) => IsDocumentOrShadowRoot o +toDocumentOrShadowRoot :: IsDocumentOrShadowRoot o => o -> DocumentOrShadowRoot +toDocumentOrShadowRoot = DocumentOrShadowRoot . coerce + +instance IsDocumentOrShadowRoot DocumentOrShadowRoot +instance IsGObject DocumentOrShadowRoot where + typeGType _ = gTypeDocumentOrShadowRoot + {-# INLINE typeGType #-} + +noDocumentOrShadowRoot :: Maybe DocumentOrShadowRoot +noDocumentOrShadowRoot = Nothing +{-# INLINE noDocumentOrShadowRoot #-} + +gTypeDocumentOrShadowRoot :: JSM GType +gTypeDocumentOrShadowRoot = GType . Object <$> jsg "DocumentOrShadowRoot" + +-- | Functions for this inteface are in "JSDOM.DocumentTimeline". +-- Base interface functions are in: +-- +-- * "JSDOM.AnimationTimeline" +-- +-- +newtype DocumentTimeline = DocumentTimeline { unDocumentTimeline :: JSVal } + +instance PToJSVal DocumentTimeline where + pToJSVal = unDocumentTimeline + {-# INLINE pToJSVal #-} + +instance PFromJSVal DocumentTimeline where + pFromJSVal = DocumentTimeline + {-# INLINE pFromJSVal #-} + +instance ToJSVal DocumentTimeline where + toJSVal = return . unDocumentTimeline + {-# INLINE toJSVal #-} + +instance FromJSVal DocumentTimeline where + fromJSVal v = fmap DocumentTimeline <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DocumentTimeline + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DocumentTimeline where + makeObject = makeObject . unDocumentTimeline + +instance IsAnimationTimeline DocumentTimeline +instance IsGObject DocumentTimeline where + typeGType _ = gTypeDocumentTimeline + {-# INLINE typeGType #-} + +noDocumentTimeline :: Maybe DocumentTimeline +noDocumentTimeline = Nothing +{-# INLINE noDocumentTimeline #-} + +gTypeDocumentTimeline :: JSM GType +gTypeDocumentTimeline = GType . Object <$> jsg "DocumentTimeline" + +-- | Functions for this inteface are in "JSDOM.DocumentType". +-- Base interface functions are in: +-- +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.ChildNode" +-- +-- +newtype DocumentType = DocumentType { unDocumentType :: JSVal } + +instance PToJSVal DocumentType where + pToJSVal = unDocumentType + {-# INLINE pToJSVal #-} + +instance PFromJSVal DocumentType where + pFromJSVal = DocumentType + {-# INLINE pFromJSVal #-} + +instance ToJSVal DocumentType where + toJSVal = return . unDocumentType + {-# INLINE toJSVal #-} + +instance FromJSVal DocumentType where + fromJSVal v = fmap DocumentType <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DocumentType + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DocumentType where + makeObject = makeObject . unDocumentType + +instance IsNode DocumentType +instance IsEventTarget DocumentType +instance IsChildNode DocumentType +instance IsGObject DocumentType where + typeGType _ = gTypeDocumentType + {-# INLINE typeGType #-} + +noDocumentType :: Maybe DocumentType +noDocumentType = Nothing +{-# INLINE noDocumentType #-} + +gTypeDocumentType :: JSM GType +gTypeDocumentType = GType . Object <$> jsg "DocumentType" + +-- | Functions for this inteface are in "JSDOM.DoubleRange". +-- +-- +newtype DoubleRange = DoubleRange { unDoubleRange :: JSVal } + +instance PToJSVal DoubleRange where + pToJSVal = unDoubleRange + {-# INLINE pToJSVal #-} + +instance PFromJSVal DoubleRange where + pFromJSVal = DoubleRange + {-# INLINE pFromJSVal #-} + +instance ToJSVal DoubleRange where + toJSVal = return . unDoubleRange + {-# INLINE toJSVal #-} + +instance FromJSVal DoubleRange where + fromJSVal v = fmap DoubleRange <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DoubleRange + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DoubleRange where + makeObject = makeObject . unDoubleRange + +class (IsGObject o) => IsDoubleRange o +toDoubleRange :: IsDoubleRange o => o -> DoubleRange +toDoubleRange = DoubleRange . coerce + +instance IsDoubleRange DoubleRange +instance IsGObject DoubleRange where + typeGType _ = gTypeDoubleRange + {-# INLINE typeGType #-} + +noDoubleRange :: Maybe DoubleRange +noDoubleRange = Nothing +{-# INLINE noDoubleRange #-} + +gTypeDoubleRange :: JSM GType +gTypeDoubleRange = GType . Object <$> jsg "DoubleRange" + +-- | Functions for this inteface are in "JSDOM.DynamicsCompressorNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype DynamicsCompressorNode = DynamicsCompressorNode { unDynamicsCompressorNode :: JSVal } + +instance PToJSVal DynamicsCompressorNode where + pToJSVal = unDynamicsCompressorNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal DynamicsCompressorNode where + pFromJSVal = DynamicsCompressorNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal DynamicsCompressorNode where + toJSVal = return . unDynamicsCompressorNode + {-# INLINE toJSVal #-} + +instance FromJSVal DynamicsCompressorNode where + fromJSVal v = fmap DynamicsCompressorNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . DynamicsCompressorNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject DynamicsCompressorNode where + makeObject = makeObject . unDynamicsCompressorNode + +instance IsAudioNode DynamicsCompressorNode +instance IsEventTarget DynamicsCompressorNode +instance IsGObject DynamicsCompressorNode where + typeGType _ = gTypeDynamicsCompressorNode + {-# INLINE typeGType #-} + +noDynamicsCompressorNode :: Maybe DynamicsCompressorNode +noDynamicsCompressorNode = Nothing +{-# INLINE noDynamicsCompressorNode #-} + +gTypeDynamicsCompressorNode :: JSM GType +gTypeDynamicsCompressorNode = GType . Object <$> jsg "DynamicsCompressorNode" + +-- | Functions for this inteface are in "JSDOM.EXTBlendMinMax". +-- +-- +newtype EXTBlendMinMax = EXTBlendMinMax { unEXTBlendMinMax :: JSVal } + +instance PToJSVal EXTBlendMinMax where + pToJSVal = unEXTBlendMinMax + {-# INLINE pToJSVal #-} + +instance PFromJSVal EXTBlendMinMax where + pFromJSVal = EXTBlendMinMax + {-# INLINE pFromJSVal #-} + +instance ToJSVal EXTBlendMinMax where + toJSVal = return . unEXTBlendMinMax + {-# INLINE toJSVal #-} + +instance FromJSVal EXTBlendMinMax where + fromJSVal v = fmap EXTBlendMinMax <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EXTBlendMinMax + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EXTBlendMinMax where + makeObject = makeObject . unEXTBlendMinMax + +instance IsGObject EXTBlendMinMax where + typeGType _ = gTypeEXTBlendMinMax + {-# INLINE typeGType #-} + +noEXTBlendMinMax :: Maybe EXTBlendMinMax +noEXTBlendMinMax = Nothing +{-# INLINE noEXTBlendMinMax #-} + +gTypeEXTBlendMinMax :: JSM GType +gTypeEXTBlendMinMax = GType . Object <$> jsg "EXTBlendMinMax" + +-- | Functions for this inteface are in "JSDOM.EXTFragDepth". +-- +-- +newtype EXTFragDepth = EXTFragDepth { unEXTFragDepth :: JSVal } + +instance PToJSVal EXTFragDepth where + pToJSVal = unEXTFragDepth + {-# INLINE pToJSVal #-} + +instance PFromJSVal EXTFragDepth where + pFromJSVal = EXTFragDepth + {-# INLINE pFromJSVal #-} + +instance ToJSVal EXTFragDepth where + toJSVal = return . unEXTFragDepth + {-# INLINE toJSVal #-} + +instance FromJSVal EXTFragDepth where + fromJSVal v = fmap EXTFragDepth <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EXTFragDepth + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EXTFragDepth where + makeObject = makeObject . unEXTFragDepth + +instance IsGObject EXTFragDepth where + typeGType _ = gTypeEXTFragDepth + {-# INLINE typeGType #-} + +noEXTFragDepth :: Maybe EXTFragDepth +noEXTFragDepth = Nothing +{-# INLINE noEXTFragDepth #-} + +gTypeEXTFragDepth :: JSM GType +gTypeEXTFragDepth = GType . Object <$> jsg "EXTFragDepth" + +-- | Functions for this inteface are in "JSDOM.EXTShaderTextureLOD". +-- +-- +newtype EXTShaderTextureLOD = EXTShaderTextureLOD { unEXTShaderTextureLOD :: JSVal } + +instance PToJSVal EXTShaderTextureLOD where + pToJSVal = unEXTShaderTextureLOD + {-# INLINE pToJSVal #-} + +instance PFromJSVal EXTShaderTextureLOD where + pFromJSVal = EXTShaderTextureLOD + {-# INLINE pFromJSVal #-} + +instance ToJSVal EXTShaderTextureLOD where + toJSVal = return . unEXTShaderTextureLOD + {-# INLINE toJSVal #-} + +instance FromJSVal EXTShaderTextureLOD where + fromJSVal v = fmap EXTShaderTextureLOD <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EXTShaderTextureLOD + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EXTShaderTextureLOD where + makeObject = makeObject . unEXTShaderTextureLOD + +instance IsGObject EXTShaderTextureLOD where + typeGType _ = gTypeEXTShaderTextureLOD + {-# INLINE typeGType #-} + +noEXTShaderTextureLOD :: Maybe EXTShaderTextureLOD +noEXTShaderTextureLOD = Nothing +{-# INLINE noEXTShaderTextureLOD #-} + +gTypeEXTShaderTextureLOD :: JSM GType +gTypeEXTShaderTextureLOD = GType . Object <$> jsg "EXTShaderTextureLOD" + +-- | Functions for this inteface are in "JSDOM.EXTTextureFilterAnisotropic". +-- +-- +newtype EXTTextureFilterAnisotropic = EXTTextureFilterAnisotropic { unEXTTextureFilterAnisotropic :: JSVal } + +instance PToJSVal EXTTextureFilterAnisotropic where + pToJSVal = unEXTTextureFilterAnisotropic + {-# INLINE pToJSVal #-} + +instance PFromJSVal EXTTextureFilterAnisotropic where + pFromJSVal = EXTTextureFilterAnisotropic + {-# INLINE pFromJSVal #-} + +instance ToJSVal EXTTextureFilterAnisotropic where + toJSVal = return . unEXTTextureFilterAnisotropic + {-# INLINE toJSVal #-} + +instance FromJSVal EXTTextureFilterAnisotropic where + fromJSVal v = fmap EXTTextureFilterAnisotropic <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EXTTextureFilterAnisotropic + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EXTTextureFilterAnisotropic where + makeObject = makeObject . unEXTTextureFilterAnisotropic + +instance IsGObject EXTTextureFilterAnisotropic where + typeGType _ = gTypeEXTTextureFilterAnisotropic + {-# INLINE typeGType #-} + +noEXTTextureFilterAnisotropic :: Maybe EXTTextureFilterAnisotropic +noEXTTextureFilterAnisotropic = Nothing +{-# INLINE noEXTTextureFilterAnisotropic #-} + +gTypeEXTTextureFilterAnisotropic :: JSM GType +gTypeEXTTextureFilterAnisotropic = GType . Object <$> jsg "EXTTextureFilterAnisotropic" + +-- | Functions for this inteface are in "JSDOM.EXTsRGB". +-- +-- +newtype EXTsRGB = EXTsRGB { unEXTsRGB :: JSVal } + +instance PToJSVal EXTsRGB where + pToJSVal = unEXTsRGB + {-# INLINE pToJSVal #-} + +instance PFromJSVal EXTsRGB where + pFromJSVal = EXTsRGB + {-# INLINE pFromJSVal #-} + +instance ToJSVal EXTsRGB where + toJSVal = return . unEXTsRGB + {-# INLINE toJSVal #-} + +instance FromJSVal EXTsRGB where + fromJSVal v = fmap EXTsRGB <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EXTsRGB + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EXTsRGB where + makeObject = makeObject . unEXTsRGB + +instance IsGObject EXTsRGB where + typeGType _ = gTypeEXTsRGB + {-# INLINE typeGType #-} + +noEXTsRGB :: Maybe EXTsRGB +noEXTsRGB = Nothing +{-# INLINE noEXTsRGB #-} + +gTypeEXTsRGB :: JSM GType +gTypeEXTsRGB = GType . Object <$> jsg "EXTsRGB" + +-- | Functions for this inteface are in "JSDOM.EcKeyParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype EcKeyParams = EcKeyParams { unEcKeyParams :: JSVal } + +instance PToJSVal EcKeyParams where + pToJSVal = unEcKeyParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal EcKeyParams where + pFromJSVal = EcKeyParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal EcKeyParams where + toJSVal = return . unEcKeyParams + {-# INLINE toJSVal #-} + +instance FromJSVal EcKeyParams where + fromJSVal v = fmap EcKeyParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EcKeyParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EcKeyParams where + makeObject = makeObject . unEcKeyParams + +instance IsCryptoAlgorithmParameters EcKeyParams +instance IsGObject EcKeyParams where + typeGType _ = gTypeEcKeyParams + {-# INLINE typeGType #-} + +noEcKeyParams :: Maybe EcKeyParams +noEcKeyParams = Nothing +{-# INLINE noEcKeyParams #-} + +gTypeEcKeyParams :: JSM GType +gTypeEcKeyParams = GType . Object <$> jsg "EcKeyParams" + +-- | Functions for this inteface are in "JSDOM.EcdhKeyDeriveParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype EcdhKeyDeriveParams = EcdhKeyDeriveParams { unEcdhKeyDeriveParams :: JSVal } + +instance PToJSVal EcdhKeyDeriveParams where + pToJSVal = unEcdhKeyDeriveParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal EcdhKeyDeriveParams where + pFromJSVal = EcdhKeyDeriveParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal EcdhKeyDeriveParams where + toJSVal = return . unEcdhKeyDeriveParams + {-# INLINE toJSVal #-} + +instance FromJSVal EcdhKeyDeriveParams where + fromJSVal v = fmap EcdhKeyDeriveParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EcdhKeyDeriveParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EcdhKeyDeriveParams where + makeObject = makeObject . unEcdhKeyDeriveParams + +instance IsCryptoAlgorithmParameters EcdhKeyDeriveParams +instance IsGObject EcdhKeyDeriveParams where + typeGType _ = gTypeEcdhKeyDeriveParams + {-# INLINE typeGType #-} + +noEcdhKeyDeriveParams :: Maybe EcdhKeyDeriveParams +noEcdhKeyDeriveParams = Nothing +{-# INLINE noEcdhKeyDeriveParams #-} + +gTypeEcdhKeyDeriveParams :: JSM GType +gTypeEcdhKeyDeriveParams = GType . Object <$> jsg "EcdhKeyDeriveParams" + +-- | Functions for this inteface are in "JSDOM.EcdsaParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype EcdsaParams = EcdsaParams { unEcdsaParams :: JSVal } + +instance PToJSVal EcdsaParams where + pToJSVal = unEcdsaParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal EcdsaParams where + pFromJSVal = EcdsaParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal EcdsaParams where + toJSVal = return . unEcdsaParams + {-# INLINE toJSVal #-} + +instance FromJSVal EcdsaParams where + fromJSVal v = fmap EcdsaParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EcdsaParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EcdsaParams where + makeObject = makeObject . unEcdsaParams + +instance IsCryptoAlgorithmParameters EcdsaParams +instance IsGObject EcdsaParams where + typeGType _ = gTypeEcdsaParams + {-# INLINE typeGType #-} + +noEcdsaParams :: Maybe EcdsaParams +noEcdsaParams = Nothing +{-# INLINE noEcdsaParams #-} + +gTypeEcdsaParams :: JSM GType +gTypeEcdsaParams = GType . Object <$> jsg "EcdsaParams" + +-- | Functions for this inteface are in "JSDOM.Element". +-- Base interface functions are in: +-- +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- +-- +newtype Element = Element { unElement :: JSVal } + +instance PToJSVal Element where + pToJSVal = unElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal Element where + pFromJSVal = Element + {-# INLINE pFromJSVal #-} + +instance ToJSVal Element where + toJSVal = return . unElement + {-# INLINE toJSVal #-} + +instance FromJSVal Element where + fromJSVal v = fmap Element <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Element + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Element where + makeObject = makeObject . unElement + +class (IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGObject o) => IsElement o +toElement :: IsElement o => o -> Element +toElement = Element . coerce + +instance IsElement Element +instance IsNode Element +instance IsEventTarget Element +instance IsSlotable Element +instance IsParentNode Element +instance IsNonDocumentTypeChildNode Element +instance IsDocumentAndElementEventHandlers Element +instance IsChildNode Element +instance IsAnimatable Element +instance IsGObject Element where + typeGType _ = gTypeElement + {-# INLINE typeGType #-} + +noElement :: Maybe Element +noElement = Nothing +{-# INLINE noElement #-} + +gTypeElement :: JSM GType +gTypeElement = GType . Object <$> jsg "Element" + +-- | Functions for this inteface are in "JSDOM.ElementCSSInlineStyle". +-- +-- +newtype ElementCSSInlineStyle = ElementCSSInlineStyle { unElementCSSInlineStyle :: JSVal } + +instance PToJSVal ElementCSSInlineStyle where + pToJSVal = unElementCSSInlineStyle + {-# INLINE pToJSVal #-} + +instance PFromJSVal ElementCSSInlineStyle where + pFromJSVal = ElementCSSInlineStyle + {-# INLINE pFromJSVal #-} + +instance ToJSVal ElementCSSInlineStyle where + toJSVal = return . unElementCSSInlineStyle + {-# INLINE toJSVal #-} + +instance FromJSVal ElementCSSInlineStyle where + fromJSVal v = fmap ElementCSSInlineStyle <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ElementCSSInlineStyle + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ElementCSSInlineStyle where + makeObject = makeObject . unElementCSSInlineStyle + +class (IsGObject o) => IsElementCSSInlineStyle o +toElementCSSInlineStyle :: IsElementCSSInlineStyle o => o -> ElementCSSInlineStyle +toElementCSSInlineStyle = ElementCSSInlineStyle . coerce + +instance IsElementCSSInlineStyle ElementCSSInlineStyle +instance IsGObject ElementCSSInlineStyle where + typeGType _ = gTypeElementCSSInlineStyle + {-# INLINE typeGType #-} + +noElementCSSInlineStyle :: Maybe ElementCSSInlineStyle +noElementCSSInlineStyle = Nothing +{-# INLINE noElementCSSInlineStyle #-} + +gTypeElementCSSInlineStyle :: JSM GType +gTypeElementCSSInlineStyle = GType . Object <$> jsg "ElementCSSInlineStyle" + +-- | Functions for this inteface are in "JSDOM.ErrorEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype ErrorEvent = ErrorEvent { unErrorEvent :: JSVal } + +instance PToJSVal ErrorEvent where + pToJSVal = unErrorEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal ErrorEvent where + pFromJSVal = ErrorEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal ErrorEvent where + toJSVal = return . unErrorEvent + {-# INLINE toJSVal #-} + +instance FromJSVal ErrorEvent where + fromJSVal v = fmap ErrorEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ErrorEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ErrorEvent where + makeObject = makeObject . unErrorEvent + +instance IsEvent ErrorEvent +instance IsGObject ErrorEvent where + typeGType _ = gTypeErrorEvent + {-# INLINE typeGType #-} + +noErrorEvent :: Maybe ErrorEvent +noErrorEvent = Nothing +{-# INLINE noErrorEvent #-} + +gTypeErrorEvent :: JSM GType +gTypeErrorEvent = GType . Object <$> jsg "ErrorEvent" + +-- | Functions for this inteface are in "JSDOM.ErrorEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype ErrorEventInit = ErrorEventInit { unErrorEventInit :: JSVal } + +instance PToJSVal ErrorEventInit where + pToJSVal = unErrorEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal ErrorEventInit where + pFromJSVal = ErrorEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal ErrorEventInit where + toJSVal = return . unErrorEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal ErrorEventInit where + fromJSVal v = fmap ErrorEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ErrorEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ErrorEventInit where + makeObject = makeObject . unErrorEventInit + +instance IsEventInit ErrorEventInit +instance IsGObject ErrorEventInit where + typeGType _ = gTypeErrorEventInit + {-# INLINE typeGType #-} + +noErrorEventInit :: Maybe ErrorEventInit +noErrorEventInit = Nothing +{-# INLINE noErrorEventInit #-} + +gTypeErrorEventInit :: JSM GType +gTypeErrorEventInit = GType . Object <$> jsg "ErrorEventInit" + +-- | Functions for this inteface are in "JSDOM.Event". +-- +-- +newtype Event = Event { unEvent :: JSVal } + +instance PToJSVal Event where + pToJSVal = unEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal Event where + pFromJSVal = Event + {-# INLINE pFromJSVal #-} + +instance ToJSVal Event where + toJSVal = return . unEvent + {-# INLINE toJSVal #-} + +instance FromJSVal Event where + fromJSVal v = fmap Event <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Event + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Event where + makeObject = makeObject . unEvent + +class (IsGObject o) => IsEvent o +toEvent :: IsEvent o => o -> Event +toEvent = Event . coerce + +instance IsEvent Event +instance IsGObject Event where + typeGType _ = gTypeEvent + {-# INLINE typeGType #-} + +noEvent :: Maybe Event +noEvent = Nothing +{-# INLINE noEvent #-} + +gTypeEvent :: JSM GType +gTypeEvent = GType . Object <$> jsg "Event" + +-- | Functions for this inteface are in "JSDOM.EventInit". +-- +-- +newtype EventInit = EventInit { unEventInit :: JSVal } + +instance PToJSVal EventInit where + pToJSVal = unEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal EventInit where + pFromJSVal = EventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal EventInit where + toJSVal = return . unEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal EventInit where + fromJSVal v = fmap EventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EventInit where + makeObject = makeObject . unEventInit + +class (IsGObject o) => IsEventInit o +toEventInit :: IsEventInit o => o -> EventInit +toEventInit = EventInit . coerce + +instance IsEventInit EventInit +instance IsGObject EventInit where + typeGType _ = gTypeEventInit + {-# INLINE typeGType #-} + +noEventInit :: Maybe EventInit +noEventInit = Nothing +{-# INLINE noEventInit #-} + +gTypeEventInit :: JSM GType +gTypeEventInit = GType . Object <$> jsg "EventInit" + +-- | Functions for this inteface are in "JSDOM.EventListener". +-- +-- +newtype EventListener = EventListener { unEventListener :: JSVal } + +instance PToJSVal EventListener where + pToJSVal = unEventListener + {-# INLINE pToJSVal #-} + +instance PFromJSVal EventListener where + pFromJSVal = EventListener + {-# INLINE pFromJSVal #-} + +instance ToJSVal EventListener where + toJSVal = return . unEventListener + {-# INLINE toJSVal #-} + +instance FromJSVal EventListener where + fromJSVal v = fmap EventListener <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EventListener + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EventListener where + makeObject = makeObject . unEventListener + +instance IsGObject EventListener where + typeGType _ = gTypeEventListener + {-# INLINE typeGType #-} + +noEventListener :: Maybe EventListener +noEventListener = Nothing +{-# INLINE noEventListener #-} + +gTypeEventListener :: JSM GType +gTypeEventListener = GType . Object <$> jsg "EventListener" + +-- | Functions for this inteface are in "JSDOM.EventListenerOptions". +-- +-- +newtype EventListenerOptions = EventListenerOptions { unEventListenerOptions :: JSVal } + +instance PToJSVal EventListenerOptions where + pToJSVal = unEventListenerOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal EventListenerOptions where + pFromJSVal = EventListenerOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal EventListenerOptions where + toJSVal = return . unEventListenerOptions + {-# INLINE toJSVal #-} + +instance FromJSVal EventListenerOptions where + fromJSVal v = fmap EventListenerOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EventListenerOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EventListenerOptions where + makeObject = makeObject . unEventListenerOptions + +class (IsGObject o) => IsEventListenerOptions o +toEventListenerOptions :: IsEventListenerOptions o => o -> EventListenerOptions +toEventListenerOptions = EventListenerOptions . coerce + +instance IsEventListenerOptions EventListenerOptions +instance IsGObject EventListenerOptions where + typeGType _ = gTypeEventListenerOptions + {-# INLINE typeGType #-} + +noEventListenerOptions :: Maybe EventListenerOptions +noEventListenerOptions = Nothing +{-# INLINE noEventListenerOptions #-} + +gTypeEventListenerOptions :: JSM GType +gTypeEventListenerOptions = GType . Object <$> jsg "EventListenerOptions" + +-- | Functions for this inteface are in "JSDOM.EventModifierInit". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEventInit" +-- * "JSDOM.EventInit" +-- +-- +newtype EventModifierInit = EventModifierInit { unEventModifierInit :: JSVal } + +instance PToJSVal EventModifierInit where + pToJSVal = unEventModifierInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal EventModifierInit where + pFromJSVal = EventModifierInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal EventModifierInit where + toJSVal = return . unEventModifierInit + {-# INLINE toJSVal #-} + +instance FromJSVal EventModifierInit where + fromJSVal v = fmap EventModifierInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EventModifierInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EventModifierInit where + makeObject = makeObject . unEventModifierInit + +class (IsUIEventInit o, IsEventInit o, IsGObject o) => IsEventModifierInit o +toEventModifierInit :: IsEventModifierInit o => o -> EventModifierInit +toEventModifierInit = EventModifierInit . coerce + +instance IsEventModifierInit EventModifierInit +instance IsUIEventInit EventModifierInit +instance IsEventInit EventModifierInit +instance IsGObject EventModifierInit where + typeGType _ = gTypeEventModifierInit + {-# INLINE typeGType #-} + +noEventModifierInit :: Maybe EventModifierInit +noEventModifierInit = Nothing +{-# INLINE noEventModifierInit #-} + +gTypeEventModifierInit :: JSM GType +gTypeEventModifierInit = GType . Object <$> jsg "EventModifierInit" + +-- | Functions for this inteface are in "JSDOM.EventSource". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype EventSource = EventSource { unEventSource :: JSVal } + +instance PToJSVal EventSource where + pToJSVal = unEventSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal EventSource where + pFromJSVal = EventSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal EventSource where + toJSVal = return . unEventSource + {-# INLINE toJSVal #-} + +instance FromJSVal EventSource where + fromJSVal v = fmap EventSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EventSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EventSource where + makeObject = makeObject . unEventSource + +instance IsEventTarget EventSource +instance IsGObject EventSource where + typeGType _ = gTypeEventSource + {-# INLINE typeGType #-} + +noEventSource :: Maybe EventSource +noEventSource = Nothing +{-# INLINE noEventSource #-} + +gTypeEventSource :: JSM GType +gTypeEventSource = GType . Object <$> jsg "EventSource" + +-- | Functions for this inteface are in "JSDOM.EventSourceInit". +-- +-- +newtype EventSourceInit = EventSourceInit { unEventSourceInit :: JSVal } + +instance PToJSVal EventSourceInit where + pToJSVal = unEventSourceInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal EventSourceInit where + pFromJSVal = EventSourceInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal EventSourceInit where + toJSVal = return . unEventSourceInit + {-# INLINE toJSVal #-} + +instance FromJSVal EventSourceInit where + fromJSVal v = fmap EventSourceInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EventSourceInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EventSourceInit where + makeObject = makeObject . unEventSourceInit + +instance IsGObject EventSourceInit where + typeGType _ = gTypeEventSourceInit + {-# INLINE typeGType #-} + +noEventSourceInit :: Maybe EventSourceInit +noEventSourceInit = Nothing +{-# INLINE noEventSourceInit #-} + +gTypeEventSourceInit :: JSM GType +gTypeEventSourceInit = GType . Object <$> jsg "EventSourceInit" + +-- | Functions for this inteface are in "JSDOM.EventTarget". +-- +-- +newtype EventTarget = EventTarget { unEventTarget :: JSVal } + +instance PToJSVal EventTarget where + pToJSVal = unEventTarget + {-# INLINE pToJSVal #-} + +instance PFromJSVal EventTarget where + pFromJSVal = EventTarget + {-# INLINE pFromJSVal #-} + +instance ToJSVal EventTarget where + toJSVal = return . unEventTarget + {-# INLINE toJSVal #-} + +instance FromJSVal EventTarget where + fromJSVal v = fmap EventTarget <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . EventTarget + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject EventTarget where + makeObject = makeObject . unEventTarget + +class (IsGObject o) => IsEventTarget o +toEventTarget :: IsEventTarget o => o -> EventTarget +toEventTarget = EventTarget . coerce + +instance IsEventTarget EventTarget +instance IsGObject EventTarget where + typeGType _ = gTypeEventTarget + {-# INLINE typeGType #-} + +noEventTarget :: Maybe EventTarget +noEventTarget = Nothing +{-# INLINE noEventTarget #-} + +gTypeEventTarget :: JSM GType +gTypeEventTarget = GType . Object <$> jsg "EventTarget" + +-- | Functions for this inteface are in "JSDOM.File". +-- Base interface functions are in: +-- +-- * "JSDOM.Blob" +-- +-- +newtype File = File { unFile :: JSVal } + +instance PToJSVal File where + pToJSVal = unFile + {-# INLINE pToJSVal #-} + +instance PFromJSVal File where + pFromJSVal = File + {-# INLINE pFromJSVal #-} + +instance ToJSVal File where + toJSVal = return . unFile + {-# INLINE toJSVal #-} + +instance FromJSVal File where + fromJSVal v = fmap File <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . File + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject File where + makeObject = makeObject . unFile + +instance IsBlob File +instance IsGObject File where + typeGType _ = gTypeFile + {-# INLINE typeGType #-} + +noFile :: Maybe File +noFile = Nothing +{-# INLINE noFile #-} + +gTypeFile :: JSM GType +gTypeFile = GType . Object <$> jsg "File" + +-- | Functions for this inteface are in "JSDOM.FileError". +-- +-- +newtype FileError = FileError { unFileError :: JSVal } + +instance PToJSVal FileError where + pToJSVal = unFileError + {-# INLINE pToJSVal #-} + +instance PFromJSVal FileError where + pFromJSVal = FileError + {-# INLINE pFromJSVal #-} + +instance ToJSVal FileError where + toJSVal = return . unFileError + {-# INLINE toJSVal #-} + +instance FromJSVal FileError where + fromJSVal v = fmap FileError <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FileError + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FileError where + makeObject = makeObject . unFileError + +instance IsGObject FileError where + typeGType _ = gTypeFileError + {-# INLINE typeGType #-} + +noFileError :: Maybe FileError +noFileError = Nothing +{-# INLINE noFileError #-} + +gTypeFileError :: JSM GType +gTypeFileError = GType . Object <$> jsg "FileError" + +-- | Functions for this inteface are in "JSDOM.FileException". +-- +-- +newtype FileException = FileException { unFileException :: JSVal } + +instance PToJSVal FileException where + pToJSVal = unFileException + {-# INLINE pToJSVal #-} + +instance PFromJSVal FileException where + pFromJSVal = FileException + {-# INLINE pFromJSVal #-} + +instance ToJSVal FileException where + toJSVal = return . unFileException + {-# INLINE toJSVal #-} + +instance FromJSVal FileException where + fromJSVal v = fmap FileException <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FileException + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FileException where + makeObject = makeObject . unFileException + +instance IsGObject FileException where + typeGType _ = gTypeFileException + {-# INLINE typeGType #-} + +noFileException :: Maybe FileException +noFileException = Nothing +{-# INLINE noFileException #-} + +gTypeFileException :: JSM GType +gTypeFileException = GType . Object <$> jsg "FileException" + +-- | Functions for this inteface are in "JSDOM.FileList". +-- +-- +newtype FileList = FileList { unFileList :: JSVal } + +instance PToJSVal FileList where + pToJSVal = unFileList + {-# INLINE pToJSVal #-} + +instance PFromJSVal FileList where + pFromJSVal = FileList + {-# INLINE pFromJSVal #-} + +instance ToJSVal FileList where + toJSVal = return . unFileList + {-# INLINE toJSVal #-} + +instance FromJSVal FileList where + fromJSVal v = fmap FileList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FileList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FileList where + makeObject = makeObject . unFileList + +instance IsGObject FileList where + typeGType _ = gTypeFileList + {-# INLINE typeGType #-} + +noFileList :: Maybe FileList +noFileList = Nothing +{-# INLINE noFileList #-} + +gTypeFileList :: JSM GType +gTypeFileList = GType . Object <$> jsg "FileList" + +-- | Functions for this inteface are in "JSDOM.FilePropertyBag". +-- Base interface functions are in: +-- +-- * "JSDOM.BlobPropertyBag" +-- +-- +newtype FilePropertyBag = FilePropertyBag { unFilePropertyBag :: JSVal } + +instance PToJSVal FilePropertyBag where + pToJSVal = unFilePropertyBag + {-# INLINE pToJSVal #-} + +instance PFromJSVal FilePropertyBag where + pFromJSVal = FilePropertyBag + {-# INLINE pFromJSVal #-} + +instance ToJSVal FilePropertyBag where + toJSVal = return . unFilePropertyBag + {-# INLINE toJSVal #-} + +instance FromJSVal FilePropertyBag where + fromJSVal v = fmap FilePropertyBag <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FilePropertyBag + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FilePropertyBag where + makeObject = makeObject . unFilePropertyBag + +instance IsBlobPropertyBag FilePropertyBag +instance IsGObject FilePropertyBag where + typeGType _ = gTypeFilePropertyBag + {-# INLINE typeGType #-} + +noFilePropertyBag :: Maybe FilePropertyBag +noFilePropertyBag = Nothing +{-# INLINE noFilePropertyBag #-} + +gTypeFilePropertyBag :: JSM GType +gTypeFilePropertyBag = GType . Object <$> jsg "FilePropertyBag" + +-- | Functions for this inteface are in "JSDOM.FileReader". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype FileReader = FileReader { unFileReader :: JSVal } + +instance PToJSVal FileReader where + pToJSVal = unFileReader + {-# INLINE pToJSVal #-} + +instance PFromJSVal FileReader where + pFromJSVal = FileReader + {-# INLINE pFromJSVal #-} + +instance ToJSVal FileReader where + toJSVal = return . unFileReader + {-# INLINE toJSVal #-} + +instance FromJSVal FileReader where + fromJSVal v = fmap FileReader <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FileReader + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FileReader where + makeObject = makeObject . unFileReader + +instance IsEventTarget FileReader +instance IsGObject FileReader where + typeGType _ = gTypeFileReader + {-# INLINE typeGType #-} + +noFileReader :: Maybe FileReader +noFileReader = Nothing +{-# INLINE noFileReader #-} + +gTypeFileReader :: JSM GType +gTypeFileReader = GType . Object <$> jsg "FileReader" + +-- | Functions for this inteface are in "JSDOM.FileReaderSync". +-- +-- +newtype FileReaderSync = FileReaderSync { unFileReaderSync :: JSVal } + +instance PToJSVal FileReaderSync where + pToJSVal = unFileReaderSync + {-# INLINE pToJSVal #-} + +instance PFromJSVal FileReaderSync where + pFromJSVal = FileReaderSync + {-# INLINE pFromJSVal #-} + +instance ToJSVal FileReaderSync where + toJSVal = return . unFileReaderSync + {-# INLINE toJSVal #-} + +instance FromJSVal FileReaderSync where + fromJSVal v = fmap FileReaderSync <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FileReaderSync + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FileReaderSync where + makeObject = makeObject . unFileReaderSync + +instance IsGObject FileReaderSync where + typeGType _ = gTypeFileReaderSync + {-# INLINE typeGType #-} + +noFileReaderSync :: Maybe FileReaderSync +noFileReaderSync = Nothing +{-# INLINE noFileReaderSync #-} + +gTypeFileReaderSync :: JSM GType +gTypeFileReaderSync = GType . Object <$> jsg "FileReaderSync" + +-- | Functions for this inteface are in "JSDOM.FocusEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEvent" +-- * "JSDOM.Event" +-- +-- +newtype FocusEvent = FocusEvent { unFocusEvent :: JSVal } + +instance PToJSVal FocusEvent where + pToJSVal = unFocusEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal FocusEvent where + pFromJSVal = FocusEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal FocusEvent where + toJSVal = return . unFocusEvent + {-# INLINE toJSVal #-} + +instance FromJSVal FocusEvent where + fromJSVal v = fmap FocusEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FocusEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FocusEvent where + makeObject = makeObject . unFocusEvent + +instance IsUIEvent FocusEvent +instance IsEvent FocusEvent +instance IsGObject FocusEvent where + typeGType _ = gTypeFocusEvent + {-# INLINE typeGType #-} + +noFocusEvent :: Maybe FocusEvent +noFocusEvent = Nothing +{-# INLINE noFocusEvent #-} + +gTypeFocusEvent :: JSM GType +gTypeFocusEvent = GType . Object <$> jsg "FocusEvent" + +-- | Functions for this inteface are in "JSDOM.FocusEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEventInit" +-- * "JSDOM.EventInit" +-- +-- +newtype FocusEventInit = FocusEventInit { unFocusEventInit :: JSVal } + +instance PToJSVal FocusEventInit where + pToJSVal = unFocusEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal FocusEventInit where + pFromJSVal = FocusEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal FocusEventInit where + toJSVal = return . unFocusEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal FocusEventInit where + fromJSVal v = fmap FocusEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FocusEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FocusEventInit where + makeObject = makeObject . unFocusEventInit + +instance IsUIEventInit FocusEventInit +instance IsEventInit FocusEventInit +instance IsGObject FocusEventInit where + typeGType _ = gTypeFocusEventInit + {-# INLINE typeGType #-} + +noFocusEventInit :: Maybe FocusEventInit +noFocusEventInit = Nothing +{-# INLINE noFocusEventInit #-} + +gTypeFocusEventInit :: JSM GType +gTypeFocusEventInit = GType . Object <$> jsg "FocusEventInit" + +-- | Functions for this inteface are in "JSDOM.FontFace". +-- +-- +newtype FontFace = FontFace { unFontFace :: JSVal } + +instance PToJSVal FontFace where + pToJSVal = unFontFace + {-# INLINE pToJSVal #-} + +instance PFromJSVal FontFace where + pFromJSVal = FontFace + {-# INLINE pFromJSVal #-} + +instance ToJSVal FontFace where + toJSVal = return . unFontFace + {-# INLINE toJSVal #-} + +instance FromJSVal FontFace where + fromJSVal v = fmap FontFace <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FontFace + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FontFace where + makeObject = makeObject . unFontFace + +instance IsGObject FontFace where + typeGType _ = gTypeFontFace + {-# INLINE typeGType #-} + +noFontFace :: Maybe FontFace +noFontFace = Nothing +{-# INLINE noFontFace #-} + +gTypeFontFace :: JSM GType +gTypeFontFace = GType . Object <$> jsg "FontFace" + +-- | Functions for this inteface are in "JSDOM.FontFaceDescriptors". +-- +-- +newtype FontFaceDescriptors = FontFaceDescriptors { unFontFaceDescriptors :: JSVal } + +instance PToJSVal FontFaceDescriptors where + pToJSVal = unFontFaceDescriptors + {-# INLINE pToJSVal #-} + +instance PFromJSVal FontFaceDescriptors where + pFromJSVal = FontFaceDescriptors + {-# INLINE pFromJSVal #-} + +instance ToJSVal FontFaceDescriptors where + toJSVal = return . unFontFaceDescriptors + {-# INLINE toJSVal #-} + +instance FromJSVal FontFaceDescriptors where + fromJSVal v = fmap FontFaceDescriptors <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FontFaceDescriptors + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FontFaceDescriptors where + makeObject = makeObject . unFontFaceDescriptors + +instance IsGObject FontFaceDescriptors where + typeGType _ = gTypeFontFaceDescriptors + {-# INLINE typeGType #-} + +noFontFaceDescriptors :: Maybe FontFaceDescriptors +noFontFaceDescriptors = Nothing +{-# INLINE noFontFaceDescriptors #-} + +gTypeFontFaceDescriptors :: JSM GType +gTypeFontFaceDescriptors = GType . Object <$> jsg "FontFaceDescriptors" + +-- | Functions for this inteface are in "JSDOM.FontFaceSet". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype FontFaceSet = FontFaceSet { unFontFaceSet :: JSVal } + +instance PToJSVal FontFaceSet where + pToJSVal = unFontFaceSet + {-# INLINE pToJSVal #-} + +instance PFromJSVal FontFaceSet where + pFromJSVal = FontFaceSet + {-# INLINE pFromJSVal #-} + +instance ToJSVal FontFaceSet where + toJSVal = return . unFontFaceSet + {-# INLINE toJSVal #-} + +instance FromJSVal FontFaceSet where + fromJSVal v = fmap FontFaceSet <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FontFaceSet + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FontFaceSet where + makeObject = makeObject . unFontFaceSet + +instance IsEventTarget FontFaceSet +instance IsGObject FontFaceSet where + typeGType _ = gTypeFontFaceSet + {-# INLINE typeGType #-} + +noFontFaceSet :: Maybe FontFaceSet +noFontFaceSet = Nothing +{-# INLINE noFontFaceSet #-} + +gTypeFontFaceSet :: JSM GType +gTypeFontFaceSet = GType . Object <$> jsg "FontFaceSet" + +-- | Functions for this inteface are in "JSDOM.FormData". +-- +-- +newtype FormData = FormData { unFormData :: JSVal } + +instance PToJSVal FormData where + pToJSVal = unFormData + {-# INLINE pToJSVal #-} + +instance PFromJSVal FormData where + pFromJSVal = FormData + {-# INLINE pFromJSVal #-} + +instance ToJSVal FormData where + toJSVal = return . unFormData + {-# INLINE toJSVal #-} + +instance FromJSVal FormData where + fromJSVal v = fmap FormData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . FormData + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject FormData where + makeObject = makeObject . unFormData + +instance IsGObject FormData where + typeGType _ = gTypeFormData + {-# INLINE typeGType #-} + +noFormData :: Maybe FormData +noFormData = Nothing +{-# INLINE noFormData #-} + +gTypeFormData :: JSM GType +gTypeFormData = GType . Object <$> jsg "FormData" + +-- | Functions for this inteface are in "JSDOM.GainNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype GainNode = GainNode { unGainNode :: JSVal } + +instance PToJSVal GainNode where + pToJSVal = unGainNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal GainNode where + pFromJSVal = GainNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal GainNode where + toJSVal = return . unGainNode + {-# INLINE toJSVal #-} + +instance FromJSVal GainNode where + fromJSVal v = fmap GainNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . GainNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject GainNode where + makeObject = makeObject . unGainNode + +instance IsAudioNode GainNode +instance IsEventTarget GainNode +instance IsGObject GainNode where + typeGType _ = gTypeGainNode + {-# INLINE typeGType #-} + +noGainNode :: Maybe GainNode +noGainNode = Nothing +{-# INLINE noGainNode #-} + +gTypeGainNode :: JSM GType +gTypeGainNode = GType . Object <$> jsg "GainNode" + +-- | Functions for this inteface are in "JSDOM.Gamepad". +-- +-- +newtype Gamepad = Gamepad { unGamepad :: JSVal } + +instance PToJSVal Gamepad where + pToJSVal = unGamepad + {-# INLINE pToJSVal #-} + +instance PFromJSVal Gamepad where + pFromJSVal = Gamepad + {-# INLINE pFromJSVal #-} + +instance ToJSVal Gamepad where + toJSVal = return . unGamepad + {-# INLINE toJSVal #-} + +instance FromJSVal Gamepad where + fromJSVal v = fmap Gamepad <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Gamepad + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Gamepad where + makeObject = makeObject . unGamepad + +instance IsGObject Gamepad where + typeGType _ = gTypeGamepad + {-# INLINE typeGType #-} + +noGamepad :: Maybe Gamepad +noGamepad = Nothing +{-# INLINE noGamepad #-} + +gTypeGamepad :: JSM GType +gTypeGamepad = GType . Object <$> jsg "Gamepad" + +-- | Functions for this inteface are in "JSDOM.GamepadButton". +-- +-- +newtype GamepadButton = GamepadButton { unGamepadButton :: JSVal } + +instance PToJSVal GamepadButton where + pToJSVal = unGamepadButton + {-# INLINE pToJSVal #-} + +instance PFromJSVal GamepadButton where + pFromJSVal = GamepadButton + {-# INLINE pFromJSVal #-} + +instance ToJSVal GamepadButton where + toJSVal = return . unGamepadButton + {-# INLINE toJSVal #-} + +instance FromJSVal GamepadButton where + fromJSVal v = fmap GamepadButton <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . GamepadButton + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject GamepadButton where + makeObject = makeObject . unGamepadButton + +instance IsGObject GamepadButton where + typeGType _ = gTypeGamepadButton + {-# INLINE typeGType #-} + +noGamepadButton :: Maybe GamepadButton +noGamepadButton = Nothing +{-# INLINE noGamepadButton #-} + +gTypeGamepadButton :: JSM GType +gTypeGamepadButton = GType . Object <$> jsg "GamepadButton" + +-- | Functions for this inteface are in "JSDOM.GamepadEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype GamepadEvent = GamepadEvent { unGamepadEvent :: JSVal } + +instance PToJSVal GamepadEvent where + pToJSVal = unGamepadEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal GamepadEvent where + pFromJSVal = GamepadEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal GamepadEvent where + toJSVal = return . unGamepadEvent + {-# INLINE toJSVal #-} + +instance FromJSVal GamepadEvent where + fromJSVal v = fmap GamepadEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . GamepadEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject GamepadEvent where + makeObject = makeObject . unGamepadEvent + +instance IsEvent GamepadEvent +instance IsGObject GamepadEvent where + typeGType _ = gTypeGamepadEvent + {-# INLINE typeGType #-} + +noGamepadEvent :: Maybe GamepadEvent +noGamepadEvent = Nothing +{-# INLINE noGamepadEvent #-} + +gTypeGamepadEvent :: JSM GType +gTypeGamepadEvent = GType . Object <$> jsg "GamepadEvent" + +-- | Functions for this inteface are in "JSDOM.GamepadEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype GamepadEventInit = GamepadEventInit { unGamepadEventInit :: JSVal } + +instance PToJSVal GamepadEventInit where + pToJSVal = unGamepadEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal GamepadEventInit where + pFromJSVal = GamepadEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal GamepadEventInit where + toJSVal = return . unGamepadEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal GamepadEventInit where + fromJSVal v = fmap GamepadEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . GamepadEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject GamepadEventInit where + makeObject = makeObject . unGamepadEventInit + +instance IsEventInit GamepadEventInit +instance IsGObject GamepadEventInit where + typeGType _ = gTypeGamepadEventInit + {-# INLINE typeGType #-} + +noGamepadEventInit :: Maybe GamepadEventInit +noGamepadEventInit = Nothing +{-# INLINE noGamepadEventInit #-} + +gTypeGamepadEventInit :: JSM GType +gTypeGamepadEventInit = GType . Object <$> jsg "GamepadEventInit" + +-- | Functions for this inteface are in "JSDOM.Geolocation". +-- +-- +newtype Geolocation = Geolocation { unGeolocation :: JSVal } + +instance PToJSVal Geolocation where + pToJSVal = unGeolocation + {-# INLINE pToJSVal #-} + +instance PFromJSVal Geolocation where + pFromJSVal = Geolocation + {-# INLINE pFromJSVal #-} + +instance ToJSVal Geolocation where + toJSVal = return . unGeolocation + {-# INLINE toJSVal #-} + +instance FromJSVal Geolocation where + fromJSVal v = fmap Geolocation <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Geolocation + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Geolocation where + makeObject = makeObject . unGeolocation + +instance IsGObject Geolocation where + typeGType _ = gTypeGeolocation + {-# INLINE typeGType #-} + +noGeolocation :: Maybe Geolocation +noGeolocation = Nothing +{-# INLINE noGeolocation #-} + +gTypeGeolocation :: JSM GType +gTypeGeolocation = GType . Object <$> jsg "Geolocation" + +-- | Functions for this inteface are in "JSDOM.Geoposition". +-- +-- +newtype Geoposition = Geoposition { unGeoposition :: JSVal } + +instance PToJSVal Geoposition where + pToJSVal = unGeoposition + {-# INLINE pToJSVal #-} + +instance PFromJSVal Geoposition where + pFromJSVal = Geoposition + {-# INLINE pFromJSVal #-} + +instance ToJSVal Geoposition where + toJSVal = return . unGeoposition + {-# INLINE toJSVal #-} + +instance FromJSVal Geoposition where + fromJSVal v = fmap Geoposition <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Geoposition + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Geoposition where + makeObject = makeObject . unGeoposition + +instance IsGObject Geoposition where + typeGType _ = gTypeGeoposition + {-# INLINE typeGType #-} + +noGeoposition :: Maybe Geoposition +noGeoposition = Nothing +{-# INLINE noGeoposition #-} + +gTypeGeoposition :: JSM GType +gTypeGeoposition = GType . Object <$> jsg "Geoposition" + +-- | Functions for this inteface are in "JSDOM.GetRootNodeOptions". +-- +-- +newtype GetRootNodeOptions = GetRootNodeOptions { unGetRootNodeOptions :: JSVal } + +instance PToJSVal GetRootNodeOptions where + pToJSVal = unGetRootNodeOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal GetRootNodeOptions where + pFromJSVal = GetRootNodeOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal GetRootNodeOptions where + toJSVal = return . unGetRootNodeOptions + {-# INLINE toJSVal #-} + +instance FromJSVal GetRootNodeOptions where + fromJSVal v = fmap GetRootNodeOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . GetRootNodeOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject GetRootNodeOptions where + makeObject = makeObject . unGetRootNodeOptions + +instance IsGObject GetRootNodeOptions where + typeGType _ = gTypeGetRootNodeOptions + {-# INLINE typeGType #-} + +noGetRootNodeOptions :: Maybe GetRootNodeOptions +noGetRootNodeOptions = Nothing +{-# INLINE noGetRootNodeOptions #-} + +gTypeGetRootNodeOptions :: JSM GType +gTypeGetRootNodeOptions = GType . Object <$> jsg "GetRootNodeOptions" + +-- | Functions for this inteface are in "JSDOM.GlobalCrypto". +-- +-- +newtype GlobalCrypto = GlobalCrypto { unGlobalCrypto :: JSVal } + +instance PToJSVal GlobalCrypto where + pToJSVal = unGlobalCrypto + {-# INLINE pToJSVal #-} + +instance PFromJSVal GlobalCrypto where + pFromJSVal = GlobalCrypto + {-# INLINE pFromJSVal #-} + +instance ToJSVal GlobalCrypto where + toJSVal = return . unGlobalCrypto + {-# INLINE toJSVal #-} + +instance FromJSVal GlobalCrypto where + fromJSVal v = fmap GlobalCrypto <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . GlobalCrypto + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject GlobalCrypto where + makeObject = makeObject . unGlobalCrypto + +class (IsGObject o) => IsGlobalCrypto o +toGlobalCrypto :: IsGlobalCrypto o => o -> GlobalCrypto +toGlobalCrypto = GlobalCrypto . coerce + +instance IsGlobalCrypto GlobalCrypto +instance IsGObject GlobalCrypto where + typeGType _ = gTypeGlobalCrypto + {-# INLINE typeGType #-} + +noGlobalCrypto :: Maybe GlobalCrypto +noGlobalCrypto = Nothing +{-# INLINE noGlobalCrypto #-} + +gTypeGlobalCrypto :: JSM GType +gTypeGlobalCrypto = GType . Object <$> jsg "GlobalCrypto" + +-- | Functions for this inteface are in "JSDOM.GlobalEventHandlers". +-- +-- +newtype GlobalEventHandlers = GlobalEventHandlers { unGlobalEventHandlers :: JSVal } + +instance PToJSVal GlobalEventHandlers where + pToJSVal = unGlobalEventHandlers + {-# INLINE pToJSVal #-} + +instance PFromJSVal GlobalEventHandlers where + pFromJSVal = GlobalEventHandlers + {-# INLINE pFromJSVal #-} + +instance ToJSVal GlobalEventHandlers where + toJSVal = return . unGlobalEventHandlers + {-# INLINE toJSVal #-} + +instance FromJSVal GlobalEventHandlers where + fromJSVal v = fmap GlobalEventHandlers <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . GlobalEventHandlers + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject GlobalEventHandlers where + makeObject = makeObject . unGlobalEventHandlers + +class (IsGObject o) => IsGlobalEventHandlers o +toGlobalEventHandlers :: IsGlobalEventHandlers o => o -> GlobalEventHandlers +toGlobalEventHandlers = GlobalEventHandlers . coerce + +instance IsGlobalEventHandlers GlobalEventHandlers +instance IsGObject GlobalEventHandlers where + typeGType _ = gTypeGlobalEventHandlers + {-# INLINE typeGType #-} + +noGlobalEventHandlers :: Maybe GlobalEventHandlers +noGlobalEventHandlers = Nothing +{-# INLINE noGlobalEventHandlers #-} + +gTypeGlobalEventHandlers :: JSM GType +gTypeGlobalEventHandlers = GType . Object <$> jsg "GlobalEventHandlers" + +-- | Functions for this inteface are in "JSDOM.GlobalPerformance". +-- +-- +newtype GlobalPerformance = GlobalPerformance { unGlobalPerformance :: JSVal } + +instance PToJSVal GlobalPerformance where + pToJSVal = unGlobalPerformance + {-# INLINE pToJSVal #-} + +instance PFromJSVal GlobalPerformance where + pFromJSVal = GlobalPerformance + {-# INLINE pFromJSVal #-} + +instance ToJSVal GlobalPerformance where + toJSVal = return . unGlobalPerformance + {-# INLINE toJSVal #-} + +instance FromJSVal GlobalPerformance where + fromJSVal v = fmap GlobalPerformance <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . GlobalPerformance + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject GlobalPerformance where + makeObject = makeObject . unGlobalPerformance + +class (IsGObject o) => IsGlobalPerformance o +toGlobalPerformance :: IsGlobalPerformance o => o -> GlobalPerformance +toGlobalPerformance = GlobalPerformance . coerce + +instance IsGlobalPerformance GlobalPerformance +instance IsGObject GlobalPerformance where + typeGType _ = gTypeGlobalPerformance + {-# INLINE typeGType #-} + +noGlobalPerformance :: Maybe GlobalPerformance +noGlobalPerformance = Nothing +{-# INLINE noGlobalPerformance #-} + +gTypeGlobalPerformance :: JSM GType +gTypeGlobalPerformance = GType . Object <$> jsg "GlobalPerformance" + +-- | Functions for this inteface are in "JSDOM.HTMLAllCollection". +-- +-- +newtype HTMLAllCollection = HTMLAllCollection { unHTMLAllCollection :: JSVal } + +instance PToJSVal HTMLAllCollection where + pToJSVal = unHTMLAllCollection + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLAllCollection where + pFromJSVal = HTMLAllCollection + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLAllCollection where + toJSVal = return . unHTMLAllCollection + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLAllCollection where + fromJSVal v = fmap HTMLAllCollection <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLAllCollection + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLAllCollection where + makeObject = makeObject . unHTMLAllCollection + +instance IsGObject HTMLAllCollection where + typeGType _ = gTypeHTMLAllCollection + {-# INLINE typeGType #-} + +noHTMLAllCollection :: Maybe HTMLAllCollection +noHTMLAllCollection = Nothing +{-# INLINE noHTMLAllCollection #-} + +gTypeHTMLAllCollection :: JSM GType +gTypeHTMLAllCollection = GType . Object <$> jsg "HTMLAllCollection" + +-- | Functions for this inteface are in "JSDOM.HTMLAnchorElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.HTMLHyperlinkElementUtils" +-- +-- +newtype HTMLAnchorElement = HTMLAnchorElement { unHTMLAnchorElement :: JSVal } + +instance PToJSVal HTMLAnchorElement where + pToJSVal = unHTMLAnchorElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLAnchorElement where + pFromJSVal = HTMLAnchorElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLAnchorElement where + toJSVal = return . unHTMLAnchorElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLAnchorElement where + fromJSVal v = fmap HTMLAnchorElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLAnchorElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLAnchorElement where + makeObject = makeObject . unHTMLAnchorElement + +instance IsHTMLElement HTMLAnchorElement +instance IsElement HTMLAnchorElement +instance IsNode HTMLAnchorElement +instance IsEventTarget HTMLAnchorElement +instance IsSlotable HTMLAnchorElement +instance IsParentNode HTMLAnchorElement +instance IsNonDocumentTypeChildNode HTMLAnchorElement +instance IsDocumentAndElementEventHandlers HTMLAnchorElement +instance IsChildNode HTMLAnchorElement +instance IsAnimatable HTMLAnchorElement +instance IsGlobalEventHandlers HTMLAnchorElement +instance IsElementCSSInlineStyle HTMLAnchorElement +instance IsHTMLHyperlinkElementUtils HTMLAnchorElement +instance IsGObject HTMLAnchorElement where + typeGType _ = gTypeHTMLAnchorElement + {-# INLINE typeGType #-} + +noHTMLAnchorElement :: Maybe HTMLAnchorElement +noHTMLAnchorElement = Nothing +{-# INLINE noHTMLAnchorElement #-} + +gTypeHTMLAnchorElement :: JSM GType +gTypeHTMLAnchorElement = GType . Object <$> jsg "HTMLAnchorElement" + +-- | Functions for this inteface are in "JSDOM.HTMLAppletElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLAppletElement = HTMLAppletElement { unHTMLAppletElement :: JSVal } + +instance PToJSVal HTMLAppletElement where + pToJSVal = unHTMLAppletElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLAppletElement where + pFromJSVal = HTMLAppletElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLAppletElement where + toJSVal = return . unHTMLAppletElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLAppletElement where + fromJSVal v = fmap HTMLAppletElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLAppletElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLAppletElement where + makeObject = makeObject . unHTMLAppletElement + +instance IsHTMLElement HTMLAppletElement +instance IsElement HTMLAppletElement +instance IsNode HTMLAppletElement +instance IsEventTarget HTMLAppletElement +instance IsSlotable HTMLAppletElement +instance IsParentNode HTMLAppletElement +instance IsNonDocumentTypeChildNode HTMLAppletElement +instance IsDocumentAndElementEventHandlers HTMLAppletElement +instance IsChildNode HTMLAppletElement +instance IsAnimatable HTMLAppletElement +instance IsGlobalEventHandlers HTMLAppletElement +instance IsElementCSSInlineStyle HTMLAppletElement +instance IsGObject HTMLAppletElement where + typeGType _ = gTypeHTMLAppletElement + {-# INLINE typeGType #-} + +noHTMLAppletElement :: Maybe HTMLAppletElement +noHTMLAppletElement = Nothing +{-# INLINE noHTMLAppletElement #-} + +gTypeHTMLAppletElement :: JSM GType +gTypeHTMLAppletElement = GType . Object <$> jsg "HTMLAppletElement" + +-- | Functions for this inteface are in "JSDOM.HTMLAreaElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.HTMLHyperlinkElementUtils" +-- +-- +newtype HTMLAreaElement = HTMLAreaElement { unHTMLAreaElement :: JSVal } + +instance PToJSVal HTMLAreaElement where + pToJSVal = unHTMLAreaElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLAreaElement where + pFromJSVal = HTMLAreaElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLAreaElement where + toJSVal = return . unHTMLAreaElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLAreaElement where + fromJSVal v = fmap HTMLAreaElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLAreaElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLAreaElement where + makeObject = makeObject . unHTMLAreaElement + +instance IsHTMLElement HTMLAreaElement +instance IsElement HTMLAreaElement +instance IsNode HTMLAreaElement +instance IsEventTarget HTMLAreaElement +instance IsSlotable HTMLAreaElement +instance IsParentNode HTMLAreaElement +instance IsNonDocumentTypeChildNode HTMLAreaElement +instance IsDocumentAndElementEventHandlers HTMLAreaElement +instance IsChildNode HTMLAreaElement +instance IsAnimatable HTMLAreaElement +instance IsGlobalEventHandlers HTMLAreaElement +instance IsElementCSSInlineStyle HTMLAreaElement +instance IsHTMLHyperlinkElementUtils HTMLAreaElement +instance IsGObject HTMLAreaElement where + typeGType _ = gTypeHTMLAreaElement + {-# INLINE typeGType #-} + +noHTMLAreaElement :: Maybe HTMLAreaElement +noHTMLAreaElement = Nothing +{-# INLINE noHTMLAreaElement #-} + +gTypeHTMLAreaElement :: JSM GType +gTypeHTMLAreaElement = GType . Object <$> jsg "HTMLAreaElement" + +-- | Functions for this inteface are in "JSDOM.HTMLAttachmentElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLAttachmentElement = HTMLAttachmentElement { unHTMLAttachmentElement :: JSVal } + +instance PToJSVal HTMLAttachmentElement where + pToJSVal = unHTMLAttachmentElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLAttachmentElement where + pFromJSVal = HTMLAttachmentElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLAttachmentElement where + toJSVal = return . unHTMLAttachmentElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLAttachmentElement where + fromJSVal v = fmap HTMLAttachmentElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLAttachmentElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLAttachmentElement where + makeObject = makeObject . unHTMLAttachmentElement + +instance IsHTMLElement HTMLAttachmentElement +instance IsElement HTMLAttachmentElement +instance IsNode HTMLAttachmentElement +instance IsEventTarget HTMLAttachmentElement +instance IsSlotable HTMLAttachmentElement +instance IsParentNode HTMLAttachmentElement +instance IsNonDocumentTypeChildNode HTMLAttachmentElement +instance IsDocumentAndElementEventHandlers HTMLAttachmentElement +instance IsChildNode HTMLAttachmentElement +instance IsAnimatable HTMLAttachmentElement +instance IsGlobalEventHandlers HTMLAttachmentElement +instance IsElementCSSInlineStyle HTMLAttachmentElement +instance IsGObject HTMLAttachmentElement where + typeGType _ = gTypeHTMLAttachmentElement + {-# INLINE typeGType #-} + +noHTMLAttachmentElement :: Maybe HTMLAttachmentElement +noHTMLAttachmentElement = Nothing +{-# INLINE noHTMLAttachmentElement #-} + +gTypeHTMLAttachmentElement :: JSM GType +gTypeHTMLAttachmentElement = GType . Object <$> jsg "HTMLAttachmentElement" + +-- | Functions for this inteface are in "JSDOM.HTMLAudioElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLMediaElement" +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLAudioElement = HTMLAudioElement { unHTMLAudioElement :: JSVal } + +instance PToJSVal HTMLAudioElement where + pToJSVal = unHTMLAudioElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLAudioElement where + pFromJSVal = HTMLAudioElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLAudioElement where + toJSVal = return . unHTMLAudioElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLAudioElement where + fromJSVal v = fmap HTMLAudioElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLAudioElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLAudioElement where + makeObject = makeObject . unHTMLAudioElement + +instance IsHTMLMediaElement HTMLAudioElement +instance IsHTMLElement HTMLAudioElement +instance IsElement HTMLAudioElement +instance IsNode HTMLAudioElement +instance IsEventTarget HTMLAudioElement +instance IsSlotable HTMLAudioElement +instance IsParentNode HTMLAudioElement +instance IsNonDocumentTypeChildNode HTMLAudioElement +instance IsDocumentAndElementEventHandlers HTMLAudioElement +instance IsChildNode HTMLAudioElement +instance IsAnimatable HTMLAudioElement +instance IsGlobalEventHandlers HTMLAudioElement +instance IsElementCSSInlineStyle HTMLAudioElement +instance IsGObject HTMLAudioElement where + typeGType _ = gTypeHTMLAudioElement + {-# INLINE typeGType #-} + +noHTMLAudioElement :: Maybe HTMLAudioElement +noHTMLAudioElement = Nothing +{-# INLINE noHTMLAudioElement #-} + +gTypeHTMLAudioElement :: JSM GType +gTypeHTMLAudioElement = GType . Object <$> jsg "HTMLAudioElement" + +-- | Functions for this inteface are in "JSDOM.HTMLBRElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLBRElement = HTMLBRElement { unHTMLBRElement :: JSVal } + +instance PToJSVal HTMLBRElement where + pToJSVal = unHTMLBRElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLBRElement where + pFromJSVal = HTMLBRElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLBRElement where + toJSVal = return . unHTMLBRElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLBRElement where + fromJSVal v = fmap HTMLBRElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLBRElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLBRElement where + makeObject = makeObject . unHTMLBRElement + +instance IsHTMLElement HTMLBRElement +instance IsElement HTMLBRElement +instance IsNode HTMLBRElement +instance IsEventTarget HTMLBRElement +instance IsSlotable HTMLBRElement +instance IsParentNode HTMLBRElement +instance IsNonDocumentTypeChildNode HTMLBRElement +instance IsDocumentAndElementEventHandlers HTMLBRElement +instance IsChildNode HTMLBRElement +instance IsAnimatable HTMLBRElement +instance IsGlobalEventHandlers HTMLBRElement +instance IsElementCSSInlineStyle HTMLBRElement +instance IsGObject HTMLBRElement where + typeGType _ = gTypeHTMLBRElement + {-# INLINE typeGType #-} + +noHTMLBRElement :: Maybe HTMLBRElement +noHTMLBRElement = Nothing +{-# INLINE noHTMLBRElement #-} + +gTypeHTMLBRElement :: JSM GType +gTypeHTMLBRElement = GType . Object <$> jsg "HTMLBRElement" + +-- | Functions for this inteface are in "JSDOM.HTMLBaseElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLBaseElement = HTMLBaseElement { unHTMLBaseElement :: JSVal } + +instance PToJSVal HTMLBaseElement where + pToJSVal = unHTMLBaseElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLBaseElement where + pFromJSVal = HTMLBaseElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLBaseElement where + toJSVal = return . unHTMLBaseElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLBaseElement where + fromJSVal v = fmap HTMLBaseElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLBaseElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLBaseElement where + makeObject = makeObject . unHTMLBaseElement + +instance IsHTMLElement HTMLBaseElement +instance IsElement HTMLBaseElement +instance IsNode HTMLBaseElement +instance IsEventTarget HTMLBaseElement +instance IsSlotable HTMLBaseElement +instance IsParentNode HTMLBaseElement +instance IsNonDocumentTypeChildNode HTMLBaseElement +instance IsDocumentAndElementEventHandlers HTMLBaseElement +instance IsChildNode HTMLBaseElement +instance IsAnimatable HTMLBaseElement +instance IsGlobalEventHandlers HTMLBaseElement +instance IsElementCSSInlineStyle HTMLBaseElement +instance IsGObject HTMLBaseElement where + typeGType _ = gTypeHTMLBaseElement + {-# INLINE typeGType #-} + +noHTMLBaseElement :: Maybe HTMLBaseElement +noHTMLBaseElement = Nothing +{-# INLINE noHTMLBaseElement #-} + +gTypeHTMLBaseElement :: JSM GType +gTypeHTMLBaseElement = GType . Object <$> jsg "HTMLBaseElement" + +-- | Functions for this inteface are in "JSDOM.HTMLBodyElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.WindowEventHandlers" +-- +-- +newtype HTMLBodyElement = HTMLBodyElement { unHTMLBodyElement :: JSVal } + +instance PToJSVal HTMLBodyElement where + pToJSVal = unHTMLBodyElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLBodyElement where + pFromJSVal = HTMLBodyElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLBodyElement where + toJSVal = return . unHTMLBodyElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLBodyElement where + fromJSVal v = fmap HTMLBodyElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLBodyElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLBodyElement where + makeObject = makeObject . unHTMLBodyElement + +instance IsHTMLElement HTMLBodyElement +instance IsElement HTMLBodyElement +instance IsNode HTMLBodyElement +instance IsEventTarget HTMLBodyElement +instance IsSlotable HTMLBodyElement +instance IsParentNode HTMLBodyElement +instance IsNonDocumentTypeChildNode HTMLBodyElement +instance IsDocumentAndElementEventHandlers HTMLBodyElement +instance IsChildNode HTMLBodyElement +instance IsAnimatable HTMLBodyElement +instance IsGlobalEventHandlers HTMLBodyElement +instance IsElementCSSInlineStyle HTMLBodyElement +instance IsWindowEventHandlers HTMLBodyElement +instance IsGObject HTMLBodyElement where + typeGType _ = gTypeHTMLBodyElement + {-# INLINE typeGType #-} + +noHTMLBodyElement :: Maybe HTMLBodyElement +noHTMLBodyElement = Nothing +{-# INLINE noHTMLBodyElement #-} + +gTypeHTMLBodyElement :: JSM GType +gTypeHTMLBodyElement = GType . Object <$> jsg "HTMLBodyElement" + +-- | Functions for this inteface are in "JSDOM.HTMLButtonElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLButtonElement = HTMLButtonElement { unHTMLButtonElement :: JSVal } + +instance PToJSVal HTMLButtonElement where + pToJSVal = unHTMLButtonElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLButtonElement where + pFromJSVal = HTMLButtonElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLButtonElement where + toJSVal = return . unHTMLButtonElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLButtonElement where + fromJSVal v = fmap HTMLButtonElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLButtonElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLButtonElement where + makeObject = makeObject . unHTMLButtonElement + +instance IsHTMLElement HTMLButtonElement +instance IsElement HTMLButtonElement +instance IsNode HTMLButtonElement +instance IsEventTarget HTMLButtonElement +instance IsSlotable HTMLButtonElement +instance IsParentNode HTMLButtonElement +instance IsNonDocumentTypeChildNode HTMLButtonElement +instance IsDocumentAndElementEventHandlers HTMLButtonElement +instance IsChildNode HTMLButtonElement +instance IsAnimatable HTMLButtonElement +instance IsGlobalEventHandlers HTMLButtonElement +instance IsElementCSSInlineStyle HTMLButtonElement +instance IsGObject HTMLButtonElement where + typeGType _ = gTypeHTMLButtonElement + {-# INLINE typeGType #-} + +noHTMLButtonElement :: Maybe HTMLButtonElement +noHTMLButtonElement = Nothing +{-# INLINE noHTMLButtonElement #-} + +gTypeHTMLButtonElement :: JSM GType +gTypeHTMLButtonElement = GType . Object <$> jsg "HTMLButtonElement" + +-- | Functions for this inteface are in "JSDOM.HTMLCanvasElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLCanvasElement = HTMLCanvasElement { unHTMLCanvasElement :: JSVal } + +instance PToJSVal HTMLCanvasElement where + pToJSVal = unHTMLCanvasElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLCanvasElement where + pFromJSVal = HTMLCanvasElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLCanvasElement where + toJSVal = return . unHTMLCanvasElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLCanvasElement where + fromJSVal v = fmap HTMLCanvasElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLCanvasElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLCanvasElement where + makeObject = makeObject . unHTMLCanvasElement + +instance IsHTMLElement HTMLCanvasElement +instance IsElement HTMLCanvasElement +instance IsNode HTMLCanvasElement +instance IsEventTarget HTMLCanvasElement +instance IsSlotable HTMLCanvasElement +instance IsParentNode HTMLCanvasElement +instance IsNonDocumentTypeChildNode HTMLCanvasElement +instance IsDocumentAndElementEventHandlers HTMLCanvasElement +instance IsChildNode HTMLCanvasElement +instance IsAnimatable HTMLCanvasElement +instance IsGlobalEventHandlers HTMLCanvasElement +instance IsElementCSSInlineStyle HTMLCanvasElement +instance IsGObject HTMLCanvasElement where + typeGType _ = gTypeHTMLCanvasElement + {-# INLINE typeGType #-} + +noHTMLCanvasElement :: Maybe HTMLCanvasElement +noHTMLCanvasElement = Nothing +{-# INLINE noHTMLCanvasElement #-} + +gTypeHTMLCanvasElement :: JSM GType +gTypeHTMLCanvasElement = GType . Object <$> jsg "HTMLCanvasElement" + +-- | Functions for this inteface are in "JSDOM.HTMLCollection". +-- +-- +newtype HTMLCollection = HTMLCollection { unHTMLCollection :: JSVal } + +instance PToJSVal HTMLCollection where + pToJSVal = unHTMLCollection + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLCollection where + pFromJSVal = HTMLCollection + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLCollection where + toJSVal = return . unHTMLCollection + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLCollection where + fromJSVal v = fmap HTMLCollection <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLCollection + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLCollection where + makeObject = makeObject . unHTMLCollection + +class (IsGObject o) => IsHTMLCollection o +toHTMLCollection :: IsHTMLCollection o => o -> HTMLCollection +toHTMLCollection = HTMLCollection . coerce + +instance IsHTMLCollection HTMLCollection +instance IsGObject HTMLCollection where + typeGType _ = gTypeHTMLCollection + {-# INLINE typeGType #-} + +noHTMLCollection :: Maybe HTMLCollection +noHTMLCollection = Nothing +{-# INLINE noHTMLCollection #-} + +gTypeHTMLCollection :: JSM GType +gTypeHTMLCollection = GType . Object <$> jsg "HTMLCollection" + +-- | Functions for this inteface are in "JSDOM.HTMLDListElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLDListElement = HTMLDListElement { unHTMLDListElement :: JSVal } + +instance PToJSVal HTMLDListElement where + pToJSVal = unHTMLDListElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLDListElement where + pFromJSVal = HTMLDListElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLDListElement where + toJSVal = return . unHTMLDListElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLDListElement where + fromJSVal v = fmap HTMLDListElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLDListElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLDListElement where + makeObject = makeObject . unHTMLDListElement + +instance IsHTMLElement HTMLDListElement +instance IsElement HTMLDListElement +instance IsNode HTMLDListElement +instance IsEventTarget HTMLDListElement +instance IsSlotable HTMLDListElement +instance IsParentNode HTMLDListElement +instance IsNonDocumentTypeChildNode HTMLDListElement +instance IsDocumentAndElementEventHandlers HTMLDListElement +instance IsChildNode HTMLDListElement +instance IsAnimatable HTMLDListElement +instance IsGlobalEventHandlers HTMLDListElement +instance IsElementCSSInlineStyle HTMLDListElement +instance IsGObject HTMLDListElement where + typeGType _ = gTypeHTMLDListElement + {-# INLINE typeGType #-} + +noHTMLDListElement :: Maybe HTMLDListElement +noHTMLDListElement = Nothing +{-# INLINE noHTMLDListElement #-} + +gTypeHTMLDListElement :: JSM GType +gTypeHTMLDListElement = GType . Object <$> jsg "HTMLDListElement" + +-- | Functions for this inteface are in "JSDOM.HTMLDataElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLDataElement = HTMLDataElement { unHTMLDataElement :: JSVal } + +instance PToJSVal HTMLDataElement where + pToJSVal = unHTMLDataElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLDataElement where + pFromJSVal = HTMLDataElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLDataElement where + toJSVal = return . unHTMLDataElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLDataElement where + fromJSVal v = fmap HTMLDataElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLDataElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLDataElement where + makeObject = makeObject . unHTMLDataElement + +instance IsHTMLElement HTMLDataElement +instance IsElement HTMLDataElement +instance IsNode HTMLDataElement +instance IsEventTarget HTMLDataElement +instance IsSlotable HTMLDataElement +instance IsParentNode HTMLDataElement +instance IsNonDocumentTypeChildNode HTMLDataElement +instance IsDocumentAndElementEventHandlers HTMLDataElement +instance IsChildNode HTMLDataElement +instance IsAnimatable HTMLDataElement +instance IsGlobalEventHandlers HTMLDataElement +instance IsElementCSSInlineStyle HTMLDataElement +instance IsGObject HTMLDataElement where + typeGType _ = gTypeHTMLDataElement + {-# INLINE typeGType #-} + +noHTMLDataElement :: Maybe HTMLDataElement +noHTMLDataElement = Nothing +{-# INLINE noHTMLDataElement #-} + +gTypeHTMLDataElement :: JSM GType +gTypeHTMLDataElement = GType . Object <$> jsg "HTMLDataElement" + +-- | Functions for this inteface are in "JSDOM.HTMLDataListElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLDataListElement = HTMLDataListElement { unHTMLDataListElement :: JSVal } + +instance PToJSVal HTMLDataListElement where + pToJSVal = unHTMLDataListElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLDataListElement where + pFromJSVal = HTMLDataListElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLDataListElement where + toJSVal = return . unHTMLDataListElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLDataListElement where + fromJSVal v = fmap HTMLDataListElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLDataListElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLDataListElement where + makeObject = makeObject . unHTMLDataListElement + +instance IsHTMLElement HTMLDataListElement +instance IsElement HTMLDataListElement +instance IsNode HTMLDataListElement +instance IsEventTarget HTMLDataListElement +instance IsSlotable HTMLDataListElement +instance IsParentNode HTMLDataListElement +instance IsNonDocumentTypeChildNode HTMLDataListElement +instance IsDocumentAndElementEventHandlers HTMLDataListElement +instance IsChildNode HTMLDataListElement +instance IsAnimatable HTMLDataListElement +instance IsGlobalEventHandlers HTMLDataListElement +instance IsElementCSSInlineStyle HTMLDataListElement +instance IsGObject HTMLDataListElement where + typeGType _ = gTypeHTMLDataListElement + {-# INLINE typeGType #-} + +noHTMLDataListElement :: Maybe HTMLDataListElement +noHTMLDataListElement = Nothing +{-# INLINE noHTMLDataListElement #-} + +gTypeHTMLDataListElement :: JSM GType +gTypeHTMLDataListElement = GType . Object <$> jsg "HTMLDataListElement" + +-- | Functions for this inteface are in "JSDOM.HTMLDetailsElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLDetailsElement = HTMLDetailsElement { unHTMLDetailsElement :: JSVal } + +instance PToJSVal HTMLDetailsElement where + pToJSVal = unHTMLDetailsElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLDetailsElement where + pFromJSVal = HTMLDetailsElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLDetailsElement where + toJSVal = return . unHTMLDetailsElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLDetailsElement where + fromJSVal v = fmap HTMLDetailsElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLDetailsElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLDetailsElement where + makeObject = makeObject . unHTMLDetailsElement + +instance IsHTMLElement HTMLDetailsElement +instance IsElement HTMLDetailsElement +instance IsNode HTMLDetailsElement +instance IsEventTarget HTMLDetailsElement +instance IsSlotable HTMLDetailsElement +instance IsParentNode HTMLDetailsElement +instance IsNonDocumentTypeChildNode HTMLDetailsElement +instance IsDocumentAndElementEventHandlers HTMLDetailsElement +instance IsChildNode HTMLDetailsElement +instance IsAnimatable HTMLDetailsElement +instance IsGlobalEventHandlers HTMLDetailsElement +instance IsElementCSSInlineStyle HTMLDetailsElement +instance IsGObject HTMLDetailsElement where + typeGType _ = gTypeHTMLDetailsElement + {-# INLINE typeGType #-} + +noHTMLDetailsElement :: Maybe HTMLDetailsElement +noHTMLDetailsElement = Nothing +{-# INLINE noHTMLDetailsElement #-} + +gTypeHTMLDetailsElement :: JSM GType +gTypeHTMLDetailsElement = GType . Object <$> jsg "HTMLDetailsElement" + +-- | Functions for this inteface are in "JSDOM.HTMLDirectoryElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLDirectoryElement = HTMLDirectoryElement { unHTMLDirectoryElement :: JSVal } + +instance PToJSVal HTMLDirectoryElement where + pToJSVal = unHTMLDirectoryElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLDirectoryElement where + pFromJSVal = HTMLDirectoryElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLDirectoryElement where + toJSVal = return . unHTMLDirectoryElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLDirectoryElement where + fromJSVal v = fmap HTMLDirectoryElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLDirectoryElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLDirectoryElement where + makeObject = makeObject . unHTMLDirectoryElement + +instance IsHTMLElement HTMLDirectoryElement +instance IsElement HTMLDirectoryElement +instance IsNode HTMLDirectoryElement +instance IsEventTarget HTMLDirectoryElement +instance IsSlotable HTMLDirectoryElement +instance IsParentNode HTMLDirectoryElement +instance IsNonDocumentTypeChildNode HTMLDirectoryElement +instance IsDocumentAndElementEventHandlers HTMLDirectoryElement +instance IsChildNode HTMLDirectoryElement +instance IsAnimatable HTMLDirectoryElement +instance IsGlobalEventHandlers HTMLDirectoryElement +instance IsElementCSSInlineStyle HTMLDirectoryElement +instance IsGObject HTMLDirectoryElement where + typeGType _ = gTypeHTMLDirectoryElement + {-# INLINE typeGType #-} + +noHTMLDirectoryElement :: Maybe HTMLDirectoryElement +noHTMLDirectoryElement = Nothing +{-# INLINE noHTMLDirectoryElement #-} + +gTypeHTMLDirectoryElement :: JSM GType +gTypeHTMLDirectoryElement = GType . Object <$> jsg "HTMLDirectoryElement" + +-- | Functions for this inteface are in "JSDOM.HTMLDivElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLDivElement = HTMLDivElement { unHTMLDivElement :: JSVal } + +instance PToJSVal HTMLDivElement where + pToJSVal = unHTMLDivElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLDivElement where + pFromJSVal = HTMLDivElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLDivElement where + toJSVal = return . unHTMLDivElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLDivElement where + fromJSVal v = fmap HTMLDivElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLDivElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLDivElement where + makeObject = makeObject . unHTMLDivElement + +instance IsHTMLElement HTMLDivElement +instance IsElement HTMLDivElement +instance IsNode HTMLDivElement +instance IsEventTarget HTMLDivElement +instance IsSlotable HTMLDivElement +instance IsParentNode HTMLDivElement +instance IsNonDocumentTypeChildNode HTMLDivElement +instance IsDocumentAndElementEventHandlers HTMLDivElement +instance IsChildNode HTMLDivElement +instance IsAnimatable HTMLDivElement +instance IsGlobalEventHandlers HTMLDivElement +instance IsElementCSSInlineStyle HTMLDivElement +instance IsGObject HTMLDivElement where + typeGType _ = gTypeHTMLDivElement + {-# INLINE typeGType #-} + +noHTMLDivElement :: Maybe HTMLDivElement +noHTMLDivElement = Nothing +{-# INLINE noHTMLDivElement #-} + +gTypeHTMLDivElement :: JSM GType +gTypeHTMLDivElement = GType . Object <$> jsg "HTMLDivElement" + +-- | Functions for this inteface are in "JSDOM.HTMLDocument". +-- Base interface functions are in: +-- +-- * "JSDOM.Document" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.DocumentOrShadowRoot" +-- * "JSDOM.NonElementParentNode" +-- * "JSDOM.ParentNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- +-- +newtype HTMLDocument = HTMLDocument { unHTMLDocument :: JSVal } + +instance PToJSVal HTMLDocument where + pToJSVal = unHTMLDocument + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLDocument where + pFromJSVal = HTMLDocument + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLDocument where + toJSVal = return . unHTMLDocument + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLDocument where + fromJSVal v = fmap HTMLDocument <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLDocument + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLDocument where + makeObject = makeObject . unHTMLDocument + +instance IsDocument HTMLDocument +instance IsNode HTMLDocument +instance IsEventTarget HTMLDocument +instance IsGlobalEventHandlers HTMLDocument +instance IsDocumentOrShadowRoot HTMLDocument +instance IsNonElementParentNode HTMLDocument +instance IsParentNode HTMLDocument +instance IsDocumentAndElementEventHandlers HTMLDocument +instance IsGObject HTMLDocument where + typeGType _ = gTypeHTMLDocument + {-# INLINE typeGType #-} + +noHTMLDocument :: Maybe HTMLDocument +noHTMLDocument = Nothing +{-# INLINE noHTMLDocument #-} + +gTypeHTMLDocument :: JSM GType +gTypeHTMLDocument = GType . Object <$> jsg "HTMLDocument" + +-- | Functions for this inteface are in "JSDOM.HTMLElement". +-- Base interface functions are in: +-- +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLElement = HTMLElement { unHTMLElement :: JSVal } + +instance PToJSVal HTMLElement where + pToJSVal = unHTMLElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLElement where + pFromJSVal = HTMLElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLElement where + toJSVal = return . unHTMLElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLElement where + fromJSVal v = fmap HTMLElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLElement where + makeObject = makeObject . unHTMLElement + +class (IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsElementCSSInlineStyle o, IsGObject o) => IsHTMLElement o +toHTMLElement :: IsHTMLElement o => o -> HTMLElement +toHTMLElement = HTMLElement . coerce + +instance IsHTMLElement HTMLElement +instance IsElement HTMLElement +instance IsNode HTMLElement +instance IsEventTarget HTMLElement +instance IsSlotable HTMLElement +instance IsParentNode HTMLElement +instance IsNonDocumentTypeChildNode HTMLElement +instance IsDocumentAndElementEventHandlers HTMLElement +instance IsChildNode HTMLElement +instance IsAnimatable HTMLElement +instance IsGlobalEventHandlers HTMLElement +instance IsElementCSSInlineStyle HTMLElement +instance IsGObject HTMLElement where + typeGType _ = gTypeHTMLElement + {-# INLINE typeGType #-} + +noHTMLElement :: Maybe HTMLElement +noHTMLElement = Nothing +{-# INLINE noHTMLElement #-} + +gTypeHTMLElement :: JSM GType +gTypeHTMLElement = GType . Object <$> jsg "HTMLElement" + +-- | Functions for this inteface are in "JSDOM.HTMLEmbedElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLEmbedElement = HTMLEmbedElement { unHTMLEmbedElement :: JSVal } + +instance PToJSVal HTMLEmbedElement where + pToJSVal = unHTMLEmbedElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLEmbedElement where + pFromJSVal = HTMLEmbedElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLEmbedElement where + toJSVal = return . unHTMLEmbedElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLEmbedElement where + fromJSVal v = fmap HTMLEmbedElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLEmbedElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLEmbedElement where + makeObject = makeObject . unHTMLEmbedElement + +instance IsHTMLElement HTMLEmbedElement +instance IsElement HTMLEmbedElement +instance IsNode HTMLEmbedElement +instance IsEventTarget HTMLEmbedElement +instance IsSlotable HTMLEmbedElement +instance IsParentNode HTMLEmbedElement +instance IsNonDocumentTypeChildNode HTMLEmbedElement +instance IsDocumentAndElementEventHandlers HTMLEmbedElement +instance IsChildNode HTMLEmbedElement +instance IsAnimatable HTMLEmbedElement +instance IsGlobalEventHandlers HTMLEmbedElement +instance IsElementCSSInlineStyle HTMLEmbedElement +instance IsGObject HTMLEmbedElement where + typeGType _ = gTypeHTMLEmbedElement + {-# INLINE typeGType #-} + +noHTMLEmbedElement :: Maybe HTMLEmbedElement +noHTMLEmbedElement = Nothing +{-# INLINE noHTMLEmbedElement #-} + +gTypeHTMLEmbedElement :: JSM GType +gTypeHTMLEmbedElement = GType . Object <$> jsg "HTMLEmbedElement" + +-- | Functions for this inteface are in "JSDOM.HTMLFieldSetElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLFieldSetElement = HTMLFieldSetElement { unHTMLFieldSetElement :: JSVal } + +instance PToJSVal HTMLFieldSetElement where + pToJSVal = unHTMLFieldSetElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLFieldSetElement where + pFromJSVal = HTMLFieldSetElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLFieldSetElement where + toJSVal = return . unHTMLFieldSetElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLFieldSetElement where + fromJSVal v = fmap HTMLFieldSetElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLFieldSetElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLFieldSetElement where + makeObject = makeObject . unHTMLFieldSetElement + +instance IsHTMLElement HTMLFieldSetElement +instance IsElement HTMLFieldSetElement +instance IsNode HTMLFieldSetElement +instance IsEventTarget HTMLFieldSetElement +instance IsSlotable HTMLFieldSetElement +instance IsParentNode HTMLFieldSetElement +instance IsNonDocumentTypeChildNode HTMLFieldSetElement +instance IsDocumentAndElementEventHandlers HTMLFieldSetElement +instance IsChildNode HTMLFieldSetElement +instance IsAnimatable HTMLFieldSetElement +instance IsGlobalEventHandlers HTMLFieldSetElement +instance IsElementCSSInlineStyle HTMLFieldSetElement +instance IsGObject HTMLFieldSetElement where + typeGType _ = gTypeHTMLFieldSetElement + {-# INLINE typeGType #-} + +noHTMLFieldSetElement :: Maybe HTMLFieldSetElement +noHTMLFieldSetElement = Nothing +{-# INLINE noHTMLFieldSetElement #-} + +gTypeHTMLFieldSetElement :: JSM GType +gTypeHTMLFieldSetElement = GType . Object <$> jsg "HTMLFieldSetElement" + +-- | Functions for this inteface are in "JSDOM.HTMLFontElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLFontElement = HTMLFontElement { unHTMLFontElement :: JSVal } + +instance PToJSVal HTMLFontElement where + pToJSVal = unHTMLFontElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLFontElement where + pFromJSVal = HTMLFontElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLFontElement where + toJSVal = return . unHTMLFontElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLFontElement where + fromJSVal v = fmap HTMLFontElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLFontElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLFontElement where + makeObject = makeObject . unHTMLFontElement + +instance IsHTMLElement HTMLFontElement +instance IsElement HTMLFontElement +instance IsNode HTMLFontElement +instance IsEventTarget HTMLFontElement +instance IsSlotable HTMLFontElement +instance IsParentNode HTMLFontElement +instance IsNonDocumentTypeChildNode HTMLFontElement +instance IsDocumentAndElementEventHandlers HTMLFontElement +instance IsChildNode HTMLFontElement +instance IsAnimatable HTMLFontElement +instance IsGlobalEventHandlers HTMLFontElement +instance IsElementCSSInlineStyle HTMLFontElement +instance IsGObject HTMLFontElement where + typeGType _ = gTypeHTMLFontElement + {-# INLINE typeGType #-} + +noHTMLFontElement :: Maybe HTMLFontElement +noHTMLFontElement = Nothing +{-# INLINE noHTMLFontElement #-} + +gTypeHTMLFontElement :: JSM GType +gTypeHTMLFontElement = GType . Object <$> jsg "HTMLFontElement" + +-- | Functions for this inteface are in "JSDOM.HTMLFormControlsCollection". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLCollection" +-- +-- +newtype HTMLFormControlsCollection = HTMLFormControlsCollection { unHTMLFormControlsCollection :: JSVal } + +instance PToJSVal HTMLFormControlsCollection where + pToJSVal = unHTMLFormControlsCollection + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLFormControlsCollection where + pFromJSVal = HTMLFormControlsCollection + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLFormControlsCollection where + toJSVal = return . unHTMLFormControlsCollection + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLFormControlsCollection where + fromJSVal v = fmap HTMLFormControlsCollection <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLFormControlsCollection + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLFormControlsCollection where + makeObject = makeObject . unHTMLFormControlsCollection + +instance IsHTMLCollection HTMLFormControlsCollection +instance IsGObject HTMLFormControlsCollection where + typeGType _ = gTypeHTMLFormControlsCollection + {-# INLINE typeGType #-} + +noHTMLFormControlsCollection :: Maybe HTMLFormControlsCollection +noHTMLFormControlsCollection = Nothing +{-# INLINE noHTMLFormControlsCollection #-} + +gTypeHTMLFormControlsCollection :: JSM GType +gTypeHTMLFormControlsCollection = GType . Object <$> jsg "HTMLFormControlsCollection" + +-- | Functions for this inteface are in "JSDOM.HTMLFormElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLFormElement = HTMLFormElement { unHTMLFormElement :: JSVal } + +instance PToJSVal HTMLFormElement where + pToJSVal = unHTMLFormElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLFormElement where + pFromJSVal = HTMLFormElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLFormElement where + toJSVal = return . unHTMLFormElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLFormElement where + fromJSVal v = fmap HTMLFormElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLFormElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLFormElement where + makeObject = makeObject . unHTMLFormElement + +instance IsHTMLElement HTMLFormElement +instance IsElement HTMLFormElement +instance IsNode HTMLFormElement +instance IsEventTarget HTMLFormElement +instance IsSlotable HTMLFormElement +instance IsParentNode HTMLFormElement +instance IsNonDocumentTypeChildNode HTMLFormElement +instance IsDocumentAndElementEventHandlers HTMLFormElement +instance IsChildNode HTMLFormElement +instance IsAnimatable HTMLFormElement +instance IsGlobalEventHandlers HTMLFormElement +instance IsElementCSSInlineStyle HTMLFormElement +instance IsGObject HTMLFormElement where + typeGType _ = gTypeHTMLFormElement + {-# INLINE typeGType #-} + +noHTMLFormElement :: Maybe HTMLFormElement +noHTMLFormElement = Nothing +{-# INLINE noHTMLFormElement #-} + +gTypeHTMLFormElement :: JSM GType +gTypeHTMLFormElement = GType . Object <$> jsg "HTMLFormElement" + +-- | Functions for this inteface are in "JSDOM.HTMLFrameElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLFrameElement = HTMLFrameElement { unHTMLFrameElement :: JSVal } + +instance PToJSVal HTMLFrameElement where + pToJSVal = unHTMLFrameElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLFrameElement where + pFromJSVal = HTMLFrameElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLFrameElement where + toJSVal = return . unHTMLFrameElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLFrameElement where + fromJSVal v = fmap HTMLFrameElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLFrameElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLFrameElement where + makeObject = makeObject . unHTMLFrameElement + +instance IsHTMLElement HTMLFrameElement +instance IsElement HTMLFrameElement +instance IsNode HTMLFrameElement +instance IsEventTarget HTMLFrameElement +instance IsSlotable HTMLFrameElement +instance IsParentNode HTMLFrameElement +instance IsNonDocumentTypeChildNode HTMLFrameElement +instance IsDocumentAndElementEventHandlers HTMLFrameElement +instance IsChildNode HTMLFrameElement +instance IsAnimatable HTMLFrameElement +instance IsGlobalEventHandlers HTMLFrameElement +instance IsElementCSSInlineStyle HTMLFrameElement +instance IsGObject HTMLFrameElement where + typeGType _ = gTypeHTMLFrameElement + {-# INLINE typeGType #-} + +noHTMLFrameElement :: Maybe HTMLFrameElement +noHTMLFrameElement = Nothing +{-# INLINE noHTMLFrameElement #-} + +gTypeHTMLFrameElement :: JSM GType +gTypeHTMLFrameElement = GType . Object <$> jsg "HTMLFrameElement" + +-- | Functions for this inteface are in "JSDOM.HTMLFrameSetElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.WindowEventHandlers" +-- +-- +newtype HTMLFrameSetElement = HTMLFrameSetElement { unHTMLFrameSetElement :: JSVal } + +instance PToJSVal HTMLFrameSetElement where + pToJSVal = unHTMLFrameSetElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLFrameSetElement where + pFromJSVal = HTMLFrameSetElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLFrameSetElement where + toJSVal = return . unHTMLFrameSetElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLFrameSetElement where + fromJSVal v = fmap HTMLFrameSetElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLFrameSetElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLFrameSetElement where + makeObject = makeObject . unHTMLFrameSetElement + +instance IsHTMLElement HTMLFrameSetElement +instance IsElement HTMLFrameSetElement +instance IsNode HTMLFrameSetElement +instance IsEventTarget HTMLFrameSetElement +instance IsSlotable HTMLFrameSetElement +instance IsParentNode HTMLFrameSetElement +instance IsNonDocumentTypeChildNode HTMLFrameSetElement +instance IsDocumentAndElementEventHandlers HTMLFrameSetElement +instance IsChildNode HTMLFrameSetElement +instance IsAnimatable HTMLFrameSetElement +instance IsGlobalEventHandlers HTMLFrameSetElement +instance IsElementCSSInlineStyle HTMLFrameSetElement +instance IsWindowEventHandlers HTMLFrameSetElement +instance IsGObject HTMLFrameSetElement where + typeGType _ = gTypeHTMLFrameSetElement + {-# INLINE typeGType #-} + +noHTMLFrameSetElement :: Maybe HTMLFrameSetElement +noHTMLFrameSetElement = Nothing +{-# INLINE noHTMLFrameSetElement #-} + +gTypeHTMLFrameSetElement :: JSM GType +gTypeHTMLFrameSetElement = GType . Object <$> jsg "HTMLFrameSetElement" + +-- | Functions for this inteface are in "JSDOM.HTMLHRElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLHRElement = HTMLHRElement { unHTMLHRElement :: JSVal } + +instance PToJSVal HTMLHRElement where + pToJSVal = unHTMLHRElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLHRElement where + pFromJSVal = HTMLHRElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLHRElement where + toJSVal = return . unHTMLHRElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLHRElement where + fromJSVal v = fmap HTMLHRElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLHRElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLHRElement where + makeObject = makeObject . unHTMLHRElement + +instance IsHTMLElement HTMLHRElement +instance IsElement HTMLHRElement +instance IsNode HTMLHRElement +instance IsEventTarget HTMLHRElement +instance IsSlotable HTMLHRElement +instance IsParentNode HTMLHRElement +instance IsNonDocumentTypeChildNode HTMLHRElement +instance IsDocumentAndElementEventHandlers HTMLHRElement +instance IsChildNode HTMLHRElement +instance IsAnimatable HTMLHRElement +instance IsGlobalEventHandlers HTMLHRElement +instance IsElementCSSInlineStyle HTMLHRElement +instance IsGObject HTMLHRElement where + typeGType _ = gTypeHTMLHRElement + {-# INLINE typeGType #-} + +noHTMLHRElement :: Maybe HTMLHRElement +noHTMLHRElement = Nothing +{-# INLINE noHTMLHRElement #-} + +gTypeHTMLHRElement :: JSM GType +gTypeHTMLHRElement = GType . Object <$> jsg "HTMLHRElement" + +-- | Functions for this inteface are in "JSDOM.HTMLHeadElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLHeadElement = HTMLHeadElement { unHTMLHeadElement :: JSVal } + +instance PToJSVal HTMLHeadElement where + pToJSVal = unHTMLHeadElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLHeadElement where + pFromJSVal = HTMLHeadElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLHeadElement where + toJSVal = return . unHTMLHeadElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLHeadElement where + fromJSVal v = fmap HTMLHeadElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLHeadElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLHeadElement where + makeObject = makeObject . unHTMLHeadElement + +instance IsHTMLElement HTMLHeadElement +instance IsElement HTMLHeadElement +instance IsNode HTMLHeadElement +instance IsEventTarget HTMLHeadElement +instance IsSlotable HTMLHeadElement +instance IsParentNode HTMLHeadElement +instance IsNonDocumentTypeChildNode HTMLHeadElement +instance IsDocumentAndElementEventHandlers HTMLHeadElement +instance IsChildNode HTMLHeadElement +instance IsAnimatable HTMLHeadElement +instance IsGlobalEventHandlers HTMLHeadElement +instance IsElementCSSInlineStyle HTMLHeadElement +instance IsGObject HTMLHeadElement where + typeGType _ = gTypeHTMLHeadElement + {-# INLINE typeGType #-} + +noHTMLHeadElement :: Maybe HTMLHeadElement +noHTMLHeadElement = Nothing +{-# INLINE noHTMLHeadElement #-} + +gTypeHTMLHeadElement :: JSM GType +gTypeHTMLHeadElement = GType . Object <$> jsg "HTMLHeadElement" + +-- | Functions for this inteface are in "JSDOM.HTMLHeadingElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLHeadingElement = HTMLHeadingElement { unHTMLHeadingElement :: JSVal } + +instance PToJSVal HTMLHeadingElement where + pToJSVal = unHTMLHeadingElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLHeadingElement where + pFromJSVal = HTMLHeadingElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLHeadingElement where + toJSVal = return . unHTMLHeadingElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLHeadingElement where + fromJSVal v = fmap HTMLHeadingElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLHeadingElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLHeadingElement where + makeObject = makeObject . unHTMLHeadingElement + +instance IsHTMLElement HTMLHeadingElement +instance IsElement HTMLHeadingElement +instance IsNode HTMLHeadingElement +instance IsEventTarget HTMLHeadingElement +instance IsSlotable HTMLHeadingElement +instance IsParentNode HTMLHeadingElement +instance IsNonDocumentTypeChildNode HTMLHeadingElement +instance IsDocumentAndElementEventHandlers HTMLHeadingElement +instance IsChildNode HTMLHeadingElement +instance IsAnimatable HTMLHeadingElement +instance IsGlobalEventHandlers HTMLHeadingElement +instance IsElementCSSInlineStyle HTMLHeadingElement +instance IsGObject HTMLHeadingElement where + typeGType _ = gTypeHTMLHeadingElement + {-# INLINE typeGType #-} + +noHTMLHeadingElement :: Maybe HTMLHeadingElement +noHTMLHeadingElement = Nothing +{-# INLINE noHTMLHeadingElement #-} + +gTypeHTMLHeadingElement :: JSM GType +gTypeHTMLHeadingElement = GType . Object <$> jsg "HTMLHeadingElement" + +-- | Functions for this inteface are in "JSDOM.HTMLHtmlElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLHtmlElement = HTMLHtmlElement { unHTMLHtmlElement :: JSVal } + +instance PToJSVal HTMLHtmlElement where + pToJSVal = unHTMLHtmlElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLHtmlElement where + pFromJSVal = HTMLHtmlElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLHtmlElement where + toJSVal = return . unHTMLHtmlElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLHtmlElement where + fromJSVal v = fmap HTMLHtmlElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLHtmlElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLHtmlElement where + makeObject = makeObject . unHTMLHtmlElement + +instance IsHTMLElement HTMLHtmlElement +instance IsElement HTMLHtmlElement +instance IsNode HTMLHtmlElement +instance IsEventTarget HTMLHtmlElement +instance IsSlotable HTMLHtmlElement +instance IsParentNode HTMLHtmlElement +instance IsNonDocumentTypeChildNode HTMLHtmlElement +instance IsDocumentAndElementEventHandlers HTMLHtmlElement +instance IsChildNode HTMLHtmlElement +instance IsAnimatable HTMLHtmlElement +instance IsGlobalEventHandlers HTMLHtmlElement +instance IsElementCSSInlineStyle HTMLHtmlElement +instance IsGObject HTMLHtmlElement where + typeGType _ = gTypeHTMLHtmlElement + {-# INLINE typeGType #-} + +noHTMLHtmlElement :: Maybe HTMLHtmlElement +noHTMLHtmlElement = Nothing +{-# INLINE noHTMLHtmlElement #-} + +gTypeHTMLHtmlElement :: JSM GType +gTypeHTMLHtmlElement = GType . Object <$> jsg "HTMLHtmlElement" + +-- | Functions for this inteface are in "JSDOM.HTMLHyperlinkElementUtils". +-- +-- +newtype HTMLHyperlinkElementUtils = HTMLHyperlinkElementUtils { unHTMLHyperlinkElementUtils :: JSVal } + +instance PToJSVal HTMLHyperlinkElementUtils where + pToJSVal = unHTMLHyperlinkElementUtils + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLHyperlinkElementUtils where + pFromJSVal = HTMLHyperlinkElementUtils + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLHyperlinkElementUtils where + toJSVal = return . unHTMLHyperlinkElementUtils + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLHyperlinkElementUtils where + fromJSVal v = fmap HTMLHyperlinkElementUtils <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLHyperlinkElementUtils + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLHyperlinkElementUtils where + makeObject = makeObject . unHTMLHyperlinkElementUtils + +class (IsGObject o) => IsHTMLHyperlinkElementUtils o +toHTMLHyperlinkElementUtils :: IsHTMLHyperlinkElementUtils o => o -> HTMLHyperlinkElementUtils +toHTMLHyperlinkElementUtils = HTMLHyperlinkElementUtils . coerce + +instance IsHTMLHyperlinkElementUtils HTMLHyperlinkElementUtils +instance IsGObject HTMLHyperlinkElementUtils where + typeGType _ = gTypeHTMLHyperlinkElementUtils + {-# INLINE typeGType #-} + +noHTMLHyperlinkElementUtils :: Maybe HTMLHyperlinkElementUtils +noHTMLHyperlinkElementUtils = Nothing +{-# INLINE noHTMLHyperlinkElementUtils #-} + +gTypeHTMLHyperlinkElementUtils :: JSM GType +gTypeHTMLHyperlinkElementUtils = GType . Object <$> jsg "HTMLHyperlinkElementUtils" + +-- | Functions for this inteface are in "JSDOM.HTMLIFrameElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLIFrameElement = HTMLIFrameElement { unHTMLIFrameElement :: JSVal } + +instance PToJSVal HTMLIFrameElement where + pToJSVal = unHTMLIFrameElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLIFrameElement where + pFromJSVal = HTMLIFrameElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLIFrameElement where + toJSVal = return . unHTMLIFrameElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLIFrameElement where + fromJSVal v = fmap HTMLIFrameElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLIFrameElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLIFrameElement where + makeObject = makeObject . unHTMLIFrameElement + +instance IsHTMLElement HTMLIFrameElement +instance IsElement HTMLIFrameElement +instance IsNode HTMLIFrameElement +instance IsEventTarget HTMLIFrameElement +instance IsSlotable HTMLIFrameElement +instance IsParentNode HTMLIFrameElement +instance IsNonDocumentTypeChildNode HTMLIFrameElement +instance IsDocumentAndElementEventHandlers HTMLIFrameElement +instance IsChildNode HTMLIFrameElement +instance IsAnimatable HTMLIFrameElement +instance IsGlobalEventHandlers HTMLIFrameElement +instance IsElementCSSInlineStyle HTMLIFrameElement +instance IsGObject HTMLIFrameElement where + typeGType _ = gTypeHTMLIFrameElement + {-# INLINE typeGType #-} + +noHTMLIFrameElement :: Maybe HTMLIFrameElement +noHTMLIFrameElement = Nothing +{-# INLINE noHTMLIFrameElement #-} + +gTypeHTMLIFrameElement :: JSM GType +gTypeHTMLIFrameElement = GType . Object <$> jsg "HTMLIFrameElement" + +-- | Functions for this inteface are in "JSDOM.HTMLImageElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLImageElement = HTMLImageElement { unHTMLImageElement :: JSVal } + +instance PToJSVal HTMLImageElement where + pToJSVal = unHTMLImageElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLImageElement where + pFromJSVal = HTMLImageElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLImageElement where + toJSVal = return . unHTMLImageElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLImageElement where + fromJSVal v = fmap HTMLImageElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLImageElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLImageElement where + makeObject = makeObject . unHTMLImageElement + +instance IsHTMLElement HTMLImageElement +instance IsElement HTMLImageElement +instance IsNode HTMLImageElement +instance IsEventTarget HTMLImageElement +instance IsSlotable HTMLImageElement +instance IsParentNode HTMLImageElement +instance IsNonDocumentTypeChildNode HTMLImageElement +instance IsDocumentAndElementEventHandlers HTMLImageElement +instance IsChildNode HTMLImageElement +instance IsAnimatable HTMLImageElement +instance IsGlobalEventHandlers HTMLImageElement +instance IsElementCSSInlineStyle HTMLImageElement +instance IsGObject HTMLImageElement where + typeGType _ = gTypeHTMLImageElement + {-# INLINE typeGType #-} + +noHTMLImageElement :: Maybe HTMLImageElement +noHTMLImageElement = Nothing +{-# INLINE noHTMLImageElement #-} + +gTypeHTMLImageElement :: JSM GType +gTypeHTMLImageElement = GType . Object <$> jsg "HTMLImageElement" + +-- | Functions for this inteface are in "JSDOM.HTMLInputElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLInputElement = HTMLInputElement { unHTMLInputElement :: JSVal } + +instance PToJSVal HTMLInputElement where + pToJSVal = unHTMLInputElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLInputElement where + pFromJSVal = HTMLInputElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLInputElement where + toJSVal = return . unHTMLInputElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLInputElement where + fromJSVal v = fmap HTMLInputElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLInputElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLInputElement where + makeObject = makeObject . unHTMLInputElement + +instance IsHTMLElement HTMLInputElement +instance IsElement HTMLInputElement +instance IsNode HTMLInputElement +instance IsEventTarget HTMLInputElement +instance IsSlotable HTMLInputElement +instance IsParentNode HTMLInputElement +instance IsNonDocumentTypeChildNode HTMLInputElement +instance IsDocumentAndElementEventHandlers HTMLInputElement +instance IsChildNode HTMLInputElement +instance IsAnimatable HTMLInputElement +instance IsGlobalEventHandlers HTMLInputElement +instance IsElementCSSInlineStyle HTMLInputElement +instance IsGObject HTMLInputElement where + typeGType _ = gTypeHTMLInputElement + {-# INLINE typeGType #-} + +noHTMLInputElement :: Maybe HTMLInputElement +noHTMLInputElement = Nothing +{-# INLINE noHTMLInputElement #-} + +gTypeHTMLInputElement :: JSM GType +gTypeHTMLInputElement = GType . Object <$> jsg "HTMLInputElement" + +-- | Functions for this inteface are in "JSDOM.HTMLKeygenElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLKeygenElement = HTMLKeygenElement { unHTMLKeygenElement :: JSVal } + +instance PToJSVal HTMLKeygenElement where + pToJSVal = unHTMLKeygenElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLKeygenElement where + pFromJSVal = HTMLKeygenElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLKeygenElement where + toJSVal = return . unHTMLKeygenElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLKeygenElement where + fromJSVal v = fmap HTMLKeygenElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLKeygenElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLKeygenElement where + makeObject = makeObject . unHTMLKeygenElement + +instance IsHTMLElement HTMLKeygenElement +instance IsElement HTMLKeygenElement +instance IsNode HTMLKeygenElement +instance IsEventTarget HTMLKeygenElement +instance IsSlotable HTMLKeygenElement +instance IsParentNode HTMLKeygenElement +instance IsNonDocumentTypeChildNode HTMLKeygenElement +instance IsDocumentAndElementEventHandlers HTMLKeygenElement +instance IsChildNode HTMLKeygenElement +instance IsAnimatable HTMLKeygenElement +instance IsGlobalEventHandlers HTMLKeygenElement +instance IsElementCSSInlineStyle HTMLKeygenElement +instance IsGObject HTMLKeygenElement where + typeGType _ = gTypeHTMLKeygenElement + {-# INLINE typeGType #-} + +noHTMLKeygenElement :: Maybe HTMLKeygenElement +noHTMLKeygenElement = Nothing +{-# INLINE noHTMLKeygenElement #-} + +gTypeHTMLKeygenElement :: JSM GType +gTypeHTMLKeygenElement = GType . Object <$> jsg "HTMLKeygenElement" + +-- | Functions for this inteface are in "JSDOM.HTMLLIElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLLIElement = HTMLLIElement { unHTMLLIElement :: JSVal } + +instance PToJSVal HTMLLIElement where + pToJSVal = unHTMLLIElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLLIElement where + pFromJSVal = HTMLLIElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLLIElement where + toJSVal = return . unHTMLLIElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLLIElement where + fromJSVal v = fmap HTMLLIElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLLIElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLLIElement where + makeObject = makeObject . unHTMLLIElement + +instance IsHTMLElement HTMLLIElement +instance IsElement HTMLLIElement +instance IsNode HTMLLIElement +instance IsEventTarget HTMLLIElement +instance IsSlotable HTMLLIElement +instance IsParentNode HTMLLIElement +instance IsNonDocumentTypeChildNode HTMLLIElement +instance IsDocumentAndElementEventHandlers HTMLLIElement +instance IsChildNode HTMLLIElement +instance IsAnimatable HTMLLIElement +instance IsGlobalEventHandlers HTMLLIElement +instance IsElementCSSInlineStyle HTMLLIElement +instance IsGObject HTMLLIElement where + typeGType _ = gTypeHTMLLIElement + {-# INLINE typeGType #-} + +noHTMLLIElement :: Maybe HTMLLIElement +noHTMLLIElement = Nothing +{-# INLINE noHTMLLIElement #-} + +gTypeHTMLLIElement :: JSM GType +gTypeHTMLLIElement = GType . Object <$> jsg "HTMLLIElement" + +-- | Functions for this inteface are in "JSDOM.HTMLLabelElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLLabelElement = HTMLLabelElement { unHTMLLabelElement :: JSVal } + +instance PToJSVal HTMLLabelElement where + pToJSVal = unHTMLLabelElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLLabelElement where + pFromJSVal = HTMLLabelElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLLabelElement where + toJSVal = return . unHTMLLabelElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLLabelElement where + fromJSVal v = fmap HTMLLabelElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLLabelElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLLabelElement where + makeObject = makeObject . unHTMLLabelElement + +instance IsHTMLElement HTMLLabelElement +instance IsElement HTMLLabelElement +instance IsNode HTMLLabelElement +instance IsEventTarget HTMLLabelElement +instance IsSlotable HTMLLabelElement +instance IsParentNode HTMLLabelElement +instance IsNonDocumentTypeChildNode HTMLLabelElement +instance IsDocumentAndElementEventHandlers HTMLLabelElement +instance IsChildNode HTMLLabelElement +instance IsAnimatable HTMLLabelElement +instance IsGlobalEventHandlers HTMLLabelElement +instance IsElementCSSInlineStyle HTMLLabelElement +instance IsGObject HTMLLabelElement where + typeGType _ = gTypeHTMLLabelElement + {-# INLINE typeGType #-} + +noHTMLLabelElement :: Maybe HTMLLabelElement +noHTMLLabelElement = Nothing +{-# INLINE noHTMLLabelElement #-} + +gTypeHTMLLabelElement :: JSM GType +gTypeHTMLLabelElement = GType . Object <$> jsg "HTMLLabelElement" + +-- | Functions for this inteface are in "JSDOM.HTMLLegendElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLLegendElement = HTMLLegendElement { unHTMLLegendElement :: JSVal } + +instance PToJSVal HTMLLegendElement where + pToJSVal = unHTMLLegendElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLLegendElement where + pFromJSVal = HTMLLegendElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLLegendElement where + toJSVal = return . unHTMLLegendElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLLegendElement where + fromJSVal v = fmap HTMLLegendElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLLegendElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLLegendElement where + makeObject = makeObject . unHTMLLegendElement + +instance IsHTMLElement HTMLLegendElement +instance IsElement HTMLLegendElement +instance IsNode HTMLLegendElement +instance IsEventTarget HTMLLegendElement +instance IsSlotable HTMLLegendElement +instance IsParentNode HTMLLegendElement +instance IsNonDocumentTypeChildNode HTMLLegendElement +instance IsDocumentAndElementEventHandlers HTMLLegendElement +instance IsChildNode HTMLLegendElement +instance IsAnimatable HTMLLegendElement +instance IsGlobalEventHandlers HTMLLegendElement +instance IsElementCSSInlineStyle HTMLLegendElement +instance IsGObject HTMLLegendElement where + typeGType _ = gTypeHTMLLegendElement + {-# INLINE typeGType #-} + +noHTMLLegendElement :: Maybe HTMLLegendElement +noHTMLLegendElement = Nothing +{-# INLINE noHTMLLegendElement #-} + +gTypeHTMLLegendElement :: JSM GType +gTypeHTMLLegendElement = GType . Object <$> jsg "HTMLLegendElement" + +-- | Functions for this inteface are in "JSDOM.HTMLLinkElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLLinkElement = HTMLLinkElement { unHTMLLinkElement :: JSVal } + +instance PToJSVal HTMLLinkElement where + pToJSVal = unHTMLLinkElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLLinkElement where + pFromJSVal = HTMLLinkElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLLinkElement where + toJSVal = return . unHTMLLinkElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLLinkElement where + fromJSVal v = fmap HTMLLinkElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLLinkElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLLinkElement where + makeObject = makeObject . unHTMLLinkElement + +instance IsHTMLElement HTMLLinkElement +instance IsElement HTMLLinkElement +instance IsNode HTMLLinkElement +instance IsEventTarget HTMLLinkElement +instance IsSlotable HTMLLinkElement +instance IsParentNode HTMLLinkElement +instance IsNonDocumentTypeChildNode HTMLLinkElement +instance IsDocumentAndElementEventHandlers HTMLLinkElement +instance IsChildNode HTMLLinkElement +instance IsAnimatable HTMLLinkElement +instance IsGlobalEventHandlers HTMLLinkElement +instance IsElementCSSInlineStyle HTMLLinkElement +instance IsGObject HTMLLinkElement where + typeGType _ = gTypeHTMLLinkElement + {-# INLINE typeGType #-} + +noHTMLLinkElement :: Maybe HTMLLinkElement +noHTMLLinkElement = Nothing +{-# INLINE noHTMLLinkElement #-} + +gTypeHTMLLinkElement :: JSM GType +gTypeHTMLLinkElement = GType . Object <$> jsg "HTMLLinkElement" + +-- | Functions for this inteface are in "JSDOM.HTMLMapElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLMapElement = HTMLMapElement { unHTMLMapElement :: JSVal } + +instance PToJSVal HTMLMapElement where + pToJSVal = unHTMLMapElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLMapElement where + pFromJSVal = HTMLMapElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLMapElement where + toJSVal = return . unHTMLMapElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLMapElement where + fromJSVal v = fmap HTMLMapElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLMapElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLMapElement where + makeObject = makeObject . unHTMLMapElement + +instance IsHTMLElement HTMLMapElement +instance IsElement HTMLMapElement +instance IsNode HTMLMapElement +instance IsEventTarget HTMLMapElement +instance IsSlotable HTMLMapElement +instance IsParentNode HTMLMapElement +instance IsNonDocumentTypeChildNode HTMLMapElement +instance IsDocumentAndElementEventHandlers HTMLMapElement +instance IsChildNode HTMLMapElement +instance IsAnimatable HTMLMapElement +instance IsGlobalEventHandlers HTMLMapElement +instance IsElementCSSInlineStyle HTMLMapElement +instance IsGObject HTMLMapElement where + typeGType _ = gTypeHTMLMapElement + {-# INLINE typeGType #-} + +noHTMLMapElement :: Maybe HTMLMapElement +noHTMLMapElement = Nothing +{-# INLINE noHTMLMapElement #-} + +gTypeHTMLMapElement :: JSM GType +gTypeHTMLMapElement = GType . Object <$> jsg "HTMLMapElement" + +-- | Functions for this inteface are in "JSDOM.HTMLMarqueeElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLMarqueeElement = HTMLMarqueeElement { unHTMLMarqueeElement :: JSVal } + +instance PToJSVal HTMLMarqueeElement where + pToJSVal = unHTMLMarqueeElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLMarqueeElement where + pFromJSVal = HTMLMarqueeElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLMarqueeElement where + toJSVal = return . unHTMLMarqueeElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLMarqueeElement where + fromJSVal v = fmap HTMLMarqueeElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLMarqueeElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLMarqueeElement where + makeObject = makeObject . unHTMLMarqueeElement + +instance IsHTMLElement HTMLMarqueeElement +instance IsElement HTMLMarqueeElement +instance IsNode HTMLMarqueeElement +instance IsEventTarget HTMLMarqueeElement +instance IsSlotable HTMLMarqueeElement +instance IsParentNode HTMLMarqueeElement +instance IsNonDocumentTypeChildNode HTMLMarqueeElement +instance IsDocumentAndElementEventHandlers HTMLMarqueeElement +instance IsChildNode HTMLMarqueeElement +instance IsAnimatable HTMLMarqueeElement +instance IsGlobalEventHandlers HTMLMarqueeElement +instance IsElementCSSInlineStyle HTMLMarqueeElement +instance IsGObject HTMLMarqueeElement where + typeGType _ = gTypeHTMLMarqueeElement + {-# INLINE typeGType #-} + +noHTMLMarqueeElement :: Maybe HTMLMarqueeElement +noHTMLMarqueeElement = Nothing +{-# INLINE noHTMLMarqueeElement #-} + +gTypeHTMLMarqueeElement :: JSM GType +gTypeHTMLMarqueeElement = GType . Object <$> jsg "HTMLMarqueeElement" + +-- | Functions for this inteface are in "JSDOM.HTMLMediaElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLMediaElement = HTMLMediaElement { unHTMLMediaElement :: JSVal } + +instance PToJSVal HTMLMediaElement where + pToJSVal = unHTMLMediaElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLMediaElement where + pFromJSVal = HTMLMediaElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLMediaElement where + toJSVal = return . unHTMLMediaElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLMediaElement where + fromJSVal v = fmap HTMLMediaElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLMediaElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLMediaElement where + makeObject = makeObject . unHTMLMediaElement + +class (IsHTMLElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsElementCSSInlineStyle o, IsGObject o) => IsHTMLMediaElement o +toHTMLMediaElement :: IsHTMLMediaElement o => o -> HTMLMediaElement +toHTMLMediaElement = HTMLMediaElement . coerce + +instance IsHTMLMediaElement HTMLMediaElement +instance IsHTMLElement HTMLMediaElement +instance IsElement HTMLMediaElement +instance IsNode HTMLMediaElement +instance IsEventTarget HTMLMediaElement +instance IsSlotable HTMLMediaElement +instance IsParentNode HTMLMediaElement +instance IsNonDocumentTypeChildNode HTMLMediaElement +instance IsDocumentAndElementEventHandlers HTMLMediaElement +instance IsChildNode HTMLMediaElement +instance IsAnimatable HTMLMediaElement +instance IsGlobalEventHandlers HTMLMediaElement +instance IsElementCSSInlineStyle HTMLMediaElement +instance IsGObject HTMLMediaElement where + typeGType _ = gTypeHTMLMediaElement + {-# INLINE typeGType #-} + +noHTMLMediaElement :: Maybe HTMLMediaElement +noHTMLMediaElement = Nothing +{-# INLINE noHTMLMediaElement #-} + +gTypeHTMLMediaElement :: JSM GType +gTypeHTMLMediaElement = GType . Object <$> jsg "HTMLMediaElement" + +-- | Functions for this inteface are in "JSDOM.HTMLMenuElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLMenuElement = HTMLMenuElement { unHTMLMenuElement :: JSVal } + +instance PToJSVal HTMLMenuElement where + pToJSVal = unHTMLMenuElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLMenuElement where + pFromJSVal = HTMLMenuElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLMenuElement where + toJSVal = return . unHTMLMenuElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLMenuElement where + fromJSVal v = fmap HTMLMenuElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLMenuElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLMenuElement where + makeObject = makeObject . unHTMLMenuElement + +instance IsHTMLElement HTMLMenuElement +instance IsElement HTMLMenuElement +instance IsNode HTMLMenuElement +instance IsEventTarget HTMLMenuElement +instance IsSlotable HTMLMenuElement +instance IsParentNode HTMLMenuElement +instance IsNonDocumentTypeChildNode HTMLMenuElement +instance IsDocumentAndElementEventHandlers HTMLMenuElement +instance IsChildNode HTMLMenuElement +instance IsAnimatable HTMLMenuElement +instance IsGlobalEventHandlers HTMLMenuElement +instance IsElementCSSInlineStyle HTMLMenuElement +instance IsGObject HTMLMenuElement where + typeGType _ = gTypeHTMLMenuElement + {-# INLINE typeGType #-} + +noHTMLMenuElement :: Maybe HTMLMenuElement +noHTMLMenuElement = Nothing +{-# INLINE noHTMLMenuElement #-} + +gTypeHTMLMenuElement :: JSM GType +gTypeHTMLMenuElement = GType . Object <$> jsg "HTMLMenuElement" + +-- | Functions for this inteface are in "JSDOM.HTMLMetaElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLMetaElement = HTMLMetaElement { unHTMLMetaElement :: JSVal } + +instance PToJSVal HTMLMetaElement where + pToJSVal = unHTMLMetaElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLMetaElement where + pFromJSVal = HTMLMetaElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLMetaElement where + toJSVal = return . unHTMLMetaElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLMetaElement where + fromJSVal v = fmap HTMLMetaElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLMetaElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLMetaElement where + makeObject = makeObject . unHTMLMetaElement + +instance IsHTMLElement HTMLMetaElement +instance IsElement HTMLMetaElement +instance IsNode HTMLMetaElement +instance IsEventTarget HTMLMetaElement +instance IsSlotable HTMLMetaElement +instance IsParentNode HTMLMetaElement +instance IsNonDocumentTypeChildNode HTMLMetaElement +instance IsDocumentAndElementEventHandlers HTMLMetaElement +instance IsChildNode HTMLMetaElement +instance IsAnimatable HTMLMetaElement +instance IsGlobalEventHandlers HTMLMetaElement +instance IsElementCSSInlineStyle HTMLMetaElement +instance IsGObject HTMLMetaElement where + typeGType _ = gTypeHTMLMetaElement + {-# INLINE typeGType #-} + +noHTMLMetaElement :: Maybe HTMLMetaElement +noHTMLMetaElement = Nothing +{-# INLINE noHTMLMetaElement #-} + +gTypeHTMLMetaElement :: JSM GType +gTypeHTMLMetaElement = GType . Object <$> jsg "HTMLMetaElement" + +-- | Functions for this inteface are in "JSDOM.HTMLMeterElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLMeterElement = HTMLMeterElement { unHTMLMeterElement :: JSVal } + +instance PToJSVal HTMLMeterElement where + pToJSVal = unHTMLMeterElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLMeterElement where + pFromJSVal = HTMLMeterElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLMeterElement where + toJSVal = return . unHTMLMeterElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLMeterElement where + fromJSVal v = fmap HTMLMeterElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLMeterElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLMeterElement where + makeObject = makeObject . unHTMLMeterElement + +instance IsHTMLElement HTMLMeterElement +instance IsElement HTMLMeterElement +instance IsNode HTMLMeterElement +instance IsEventTarget HTMLMeterElement +instance IsSlotable HTMLMeterElement +instance IsParentNode HTMLMeterElement +instance IsNonDocumentTypeChildNode HTMLMeterElement +instance IsDocumentAndElementEventHandlers HTMLMeterElement +instance IsChildNode HTMLMeterElement +instance IsAnimatable HTMLMeterElement +instance IsGlobalEventHandlers HTMLMeterElement +instance IsElementCSSInlineStyle HTMLMeterElement +instance IsGObject HTMLMeterElement where + typeGType _ = gTypeHTMLMeterElement + {-# INLINE typeGType #-} + +noHTMLMeterElement :: Maybe HTMLMeterElement +noHTMLMeterElement = Nothing +{-# INLINE noHTMLMeterElement #-} + +gTypeHTMLMeterElement :: JSM GType +gTypeHTMLMeterElement = GType . Object <$> jsg "HTMLMeterElement" + +-- | Functions for this inteface are in "JSDOM.HTMLModElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLModElement = HTMLModElement { unHTMLModElement :: JSVal } + +instance PToJSVal HTMLModElement where + pToJSVal = unHTMLModElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLModElement where + pFromJSVal = HTMLModElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLModElement where + toJSVal = return . unHTMLModElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLModElement where + fromJSVal v = fmap HTMLModElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLModElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLModElement where + makeObject = makeObject . unHTMLModElement + +instance IsHTMLElement HTMLModElement +instance IsElement HTMLModElement +instance IsNode HTMLModElement +instance IsEventTarget HTMLModElement +instance IsSlotable HTMLModElement +instance IsParentNode HTMLModElement +instance IsNonDocumentTypeChildNode HTMLModElement +instance IsDocumentAndElementEventHandlers HTMLModElement +instance IsChildNode HTMLModElement +instance IsAnimatable HTMLModElement +instance IsGlobalEventHandlers HTMLModElement +instance IsElementCSSInlineStyle HTMLModElement +instance IsGObject HTMLModElement where + typeGType _ = gTypeHTMLModElement + {-# INLINE typeGType #-} + +noHTMLModElement :: Maybe HTMLModElement +noHTMLModElement = Nothing +{-# INLINE noHTMLModElement #-} + +gTypeHTMLModElement :: JSM GType +gTypeHTMLModElement = GType . Object <$> jsg "HTMLModElement" + +-- | Functions for this inteface are in "JSDOM.HTMLOListElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLOListElement = HTMLOListElement { unHTMLOListElement :: JSVal } + +instance PToJSVal HTMLOListElement where + pToJSVal = unHTMLOListElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLOListElement where + pFromJSVal = HTMLOListElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLOListElement where + toJSVal = return . unHTMLOListElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLOListElement where + fromJSVal v = fmap HTMLOListElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLOListElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLOListElement where + makeObject = makeObject . unHTMLOListElement + +instance IsHTMLElement HTMLOListElement +instance IsElement HTMLOListElement +instance IsNode HTMLOListElement +instance IsEventTarget HTMLOListElement +instance IsSlotable HTMLOListElement +instance IsParentNode HTMLOListElement +instance IsNonDocumentTypeChildNode HTMLOListElement +instance IsDocumentAndElementEventHandlers HTMLOListElement +instance IsChildNode HTMLOListElement +instance IsAnimatable HTMLOListElement +instance IsGlobalEventHandlers HTMLOListElement +instance IsElementCSSInlineStyle HTMLOListElement +instance IsGObject HTMLOListElement where + typeGType _ = gTypeHTMLOListElement + {-# INLINE typeGType #-} + +noHTMLOListElement :: Maybe HTMLOListElement +noHTMLOListElement = Nothing +{-# INLINE noHTMLOListElement #-} + +gTypeHTMLOListElement :: JSM GType +gTypeHTMLOListElement = GType . Object <$> jsg "HTMLOListElement" + +-- | Functions for this inteface are in "JSDOM.HTMLObjectElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLObjectElement = HTMLObjectElement { unHTMLObjectElement :: JSVal } + +instance PToJSVal HTMLObjectElement where + pToJSVal = unHTMLObjectElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLObjectElement where + pFromJSVal = HTMLObjectElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLObjectElement where + toJSVal = return . unHTMLObjectElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLObjectElement where + fromJSVal v = fmap HTMLObjectElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLObjectElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLObjectElement where + makeObject = makeObject . unHTMLObjectElement + +instance IsHTMLElement HTMLObjectElement +instance IsElement HTMLObjectElement +instance IsNode HTMLObjectElement +instance IsEventTarget HTMLObjectElement +instance IsSlotable HTMLObjectElement +instance IsParentNode HTMLObjectElement +instance IsNonDocumentTypeChildNode HTMLObjectElement +instance IsDocumentAndElementEventHandlers HTMLObjectElement +instance IsChildNode HTMLObjectElement +instance IsAnimatable HTMLObjectElement +instance IsGlobalEventHandlers HTMLObjectElement +instance IsElementCSSInlineStyle HTMLObjectElement +instance IsGObject HTMLObjectElement where + typeGType _ = gTypeHTMLObjectElement + {-# INLINE typeGType #-} + +noHTMLObjectElement :: Maybe HTMLObjectElement +noHTMLObjectElement = Nothing +{-# INLINE noHTMLObjectElement #-} + +gTypeHTMLObjectElement :: JSM GType +gTypeHTMLObjectElement = GType . Object <$> jsg "HTMLObjectElement" + +-- | Functions for this inteface are in "JSDOM.HTMLOptGroupElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLOptGroupElement = HTMLOptGroupElement { unHTMLOptGroupElement :: JSVal } + +instance PToJSVal HTMLOptGroupElement where + pToJSVal = unHTMLOptGroupElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLOptGroupElement where + pFromJSVal = HTMLOptGroupElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLOptGroupElement where + toJSVal = return . unHTMLOptGroupElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLOptGroupElement where + fromJSVal v = fmap HTMLOptGroupElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLOptGroupElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLOptGroupElement where + makeObject = makeObject . unHTMLOptGroupElement + +instance IsHTMLElement HTMLOptGroupElement +instance IsElement HTMLOptGroupElement +instance IsNode HTMLOptGroupElement +instance IsEventTarget HTMLOptGroupElement +instance IsSlotable HTMLOptGroupElement +instance IsParentNode HTMLOptGroupElement +instance IsNonDocumentTypeChildNode HTMLOptGroupElement +instance IsDocumentAndElementEventHandlers HTMLOptGroupElement +instance IsChildNode HTMLOptGroupElement +instance IsAnimatable HTMLOptGroupElement +instance IsGlobalEventHandlers HTMLOptGroupElement +instance IsElementCSSInlineStyle HTMLOptGroupElement +instance IsGObject HTMLOptGroupElement where + typeGType _ = gTypeHTMLOptGroupElement + {-# INLINE typeGType #-} + +noHTMLOptGroupElement :: Maybe HTMLOptGroupElement +noHTMLOptGroupElement = Nothing +{-# INLINE noHTMLOptGroupElement #-} + +gTypeHTMLOptGroupElement :: JSM GType +gTypeHTMLOptGroupElement = GType . Object <$> jsg "HTMLOptGroupElement" + +-- | Functions for this inteface are in "JSDOM.HTMLOptionElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLOptionElement = HTMLOptionElement { unHTMLOptionElement :: JSVal } + +instance PToJSVal HTMLOptionElement where + pToJSVal = unHTMLOptionElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLOptionElement where + pFromJSVal = HTMLOptionElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLOptionElement where + toJSVal = return . unHTMLOptionElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLOptionElement where + fromJSVal v = fmap HTMLOptionElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLOptionElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLOptionElement where + makeObject = makeObject . unHTMLOptionElement + +instance IsHTMLElement HTMLOptionElement +instance IsElement HTMLOptionElement +instance IsNode HTMLOptionElement +instance IsEventTarget HTMLOptionElement +instance IsSlotable HTMLOptionElement +instance IsParentNode HTMLOptionElement +instance IsNonDocumentTypeChildNode HTMLOptionElement +instance IsDocumentAndElementEventHandlers HTMLOptionElement +instance IsChildNode HTMLOptionElement +instance IsAnimatable HTMLOptionElement +instance IsGlobalEventHandlers HTMLOptionElement +instance IsElementCSSInlineStyle HTMLOptionElement +instance IsGObject HTMLOptionElement where + typeGType _ = gTypeHTMLOptionElement + {-# INLINE typeGType #-} + +noHTMLOptionElement :: Maybe HTMLOptionElement +noHTMLOptionElement = Nothing +{-# INLINE noHTMLOptionElement #-} + +gTypeHTMLOptionElement :: JSM GType +gTypeHTMLOptionElement = GType . Object <$> jsg "HTMLOptionElement" + +-- | Functions for this inteface are in "JSDOM.HTMLOptionsCollection". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLCollection" +-- +-- +newtype HTMLOptionsCollection = HTMLOptionsCollection { unHTMLOptionsCollection :: JSVal } + +instance PToJSVal HTMLOptionsCollection where + pToJSVal = unHTMLOptionsCollection + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLOptionsCollection where + pFromJSVal = HTMLOptionsCollection + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLOptionsCollection where + toJSVal = return . unHTMLOptionsCollection + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLOptionsCollection where + fromJSVal v = fmap HTMLOptionsCollection <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLOptionsCollection + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLOptionsCollection where + makeObject = makeObject . unHTMLOptionsCollection + +instance IsHTMLCollection HTMLOptionsCollection +instance IsGObject HTMLOptionsCollection where + typeGType _ = gTypeHTMLOptionsCollection + {-# INLINE typeGType #-} + +noHTMLOptionsCollection :: Maybe HTMLOptionsCollection +noHTMLOptionsCollection = Nothing +{-# INLINE noHTMLOptionsCollection #-} + +gTypeHTMLOptionsCollection :: JSM GType +gTypeHTMLOptionsCollection = GType . Object <$> jsg "HTMLOptionsCollection" + +-- | Functions for this inteface are in "JSDOM.HTMLOutputElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLOutputElement = HTMLOutputElement { unHTMLOutputElement :: JSVal } + +instance PToJSVal HTMLOutputElement where + pToJSVal = unHTMLOutputElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLOutputElement where + pFromJSVal = HTMLOutputElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLOutputElement where + toJSVal = return . unHTMLOutputElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLOutputElement where + fromJSVal v = fmap HTMLOutputElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLOutputElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLOutputElement where + makeObject = makeObject . unHTMLOutputElement + +instance IsHTMLElement HTMLOutputElement +instance IsElement HTMLOutputElement +instance IsNode HTMLOutputElement +instance IsEventTarget HTMLOutputElement +instance IsSlotable HTMLOutputElement +instance IsParentNode HTMLOutputElement +instance IsNonDocumentTypeChildNode HTMLOutputElement +instance IsDocumentAndElementEventHandlers HTMLOutputElement +instance IsChildNode HTMLOutputElement +instance IsAnimatable HTMLOutputElement +instance IsGlobalEventHandlers HTMLOutputElement +instance IsElementCSSInlineStyle HTMLOutputElement +instance IsGObject HTMLOutputElement where + typeGType _ = gTypeHTMLOutputElement + {-# INLINE typeGType #-} + +noHTMLOutputElement :: Maybe HTMLOutputElement +noHTMLOutputElement = Nothing +{-# INLINE noHTMLOutputElement #-} + +gTypeHTMLOutputElement :: JSM GType +gTypeHTMLOutputElement = GType . Object <$> jsg "HTMLOutputElement" + +-- | Functions for this inteface are in "JSDOM.HTMLParagraphElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLParagraphElement = HTMLParagraphElement { unHTMLParagraphElement :: JSVal } + +instance PToJSVal HTMLParagraphElement where + pToJSVal = unHTMLParagraphElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLParagraphElement where + pFromJSVal = HTMLParagraphElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLParagraphElement where + toJSVal = return . unHTMLParagraphElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLParagraphElement where + fromJSVal v = fmap HTMLParagraphElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLParagraphElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLParagraphElement where + makeObject = makeObject . unHTMLParagraphElement + +instance IsHTMLElement HTMLParagraphElement +instance IsElement HTMLParagraphElement +instance IsNode HTMLParagraphElement +instance IsEventTarget HTMLParagraphElement +instance IsSlotable HTMLParagraphElement +instance IsParentNode HTMLParagraphElement +instance IsNonDocumentTypeChildNode HTMLParagraphElement +instance IsDocumentAndElementEventHandlers HTMLParagraphElement +instance IsChildNode HTMLParagraphElement +instance IsAnimatable HTMLParagraphElement +instance IsGlobalEventHandlers HTMLParagraphElement +instance IsElementCSSInlineStyle HTMLParagraphElement +instance IsGObject HTMLParagraphElement where + typeGType _ = gTypeHTMLParagraphElement + {-# INLINE typeGType #-} + +noHTMLParagraphElement :: Maybe HTMLParagraphElement +noHTMLParagraphElement = Nothing +{-# INLINE noHTMLParagraphElement #-} + +gTypeHTMLParagraphElement :: JSM GType +gTypeHTMLParagraphElement = GType . Object <$> jsg "HTMLParagraphElement" + +-- | Functions for this inteface are in "JSDOM.HTMLParamElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLParamElement = HTMLParamElement { unHTMLParamElement :: JSVal } + +instance PToJSVal HTMLParamElement where + pToJSVal = unHTMLParamElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLParamElement where + pFromJSVal = HTMLParamElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLParamElement where + toJSVal = return . unHTMLParamElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLParamElement where + fromJSVal v = fmap HTMLParamElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLParamElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLParamElement where + makeObject = makeObject . unHTMLParamElement + +instance IsHTMLElement HTMLParamElement +instance IsElement HTMLParamElement +instance IsNode HTMLParamElement +instance IsEventTarget HTMLParamElement +instance IsSlotable HTMLParamElement +instance IsParentNode HTMLParamElement +instance IsNonDocumentTypeChildNode HTMLParamElement +instance IsDocumentAndElementEventHandlers HTMLParamElement +instance IsChildNode HTMLParamElement +instance IsAnimatable HTMLParamElement +instance IsGlobalEventHandlers HTMLParamElement +instance IsElementCSSInlineStyle HTMLParamElement +instance IsGObject HTMLParamElement where + typeGType _ = gTypeHTMLParamElement + {-# INLINE typeGType #-} + +noHTMLParamElement :: Maybe HTMLParamElement +noHTMLParamElement = Nothing +{-# INLINE noHTMLParamElement #-} + +gTypeHTMLParamElement :: JSM GType +gTypeHTMLParamElement = GType . Object <$> jsg "HTMLParamElement" + +-- | Functions for this inteface are in "JSDOM.HTMLPictureElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLPictureElement = HTMLPictureElement { unHTMLPictureElement :: JSVal } + +instance PToJSVal HTMLPictureElement where + pToJSVal = unHTMLPictureElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLPictureElement where + pFromJSVal = HTMLPictureElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLPictureElement where + toJSVal = return . unHTMLPictureElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLPictureElement where + fromJSVal v = fmap HTMLPictureElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLPictureElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLPictureElement where + makeObject = makeObject . unHTMLPictureElement + +instance IsHTMLElement HTMLPictureElement +instance IsElement HTMLPictureElement +instance IsNode HTMLPictureElement +instance IsEventTarget HTMLPictureElement +instance IsSlotable HTMLPictureElement +instance IsParentNode HTMLPictureElement +instance IsNonDocumentTypeChildNode HTMLPictureElement +instance IsDocumentAndElementEventHandlers HTMLPictureElement +instance IsChildNode HTMLPictureElement +instance IsAnimatable HTMLPictureElement +instance IsGlobalEventHandlers HTMLPictureElement +instance IsElementCSSInlineStyle HTMLPictureElement +instance IsGObject HTMLPictureElement where + typeGType _ = gTypeHTMLPictureElement + {-# INLINE typeGType #-} + +noHTMLPictureElement :: Maybe HTMLPictureElement +noHTMLPictureElement = Nothing +{-# INLINE noHTMLPictureElement #-} + +gTypeHTMLPictureElement :: JSM GType +gTypeHTMLPictureElement = GType . Object <$> jsg "HTMLPictureElement" + +-- | Functions for this inteface are in "JSDOM.HTMLPreElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLPreElement = HTMLPreElement { unHTMLPreElement :: JSVal } + +instance PToJSVal HTMLPreElement where + pToJSVal = unHTMLPreElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLPreElement where + pFromJSVal = HTMLPreElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLPreElement where + toJSVal = return . unHTMLPreElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLPreElement where + fromJSVal v = fmap HTMLPreElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLPreElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLPreElement where + makeObject = makeObject . unHTMLPreElement + +instance IsHTMLElement HTMLPreElement +instance IsElement HTMLPreElement +instance IsNode HTMLPreElement +instance IsEventTarget HTMLPreElement +instance IsSlotable HTMLPreElement +instance IsParentNode HTMLPreElement +instance IsNonDocumentTypeChildNode HTMLPreElement +instance IsDocumentAndElementEventHandlers HTMLPreElement +instance IsChildNode HTMLPreElement +instance IsAnimatable HTMLPreElement +instance IsGlobalEventHandlers HTMLPreElement +instance IsElementCSSInlineStyle HTMLPreElement +instance IsGObject HTMLPreElement where + typeGType _ = gTypeHTMLPreElement + {-# INLINE typeGType #-} + +noHTMLPreElement :: Maybe HTMLPreElement +noHTMLPreElement = Nothing +{-# INLINE noHTMLPreElement #-} + +gTypeHTMLPreElement :: JSM GType +gTypeHTMLPreElement = GType . Object <$> jsg "HTMLPreElement" + +-- | Functions for this inteface are in "JSDOM.HTMLProgressElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLProgressElement = HTMLProgressElement { unHTMLProgressElement :: JSVal } + +instance PToJSVal HTMLProgressElement where + pToJSVal = unHTMLProgressElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLProgressElement where + pFromJSVal = HTMLProgressElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLProgressElement where + toJSVal = return . unHTMLProgressElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLProgressElement where + fromJSVal v = fmap HTMLProgressElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLProgressElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLProgressElement where + makeObject = makeObject . unHTMLProgressElement + +instance IsHTMLElement HTMLProgressElement +instance IsElement HTMLProgressElement +instance IsNode HTMLProgressElement +instance IsEventTarget HTMLProgressElement +instance IsSlotable HTMLProgressElement +instance IsParentNode HTMLProgressElement +instance IsNonDocumentTypeChildNode HTMLProgressElement +instance IsDocumentAndElementEventHandlers HTMLProgressElement +instance IsChildNode HTMLProgressElement +instance IsAnimatable HTMLProgressElement +instance IsGlobalEventHandlers HTMLProgressElement +instance IsElementCSSInlineStyle HTMLProgressElement +instance IsGObject HTMLProgressElement where + typeGType _ = gTypeHTMLProgressElement + {-# INLINE typeGType #-} + +noHTMLProgressElement :: Maybe HTMLProgressElement +noHTMLProgressElement = Nothing +{-# INLINE noHTMLProgressElement #-} + +gTypeHTMLProgressElement :: JSM GType +gTypeHTMLProgressElement = GType . Object <$> jsg "HTMLProgressElement" + +-- | Functions for this inteface are in "JSDOM.HTMLQuoteElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLQuoteElement = HTMLQuoteElement { unHTMLQuoteElement :: JSVal } + +instance PToJSVal HTMLQuoteElement where + pToJSVal = unHTMLQuoteElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLQuoteElement where + pFromJSVal = HTMLQuoteElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLQuoteElement where + toJSVal = return . unHTMLQuoteElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLQuoteElement where + fromJSVal v = fmap HTMLQuoteElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLQuoteElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLQuoteElement where + makeObject = makeObject . unHTMLQuoteElement + +instance IsHTMLElement HTMLQuoteElement +instance IsElement HTMLQuoteElement +instance IsNode HTMLQuoteElement +instance IsEventTarget HTMLQuoteElement +instance IsSlotable HTMLQuoteElement +instance IsParentNode HTMLQuoteElement +instance IsNonDocumentTypeChildNode HTMLQuoteElement +instance IsDocumentAndElementEventHandlers HTMLQuoteElement +instance IsChildNode HTMLQuoteElement +instance IsAnimatable HTMLQuoteElement +instance IsGlobalEventHandlers HTMLQuoteElement +instance IsElementCSSInlineStyle HTMLQuoteElement +instance IsGObject HTMLQuoteElement where + typeGType _ = gTypeHTMLQuoteElement + {-# INLINE typeGType #-} + +noHTMLQuoteElement :: Maybe HTMLQuoteElement +noHTMLQuoteElement = Nothing +{-# INLINE noHTMLQuoteElement #-} + +gTypeHTMLQuoteElement :: JSM GType +gTypeHTMLQuoteElement = GType . Object <$> jsg "HTMLQuoteElement" + +-- | Functions for this inteface are in "JSDOM.HTMLScriptElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLScriptElement = HTMLScriptElement { unHTMLScriptElement :: JSVal } + +instance PToJSVal HTMLScriptElement where + pToJSVal = unHTMLScriptElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLScriptElement where + pFromJSVal = HTMLScriptElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLScriptElement where + toJSVal = return . unHTMLScriptElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLScriptElement where + fromJSVal v = fmap HTMLScriptElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLScriptElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLScriptElement where + makeObject = makeObject . unHTMLScriptElement + +instance IsHTMLElement HTMLScriptElement +instance IsElement HTMLScriptElement +instance IsNode HTMLScriptElement +instance IsEventTarget HTMLScriptElement +instance IsSlotable HTMLScriptElement +instance IsParentNode HTMLScriptElement +instance IsNonDocumentTypeChildNode HTMLScriptElement +instance IsDocumentAndElementEventHandlers HTMLScriptElement +instance IsChildNode HTMLScriptElement +instance IsAnimatable HTMLScriptElement +instance IsGlobalEventHandlers HTMLScriptElement +instance IsElementCSSInlineStyle HTMLScriptElement +instance IsGObject HTMLScriptElement where + typeGType _ = gTypeHTMLScriptElement + {-# INLINE typeGType #-} + +noHTMLScriptElement :: Maybe HTMLScriptElement +noHTMLScriptElement = Nothing +{-# INLINE noHTMLScriptElement #-} + +gTypeHTMLScriptElement :: JSM GType +gTypeHTMLScriptElement = GType . Object <$> jsg "HTMLScriptElement" + +-- | Functions for this inteface are in "JSDOM.HTMLSelectElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLSelectElement = HTMLSelectElement { unHTMLSelectElement :: JSVal } + +instance PToJSVal HTMLSelectElement where + pToJSVal = unHTMLSelectElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLSelectElement where + pFromJSVal = HTMLSelectElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLSelectElement where + toJSVal = return . unHTMLSelectElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLSelectElement where + fromJSVal v = fmap HTMLSelectElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLSelectElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLSelectElement where + makeObject = makeObject . unHTMLSelectElement + +instance IsHTMLElement HTMLSelectElement +instance IsElement HTMLSelectElement +instance IsNode HTMLSelectElement +instance IsEventTarget HTMLSelectElement +instance IsSlotable HTMLSelectElement +instance IsParentNode HTMLSelectElement +instance IsNonDocumentTypeChildNode HTMLSelectElement +instance IsDocumentAndElementEventHandlers HTMLSelectElement +instance IsChildNode HTMLSelectElement +instance IsAnimatable HTMLSelectElement +instance IsGlobalEventHandlers HTMLSelectElement +instance IsElementCSSInlineStyle HTMLSelectElement +instance IsGObject HTMLSelectElement where + typeGType _ = gTypeHTMLSelectElement + {-# INLINE typeGType #-} + +noHTMLSelectElement :: Maybe HTMLSelectElement +noHTMLSelectElement = Nothing +{-# INLINE noHTMLSelectElement #-} + +gTypeHTMLSelectElement :: JSM GType +gTypeHTMLSelectElement = GType . Object <$> jsg "HTMLSelectElement" + +-- | Functions for this inteface are in "JSDOM.HTMLSlotElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLSlotElement = HTMLSlotElement { unHTMLSlotElement :: JSVal } + +instance PToJSVal HTMLSlotElement where + pToJSVal = unHTMLSlotElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLSlotElement where + pFromJSVal = HTMLSlotElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLSlotElement where + toJSVal = return . unHTMLSlotElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLSlotElement where + fromJSVal v = fmap HTMLSlotElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLSlotElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLSlotElement where + makeObject = makeObject . unHTMLSlotElement + +instance IsHTMLElement HTMLSlotElement +instance IsElement HTMLSlotElement +instance IsNode HTMLSlotElement +instance IsEventTarget HTMLSlotElement +instance IsSlotable HTMLSlotElement +instance IsParentNode HTMLSlotElement +instance IsNonDocumentTypeChildNode HTMLSlotElement +instance IsDocumentAndElementEventHandlers HTMLSlotElement +instance IsChildNode HTMLSlotElement +instance IsAnimatable HTMLSlotElement +instance IsGlobalEventHandlers HTMLSlotElement +instance IsElementCSSInlineStyle HTMLSlotElement +instance IsGObject HTMLSlotElement where + typeGType _ = gTypeHTMLSlotElement + {-# INLINE typeGType #-} + +noHTMLSlotElement :: Maybe HTMLSlotElement +noHTMLSlotElement = Nothing +{-# INLINE noHTMLSlotElement #-} + +gTypeHTMLSlotElement :: JSM GType +gTypeHTMLSlotElement = GType . Object <$> jsg "HTMLSlotElement" + +-- | Functions for this inteface are in "JSDOM.HTMLSourceElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLSourceElement = HTMLSourceElement { unHTMLSourceElement :: JSVal } + +instance PToJSVal HTMLSourceElement where + pToJSVal = unHTMLSourceElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLSourceElement where + pFromJSVal = HTMLSourceElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLSourceElement where + toJSVal = return . unHTMLSourceElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLSourceElement where + fromJSVal v = fmap HTMLSourceElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLSourceElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLSourceElement where + makeObject = makeObject . unHTMLSourceElement + +instance IsHTMLElement HTMLSourceElement +instance IsElement HTMLSourceElement +instance IsNode HTMLSourceElement +instance IsEventTarget HTMLSourceElement +instance IsSlotable HTMLSourceElement +instance IsParentNode HTMLSourceElement +instance IsNonDocumentTypeChildNode HTMLSourceElement +instance IsDocumentAndElementEventHandlers HTMLSourceElement +instance IsChildNode HTMLSourceElement +instance IsAnimatable HTMLSourceElement +instance IsGlobalEventHandlers HTMLSourceElement +instance IsElementCSSInlineStyle HTMLSourceElement +instance IsGObject HTMLSourceElement where + typeGType _ = gTypeHTMLSourceElement + {-# INLINE typeGType #-} + +noHTMLSourceElement :: Maybe HTMLSourceElement +noHTMLSourceElement = Nothing +{-# INLINE noHTMLSourceElement #-} + +gTypeHTMLSourceElement :: JSM GType +gTypeHTMLSourceElement = GType . Object <$> jsg "HTMLSourceElement" + +-- | Functions for this inteface are in "JSDOM.HTMLSpanElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLSpanElement = HTMLSpanElement { unHTMLSpanElement :: JSVal } + +instance PToJSVal HTMLSpanElement where + pToJSVal = unHTMLSpanElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLSpanElement where + pFromJSVal = HTMLSpanElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLSpanElement where + toJSVal = return . unHTMLSpanElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLSpanElement where + fromJSVal v = fmap HTMLSpanElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLSpanElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLSpanElement where + makeObject = makeObject . unHTMLSpanElement + +instance IsHTMLElement HTMLSpanElement +instance IsElement HTMLSpanElement +instance IsNode HTMLSpanElement +instance IsEventTarget HTMLSpanElement +instance IsSlotable HTMLSpanElement +instance IsParentNode HTMLSpanElement +instance IsNonDocumentTypeChildNode HTMLSpanElement +instance IsDocumentAndElementEventHandlers HTMLSpanElement +instance IsChildNode HTMLSpanElement +instance IsAnimatable HTMLSpanElement +instance IsGlobalEventHandlers HTMLSpanElement +instance IsElementCSSInlineStyle HTMLSpanElement +instance IsGObject HTMLSpanElement where + typeGType _ = gTypeHTMLSpanElement + {-# INLINE typeGType #-} + +noHTMLSpanElement :: Maybe HTMLSpanElement +noHTMLSpanElement = Nothing +{-# INLINE noHTMLSpanElement #-} + +gTypeHTMLSpanElement :: JSM GType +gTypeHTMLSpanElement = GType . Object <$> jsg "HTMLSpanElement" + +-- | Functions for this inteface are in "JSDOM.HTMLStyleElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLStyleElement = HTMLStyleElement { unHTMLStyleElement :: JSVal } + +instance PToJSVal HTMLStyleElement where + pToJSVal = unHTMLStyleElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLStyleElement where + pFromJSVal = HTMLStyleElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLStyleElement where + toJSVal = return . unHTMLStyleElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLStyleElement where + fromJSVal v = fmap HTMLStyleElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLStyleElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLStyleElement where + makeObject = makeObject . unHTMLStyleElement + +instance IsHTMLElement HTMLStyleElement +instance IsElement HTMLStyleElement +instance IsNode HTMLStyleElement +instance IsEventTarget HTMLStyleElement +instance IsSlotable HTMLStyleElement +instance IsParentNode HTMLStyleElement +instance IsNonDocumentTypeChildNode HTMLStyleElement +instance IsDocumentAndElementEventHandlers HTMLStyleElement +instance IsChildNode HTMLStyleElement +instance IsAnimatable HTMLStyleElement +instance IsGlobalEventHandlers HTMLStyleElement +instance IsElementCSSInlineStyle HTMLStyleElement +instance IsGObject HTMLStyleElement where + typeGType _ = gTypeHTMLStyleElement + {-# INLINE typeGType #-} + +noHTMLStyleElement :: Maybe HTMLStyleElement +noHTMLStyleElement = Nothing +{-# INLINE noHTMLStyleElement #-} + +gTypeHTMLStyleElement :: JSM GType +gTypeHTMLStyleElement = GType . Object <$> jsg "HTMLStyleElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTableCaptionElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTableCaptionElement = HTMLTableCaptionElement { unHTMLTableCaptionElement :: JSVal } + +instance PToJSVal HTMLTableCaptionElement where + pToJSVal = unHTMLTableCaptionElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTableCaptionElement where + pFromJSVal = HTMLTableCaptionElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTableCaptionElement where + toJSVal = return . unHTMLTableCaptionElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTableCaptionElement where + fromJSVal v = fmap HTMLTableCaptionElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTableCaptionElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTableCaptionElement where + makeObject = makeObject . unHTMLTableCaptionElement + +instance IsHTMLElement HTMLTableCaptionElement +instance IsElement HTMLTableCaptionElement +instance IsNode HTMLTableCaptionElement +instance IsEventTarget HTMLTableCaptionElement +instance IsSlotable HTMLTableCaptionElement +instance IsParentNode HTMLTableCaptionElement +instance IsNonDocumentTypeChildNode HTMLTableCaptionElement +instance IsDocumentAndElementEventHandlers HTMLTableCaptionElement +instance IsChildNode HTMLTableCaptionElement +instance IsAnimatable HTMLTableCaptionElement +instance IsGlobalEventHandlers HTMLTableCaptionElement +instance IsElementCSSInlineStyle HTMLTableCaptionElement +instance IsGObject HTMLTableCaptionElement where + typeGType _ = gTypeHTMLTableCaptionElement + {-# INLINE typeGType #-} + +noHTMLTableCaptionElement :: Maybe HTMLTableCaptionElement +noHTMLTableCaptionElement = Nothing +{-# INLINE noHTMLTableCaptionElement #-} + +gTypeHTMLTableCaptionElement :: JSM GType +gTypeHTMLTableCaptionElement = GType . Object <$> jsg "HTMLTableCaptionElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTableCellElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTableCellElement = HTMLTableCellElement { unHTMLTableCellElement :: JSVal } + +instance PToJSVal HTMLTableCellElement where + pToJSVal = unHTMLTableCellElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTableCellElement where + pFromJSVal = HTMLTableCellElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTableCellElement where + toJSVal = return . unHTMLTableCellElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTableCellElement where + fromJSVal v = fmap HTMLTableCellElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTableCellElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTableCellElement where + makeObject = makeObject . unHTMLTableCellElement + +instance IsHTMLElement HTMLTableCellElement +instance IsElement HTMLTableCellElement +instance IsNode HTMLTableCellElement +instance IsEventTarget HTMLTableCellElement +instance IsSlotable HTMLTableCellElement +instance IsParentNode HTMLTableCellElement +instance IsNonDocumentTypeChildNode HTMLTableCellElement +instance IsDocumentAndElementEventHandlers HTMLTableCellElement +instance IsChildNode HTMLTableCellElement +instance IsAnimatable HTMLTableCellElement +instance IsGlobalEventHandlers HTMLTableCellElement +instance IsElementCSSInlineStyle HTMLTableCellElement +instance IsGObject HTMLTableCellElement where + typeGType _ = gTypeHTMLTableCellElement + {-# INLINE typeGType #-} + +noHTMLTableCellElement :: Maybe HTMLTableCellElement +noHTMLTableCellElement = Nothing +{-# INLINE noHTMLTableCellElement #-} + +gTypeHTMLTableCellElement :: JSM GType +gTypeHTMLTableCellElement = GType . Object <$> jsg "HTMLTableCellElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTableColElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTableColElement = HTMLTableColElement { unHTMLTableColElement :: JSVal } + +instance PToJSVal HTMLTableColElement where + pToJSVal = unHTMLTableColElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTableColElement where + pFromJSVal = HTMLTableColElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTableColElement where + toJSVal = return . unHTMLTableColElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTableColElement where + fromJSVal v = fmap HTMLTableColElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTableColElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTableColElement where + makeObject = makeObject . unHTMLTableColElement + +instance IsHTMLElement HTMLTableColElement +instance IsElement HTMLTableColElement +instance IsNode HTMLTableColElement +instance IsEventTarget HTMLTableColElement +instance IsSlotable HTMLTableColElement +instance IsParentNode HTMLTableColElement +instance IsNonDocumentTypeChildNode HTMLTableColElement +instance IsDocumentAndElementEventHandlers HTMLTableColElement +instance IsChildNode HTMLTableColElement +instance IsAnimatable HTMLTableColElement +instance IsGlobalEventHandlers HTMLTableColElement +instance IsElementCSSInlineStyle HTMLTableColElement +instance IsGObject HTMLTableColElement where + typeGType _ = gTypeHTMLTableColElement + {-# INLINE typeGType #-} + +noHTMLTableColElement :: Maybe HTMLTableColElement +noHTMLTableColElement = Nothing +{-# INLINE noHTMLTableColElement #-} + +gTypeHTMLTableColElement :: JSM GType +gTypeHTMLTableColElement = GType . Object <$> jsg "HTMLTableColElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTableElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTableElement = HTMLTableElement { unHTMLTableElement :: JSVal } + +instance PToJSVal HTMLTableElement where + pToJSVal = unHTMLTableElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTableElement where + pFromJSVal = HTMLTableElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTableElement where + toJSVal = return . unHTMLTableElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTableElement where + fromJSVal v = fmap HTMLTableElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTableElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTableElement where + makeObject = makeObject . unHTMLTableElement + +instance IsHTMLElement HTMLTableElement +instance IsElement HTMLTableElement +instance IsNode HTMLTableElement +instance IsEventTarget HTMLTableElement +instance IsSlotable HTMLTableElement +instance IsParentNode HTMLTableElement +instance IsNonDocumentTypeChildNode HTMLTableElement +instance IsDocumentAndElementEventHandlers HTMLTableElement +instance IsChildNode HTMLTableElement +instance IsAnimatable HTMLTableElement +instance IsGlobalEventHandlers HTMLTableElement +instance IsElementCSSInlineStyle HTMLTableElement +instance IsGObject HTMLTableElement where + typeGType _ = gTypeHTMLTableElement + {-# INLINE typeGType #-} + +noHTMLTableElement :: Maybe HTMLTableElement +noHTMLTableElement = Nothing +{-# INLINE noHTMLTableElement #-} + +gTypeHTMLTableElement :: JSM GType +gTypeHTMLTableElement = GType . Object <$> jsg "HTMLTableElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTableRowElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTableRowElement = HTMLTableRowElement { unHTMLTableRowElement :: JSVal } + +instance PToJSVal HTMLTableRowElement where + pToJSVal = unHTMLTableRowElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTableRowElement where + pFromJSVal = HTMLTableRowElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTableRowElement where + toJSVal = return . unHTMLTableRowElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTableRowElement where + fromJSVal v = fmap HTMLTableRowElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTableRowElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTableRowElement where + makeObject = makeObject . unHTMLTableRowElement + +instance IsHTMLElement HTMLTableRowElement +instance IsElement HTMLTableRowElement +instance IsNode HTMLTableRowElement +instance IsEventTarget HTMLTableRowElement +instance IsSlotable HTMLTableRowElement +instance IsParentNode HTMLTableRowElement +instance IsNonDocumentTypeChildNode HTMLTableRowElement +instance IsDocumentAndElementEventHandlers HTMLTableRowElement +instance IsChildNode HTMLTableRowElement +instance IsAnimatable HTMLTableRowElement +instance IsGlobalEventHandlers HTMLTableRowElement +instance IsElementCSSInlineStyle HTMLTableRowElement +instance IsGObject HTMLTableRowElement where + typeGType _ = gTypeHTMLTableRowElement + {-# INLINE typeGType #-} + +noHTMLTableRowElement :: Maybe HTMLTableRowElement +noHTMLTableRowElement = Nothing +{-# INLINE noHTMLTableRowElement #-} + +gTypeHTMLTableRowElement :: JSM GType +gTypeHTMLTableRowElement = GType . Object <$> jsg "HTMLTableRowElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTableSectionElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTableSectionElement = HTMLTableSectionElement { unHTMLTableSectionElement :: JSVal } + +instance PToJSVal HTMLTableSectionElement where + pToJSVal = unHTMLTableSectionElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTableSectionElement where + pFromJSVal = HTMLTableSectionElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTableSectionElement where + toJSVal = return . unHTMLTableSectionElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTableSectionElement where + fromJSVal v = fmap HTMLTableSectionElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTableSectionElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTableSectionElement where + makeObject = makeObject . unHTMLTableSectionElement + +instance IsHTMLElement HTMLTableSectionElement +instance IsElement HTMLTableSectionElement +instance IsNode HTMLTableSectionElement +instance IsEventTarget HTMLTableSectionElement +instance IsSlotable HTMLTableSectionElement +instance IsParentNode HTMLTableSectionElement +instance IsNonDocumentTypeChildNode HTMLTableSectionElement +instance IsDocumentAndElementEventHandlers HTMLTableSectionElement +instance IsChildNode HTMLTableSectionElement +instance IsAnimatable HTMLTableSectionElement +instance IsGlobalEventHandlers HTMLTableSectionElement +instance IsElementCSSInlineStyle HTMLTableSectionElement +instance IsGObject HTMLTableSectionElement where + typeGType _ = gTypeHTMLTableSectionElement + {-# INLINE typeGType #-} + +noHTMLTableSectionElement :: Maybe HTMLTableSectionElement +noHTMLTableSectionElement = Nothing +{-# INLINE noHTMLTableSectionElement #-} + +gTypeHTMLTableSectionElement :: JSM GType +gTypeHTMLTableSectionElement = GType . Object <$> jsg "HTMLTableSectionElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTemplateElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTemplateElement = HTMLTemplateElement { unHTMLTemplateElement :: JSVal } + +instance PToJSVal HTMLTemplateElement where + pToJSVal = unHTMLTemplateElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTemplateElement where + pFromJSVal = HTMLTemplateElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTemplateElement where + toJSVal = return . unHTMLTemplateElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTemplateElement where + fromJSVal v = fmap HTMLTemplateElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTemplateElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTemplateElement where + makeObject = makeObject . unHTMLTemplateElement + +instance IsHTMLElement HTMLTemplateElement +instance IsElement HTMLTemplateElement +instance IsNode HTMLTemplateElement +instance IsEventTarget HTMLTemplateElement +instance IsSlotable HTMLTemplateElement +instance IsParentNode HTMLTemplateElement +instance IsNonDocumentTypeChildNode HTMLTemplateElement +instance IsDocumentAndElementEventHandlers HTMLTemplateElement +instance IsChildNode HTMLTemplateElement +instance IsAnimatable HTMLTemplateElement +instance IsGlobalEventHandlers HTMLTemplateElement +instance IsElementCSSInlineStyle HTMLTemplateElement +instance IsGObject HTMLTemplateElement where + typeGType _ = gTypeHTMLTemplateElement + {-# INLINE typeGType #-} + +noHTMLTemplateElement :: Maybe HTMLTemplateElement +noHTMLTemplateElement = Nothing +{-# INLINE noHTMLTemplateElement #-} + +gTypeHTMLTemplateElement :: JSM GType +gTypeHTMLTemplateElement = GType . Object <$> jsg "HTMLTemplateElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTextAreaElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTextAreaElement = HTMLTextAreaElement { unHTMLTextAreaElement :: JSVal } + +instance PToJSVal HTMLTextAreaElement where + pToJSVal = unHTMLTextAreaElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTextAreaElement where + pFromJSVal = HTMLTextAreaElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTextAreaElement where + toJSVal = return . unHTMLTextAreaElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTextAreaElement where + fromJSVal v = fmap HTMLTextAreaElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTextAreaElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTextAreaElement where + makeObject = makeObject . unHTMLTextAreaElement + +instance IsHTMLElement HTMLTextAreaElement +instance IsElement HTMLTextAreaElement +instance IsNode HTMLTextAreaElement +instance IsEventTarget HTMLTextAreaElement +instance IsSlotable HTMLTextAreaElement +instance IsParentNode HTMLTextAreaElement +instance IsNonDocumentTypeChildNode HTMLTextAreaElement +instance IsDocumentAndElementEventHandlers HTMLTextAreaElement +instance IsChildNode HTMLTextAreaElement +instance IsAnimatable HTMLTextAreaElement +instance IsGlobalEventHandlers HTMLTextAreaElement +instance IsElementCSSInlineStyle HTMLTextAreaElement +instance IsGObject HTMLTextAreaElement where + typeGType _ = gTypeHTMLTextAreaElement + {-# INLINE typeGType #-} + +noHTMLTextAreaElement :: Maybe HTMLTextAreaElement +noHTMLTextAreaElement = Nothing +{-# INLINE noHTMLTextAreaElement #-} + +gTypeHTMLTextAreaElement :: JSM GType +gTypeHTMLTextAreaElement = GType . Object <$> jsg "HTMLTextAreaElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTimeElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTimeElement = HTMLTimeElement { unHTMLTimeElement :: JSVal } + +instance PToJSVal HTMLTimeElement where + pToJSVal = unHTMLTimeElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTimeElement where + pFromJSVal = HTMLTimeElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTimeElement where + toJSVal = return . unHTMLTimeElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTimeElement where + fromJSVal v = fmap HTMLTimeElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTimeElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTimeElement where + makeObject = makeObject . unHTMLTimeElement + +instance IsHTMLElement HTMLTimeElement +instance IsElement HTMLTimeElement +instance IsNode HTMLTimeElement +instance IsEventTarget HTMLTimeElement +instance IsSlotable HTMLTimeElement +instance IsParentNode HTMLTimeElement +instance IsNonDocumentTypeChildNode HTMLTimeElement +instance IsDocumentAndElementEventHandlers HTMLTimeElement +instance IsChildNode HTMLTimeElement +instance IsAnimatable HTMLTimeElement +instance IsGlobalEventHandlers HTMLTimeElement +instance IsElementCSSInlineStyle HTMLTimeElement +instance IsGObject HTMLTimeElement where + typeGType _ = gTypeHTMLTimeElement + {-# INLINE typeGType #-} + +noHTMLTimeElement :: Maybe HTMLTimeElement +noHTMLTimeElement = Nothing +{-# INLINE noHTMLTimeElement #-} + +gTypeHTMLTimeElement :: JSM GType +gTypeHTMLTimeElement = GType . Object <$> jsg "HTMLTimeElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTitleElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTitleElement = HTMLTitleElement { unHTMLTitleElement :: JSVal } + +instance PToJSVal HTMLTitleElement where + pToJSVal = unHTMLTitleElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTitleElement where + pFromJSVal = HTMLTitleElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTitleElement where + toJSVal = return . unHTMLTitleElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTitleElement where + fromJSVal v = fmap HTMLTitleElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTitleElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTitleElement where + makeObject = makeObject . unHTMLTitleElement + +instance IsHTMLElement HTMLTitleElement +instance IsElement HTMLTitleElement +instance IsNode HTMLTitleElement +instance IsEventTarget HTMLTitleElement +instance IsSlotable HTMLTitleElement +instance IsParentNode HTMLTitleElement +instance IsNonDocumentTypeChildNode HTMLTitleElement +instance IsDocumentAndElementEventHandlers HTMLTitleElement +instance IsChildNode HTMLTitleElement +instance IsAnimatable HTMLTitleElement +instance IsGlobalEventHandlers HTMLTitleElement +instance IsElementCSSInlineStyle HTMLTitleElement +instance IsGObject HTMLTitleElement where + typeGType _ = gTypeHTMLTitleElement + {-# INLINE typeGType #-} + +noHTMLTitleElement :: Maybe HTMLTitleElement +noHTMLTitleElement = Nothing +{-# INLINE noHTMLTitleElement #-} + +gTypeHTMLTitleElement :: JSM GType +gTypeHTMLTitleElement = GType . Object <$> jsg "HTMLTitleElement" + +-- | Functions for this inteface are in "JSDOM.HTMLTrackElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLTrackElement = HTMLTrackElement { unHTMLTrackElement :: JSVal } + +instance PToJSVal HTMLTrackElement where + pToJSVal = unHTMLTrackElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLTrackElement where + pFromJSVal = HTMLTrackElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLTrackElement where + toJSVal = return . unHTMLTrackElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLTrackElement where + fromJSVal v = fmap HTMLTrackElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLTrackElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLTrackElement where + makeObject = makeObject . unHTMLTrackElement + +instance IsHTMLElement HTMLTrackElement +instance IsElement HTMLTrackElement +instance IsNode HTMLTrackElement +instance IsEventTarget HTMLTrackElement +instance IsSlotable HTMLTrackElement +instance IsParentNode HTMLTrackElement +instance IsNonDocumentTypeChildNode HTMLTrackElement +instance IsDocumentAndElementEventHandlers HTMLTrackElement +instance IsChildNode HTMLTrackElement +instance IsAnimatable HTMLTrackElement +instance IsGlobalEventHandlers HTMLTrackElement +instance IsElementCSSInlineStyle HTMLTrackElement +instance IsGObject HTMLTrackElement where + typeGType _ = gTypeHTMLTrackElement + {-# INLINE typeGType #-} + +noHTMLTrackElement :: Maybe HTMLTrackElement +noHTMLTrackElement = Nothing +{-# INLINE noHTMLTrackElement #-} + +gTypeHTMLTrackElement :: JSM GType +gTypeHTMLTrackElement = GType . Object <$> jsg "HTMLTrackElement" + +-- | Functions for this inteface are in "JSDOM.HTMLUListElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLUListElement = HTMLUListElement { unHTMLUListElement :: JSVal } + +instance PToJSVal HTMLUListElement where + pToJSVal = unHTMLUListElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLUListElement where + pFromJSVal = HTMLUListElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLUListElement where + toJSVal = return . unHTMLUListElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLUListElement where + fromJSVal v = fmap HTMLUListElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLUListElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLUListElement where + makeObject = makeObject . unHTMLUListElement + +instance IsHTMLElement HTMLUListElement +instance IsElement HTMLUListElement +instance IsNode HTMLUListElement +instance IsEventTarget HTMLUListElement +instance IsSlotable HTMLUListElement +instance IsParentNode HTMLUListElement +instance IsNonDocumentTypeChildNode HTMLUListElement +instance IsDocumentAndElementEventHandlers HTMLUListElement +instance IsChildNode HTMLUListElement +instance IsAnimatable HTMLUListElement +instance IsGlobalEventHandlers HTMLUListElement +instance IsElementCSSInlineStyle HTMLUListElement +instance IsGObject HTMLUListElement where + typeGType _ = gTypeHTMLUListElement + {-# INLINE typeGType #-} + +noHTMLUListElement :: Maybe HTMLUListElement +noHTMLUListElement = Nothing +{-# INLINE noHTMLUListElement #-} + +gTypeHTMLUListElement :: JSM GType +gTypeHTMLUListElement = GType . Object <$> jsg "HTMLUListElement" + +-- | Functions for this inteface are in "JSDOM.HTMLUnknownElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLUnknownElement = HTMLUnknownElement { unHTMLUnknownElement :: JSVal } + +instance PToJSVal HTMLUnknownElement where + pToJSVal = unHTMLUnknownElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLUnknownElement where + pFromJSVal = HTMLUnknownElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLUnknownElement where + toJSVal = return . unHTMLUnknownElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLUnknownElement where + fromJSVal v = fmap HTMLUnknownElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLUnknownElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLUnknownElement where + makeObject = makeObject . unHTMLUnknownElement + +instance IsHTMLElement HTMLUnknownElement +instance IsElement HTMLUnknownElement +instance IsNode HTMLUnknownElement +instance IsEventTarget HTMLUnknownElement +instance IsSlotable HTMLUnknownElement +instance IsParentNode HTMLUnknownElement +instance IsNonDocumentTypeChildNode HTMLUnknownElement +instance IsDocumentAndElementEventHandlers HTMLUnknownElement +instance IsChildNode HTMLUnknownElement +instance IsAnimatable HTMLUnknownElement +instance IsGlobalEventHandlers HTMLUnknownElement +instance IsElementCSSInlineStyle HTMLUnknownElement +instance IsGObject HTMLUnknownElement where + typeGType _ = gTypeHTMLUnknownElement + {-# INLINE typeGType #-} + +noHTMLUnknownElement :: Maybe HTMLUnknownElement +noHTMLUnknownElement = Nothing +{-# INLINE noHTMLUnknownElement #-} + +gTypeHTMLUnknownElement :: JSM GType +gTypeHTMLUnknownElement = GType . Object <$> jsg "HTMLUnknownElement" + +-- | Functions for this inteface are in "JSDOM.HTMLVideoElement". +-- Base interface functions are in: +-- +-- * "JSDOM.HTMLMediaElement" +-- * "JSDOM.HTMLElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype HTMLVideoElement = HTMLVideoElement { unHTMLVideoElement :: JSVal } + +instance PToJSVal HTMLVideoElement where + pToJSVal = unHTMLVideoElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal HTMLVideoElement where + pFromJSVal = HTMLVideoElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal HTMLVideoElement where + toJSVal = return . unHTMLVideoElement + {-# INLINE toJSVal #-} + +instance FromJSVal HTMLVideoElement where + fromJSVal v = fmap HTMLVideoElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HTMLVideoElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HTMLVideoElement where + makeObject = makeObject . unHTMLVideoElement + +instance IsHTMLMediaElement HTMLVideoElement +instance IsHTMLElement HTMLVideoElement +instance IsElement HTMLVideoElement +instance IsNode HTMLVideoElement +instance IsEventTarget HTMLVideoElement +instance IsSlotable HTMLVideoElement +instance IsParentNode HTMLVideoElement +instance IsNonDocumentTypeChildNode HTMLVideoElement +instance IsDocumentAndElementEventHandlers HTMLVideoElement +instance IsChildNode HTMLVideoElement +instance IsAnimatable HTMLVideoElement +instance IsGlobalEventHandlers HTMLVideoElement +instance IsElementCSSInlineStyle HTMLVideoElement +instance IsGObject HTMLVideoElement where + typeGType _ = gTypeHTMLVideoElement + {-# INLINE typeGType #-} + +noHTMLVideoElement :: Maybe HTMLVideoElement +noHTMLVideoElement = Nothing +{-# INLINE noHTMLVideoElement #-} + +gTypeHTMLVideoElement :: JSM GType +gTypeHTMLVideoElement = GType . Object <$> jsg "HTMLVideoElement" + +-- | Functions for this inteface are in "JSDOM.HashChangeEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype HashChangeEvent = HashChangeEvent { unHashChangeEvent :: JSVal } + +instance PToJSVal HashChangeEvent where + pToJSVal = unHashChangeEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal HashChangeEvent where + pFromJSVal = HashChangeEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal HashChangeEvent where + toJSVal = return . unHashChangeEvent + {-# INLINE toJSVal #-} + +instance FromJSVal HashChangeEvent where + fromJSVal v = fmap HashChangeEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HashChangeEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HashChangeEvent where + makeObject = makeObject . unHashChangeEvent + +instance IsEvent HashChangeEvent +instance IsGObject HashChangeEvent where + typeGType _ = gTypeHashChangeEvent + {-# INLINE typeGType #-} + +noHashChangeEvent :: Maybe HashChangeEvent +noHashChangeEvent = Nothing +{-# INLINE noHashChangeEvent #-} + +gTypeHashChangeEvent :: JSM GType +gTypeHashChangeEvent = GType . Object <$> jsg "HashChangeEvent" + +-- | Functions for this inteface are in "JSDOM.HashChangeEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype HashChangeEventInit = HashChangeEventInit { unHashChangeEventInit :: JSVal } + +instance PToJSVal HashChangeEventInit where + pToJSVal = unHashChangeEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal HashChangeEventInit where + pFromJSVal = HashChangeEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal HashChangeEventInit where + toJSVal = return . unHashChangeEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal HashChangeEventInit where + fromJSVal v = fmap HashChangeEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HashChangeEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HashChangeEventInit where + makeObject = makeObject . unHashChangeEventInit + +instance IsEventInit HashChangeEventInit +instance IsGObject HashChangeEventInit where + typeGType _ = gTypeHashChangeEventInit + {-# INLINE typeGType #-} + +noHashChangeEventInit :: Maybe HashChangeEventInit +noHashChangeEventInit = Nothing +{-# INLINE noHashChangeEventInit #-} + +gTypeHashChangeEventInit :: JSM GType +gTypeHashChangeEventInit = GType . Object <$> jsg "HashChangeEventInit" + +-- | Functions for this inteface are in "JSDOM.Headers". +-- +-- +newtype Headers = Headers { unHeaders :: JSVal } + +instance PToJSVal Headers where + pToJSVal = unHeaders + {-# INLINE pToJSVal #-} + +instance PFromJSVal Headers where + pFromJSVal = Headers + {-# INLINE pFromJSVal #-} + +instance ToJSVal Headers where + toJSVal = return . unHeaders + {-# INLINE toJSVal #-} + +instance FromJSVal Headers where + fromJSVal v = fmap Headers <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Headers + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Headers where + makeObject = makeObject . unHeaders + +instance IsGObject Headers where + typeGType _ = gTypeHeaders + {-# INLINE typeGType #-} + +noHeaders :: Maybe Headers +noHeaders = Nothing +{-# INLINE noHeaders #-} + +gTypeHeaders :: JSM GType +gTypeHeaders = GType . Object <$> jsg "Headers" + +-- | Functions for this inteface are in "JSDOM.History". +-- +-- +newtype History = History { unHistory :: JSVal } + +instance PToJSVal History where + pToJSVal = unHistory + {-# INLINE pToJSVal #-} + +instance PFromJSVal History where + pFromJSVal = History + {-# INLINE pFromJSVal #-} + +instance ToJSVal History where + toJSVal = return . unHistory + {-# INLINE toJSVal #-} + +instance FromJSVal History where + fromJSVal v = fmap History <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . History + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject History where + makeObject = makeObject . unHistory + +instance IsGObject History where + typeGType _ = gTypeHistory + {-# INLINE typeGType #-} + +noHistory :: Maybe History +noHistory = Nothing +{-# INLINE noHistory #-} + +gTypeHistory :: JSM GType +gTypeHistory = GType . Object <$> jsg "History" + +-- | Functions for this inteface are in "JSDOM.HkdfParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype HkdfParams = HkdfParams { unHkdfParams :: JSVal } + +instance PToJSVal HkdfParams where + pToJSVal = unHkdfParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal HkdfParams where + pFromJSVal = HkdfParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal HkdfParams where + toJSVal = return . unHkdfParams + {-# INLINE toJSVal #-} + +instance FromJSVal HkdfParams where + fromJSVal v = fmap HkdfParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HkdfParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HkdfParams where + makeObject = makeObject . unHkdfParams + +instance IsCryptoAlgorithmParameters HkdfParams +instance IsGObject HkdfParams where + typeGType _ = gTypeHkdfParams + {-# INLINE typeGType #-} + +noHkdfParams :: Maybe HkdfParams +noHkdfParams = Nothing +{-# INLINE noHkdfParams #-} + +gTypeHkdfParams :: JSM GType +gTypeHkdfParams = GType . Object <$> jsg "HkdfParams" + +-- | Functions for this inteface are in "JSDOM.HmacKeyParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype HmacKeyParams = HmacKeyParams { unHmacKeyParams :: JSVal } + +instance PToJSVal HmacKeyParams where + pToJSVal = unHmacKeyParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal HmacKeyParams where + pFromJSVal = HmacKeyParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal HmacKeyParams where + toJSVal = return . unHmacKeyParams + {-# INLINE toJSVal #-} + +instance FromJSVal HmacKeyParams where + fromJSVal v = fmap HmacKeyParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . HmacKeyParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject HmacKeyParams where + makeObject = makeObject . unHmacKeyParams + +instance IsCryptoAlgorithmParameters HmacKeyParams +instance IsGObject HmacKeyParams where + typeGType _ = gTypeHmacKeyParams + {-# INLINE typeGType #-} + +noHmacKeyParams :: Maybe HmacKeyParams +noHmacKeyParams = Nothing +{-# INLINE noHmacKeyParams #-} + +gTypeHmacKeyParams :: JSM GType +gTypeHmacKeyParams = GType . Object <$> jsg "HmacKeyParams" + +-- | Functions for this inteface are in "JSDOM.IDBCursor". +-- +-- +newtype IDBCursor = IDBCursor { unIDBCursor :: JSVal } + +instance PToJSVal IDBCursor where + pToJSVal = unIDBCursor + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBCursor where + pFromJSVal = IDBCursor + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBCursor where + toJSVal = return . unIDBCursor + {-# INLINE toJSVal #-} + +instance FromJSVal IDBCursor where + fromJSVal v = fmap IDBCursor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBCursor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBCursor where + makeObject = makeObject . unIDBCursor + +class (IsGObject o) => IsIDBCursor o +toIDBCursor :: IsIDBCursor o => o -> IDBCursor +toIDBCursor = IDBCursor . coerce + +instance IsIDBCursor IDBCursor +instance IsGObject IDBCursor where + typeGType _ = gTypeIDBCursor + {-# INLINE typeGType #-} + +noIDBCursor :: Maybe IDBCursor +noIDBCursor = Nothing +{-# INLINE noIDBCursor #-} + +gTypeIDBCursor :: JSM GType +gTypeIDBCursor = GType . Object <$> jsg "IDBCursor" + +-- | Functions for this inteface are in "JSDOM.IDBCursorWithValue". +-- Base interface functions are in: +-- +-- * "JSDOM.IDBCursor" +-- +-- +newtype IDBCursorWithValue = IDBCursorWithValue { unIDBCursorWithValue :: JSVal } + +instance PToJSVal IDBCursorWithValue where + pToJSVal = unIDBCursorWithValue + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBCursorWithValue where + pFromJSVal = IDBCursorWithValue + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBCursorWithValue where + toJSVal = return . unIDBCursorWithValue + {-# INLINE toJSVal #-} + +instance FromJSVal IDBCursorWithValue where + fromJSVal v = fmap IDBCursorWithValue <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBCursorWithValue + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBCursorWithValue where + makeObject = makeObject . unIDBCursorWithValue + +instance IsIDBCursor IDBCursorWithValue +instance IsGObject IDBCursorWithValue where + typeGType _ = gTypeIDBCursorWithValue + {-# INLINE typeGType #-} + +noIDBCursorWithValue :: Maybe IDBCursorWithValue +noIDBCursorWithValue = Nothing +{-# INLINE noIDBCursorWithValue #-} + +gTypeIDBCursorWithValue :: JSM GType +gTypeIDBCursorWithValue = GType . Object <$> jsg "IDBCursorWithValue" + +-- | Functions for this inteface are in "JSDOM.IDBDatabase". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype IDBDatabase = IDBDatabase { unIDBDatabase :: JSVal } + +instance PToJSVal IDBDatabase where + pToJSVal = unIDBDatabase + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBDatabase where + pFromJSVal = IDBDatabase + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBDatabase where + toJSVal = return . unIDBDatabase + {-# INLINE toJSVal #-} + +instance FromJSVal IDBDatabase where + fromJSVal v = fmap IDBDatabase <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBDatabase + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBDatabase where + makeObject = makeObject . unIDBDatabase + +instance IsEventTarget IDBDatabase +instance IsGObject IDBDatabase where + typeGType _ = gTypeIDBDatabase + {-# INLINE typeGType #-} + +noIDBDatabase :: Maybe IDBDatabase +noIDBDatabase = Nothing +{-# INLINE noIDBDatabase #-} + +gTypeIDBDatabase :: JSM GType +gTypeIDBDatabase = GType . Object <$> jsg "IDBDatabase" + +-- | Functions for this inteface are in "JSDOM.IDBFactory". +-- +-- +newtype IDBFactory = IDBFactory { unIDBFactory :: JSVal } + +instance PToJSVal IDBFactory where + pToJSVal = unIDBFactory + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBFactory where + pFromJSVal = IDBFactory + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBFactory where + toJSVal = return . unIDBFactory + {-# INLINE toJSVal #-} + +instance FromJSVal IDBFactory where + fromJSVal v = fmap IDBFactory <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBFactory + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBFactory where + makeObject = makeObject . unIDBFactory + +instance IsGObject IDBFactory where + typeGType _ = gTypeIDBFactory + {-# INLINE typeGType #-} + +noIDBFactory :: Maybe IDBFactory +noIDBFactory = Nothing +{-# INLINE noIDBFactory #-} + +gTypeIDBFactory :: JSM GType +gTypeIDBFactory = GType . Object <$> jsg "IDBFactory" + +-- | Functions for this inteface are in "JSDOM.IDBIndex". +-- +-- +newtype IDBIndex = IDBIndex { unIDBIndex :: JSVal } + +instance PToJSVal IDBIndex where + pToJSVal = unIDBIndex + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBIndex where + pFromJSVal = IDBIndex + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBIndex where + toJSVal = return . unIDBIndex + {-# INLINE toJSVal #-} + +instance FromJSVal IDBIndex where + fromJSVal v = fmap IDBIndex <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBIndex + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBIndex where + makeObject = makeObject . unIDBIndex + +instance IsGObject IDBIndex where + typeGType _ = gTypeIDBIndex + {-# INLINE typeGType #-} + +noIDBIndex :: Maybe IDBIndex +noIDBIndex = Nothing +{-# INLINE noIDBIndex #-} + +gTypeIDBIndex :: JSM GType +gTypeIDBIndex = GType . Object <$> jsg "IDBIndex" + +-- | Functions for this inteface are in "JSDOM.IDBIndexParameters". +-- +-- +newtype IDBIndexParameters = IDBIndexParameters { unIDBIndexParameters :: JSVal } + +instance PToJSVal IDBIndexParameters where + pToJSVal = unIDBIndexParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBIndexParameters where + pFromJSVal = IDBIndexParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBIndexParameters where + toJSVal = return . unIDBIndexParameters + {-# INLINE toJSVal #-} + +instance FromJSVal IDBIndexParameters where + fromJSVal v = fmap IDBIndexParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBIndexParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBIndexParameters where + makeObject = makeObject . unIDBIndexParameters + +instance IsGObject IDBIndexParameters where + typeGType _ = gTypeIDBIndexParameters + {-# INLINE typeGType #-} + +noIDBIndexParameters :: Maybe IDBIndexParameters +noIDBIndexParameters = Nothing +{-# INLINE noIDBIndexParameters #-} + +gTypeIDBIndexParameters :: JSM GType +gTypeIDBIndexParameters = GType . Object <$> jsg "IDBIndexParameters" + +-- | Functions for this inteface are in "JSDOM.IDBKeyRange". +-- +-- +newtype IDBKeyRange = IDBKeyRange { unIDBKeyRange :: JSVal } + +instance PToJSVal IDBKeyRange where + pToJSVal = unIDBKeyRange + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBKeyRange where + pFromJSVal = IDBKeyRange + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBKeyRange where + toJSVal = return . unIDBKeyRange + {-# INLINE toJSVal #-} + +instance FromJSVal IDBKeyRange where + fromJSVal v = fmap IDBKeyRange <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBKeyRange + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBKeyRange where + makeObject = makeObject . unIDBKeyRange + +instance IsGObject IDBKeyRange where + typeGType _ = gTypeIDBKeyRange + {-# INLINE typeGType #-} + +noIDBKeyRange :: Maybe IDBKeyRange +noIDBKeyRange = Nothing +{-# INLINE noIDBKeyRange #-} + +gTypeIDBKeyRange :: JSM GType +gTypeIDBKeyRange = GType . Object <$> jsg "IDBKeyRange" + +-- | Functions for this inteface are in "JSDOM.IDBObjectStore". +-- +-- +newtype IDBObjectStore = IDBObjectStore { unIDBObjectStore :: JSVal } + +instance PToJSVal IDBObjectStore where + pToJSVal = unIDBObjectStore + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBObjectStore where + pFromJSVal = IDBObjectStore + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBObjectStore where + toJSVal = return . unIDBObjectStore + {-# INLINE toJSVal #-} + +instance FromJSVal IDBObjectStore where + fromJSVal v = fmap IDBObjectStore <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBObjectStore + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBObjectStore where + makeObject = makeObject . unIDBObjectStore + +instance IsGObject IDBObjectStore where + typeGType _ = gTypeIDBObjectStore + {-# INLINE typeGType #-} + +noIDBObjectStore :: Maybe IDBObjectStore +noIDBObjectStore = Nothing +{-# INLINE noIDBObjectStore #-} + +gTypeIDBObjectStore :: JSM GType +gTypeIDBObjectStore = GType . Object <$> jsg "IDBObjectStore" + +-- | Functions for this inteface are in "JSDOM.IDBObjectStoreParameters". +-- +-- +newtype IDBObjectStoreParameters = IDBObjectStoreParameters { unIDBObjectStoreParameters :: JSVal } + +instance PToJSVal IDBObjectStoreParameters where + pToJSVal = unIDBObjectStoreParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBObjectStoreParameters where + pFromJSVal = IDBObjectStoreParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBObjectStoreParameters where + toJSVal = return . unIDBObjectStoreParameters + {-# INLINE toJSVal #-} + +instance FromJSVal IDBObjectStoreParameters where + fromJSVal v = fmap IDBObjectStoreParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBObjectStoreParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBObjectStoreParameters where + makeObject = makeObject . unIDBObjectStoreParameters + +instance IsGObject IDBObjectStoreParameters where + typeGType _ = gTypeIDBObjectStoreParameters + {-# INLINE typeGType #-} + +noIDBObjectStoreParameters :: Maybe IDBObjectStoreParameters +noIDBObjectStoreParameters = Nothing +{-# INLINE noIDBObjectStoreParameters #-} + +gTypeIDBObjectStoreParameters :: JSM GType +gTypeIDBObjectStoreParameters = GType . Object <$> jsg "IDBObjectStoreParameters" + +-- | Functions for this inteface are in "JSDOM.IDBOpenDBRequest". +-- Base interface functions are in: +-- +-- * "JSDOM.IDBRequest" +-- * "JSDOM.EventTarget" +-- +-- +newtype IDBOpenDBRequest = IDBOpenDBRequest { unIDBOpenDBRequest :: JSVal } + +instance PToJSVal IDBOpenDBRequest where + pToJSVal = unIDBOpenDBRequest + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBOpenDBRequest where + pFromJSVal = IDBOpenDBRequest + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBOpenDBRequest where + toJSVal = return . unIDBOpenDBRequest + {-# INLINE toJSVal #-} + +instance FromJSVal IDBOpenDBRequest where + fromJSVal v = fmap IDBOpenDBRequest <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBOpenDBRequest + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBOpenDBRequest where + makeObject = makeObject . unIDBOpenDBRequest + +instance IsIDBRequest IDBOpenDBRequest +instance IsEventTarget IDBOpenDBRequest +instance IsGObject IDBOpenDBRequest where + typeGType _ = gTypeIDBOpenDBRequest + {-# INLINE typeGType #-} + +noIDBOpenDBRequest :: Maybe IDBOpenDBRequest +noIDBOpenDBRequest = Nothing +{-# INLINE noIDBOpenDBRequest #-} + +gTypeIDBOpenDBRequest :: JSM GType +gTypeIDBOpenDBRequest = GType . Object <$> jsg "IDBOpenDBRequest" + +-- | Functions for this inteface are in "JSDOM.IDBRequest". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype IDBRequest = IDBRequest { unIDBRequest :: JSVal } + +instance PToJSVal IDBRequest where + pToJSVal = unIDBRequest + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBRequest where + pFromJSVal = IDBRequest + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBRequest where + toJSVal = return . unIDBRequest + {-# INLINE toJSVal #-} + +instance FromJSVal IDBRequest where + fromJSVal v = fmap IDBRequest <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBRequest + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBRequest where + makeObject = makeObject . unIDBRequest + +class (IsEventTarget o, IsGObject o) => IsIDBRequest o +toIDBRequest :: IsIDBRequest o => o -> IDBRequest +toIDBRequest = IDBRequest . coerce + +instance IsIDBRequest IDBRequest +instance IsEventTarget IDBRequest +instance IsGObject IDBRequest where + typeGType _ = gTypeIDBRequest + {-# INLINE typeGType #-} + +noIDBRequest :: Maybe IDBRequest +noIDBRequest = Nothing +{-# INLINE noIDBRequest #-} + +gTypeIDBRequest :: JSM GType +gTypeIDBRequest = GType . Object <$> jsg "IDBRequest" + +-- | Functions for this inteface are in "JSDOM.IDBTransaction". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype IDBTransaction = IDBTransaction { unIDBTransaction :: JSVal } + +instance PToJSVal IDBTransaction where + pToJSVal = unIDBTransaction + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBTransaction where + pFromJSVal = IDBTransaction + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBTransaction where + toJSVal = return . unIDBTransaction + {-# INLINE toJSVal #-} + +instance FromJSVal IDBTransaction where + fromJSVal v = fmap IDBTransaction <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBTransaction + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBTransaction where + makeObject = makeObject . unIDBTransaction + +instance IsEventTarget IDBTransaction +instance IsGObject IDBTransaction where + typeGType _ = gTypeIDBTransaction + {-# INLINE typeGType #-} + +noIDBTransaction :: Maybe IDBTransaction +noIDBTransaction = Nothing +{-# INLINE noIDBTransaction #-} + +gTypeIDBTransaction :: JSM GType +gTypeIDBTransaction = GType . Object <$> jsg "IDBTransaction" + +-- | Functions for this inteface are in "JSDOM.IDBVersionChangeEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype IDBVersionChangeEvent = IDBVersionChangeEvent { unIDBVersionChangeEvent :: JSVal } + +instance PToJSVal IDBVersionChangeEvent where + pToJSVal = unIDBVersionChangeEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBVersionChangeEvent where + pFromJSVal = IDBVersionChangeEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBVersionChangeEvent where + toJSVal = return . unIDBVersionChangeEvent + {-# INLINE toJSVal #-} + +instance FromJSVal IDBVersionChangeEvent where + fromJSVal v = fmap IDBVersionChangeEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBVersionChangeEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBVersionChangeEvent where + makeObject = makeObject . unIDBVersionChangeEvent + +instance IsEvent IDBVersionChangeEvent +instance IsGObject IDBVersionChangeEvent where + typeGType _ = gTypeIDBVersionChangeEvent + {-# INLINE typeGType #-} + +noIDBVersionChangeEvent :: Maybe IDBVersionChangeEvent +noIDBVersionChangeEvent = Nothing +{-# INLINE noIDBVersionChangeEvent #-} + +gTypeIDBVersionChangeEvent :: JSM GType +gTypeIDBVersionChangeEvent = GType . Object <$> jsg "IDBVersionChangeEvent" + +-- | Functions for this inteface are in "JSDOM.IDBVersionChangeEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype IDBVersionChangeEventInit = IDBVersionChangeEventInit { unIDBVersionChangeEventInit :: JSVal } + +instance PToJSVal IDBVersionChangeEventInit where + pToJSVal = unIDBVersionChangeEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal IDBVersionChangeEventInit where + pFromJSVal = IDBVersionChangeEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal IDBVersionChangeEventInit where + toJSVal = return . unIDBVersionChangeEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal IDBVersionChangeEventInit where + fromJSVal v = fmap IDBVersionChangeEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IDBVersionChangeEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IDBVersionChangeEventInit where + makeObject = makeObject . unIDBVersionChangeEventInit + +instance IsEventInit IDBVersionChangeEventInit +instance IsGObject IDBVersionChangeEventInit where + typeGType _ = gTypeIDBVersionChangeEventInit + {-# INLINE typeGType #-} + +noIDBVersionChangeEventInit :: Maybe IDBVersionChangeEventInit +noIDBVersionChangeEventInit = Nothing +{-# INLINE noIDBVersionChangeEventInit #-} + +gTypeIDBVersionChangeEventInit :: JSM GType +gTypeIDBVersionChangeEventInit = GType . Object <$> jsg "IDBVersionChangeEventInit" + +-- | Functions for this inteface are in "JSDOM.ImageData". +-- +-- +newtype ImageData = ImageData { unImageData :: JSVal } + +instance PToJSVal ImageData where + pToJSVal = unImageData + {-# INLINE pToJSVal #-} + +instance PFromJSVal ImageData where + pFromJSVal = ImageData + {-# INLINE pFromJSVal #-} + +instance ToJSVal ImageData where + toJSVal = return . unImageData + {-# INLINE toJSVal #-} + +instance FromJSVal ImageData where + fromJSVal v = fmap ImageData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ImageData + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ImageData where + makeObject = makeObject . unImageData + +instance IsGObject ImageData where + typeGType _ = gTypeImageData + {-# INLINE typeGType #-} + +noImageData :: Maybe ImageData +noImageData = Nothing +{-# INLINE noImageData #-} + +gTypeImageData :: JSM GType +gTypeImageData = GType . Object <$> jsg "ImageData" + +-- | Functions for this inteface are in "JSDOM.InputEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEvent" +-- * "JSDOM.Event" +-- +-- +newtype InputEvent = InputEvent { unInputEvent :: JSVal } + +instance PToJSVal InputEvent where + pToJSVal = unInputEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal InputEvent where + pFromJSVal = InputEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal InputEvent where + toJSVal = return . unInputEvent + {-# INLINE toJSVal #-} + +instance FromJSVal InputEvent where + fromJSVal v = fmap InputEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . InputEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject InputEvent where + makeObject = makeObject . unInputEvent + +instance IsUIEvent InputEvent +instance IsEvent InputEvent +instance IsGObject InputEvent where + typeGType _ = gTypeInputEvent + {-# INLINE typeGType #-} + +noInputEvent :: Maybe InputEvent +noInputEvent = Nothing +{-# INLINE noInputEvent #-} + +gTypeInputEvent :: JSM GType +gTypeInputEvent = GType . Object <$> jsg "InputEvent" + +-- | Functions for this inteface are in "JSDOM.InputEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEventInit" +-- * "JSDOM.EventInit" +-- +-- +newtype InputEventInit = InputEventInit { unInputEventInit :: JSVal } + +instance PToJSVal InputEventInit where + pToJSVal = unInputEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal InputEventInit where + pFromJSVal = InputEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal InputEventInit where + toJSVal = return . unInputEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal InputEventInit where + fromJSVal v = fmap InputEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . InputEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject InputEventInit where + makeObject = makeObject . unInputEventInit + +instance IsUIEventInit InputEventInit +instance IsEventInit InputEventInit +instance IsGObject InputEventInit where + typeGType _ = gTypeInputEventInit + {-# INLINE typeGType #-} + +noInputEventInit :: Maybe InputEventInit +noInputEventInit = Nothing +{-# INLINE noInputEventInit #-} + +gTypeInputEventInit :: JSM GType +gTypeInputEventInit = GType . Object <$> jsg "InputEventInit" + +-- | Functions for this inteface are in "JSDOM.InspectorFrontendHost". +-- +-- +newtype InspectorFrontendHost = InspectorFrontendHost { unInspectorFrontendHost :: JSVal } + +instance PToJSVal InspectorFrontendHost where + pToJSVal = unInspectorFrontendHost + {-# INLINE pToJSVal #-} + +instance PFromJSVal InspectorFrontendHost where + pFromJSVal = InspectorFrontendHost + {-# INLINE pFromJSVal #-} + +instance ToJSVal InspectorFrontendHost where + toJSVal = return . unInspectorFrontendHost + {-# INLINE toJSVal #-} + +instance FromJSVal InspectorFrontendHost where + fromJSVal v = fmap InspectorFrontendHost <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . InspectorFrontendHost + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject InspectorFrontendHost where + makeObject = makeObject . unInspectorFrontendHost + +instance IsGObject InspectorFrontendHost where + typeGType _ = gTypeInspectorFrontendHost + {-# INLINE typeGType #-} + +noInspectorFrontendHost :: Maybe InspectorFrontendHost +noInspectorFrontendHost = Nothing +{-# INLINE noInspectorFrontendHost #-} + +gTypeInspectorFrontendHost :: JSM GType +gTypeInspectorFrontendHost = GType . Object <$> jsg "InspectorFrontendHost" + +-- | Functions for this inteface are in "JSDOM.IntersectionObserver". +-- +-- +newtype IntersectionObserver = IntersectionObserver { unIntersectionObserver :: JSVal } + +instance PToJSVal IntersectionObserver where + pToJSVal = unIntersectionObserver + {-# INLINE pToJSVal #-} + +instance PFromJSVal IntersectionObserver where + pFromJSVal = IntersectionObserver + {-# INLINE pFromJSVal #-} + +instance ToJSVal IntersectionObserver where + toJSVal = return . unIntersectionObserver + {-# INLINE toJSVal #-} + +instance FromJSVal IntersectionObserver where + fromJSVal v = fmap IntersectionObserver <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IntersectionObserver + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IntersectionObserver where + makeObject = makeObject . unIntersectionObserver + +instance IsGObject IntersectionObserver where + typeGType _ = gTypeIntersectionObserver + {-# INLINE typeGType #-} + +noIntersectionObserver :: Maybe IntersectionObserver +noIntersectionObserver = Nothing +{-# INLINE noIntersectionObserver #-} + +gTypeIntersectionObserver :: JSM GType +gTypeIntersectionObserver = GType . Object <$> jsg "IntersectionObserver" + +-- | Functions for this inteface are in "JSDOM.IntersectionObserverEntry". +-- +-- +newtype IntersectionObserverEntry = IntersectionObserverEntry { unIntersectionObserverEntry :: JSVal } + +instance PToJSVal IntersectionObserverEntry where + pToJSVal = unIntersectionObserverEntry + {-# INLINE pToJSVal #-} + +instance PFromJSVal IntersectionObserverEntry where + pFromJSVal = IntersectionObserverEntry + {-# INLINE pFromJSVal #-} + +instance ToJSVal IntersectionObserverEntry where + toJSVal = return . unIntersectionObserverEntry + {-# INLINE toJSVal #-} + +instance FromJSVal IntersectionObserverEntry where + fromJSVal v = fmap IntersectionObserverEntry <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IntersectionObserverEntry + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IntersectionObserverEntry where + makeObject = makeObject . unIntersectionObserverEntry + +instance IsGObject IntersectionObserverEntry where + typeGType _ = gTypeIntersectionObserverEntry + {-# INLINE typeGType #-} + +noIntersectionObserverEntry :: Maybe IntersectionObserverEntry +noIntersectionObserverEntry = Nothing +{-# INLINE noIntersectionObserverEntry #-} + +gTypeIntersectionObserverEntry :: JSM GType +gTypeIntersectionObserverEntry = GType . Object <$> jsg "IntersectionObserverEntry" + +-- | Functions for this inteface are in "JSDOM.IntersectionObserverEntryInit". +-- +-- +newtype IntersectionObserverEntryInit = IntersectionObserverEntryInit { unIntersectionObserverEntryInit :: JSVal } + +instance PToJSVal IntersectionObserverEntryInit where + pToJSVal = unIntersectionObserverEntryInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal IntersectionObserverEntryInit where + pFromJSVal = IntersectionObserverEntryInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal IntersectionObserverEntryInit where + toJSVal = return . unIntersectionObserverEntryInit + {-# INLINE toJSVal #-} + +instance FromJSVal IntersectionObserverEntryInit where + fromJSVal v = fmap IntersectionObserverEntryInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IntersectionObserverEntryInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IntersectionObserverEntryInit where + makeObject = makeObject . unIntersectionObserverEntryInit + +instance IsGObject IntersectionObserverEntryInit where + typeGType _ = gTypeIntersectionObserverEntryInit + {-# INLINE typeGType #-} + +noIntersectionObserverEntryInit :: Maybe IntersectionObserverEntryInit +noIntersectionObserverEntryInit = Nothing +{-# INLINE noIntersectionObserverEntryInit #-} + +gTypeIntersectionObserverEntryInit :: JSM GType +gTypeIntersectionObserverEntryInit = GType . Object <$> jsg "IntersectionObserverEntryInit" + +-- | Functions for this inteface are in "JSDOM.IntersectionObserverInit". +-- +-- +newtype IntersectionObserverInit = IntersectionObserverInit { unIntersectionObserverInit :: JSVal } + +instance PToJSVal IntersectionObserverInit where + pToJSVal = unIntersectionObserverInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal IntersectionObserverInit where + pFromJSVal = IntersectionObserverInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal IntersectionObserverInit where + toJSVal = return . unIntersectionObserverInit + {-# INLINE toJSVal #-} + +instance FromJSVal IntersectionObserverInit where + fromJSVal v = fmap IntersectionObserverInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . IntersectionObserverInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject IntersectionObserverInit where + makeObject = makeObject . unIntersectionObserverInit + +instance IsGObject IntersectionObserverInit where + typeGType _ = gTypeIntersectionObserverInit + {-# INLINE typeGType #-} + +noIntersectionObserverInit :: Maybe IntersectionObserverInit +noIntersectionObserverInit = Nothing +{-# INLINE noIntersectionObserverInit #-} + +gTypeIntersectionObserverInit :: JSM GType +gTypeIntersectionObserverInit = GType . Object <$> jsg "IntersectionObserverInit" + +-- | Functions for this inteface are in "JSDOM.JsonWebKey". +-- +-- +newtype JsonWebKey = JsonWebKey { unJsonWebKey :: JSVal } + +instance PToJSVal JsonWebKey where + pToJSVal = unJsonWebKey + {-# INLINE pToJSVal #-} + +instance PFromJSVal JsonWebKey where + pFromJSVal = JsonWebKey + {-# INLINE pFromJSVal #-} + +instance ToJSVal JsonWebKey where + toJSVal = return . unJsonWebKey + {-# INLINE toJSVal #-} + +instance FromJSVal JsonWebKey where + fromJSVal v = fmap JsonWebKey <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . JsonWebKey + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject JsonWebKey where + makeObject = makeObject . unJsonWebKey + +instance IsGObject JsonWebKey where + typeGType _ = gTypeJsonWebKey + {-# INLINE typeGType #-} + +noJsonWebKey :: Maybe JsonWebKey +noJsonWebKey = Nothing +{-# INLINE noJsonWebKey #-} + +gTypeJsonWebKey :: JSM GType +gTypeJsonWebKey = GType . Object <$> jsg "JsonWebKey" + +-- | Functions for this inteface are in "JSDOM.KeyboardEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEvent" +-- * "JSDOM.Event" +-- +-- +newtype KeyboardEvent = KeyboardEvent { unKeyboardEvent :: JSVal } + +instance PToJSVal KeyboardEvent where + pToJSVal = unKeyboardEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal KeyboardEvent where + pFromJSVal = KeyboardEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal KeyboardEvent where + toJSVal = return . unKeyboardEvent + {-# INLINE toJSVal #-} + +instance FromJSVal KeyboardEvent where + fromJSVal v = fmap KeyboardEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . KeyboardEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject KeyboardEvent where + makeObject = makeObject . unKeyboardEvent + +instance IsUIEvent KeyboardEvent +instance IsEvent KeyboardEvent +instance IsGObject KeyboardEvent where + typeGType _ = gTypeKeyboardEvent + {-# INLINE typeGType #-} + +noKeyboardEvent :: Maybe KeyboardEvent +noKeyboardEvent = Nothing +{-# INLINE noKeyboardEvent #-} + +gTypeKeyboardEvent :: JSM GType +gTypeKeyboardEvent = GType . Object <$> jsg "KeyboardEvent" + +-- | Functions for this inteface are in "JSDOM.KeyboardEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventModifierInit" +-- * "JSDOM.UIEventInit" +-- * "JSDOM.EventInit" +-- +-- +newtype KeyboardEventInit = KeyboardEventInit { unKeyboardEventInit :: JSVal } + +instance PToJSVal KeyboardEventInit where + pToJSVal = unKeyboardEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal KeyboardEventInit where + pFromJSVal = KeyboardEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal KeyboardEventInit where + toJSVal = return . unKeyboardEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal KeyboardEventInit where + fromJSVal v = fmap KeyboardEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . KeyboardEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject KeyboardEventInit where + makeObject = makeObject . unKeyboardEventInit + +instance IsEventModifierInit KeyboardEventInit +instance IsUIEventInit KeyboardEventInit +instance IsEventInit KeyboardEventInit +instance IsGObject KeyboardEventInit where + typeGType _ = gTypeKeyboardEventInit + {-# INLINE typeGType #-} + +noKeyboardEventInit :: Maybe KeyboardEventInit +noKeyboardEventInit = Nothing +{-# INLINE noKeyboardEventInit #-} + +gTypeKeyboardEventInit :: JSM GType +gTypeKeyboardEventInit = GType . Object <$> jsg "KeyboardEventInit" + +-- | Functions for this inteface are in "JSDOM.KeyframeEffect". +-- Base interface functions are in: +-- +-- * "JSDOM.AnimationEffect" +-- +-- +newtype KeyframeEffect = KeyframeEffect { unKeyframeEffect :: JSVal } + +instance PToJSVal KeyframeEffect where + pToJSVal = unKeyframeEffect + {-# INLINE pToJSVal #-} + +instance PFromJSVal KeyframeEffect where + pFromJSVal = KeyframeEffect + {-# INLINE pFromJSVal #-} + +instance ToJSVal KeyframeEffect where + toJSVal = return . unKeyframeEffect + {-# INLINE toJSVal #-} + +instance FromJSVal KeyframeEffect where + fromJSVal v = fmap KeyframeEffect <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . KeyframeEffect + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject KeyframeEffect where + makeObject = makeObject . unKeyframeEffect + +instance IsAnimationEffect KeyframeEffect +instance IsGObject KeyframeEffect where + typeGType _ = gTypeKeyframeEffect + {-# INLINE typeGType #-} + +noKeyframeEffect :: Maybe KeyframeEffect +noKeyframeEffect = Nothing +{-# INLINE noKeyframeEffect #-} + +gTypeKeyframeEffect :: JSM GType +gTypeKeyframeEffect = GType . Object <$> jsg "KeyframeEffect" + +-- | Functions for this inteface are in "JSDOM.Location". +-- +-- +newtype Location = Location { unLocation :: JSVal } + +instance PToJSVal Location where + pToJSVal = unLocation + {-# INLINE pToJSVal #-} + +instance PFromJSVal Location where + pFromJSVal = Location + {-# INLINE pFromJSVal #-} + +instance ToJSVal Location where + toJSVal = return . unLocation + {-# INLINE toJSVal #-} + +instance FromJSVal Location where + fromJSVal v = fmap Location <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Location + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Location where + makeObject = makeObject . unLocation + +instance IsGObject Location where + typeGType _ = gTypeLocation + {-# INLINE typeGType #-} + +noLocation :: Maybe Location +noLocation = Nothing +{-# INLINE noLocation #-} + +gTypeLocation :: JSM GType +gTypeLocation = GType . Object <$> jsg "Location" + +-- | Functions for this inteface are in "JSDOM.LongRange". +-- +-- +newtype LongRange = LongRange { unLongRange :: JSVal } + +instance PToJSVal LongRange where + pToJSVal = unLongRange + {-# INLINE pToJSVal #-} + +instance PFromJSVal LongRange where + pFromJSVal = LongRange + {-# INLINE pFromJSVal #-} + +instance ToJSVal LongRange where + toJSVal = return . unLongRange + {-# INLINE toJSVal #-} + +instance FromJSVal LongRange where + fromJSVal v = fmap LongRange <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . LongRange + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject LongRange where + makeObject = makeObject . unLongRange + +class (IsGObject o) => IsLongRange o +toLongRange :: IsLongRange o => o -> LongRange +toLongRange = LongRange . coerce + +instance IsLongRange LongRange +instance IsGObject LongRange where + typeGType _ = gTypeLongRange + {-# INLINE typeGType #-} + +noLongRange :: Maybe LongRange +noLongRange = Nothing +{-# INLINE noLongRange #-} + +gTypeLongRange :: JSM GType +gTypeLongRange = GType . Object <$> jsg "LongRange" + +-- | Functions for this inteface are in "JSDOM.MediaController". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype MediaController = MediaController { unMediaController :: JSVal } + +instance PToJSVal MediaController where + pToJSVal = unMediaController + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaController where + pFromJSVal = MediaController + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaController where + toJSVal = return . unMediaController + {-# INLINE toJSVal #-} + +instance FromJSVal MediaController where + fromJSVal v = fmap MediaController <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaController + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaController where + makeObject = makeObject . unMediaController + +instance IsEventTarget MediaController +instance IsGObject MediaController where + typeGType _ = gTypeMediaController + {-# INLINE typeGType #-} + +noMediaController :: Maybe MediaController +noMediaController = Nothing +{-# INLINE noMediaController #-} + +gTypeMediaController :: JSM GType +gTypeMediaController = GType . Object <$> jsg "MediaController" + +-- | Functions for this inteface are in "JSDOM.MediaControlsHost". +-- +-- +newtype MediaControlsHost = MediaControlsHost { unMediaControlsHost :: JSVal } + +instance PToJSVal MediaControlsHost where + pToJSVal = unMediaControlsHost + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaControlsHost where + pFromJSVal = MediaControlsHost + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaControlsHost where + toJSVal = return . unMediaControlsHost + {-# INLINE toJSVal #-} + +instance FromJSVal MediaControlsHost where + fromJSVal v = fmap MediaControlsHost <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaControlsHost + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaControlsHost where + makeObject = makeObject . unMediaControlsHost + +instance IsGObject MediaControlsHost where + typeGType _ = gTypeMediaControlsHost + {-# INLINE typeGType #-} + +noMediaControlsHost :: Maybe MediaControlsHost +noMediaControlsHost = Nothing +{-# INLINE noMediaControlsHost #-} + +gTypeMediaControlsHost :: JSM GType +gTypeMediaControlsHost = GType . Object <$> jsg "MediaControlsHost" + +-- | Functions for this inteface are in "JSDOM.MediaDeviceInfo". +-- +-- +newtype MediaDeviceInfo = MediaDeviceInfo { unMediaDeviceInfo :: JSVal } + +instance PToJSVal MediaDeviceInfo where + pToJSVal = unMediaDeviceInfo + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaDeviceInfo where + pFromJSVal = MediaDeviceInfo + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaDeviceInfo where + toJSVal = return . unMediaDeviceInfo + {-# INLINE toJSVal #-} + +instance FromJSVal MediaDeviceInfo where + fromJSVal v = fmap MediaDeviceInfo <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaDeviceInfo + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaDeviceInfo where + makeObject = makeObject . unMediaDeviceInfo + +instance IsGObject MediaDeviceInfo where + typeGType _ = gTypeMediaDeviceInfo + {-# INLINE typeGType #-} + +noMediaDeviceInfo :: Maybe MediaDeviceInfo +noMediaDeviceInfo = Nothing +{-# INLINE noMediaDeviceInfo #-} + +gTypeMediaDeviceInfo :: JSM GType +gTypeMediaDeviceInfo = GType . Object <$> jsg "MediaDeviceInfo" + +-- | Functions for this inteface are in "JSDOM.MediaDevices". +-- +-- +newtype MediaDevices = MediaDevices { unMediaDevices :: JSVal } + +instance PToJSVal MediaDevices where + pToJSVal = unMediaDevices + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaDevices where + pFromJSVal = MediaDevices + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaDevices where + toJSVal = return . unMediaDevices + {-# INLINE toJSVal #-} + +instance FromJSVal MediaDevices where + fromJSVal v = fmap MediaDevices <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaDevices + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaDevices where + makeObject = makeObject . unMediaDevices + +instance IsGObject MediaDevices where + typeGType _ = gTypeMediaDevices + {-# INLINE typeGType #-} + +noMediaDevices :: Maybe MediaDevices +noMediaDevices = Nothing +{-# INLINE noMediaDevices #-} + +gTypeMediaDevices :: JSM GType +gTypeMediaDevices = GType . Object <$> jsg "MediaDevices" + +-- | Functions for this inteface are in "JSDOM.MediaElementAudioSourceNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype MediaElementAudioSourceNode = MediaElementAudioSourceNode { unMediaElementAudioSourceNode :: JSVal } + +instance PToJSVal MediaElementAudioSourceNode where + pToJSVal = unMediaElementAudioSourceNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaElementAudioSourceNode where + pFromJSVal = MediaElementAudioSourceNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaElementAudioSourceNode where + toJSVal = return . unMediaElementAudioSourceNode + {-# INLINE toJSVal #-} + +instance FromJSVal MediaElementAudioSourceNode where + fromJSVal v = fmap MediaElementAudioSourceNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaElementAudioSourceNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaElementAudioSourceNode where + makeObject = makeObject . unMediaElementAudioSourceNode + +instance IsAudioNode MediaElementAudioSourceNode +instance IsEventTarget MediaElementAudioSourceNode +instance IsGObject MediaElementAudioSourceNode where + typeGType _ = gTypeMediaElementAudioSourceNode + {-# INLINE typeGType #-} + +noMediaElementAudioSourceNode :: Maybe MediaElementAudioSourceNode +noMediaElementAudioSourceNode = Nothing +{-# INLINE noMediaElementAudioSourceNode #-} + +gTypeMediaElementAudioSourceNode :: JSM GType +gTypeMediaElementAudioSourceNode = GType . Object <$> jsg "MediaElementAudioSourceNode" + +-- | Functions for this inteface are in "JSDOM.MediaEncryptedEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype MediaEncryptedEvent = MediaEncryptedEvent { unMediaEncryptedEvent :: JSVal } + +instance PToJSVal MediaEncryptedEvent where + pToJSVal = unMediaEncryptedEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaEncryptedEvent where + pFromJSVal = MediaEncryptedEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaEncryptedEvent where + toJSVal = return . unMediaEncryptedEvent + {-# INLINE toJSVal #-} + +instance FromJSVal MediaEncryptedEvent where + fromJSVal v = fmap MediaEncryptedEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaEncryptedEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaEncryptedEvent where + makeObject = makeObject . unMediaEncryptedEvent + +instance IsEvent MediaEncryptedEvent +instance IsGObject MediaEncryptedEvent where + typeGType _ = gTypeMediaEncryptedEvent + {-# INLINE typeGType #-} + +noMediaEncryptedEvent :: Maybe MediaEncryptedEvent +noMediaEncryptedEvent = Nothing +{-# INLINE noMediaEncryptedEvent #-} + +gTypeMediaEncryptedEvent :: JSM GType +gTypeMediaEncryptedEvent = GType . Object <$> jsg "MediaEncryptedEvent" + +-- | Functions for this inteface are in "JSDOM.MediaEncryptedEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype MediaEncryptedEventInit = MediaEncryptedEventInit { unMediaEncryptedEventInit :: JSVal } + +instance PToJSVal MediaEncryptedEventInit where + pToJSVal = unMediaEncryptedEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaEncryptedEventInit where + pFromJSVal = MediaEncryptedEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaEncryptedEventInit where + toJSVal = return . unMediaEncryptedEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal MediaEncryptedEventInit where + fromJSVal v = fmap MediaEncryptedEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaEncryptedEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaEncryptedEventInit where + makeObject = makeObject . unMediaEncryptedEventInit + +instance IsEventInit MediaEncryptedEventInit +instance IsGObject MediaEncryptedEventInit where + typeGType _ = gTypeMediaEncryptedEventInit + {-# INLINE typeGType #-} + +noMediaEncryptedEventInit :: Maybe MediaEncryptedEventInit +noMediaEncryptedEventInit = Nothing +{-# INLINE noMediaEncryptedEventInit #-} + +gTypeMediaEncryptedEventInit :: JSM GType +gTypeMediaEncryptedEventInit = GType . Object <$> jsg "MediaEncryptedEventInit" + +-- | Functions for this inteface are in "JSDOM.MediaError". +-- +-- +newtype MediaError = MediaError { unMediaError :: JSVal } + +instance PToJSVal MediaError where + pToJSVal = unMediaError + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaError where + pFromJSVal = MediaError + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaError where + toJSVal = return . unMediaError + {-# INLINE toJSVal #-} + +instance FromJSVal MediaError where + fromJSVal v = fmap MediaError <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaError + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaError where + makeObject = makeObject . unMediaError + +instance IsGObject MediaError where + typeGType _ = gTypeMediaError + {-# INLINE typeGType #-} + +noMediaError :: Maybe MediaError +noMediaError = Nothing +{-# INLINE noMediaError #-} + +gTypeMediaError :: JSM GType +gTypeMediaError = GType . Object <$> jsg "MediaError" + +-- | Functions for this inteface are in "JSDOM.MediaKeyMessageEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype MediaKeyMessageEvent = MediaKeyMessageEvent { unMediaKeyMessageEvent :: JSVal } + +instance PToJSVal MediaKeyMessageEvent where + pToJSVal = unMediaKeyMessageEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaKeyMessageEvent where + pFromJSVal = MediaKeyMessageEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaKeyMessageEvent where + toJSVal = return . unMediaKeyMessageEvent + {-# INLINE toJSVal #-} + +instance FromJSVal MediaKeyMessageEvent where + fromJSVal v = fmap MediaKeyMessageEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaKeyMessageEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaKeyMessageEvent where + makeObject = makeObject . unMediaKeyMessageEvent + +instance IsEvent MediaKeyMessageEvent +instance IsGObject MediaKeyMessageEvent where + typeGType _ = gTypeMediaKeyMessageEvent + {-# INLINE typeGType #-} + +noMediaKeyMessageEvent :: Maybe MediaKeyMessageEvent +noMediaKeyMessageEvent = Nothing +{-# INLINE noMediaKeyMessageEvent #-} + +gTypeMediaKeyMessageEvent :: JSM GType +gTypeMediaKeyMessageEvent = GType . Object <$> jsg "WebKitMediaKeyMessageEvent" + +-- | Functions for this inteface are in "JSDOM.MediaKeyMessageEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype MediaKeyMessageEventInit = MediaKeyMessageEventInit { unMediaKeyMessageEventInit :: JSVal } + +instance PToJSVal MediaKeyMessageEventInit where + pToJSVal = unMediaKeyMessageEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaKeyMessageEventInit where + pFromJSVal = MediaKeyMessageEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaKeyMessageEventInit where + toJSVal = return . unMediaKeyMessageEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal MediaKeyMessageEventInit where + fromJSVal v = fmap MediaKeyMessageEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaKeyMessageEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaKeyMessageEventInit where + makeObject = makeObject . unMediaKeyMessageEventInit + +instance IsEventInit MediaKeyMessageEventInit +instance IsGObject MediaKeyMessageEventInit where + typeGType _ = gTypeMediaKeyMessageEventInit + {-# INLINE typeGType #-} + +noMediaKeyMessageEventInit :: Maybe MediaKeyMessageEventInit +noMediaKeyMessageEventInit = Nothing +{-# INLINE noMediaKeyMessageEventInit #-} + +gTypeMediaKeyMessageEventInit :: JSM GType +gTypeMediaKeyMessageEventInit = GType . Object <$> jsg "MediaKeyMessageEventInit" + +-- | Functions for this inteface are in "JSDOM.MediaKeySession". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype MediaKeySession = MediaKeySession { unMediaKeySession :: JSVal } + +instance PToJSVal MediaKeySession where + pToJSVal = unMediaKeySession + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaKeySession where + pFromJSVal = MediaKeySession + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaKeySession where + toJSVal = return . unMediaKeySession + {-# INLINE toJSVal #-} + +instance FromJSVal MediaKeySession where + fromJSVal v = fmap MediaKeySession <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaKeySession + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaKeySession where + makeObject = makeObject . unMediaKeySession + +instance IsEventTarget MediaKeySession +instance IsGObject MediaKeySession where + typeGType _ = gTypeMediaKeySession + {-# INLINE typeGType #-} + +noMediaKeySession :: Maybe MediaKeySession +noMediaKeySession = Nothing +{-# INLINE noMediaKeySession #-} + +gTypeMediaKeySession :: JSM GType +gTypeMediaKeySession = GType . Object <$> jsg "WebKitMediaKeySession" + +-- | Functions for this inteface are in "JSDOM.MediaKeyStatusMap". +-- +-- +newtype MediaKeyStatusMap = MediaKeyStatusMap { unMediaKeyStatusMap :: JSVal } + +instance PToJSVal MediaKeyStatusMap where + pToJSVal = unMediaKeyStatusMap + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaKeyStatusMap where + pFromJSVal = MediaKeyStatusMap + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaKeyStatusMap where + toJSVal = return . unMediaKeyStatusMap + {-# INLINE toJSVal #-} + +instance FromJSVal MediaKeyStatusMap where + fromJSVal v = fmap MediaKeyStatusMap <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaKeyStatusMap + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaKeyStatusMap where + makeObject = makeObject . unMediaKeyStatusMap + +instance IsGObject MediaKeyStatusMap where + typeGType _ = gTypeMediaKeyStatusMap + {-# INLINE typeGType #-} + +noMediaKeyStatusMap :: Maybe MediaKeyStatusMap +noMediaKeyStatusMap = Nothing +{-# INLINE noMediaKeyStatusMap #-} + +gTypeMediaKeyStatusMap :: JSM GType +gTypeMediaKeyStatusMap = GType . Object <$> jsg "MediaKeyStatusMap" + +-- | Functions for this inteface are in "JSDOM.MediaKeySystemAccess". +-- +-- +newtype MediaKeySystemAccess = MediaKeySystemAccess { unMediaKeySystemAccess :: JSVal } + +instance PToJSVal MediaKeySystemAccess where + pToJSVal = unMediaKeySystemAccess + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaKeySystemAccess where + pFromJSVal = MediaKeySystemAccess + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaKeySystemAccess where + toJSVal = return . unMediaKeySystemAccess + {-# INLINE toJSVal #-} + +instance FromJSVal MediaKeySystemAccess where + fromJSVal v = fmap MediaKeySystemAccess <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaKeySystemAccess + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaKeySystemAccess where + makeObject = makeObject . unMediaKeySystemAccess + +instance IsGObject MediaKeySystemAccess where + typeGType _ = gTypeMediaKeySystemAccess + {-# INLINE typeGType #-} + +noMediaKeySystemAccess :: Maybe MediaKeySystemAccess +noMediaKeySystemAccess = Nothing +{-# INLINE noMediaKeySystemAccess #-} + +gTypeMediaKeySystemAccess :: JSM GType +gTypeMediaKeySystemAccess = GType . Object <$> jsg "MediaKeySystemAccess" + +-- | Functions for this inteface are in "JSDOM.MediaKeySystemConfiguration". +-- +-- +newtype MediaKeySystemConfiguration = MediaKeySystemConfiguration { unMediaKeySystemConfiguration :: JSVal } + +instance PToJSVal MediaKeySystemConfiguration where + pToJSVal = unMediaKeySystemConfiguration + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaKeySystemConfiguration where + pFromJSVal = MediaKeySystemConfiguration + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaKeySystemConfiguration where + toJSVal = return . unMediaKeySystemConfiguration + {-# INLINE toJSVal #-} + +instance FromJSVal MediaKeySystemConfiguration where + fromJSVal v = fmap MediaKeySystemConfiguration <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaKeySystemConfiguration + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaKeySystemConfiguration where + makeObject = makeObject . unMediaKeySystemConfiguration + +instance IsGObject MediaKeySystemConfiguration where + typeGType _ = gTypeMediaKeySystemConfiguration + {-# INLINE typeGType #-} + +noMediaKeySystemConfiguration :: Maybe MediaKeySystemConfiguration +noMediaKeySystemConfiguration = Nothing +{-# INLINE noMediaKeySystemConfiguration #-} + +gTypeMediaKeySystemConfiguration :: JSM GType +gTypeMediaKeySystemConfiguration = GType . Object <$> jsg "MediaKeySystemConfiguration" + +-- | Functions for this inteface are in "JSDOM.MediaKeySystemMediaCapability". +-- +-- +newtype MediaKeySystemMediaCapability = MediaKeySystemMediaCapability { unMediaKeySystemMediaCapability :: JSVal } + +instance PToJSVal MediaKeySystemMediaCapability where + pToJSVal = unMediaKeySystemMediaCapability + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaKeySystemMediaCapability where + pFromJSVal = MediaKeySystemMediaCapability + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaKeySystemMediaCapability where + toJSVal = return . unMediaKeySystemMediaCapability + {-# INLINE toJSVal #-} + +instance FromJSVal MediaKeySystemMediaCapability where + fromJSVal v = fmap MediaKeySystemMediaCapability <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaKeySystemMediaCapability + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaKeySystemMediaCapability where + makeObject = makeObject . unMediaKeySystemMediaCapability + +instance IsGObject MediaKeySystemMediaCapability where + typeGType _ = gTypeMediaKeySystemMediaCapability + {-# INLINE typeGType #-} + +noMediaKeySystemMediaCapability :: Maybe MediaKeySystemMediaCapability +noMediaKeySystemMediaCapability = Nothing +{-# INLINE noMediaKeySystemMediaCapability #-} + +gTypeMediaKeySystemMediaCapability :: JSM GType +gTypeMediaKeySystemMediaCapability = GType . Object <$> jsg "MediaKeySystemMediaCapability" + +-- | Functions for this inteface are in "JSDOM.MediaKeys". +-- +-- +newtype MediaKeys = MediaKeys { unMediaKeys :: JSVal } + +instance PToJSVal MediaKeys where + pToJSVal = unMediaKeys + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaKeys where + pFromJSVal = MediaKeys + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaKeys where + toJSVal = return . unMediaKeys + {-# INLINE toJSVal #-} + +instance FromJSVal MediaKeys where + fromJSVal v = fmap MediaKeys <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaKeys + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaKeys where + makeObject = makeObject . unMediaKeys + +instance IsGObject MediaKeys where + typeGType _ = gTypeMediaKeys + {-# INLINE typeGType #-} + +noMediaKeys :: Maybe MediaKeys +noMediaKeys = Nothing +{-# INLINE noMediaKeys #-} + +gTypeMediaKeys :: JSM GType +gTypeMediaKeys = GType . Object <$> jsg "WebKitMediaKeys" + +-- | Functions for this inteface are in "JSDOM.MediaList". +-- +-- +newtype MediaList = MediaList { unMediaList :: JSVal } + +instance PToJSVal MediaList where + pToJSVal = unMediaList + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaList where + pFromJSVal = MediaList + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaList where + toJSVal = return . unMediaList + {-# INLINE toJSVal #-} + +instance FromJSVal MediaList where + fromJSVal v = fmap MediaList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaList where + makeObject = makeObject . unMediaList + +instance IsGObject MediaList where + typeGType _ = gTypeMediaList + {-# INLINE typeGType #-} + +noMediaList :: Maybe MediaList +noMediaList = Nothing +{-# INLINE noMediaList #-} + +gTypeMediaList :: JSM GType +gTypeMediaList = GType . Object <$> jsg "MediaList" + +-- | Functions for this inteface are in "JSDOM.MediaMetadata". +-- +-- +newtype MediaMetadata = MediaMetadata { unMediaMetadata :: JSVal } + +instance PToJSVal MediaMetadata where + pToJSVal = unMediaMetadata + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaMetadata where + pFromJSVal = MediaMetadata + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaMetadata where + toJSVal = return . unMediaMetadata + {-# INLINE toJSVal #-} + +instance FromJSVal MediaMetadata where + fromJSVal v = fmap MediaMetadata <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaMetadata + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaMetadata where + makeObject = makeObject . unMediaMetadata + +instance IsGObject MediaMetadata where + typeGType _ = gTypeMediaMetadata + {-# INLINE typeGType #-} + +noMediaMetadata :: Maybe MediaMetadata +noMediaMetadata = Nothing +{-# INLINE noMediaMetadata #-} + +gTypeMediaMetadata :: JSM GType +gTypeMediaMetadata = GType . Object <$> jsg "MediaMetadata" + +-- | Functions for this inteface are in "JSDOM.MediaQueryList". +-- +-- +newtype MediaQueryList = MediaQueryList { unMediaQueryList :: JSVal } + +instance PToJSVal MediaQueryList where + pToJSVal = unMediaQueryList + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaQueryList where + pFromJSVal = MediaQueryList + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaQueryList where + toJSVal = return . unMediaQueryList + {-# INLINE toJSVal #-} + +instance FromJSVal MediaQueryList where + fromJSVal v = fmap MediaQueryList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaQueryList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaQueryList where + makeObject = makeObject . unMediaQueryList + +instance IsGObject MediaQueryList where + typeGType _ = gTypeMediaQueryList + {-# INLINE typeGType #-} + +noMediaQueryList :: Maybe MediaQueryList +noMediaQueryList = Nothing +{-# INLINE noMediaQueryList #-} + +gTypeMediaQueryList :: JSM GType +gTypeMediaQueryList = GType . Object <$> jsg "MediaQueryList" + +-- | Functions for this inteface are in "JSDOM.MediaRemoteControls". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype MediaRemoteControls = MediaRemoteControls { unMediaRemoteControls :: JSVal } + +instance PToJSVal MediaRemoteControls where + pToJSVal = unMediaRemoteControls + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaRemoteControls where + pFromJSVal = MediaRemoteControls + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaRemoteControls where + toJSVal = return . unMediaRemoteControls + {-# INLINE toJSVal #-} + +instance FromJSVal MediaRemoteControls where + fromJSVal v = fmap MediaRemoteControls <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaRemoteControls + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaRemoteControls where + makeObject = makeObject . unMediaRemoteControls + +instance IsEventTarget MediaRemoteControls +instance IsGObject MediaRemoteControls where + typeGType _ = gTypeMediaRemoteControls + {-# INLINE typeGType #-} + +noMediaRemoteControls :: Maybe MediaRemoteControls +noMediaRemoteControls = Nothing +{-# INLINE noMediaRemoteControls #-} + +gTypeMediaRemoteControls :: JSM GType +gTypeMediaRemoteControls = GType . Object <$> jsg "MediaRemoteControls" + +-- | Functions for this inteface are in "JSDOM.MediaSession". +-- +-- +newtype MediaSession = MediaSession { unMediaSession :: JSVal } + +instance PToJSVal MediaSession where + pToJSVal = unMediaSession + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaSession where + pFromJSVal = MediaSession + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaSession where + toJSVal = return . unMediaSession + {-# INLINE toJSVal #-} + +instance FromJSVal MediaSession where + fromJSVal v = fmap MediaSession <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaSession + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaSession where + makeObject = makeObject . unMediaSession + +instance IsGObject MediaSession where + typeGType _ = gTypeMediaSession + {-# INLINE typeGType #-} + +noMediaSession :: Maybe MediaSession +noMediaSession = Nothing +{-# INLINE noMediaSession #-} + +gTypeMediaSession :: JSM GType +gTypeMediaSession = GType . Object <$> jsg "MediaSession" + +-- | Functions for this inteface are in "JSDOM.MediaSource". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype MediaSource = MediaSource { unMediaSource :: JSVal } + +instance PToJSVal MediaSource where + pToJSVal = unMediaSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaSource where + pFromJSVal = MediaSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaSource where + toJSVal = return . unMediaSource + {-# INLINE toJSVal #-} + +instance FromJSVal MediaSource where + fromJSVal v = fmap MediaSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaSource where + makeObject = makeObject . unMediaSource + +instance IsEventTarget MediaSource +instance IsGObject MediaSource where + typeGType _ = gTypeMediaSource + {-# INLINE typeGType #-} + +noMediaSource :: Maybe MediaSource +noMediaSource = Nothing +{-# INLINE noMediaSource #-} + +gTypeMediaSource :: JSM GType +gTypeMediaSource = GType . Object <$> jsg "MediaSource" + +-- | Functions for this inteface are in "JSDOM.MediaStream". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype MediaStream = MediaStream { unMediaStream :: JSVal } + +instance PToJSVal MediaStream where + pToJSVal = unMediaStream + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStream where + pFromJSVal = MediaStream + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStream where + toJSVal = return . unMediaStream + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStream where + fromJSVal v = fmap MediaStream <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStream + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStream where + makeObject = makeObject . unMediaStream + +instance IsEventTarget MediaStream +instance IsGObject MediaStream where + typeGType _ = gTypeMediaStream + {-# INLINE typeGType #-} + +noMediaStream :: Maybe MediaStream +noMediaStream = Nothing +{-# INLINE noMediaStream #-} + +gTypeMediaStream :: JSM GType +gTypeMediaStream = GType . Object <$> jsg "webkitMediaStream" + +-- | Functions for this inteface are in "JSDOM.MediaStreamAudioDestinationNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype MediaStreamAudioDestinationNode = MediaStreamAudioDestinationNode { unMediaStreamAudioDestinationNode :: JSVal } + +instance PToJSVal MediaStreamAudioDestinationNode where + pToJSVal = unMediaStreamAudioDestinationNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStreamAudioDestinationNode where + pFromJSVal = MediaStreamAudioDestinationNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStreamAudioDestinationNode where + toJSVal = return . unMediaStreamAudioDestinationNode + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStreamAudioDestinationNode where + fromJSVal v = fmap MediaStreamAudioDestinationNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStreamAudioDestinationNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStreamAudioDestinationNode where + makeObject = makeObject . unMediaStreamAudioDestinationNode + +instance IsAudioNode MediaStreamAudioDestinationNode +instance IsEventTarget MediaStreamAudioDestinationNode +instance IsGObject MediaStreamAudioDestinationNode where + typeGType _ = gTypeMediaStreamAudioDestinationNode + {-# INLINE typeGType #-} + +noMediaStreamAudioDestinationNode :: Maybe MediaStreamAudioDestinationNode +noMediaStreamAudioDestinationNode = Nothing +{-# INLINE noMediaStreamAudioDestinationNode #-} + +gTypeMediaStreamAudioDestinationNode :: JSM GType +gTypeMediaStreamAudioDestinationNode = GType . Object <$> jsg "MediaStreamAudioDestinationNode" + +-- | Functions for this inteface are in "JSDOM.MediaStreamAudioSourceNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype MediaStreamAudioSourceNode = MediaStreamAudioSourceNode { unMediaStreamAudioSourceNode :: JSVal } + +instance PToJSVal MediaStreamAudioSourceNode where + pToJSVal = unMediaStreamAudioSourceNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStreamAudioSourceNode where + pFromJSVal = MediaStreamAudioSourceNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStreamAudioSourceNode where + toJSVal = return . unMediaStreamAudioSourceNode + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStreamAudioSourceNode where + fromJSVal v = fmap MediaStreamAudioSourceNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStreamAudioSourceNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStreamAudioSourceNode where + makeObject = makeObject . unMediaStreamAudioSourceNode + +instance IsAudioNode MediaStreamAudioSourceNode +instance IsEventTarget MediaStreamAudioSourceNode +instance IsGObject MediaStreamAudioSourceNode where + typeGType _ = gTypeMediaStreamAudioSourceNode + {-# INLINE typeGType #-} + +noMediaStreamAudioSourceNode :: Maybe MediaStreamAudioSourceNode +noMediaStreamAudioSourceNode = Nothing +{-# INLINE noMediaStreamAudioSourceNode #-} + +gTypeMediaStreamAudioSourceNode :: JSM GType +gTypeMediaStreamAudioSourceNode = GType . Object <$> jsg "MediaStreamAudioSourceNode" + +-- | Functions for this inteface are in "JSDOM.MediaStreamConstraints". +-- +-- +newtype MediaStreamConstraints = MediaStreamConstraints { unMediaStreamConstraints :: JSVal } + +instance PToJSVal MediaStreamConstraints where + pToJSVal = unMediaStreamConstraints + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStreamConstraints where + pFromJSVal = MediaStreamConstraints + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStreamConstraints where + toJSVal = return . unMediaStreamConstraints + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStreamConstraints where + fromJSVal v = fmap MediaStreamConstraints <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStreamConstraints + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStreamConstraints where + makeObject = makeObject . unMediaStreamConstraints + +instance IsGObject MediaStreamConstraints where + typeGType _ = gTypeMediaStreamConstraints + {-# INLINE typeGType #-} + +noMediaStreamConstraints :: Maybe MediaStreamConstraints +noMediaStreamConstraints = Nothing +{-# INLINE noMediaStreamConstraints #-} + +gTypeMediaStreamConstraints :: JSM GType +gTypeMediaStreamConstraints = GType . Object <$> jsg "MediaStreamConstraints" + +-- | Functions for this inteface are in "JSDOM.MediaStreamEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype MediaStreamEvent = MediaStreamEvent { unMediaStreamEvent :: JSVal } + +instance PToJSVal MediaStreamEvent where + pToJSVal = unMediaStreamEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStreamEvent where + pFromJSVal = MediaStreamEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStreamEvent where + toJSVal = return . unMediaStreamEvent + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStreamEvent where + fromJSVal v = fmap MediaStreamEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStreamEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStreamEvent where + makeObject = makeObject . unMediaStreamEvent + +instance IsEvent MediaStreamEvent +instance IsGObject MediaStreamEvent where + typeGType _ = gTypeMediaStreamEvent + {-# INLINE typeGType #-} + +noMediaStreamEvent :: Maybe MediaStreamEvent +noMediaStreamEvent = Nothing +{-# INLINE noMediaStreamEvent #-} + +gTypeMediaStreamEvent :: JSM GType +gTypeMediaStreamEvent = GType . Object <$> jsg "MediaStreamEvent" + +-- | Functions for this inteface are in "JSDOM.MediaStreamEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype MediaStreamEventInit = MediaStreamEventInit { unMediaStreamEventInit :: JSVal } + +instance PToJSVal MediaStreamEventInit where + pToJSVal = unMediaStreamEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStreamEventInit where + pFromJSVal = MediaStreamEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStreamEventInit where + toJSVal = return . unMediaStreamEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStreamEventInit where + fromJSVal v = fmap MediaStreamEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStreamEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStreamEventInit where + makeObject = makeObject . unMediaStreamEventInit + +instance IsEventInit MediaStreamEventInit +instance IsGObject MediaStreamEventInit where + typeGType _ = gTypeMediaStreamEventInit + {-# INLINE typeGType #-} + +noMediaStreamEventInit :: Maybe MediaStreamEventInit +noMediaStreamEventInit = Nothing +{-# INLINE noMediaStreamEventInit #-} + +gTypeMediaStreamEventInit :: JSM GType +gTypeMediaStreamEventInit = GType . Object <$> jsg "MediaStreamEventInit" + +-- | Functions for this inteface are in "JSDOM.MediaStreamTrack". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype MediaStreamTrack = MediaStreamTrack { unMediaStreamTrack :: JSVal } + +instance PToJSVal MediaStreamTrack where + pToJSVal = unMediaStreamTrack + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStreamTrack where + pFromJSVal = MediaStreamTrack + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStreamTrack where + toJSVal = return . unMediaStreamTrack + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStreamTrack where + fromJSVal v = fmap MediaStreamTrack <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStreamTrack + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStreamTrack where + makeObject = makeObject . unMediaStreamTrack + +class (IsEventTarget o, IsGObject o) => IsMediaStreamTrack o +toMediaStreamTrack :: IsMediaStreamTrack o => o -> MediaStreamTrack +toMediaStreamTrack = MediaStreamTrack . coerce + +instance IsMediaStreamTrack MediaStreamTrack +instance IsEventTarget MediaStreamTrack +instance IsGObject MediaStreamTrack where + typeGType _ = gTypeMediaStreamTrack + {-# INLINE typeGType #-} + +noMediaStreamTrack :: Maybe MediaStreamTrack +noMediaStreamTrack = Nothing +{-# INLINE noMediaStreamTrack #-} + +gTypeMediaStreamTrack :: JSM GType +gTypeMediaStreamTrack = GType . Object <$> jsg "MediaStreamTrack" + +-- | Functions for this inteface are in "JSDOM.MediaStreamTrackEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype MediaStreamTrackEvent = MediaStreamTrackEvent { unMediaStreamTrackEvent :: JSVal } + +instance PToJSVal MediaStreamTrackEvent where + pToJSVal = unMediaStreamTrackEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStreamTrackEvent where + pFromJSVal = MediaStreamTrackEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStreamTrackEvent where + toJSVal = return . unMediaStreamTrackEvent + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStreamTrackEvent where + fromJSVal v = fmap MediaStreamTrackEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStreamTrackEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStreamTrackEvent where + makeObject = makeObject . unMediaStreamTrackEvent + +instance IsEvent MediaStreamTrackEvent +instance IsGObject MediaStreamTrackEvent where + typeGType _ = gTypeMediaStreamTrackEvent + {-# INLINE typeGType #-} + +noMediaStreamTrackEvent :: Maybe MediaStreamTrackEvent +noMediaStreamTrackEvent = Nothing +{-# INLINE noMediaStreamTrackEvent #-} + +gTypeMediaStreamTrackEvent :: JSM GType +gTypeMediaStreamTrackEvent = GType . Object <$> jsg "MediaStreamTrackEvent" + +-- | Functions for this inteface are in "JSDOM.MediaStreamTrackEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype MediaStreamTrackEventInit = MediaStreamTrackEventInit { unMediaStreamTrackEventInit :: JSVal } + +instance PToJSVal MediaStreamTrackEventInit where + pToJSVal = unMediaStreamTrackEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaStreamTrackEventInit where + pFromJSVal = MediaStreamTrackEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaStreamTrackEventInit where + toJSVal = return . unMediaStreamTrackEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal MediaStreamTrackEventInit where + fromJSVal v = fmap MediaStreamTrackEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaStreamTrackEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaStreamTrackEventInit where + makeObject = makeObject . unMediaStreamTrackEventInit + +instance IsEventInit MediaStreamTrackEventInit +instance IsGObject MediaStreamTrackEventInit where + typeGType _ = gTypeMediaStreamTrackEventInit + {-# INLINE typeGType #-} + +noMediaStreamTrackEventInit :: Maybe MediaStreamTrackEventInit +noMediaStreamTrackEventInit = Nothing +{-# INLINE noMediaStreamTrackEventInit #-} + +gTypeMediaStreamTrackEventInit :: JSM GType +gTypeMediaStreamTrackEventInit = GType . Object <$> jsg "MediaStreamTrackEventInit" + +-- | Functions for this inteface are in "JSDOM.MediaTrackCapabilities". +-- +-- +newtype MediaTrackCapabilities = MediaTrackCapabilities { unMediaTrackCapabilities :: JSVal } + +instance PToJSVal MediaTrackCapabilities where + pToJSVal = unMediaTrackCapabilities + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaTrackCapabilities where + pFromJSVal = MediaTrackCapabilities + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaTrackCapabilities where + toJSVal = return . unMediaTrackCapabilities + {-# INLINE toJSVal #-} + +instance FromJSVal MediaTrackCapabilities where + fromJSVal v = fmap MediaTrackCapabilities <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaTrackCapabilities + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaTrackCapabilities where + makeObject = makeObject . unMediaTrackCapabilities + +instance IsGObject MediaTrackCapabilities where + typeGType _ = gTypeMediaTrackCapabilities + {-# INLINE typeGType #-} + +noMediaTrackCapabilities :: Maybe MediaTrackCapabilities +noMediaTrackCapabilities = Nothing +{-# INLINE noMediaTrackCapabilities #-} + +gTypeMediaTrackCapabilities :: JSM GType +gTypeMediaTrackCapabilities = GType . Object <$> jsg "MediaTrackCapabilities" + +-- | Functions for this inteface are in "JSDOM.MediaTrackConstraintSet". +-- +-- +newtype MediaTrackConstraintSet = MediaTrackConstraintSet { unMediaTrackConstraintSet :: JSVal } + +instance PToJSVal MediaTrackConstraintSet where + pToJSVal = unMediaTrackConstraintSet + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaTrackConstraintSet where + pFromJSVal = MediaTrackConstraintSet + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaTrackConstraintSet where + toJSVal = return . unMediaTrackConstraintSet + {-# INLINE toJSVal #-} + +instance FromJSVal MediaTrackConstraintSet where + fromJSVal v = fmap MediaTrackConstraintSet <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaTrackConstraintSet + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaTrackConstraintSet where + makeObject = makeObject . unMediaTrackConstraintSet + +class (IsGObject o) => IsMediaTrackConstraintSet o +toMediaTrackConstraintSet :: IsMediaTrackConstraintSet o => o -> MediaTrackConstraintSet +toMediaTrackConstraintSet = MediaTrackConstraintSet . coerce + +instance IsMediaTrackConstraintSet MediaTrackConstraintSet +instance IsGObject MediaTrackConstraintSet where + typeGType _ = gTypeMediaTrackConstraintSet + {-# INLINE typeGType #-} + +noMediaTrackConstraintSet :: Maybe MediaTrackConstraintSet +noMediaTrackConstraintSet = Nothing +{-# INLINE noMediaTrackConstraintSet #-} + +gTypeMediaTrackConstraintSet :: JSM GType +gTypeMediaTrackConstraintSet = GType . Object <$> jsg "MediaTrackConstraintSet" + +-- | Functions for this inteface are in "JSDOM.MediaTrackConstraints". +-- Base interface functions are in: +-- +-- * "JSDOM.MediaTrackConstraintSet" +-- +-- +newtype MediaTrackConstraints = MediaTrackConstraints { unMediaTrackConstraints :: JSVal } + +instance PToJSVal MediaTrackConstraints where + pToJSVal = unMediaTrackConstraints + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaTrackConstraints where + pFromJSVal = MediaTrackConstraints + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaTrackConstraints where + toJSVal = return . unMediaTrackConstraints + {-# INLINE toJSVal #-} + +instance FromJSVal MediaTrackConstraints where + fromJSVal v = fmap MediaTrackConstraints <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaTrackConstraints + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaTrackConstraints where + makeObject = makeObject . unMediaTrackConstraints + +instance IsMediaTrackConstraintSet MediaTrackConstraints +instance IsGObject MediaTrackConstraints where + typeGType _ = gTypeMediaTrackConstraints + {-# INLINE typeGType #-} + +noMediaTrackConstraints :: Maybe MediaTrackConstraints +noMediaTrackConstraints = Nothing +{-# INLINE noMediaTrackConstraints #-} + +gTypeMediaTrackConstraints :: JSM GType +gTypeMediaTrackConstraints = GType . Object <$> jsg "MediaTrackConstraints" + +-- | Functions for this inteface are in "JSDOM.MediaTrackSettings". +-- +-- +newtype MediaTrackSettings = MediaTrackSettings { unMediaTrackSettings :: JSVal } + +instance PToJSVal MediaTrackSettings where + pToJSVal = unMediaTrackSettings + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaTrackSettings where + pFromJSVal = MediaTrackSettings + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaTrackSettings where + toJSVal = return . unMediaTrackSettings + {-# INLINE toJSVal #-} + +instance FromJSVal MediaTrackSettings where + fromJSVal v = fmap MediaTrackSettings <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaTrackSettings + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaTrackSettings where + makeObject = makeObject . unMediaTrackSettings + +instance IsGObject MediaTrackSettings where + typeGType _ = gTypeMediaTrackSettings + {-# INLINE typeGType #-} + +noMediaTrackSettings :: Maybe MediaTrackSettings +noMediaTrackSettings = Nothing +{-# INLINE noMediaTrackSettings #-} + +gTypeMediaTrackSettings :: JSM GType +gTypeMediaTrackSettings = GType . Object <$> jsg "MediaTrackSettings" + +-- | Functions for this inteface are in "JSDOM.MediaTrackSupportedConstraints". +-- +-- +newtype MediaTrackSupportedConstraints = MediaTrackSupportedConstraints { unMediaTrackSupportedConstraints :: JSVal } + +instance PToJSVal MediaTrackSupportedConstraints where + pToJSVal = unMediaTrackSupportedConstraints + {-# INLINE pToJSVal #-} + +instance PFromJSVal MediaTrackSupportedConstraints where + pFromJSVal = MediaTrackSupportedConstraints + {-# INLINE pFromJSVal #-} + +instance ToJSVal MediaTrackSupportedConstraints where + toJSVal = return . unMediaTrackSupportedConstraints + {-# INLINE toJSVal #-} + +instance FromJSVal MediaTrackSupportedConstraints where + fromJSVal v = fmap MediaTrackSupportedConstraints <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MediaTrackSupportedConstraints + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MediaTrackSupportedConstraints where + makeObject = makeObject . unMediaTrackSupportedConstraints + +instance IsGObject MediaTrackSupportedConstraints where + typeGType _ = gTypeMediaTrackSupportedConstraints + {-# INLINE typeGType #-} + +noMediaTrackSupportedConstraints :: Maybe MediaTrackSupportedConstraints +noMediaTrackSupportedConstraints = Nothing +{-# INLINE noMediaTrackSupportedConstraints #-} + +gTypeMediaTrackSupportedConstraints :: JSM GType +gTypeMediaTrackSupportedConstraints = GType . Object <$> jsg "MediaTrackSupportedConstraints" + +-- | Functions for this inteface are in "JSDOM.MessageChannel". +-- +-- +newtype MessageChannel = MessageChannel { unMessageChannel :: JSVal } + +instance PToJSVal MessageChannel where + pToJSVal = unMessageChannel + {-# INLINE pToJSVal #-} + +instance PFromJSVal MessageChannel where + pFromJSVal = MessageChannel + {-# INLINE pFromJSVal #-} + +instance ToJSVal MessageChannel where + toJSVal = return . unMessageChannel + {-# INLINE toJSVal #-} + +instance FromJSVal MessageChannel where + fromJSVal v = fmap MessageChannel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MessageChannel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MessageChannel where + makeObject = makeObject . unMessageChannel + +instance IsGObject MessageChannel where + typeGType _ = gTypeMessageChannel + {-# INLINE typeGType #-} + +noMessageChannel :: Maybe MessageChannel +noMessageChannel = Nothing +{-# INLINE noMessageChannel #-} + +gTypeMessageChannel :: JSM GType +gTypeMessageChannel = GType . Object <$> jsg "MessageChannel" + +-- | Functions for this inteface are in "JSDOM.MessageEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype MessageEvent = MessageEvent { unMessageEvent :: JSVal } + +instance PToJSVal MessageEvent where + pToJSVal = unMessageEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal MessageEvent where + pFromJSVal = MessageEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal MessageEvent where + toJSVal = return . unMessageEvent + {-# INLINE toJSVal #-} + +instance FromJSVal MessageEvent where + fromJSVal v = fmap MessageEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MessageEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MessageEvent where + makeObject = makeObject . unMessageEvent + +instance IsEvent MessageEvent +instance IsGObject MessageEvent where + typeGType _ = gTypeMessageEvent + {-# INLINE typeGType #-} + +noMessageEvent :: Maybe MessageEvent +noMessageEvent = Nothing +{-# INLINE noMessageEvent #-} + +gTypeMessageEvent :: JSM GType +gTypeMessageEvent = GType . Object <$> jsg "MessageEvent" + +-- | Functions for this inteface are in "JSDOM.MessageEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype MessageEventInit = MessageEventInit { unMessageEventInit :: JSVal } + +instance PToJSVal MessageEventInit where + pToJSVal = unMessageEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal MessageEventInit where + pFromJSVal = MessageEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal MessageEventInit where + toJSVal = return . unMessageEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal MessageEventInit where + fromJSVal v = fmap MessageEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MessageEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MessageEventInit where + makeObject = makeObject . unMessageEventInit + +instance IsEventInit MessageEventInit +instance IsGObject MessageEventInit where + typeGType _ = gTypeMessageEventInit + {-# INLINE typeGType #-} + +noMessageEventInit :: Maybe MessageEventInit +noMessageEventInit = Nothing +{-# INLINE noMessageEventInit #-} + +gTypeMessageEventInit :: JSM GType +gTypeMessageEventInit = GType . Object <$> jsg "MessageEventInit" + +-- | Functions for this inteface are in "JSDOM.MessagePort". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype MessagePort = MessagePort { unMessagePort :: JSVal } + +instance PToJSVal MessagePort where + pToJSVal = unMessagePort + {-# INLINE pToJSVal #-} + +instance PFromJSVal MessagePort where + pFromJSVal = MessagePort + {-# INLINE pFromJSVal #-} + +instance ToJSVal MessagePort where + toJSVal = return . unMessagePort + {-# INLINE toJSVal #-} + +instance FromJSVal MessagePort where + fromJSVal v = fmap MessagePort <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MessagePort + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MessagePort where + makeObject = makeObject . unMessagePort + +instance IsEventTarget MessagePort +instance IsGObject MessagePort where + typeGType _ = gTypeMessagePort + {-# INLINE typeGType #-} + +noMessagePort :: Maybe MessagePort +noMessagePort = Nothing +{-# INLINE noMessagePort #-} + +gTypeMessagePort :: JSM GType +gTypeMessagePort = GType . Object <$> jsg "MessagePort" + +-- | Functions for this inteface are in "JSDOM.MimeType". +-- +-- +newtype MimeType = MimeType { unMimeType :: JSVal } + +instance PToJSVal MimeType where + pToJSVal = unMimeType + {-# INLINE pToJSVal #-} + +instance PFromJSVal MimeType where + pFromJSVal = MimeType + {-# INLINE pFromJSVal #-} + +instance ToJSVal MimeType where + toJSVal = return . unMimeType + {-# INLINE toJSVal #-} + +instance FromJSVal MimeType where + fromJSVal v = fmap MimeType <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MimeType + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MimeType where + makeObject = makeObject . unMimeType + +instance IsGObject MimeType where + typeGType _ = gTypeMimeType + {-# INLINE typeGType #-} + +noMimeType :: Maybe MimeType +noMimeType = Nothing +{-# INLINE noMimeType #-} + +gTypeMimeType :: JSM GType +gTypeMimeType = GType . Object <$> jsg "MimeType" + +-- | Functions for this inteface are in "JSDOM.MimeTypeArray". +-- +-- +newtype MimeTypeArray = MimeTypeArray { unMimeTypeArray :: JSVal } + +instance PToJSVal MimeTypeArray where + pToJSVal = unMimeTypeArray + {-# INLINE pToJSVal #-} + +instance PFromJSVal MimeTypeArray where + pFromJSVal = MimeTypeArray + {-# INLINE pFromJSVal #-} + +instance ToJSVal MimeTypeArray where + toJSVal = return . unMimeTypeArray + {-# INLINE toJSVal #-} + +instance FromJSVal MimeTypeArray where + fromJSVal v = fmap MimeTypeArray <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MimeTypeArray + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MimeTypeArray where + makeObject = makeObject . unMimeTypeArray + +instance IsGObject MimeTypeArray where + typeGType _ = gTypeMimeTypeArray + {-# INLINE typeGType #-} + +noMimeTypeArray :: Maybe MimeTypeArray +noMimeTypeArray = Nothing +{-# INLINE noMimeTypeArray #-} + +gTypeMimeTypeArray :: JSM GType +gTypeMimeTypeArray = GType . Object <$> jsg "MimeTypeArray" + +-- | Functions for this inteface are in "JSDOM.MouseEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEvent" +-- * "JSDOM.Event" +-- +-- +newtype MouseEvent = MouseEvent { unMouseEvent :: JSVal } + +instance PToJSVal MouseEvent where + pToJSVal = unMouseEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal MouseEvent where + pFromJSVal = MouseEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal MouseEvent where + toJSVal = return . unMouseEvent + {-# INLINE toJSVal #-} + +instance FromJSVal MouseEvent where + fromJSVal v = fmap MouseEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MouseEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MouseEvent where + makeObject = makeObject . unMouseEvent + +class (IsUIEvent o, IsEvent o, IsGObject o) => IsMouseEvent o +toMouseEvent :: IsMouseEvent o => o -> MouseEvent +toMouseEvent = MouseEvent . coerce + +instance IsMouseEvent MouseEvent +instance IsUIEvent MouseEvent +instance IsEvent MouseEvent +instance IsGObject MouseEvent where + typeGType _ = gTypeMouseEvent + {-# INLINE typeGType #-} + +noMouseEvent :: Maybe MouseEvent +noMouseEvent = Nothing +{-# INLINE noMouseEvent #-} + +gTypeMouseEvent :: JSM GType +gTypeMouseEvent = GType . Object <$> jsg "MouseEvent" + +-- | Functions for this inteface are in "JSDOM.MouseEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventModifierInit" +-- * "JSDOM.UIEventInit" +-- * "JSDOM.EventInit" +-- +-- +newtype MouseEventInit = MouseEventInit { unMouseEventInit :: JSVal } + +instance PToJSVal MouseEventInit where + pToJSVal = unMouseEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal MouseEventInit where + pFromJSVal = MouseEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal MouseEventInit where + toJSVal = return . unMouseEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal MouseEventInit where + fromJSVal v = fmap MouseEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MouseEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MouseEventInit where + makeObject = makeObject . unMouseEventInit + +class (IsEventModifierInit o, IsUIEventInit o, IsEventInit o, IsGObject o) => IsMouseEventInit o +toMouseEventInit :: IsMouseEventInit o => o -> MouseEventInit +toMouseEventInit = MouseEventInit . coerce + +instance IsMouseEventInit MouseEventInit +instance IsEventModifierInit MouseEventInit +instance IsUIEventInit MouseEventInit +instance IsEventInit MouseEventInit +instance IsGObject MouseEventInit where + typeGType _ = gTypeMouseEventInit + {-# INLINE typeGType #-} + +noMouseEventInit :: Maybe MouseEventInit +noMouseEventInit = Nothing +{-# INLINE noMouseEventInit #-} + +gTypeMouseEventInit :: JSM GType +gTypeMouseEventInit = GType . Object <$> jsg "MouseEventInit" + +-- | Functions for this inteface are in "JSDOM.MutationEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype MutationEvent = MutationEvent { unMutationEvent :: JSVal } + +instance PToJSVal MutationEvent where + pToJSVal = unMutationEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal MutationEvent where + pFromJSVal = MutationEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal MutationEvent where + toJSVal = return . unMutationEvent + {-# INLINE toJSVal #-} + +instance FromJSVal MutationEvent where + fromJSVal v = fmap MutationEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MutationEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MutationEvent where + makeObject = makeObject . unMutationEvent + +instance IsEvent MutationEvent +instance IsGObject MutationEvent where + typeGType _ = gTypeMutationEvent + {-# INLINE typeGType #-} + +noMutationEvent :: Maybe MutationEvent +noMutationEvent = Nothing +{-# INLINE noMutationEvent #-} + +gTypeMutationEvent :: JSM GType +gTypeMutationEvent = GType . Object <$> jsg "MutationEvent" + +-- | Functions for this inteface are in "JSDOM.MutationObserver". +-- +-- +newtype MutationObserver = MutationObserver { unMutationObserver :: JSVal } + +instance PToJSVal MutationObserver where + pToJSVal = unMutationObserver + {-# INLINE pToJSVal #-} + +instance PFromJSVal MutationObserver where + pFromJSVal = MutationObserver + {-# INLINE pFromJSVal #-} + +instance ToJSVal MutationObserver where + toJSVal = return . unMutationObserver + {-# INLINE toJSVal #-} + +instance FromJSVal MutationObserver where + fromJSVal v = fmap MutationObserver <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MutationObserver + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MutationObserver where + makeObject = makeObject . unMutationObserver + +instance IsGObject MutationObserver where + typeGType _ = gTypeMutationObserver + {-# INLINE typeGType #-} + +noMutationObserver :: Maybe MutationObserver +noMutationObserver = Nothing +{-# INLINE noMutationObserver #-} + +gTypeMutationObserver :: JSM GType +gTypeMutationObserver = GType . Object <$> jsg "MutationObserver" + +-- | Functions for this inteface are in "JSDOM.MutationObserverInit". +-- +-- +newtype MutationObserverInit = MutationObserverInit { unMutationObserverInit :: JSVal } + +instance PToJSVal MutationObserverInit where + pToJSVal = unMutationObserverInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal MutationObserverInit where + pFromJSVal = MutationObserverInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal MutationObserverInit where + toJSVal = return . unMutationObserverInit + {-# INLINE toJSVal #-} + +instance FromJSVal MutationObserverInit where + fromJSVal v = fmap MutationObserverInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MutationObserverInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MutationObserverInit where + makeObject = makeObject . unMutationObserverInit + +instance IsGObject MutationObserverInit where + typeGType _ = gTypeMutationObserverInit + {-# INLINE typeGType #-} + +noMutationObserverInit :: Maybe MutationObserverInit +noMutationObserverInit = Nothing +{-# INLINE noMutationObserverInit #-} + +gTypeMutationObserverInit :: JSM GType +gTypeMutationObserverInit = GType . Object <$> jsg "MutationObserverInit" + +-- | Functions for this inteface are in "JSDOM.MutationRecord". +-- +-- +newtype MutationRecord = MutationRecord { unMutationRecord :: JSVal } + +instance PToJSVal MutationRecord where + pToJSVal = unMutationRecord + {-# INLINE pToJSVal #-} + +instance PFromJSVal MutationRecord where + pFromJSVal = MutationRecord + {-# INLINE pFromJSVal #-} + +instance ToJSVal MutationRecord where + toJSVal = return . unMutationRecord + {-# INLINE toJSVal #-} + +instance FromJSVal MutationRecord where + fromJSVal v = fmap MutationRecord <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . MutationRecord + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject MutationRecord where + makeObject = makeObject . unMutationRecord + +instance IsGObject MutationRecord where + typeGType _ = gTypeMutationRecord + {-# INLINE typeGType #-} + +noMutationRecord :: Maybe MutationRecord +noMutationRecord = Nothing +{-# INLINE noMutationRecord #-} + +gTypeMutationRecord :: JSM GType +gTypeMutationRecord = GType . Object <$> jsg "MutationRecord" + +-- | Functions for this inteface are in "JSDOM.NamedNodeMap". +-- +-- +newtype NamedNodeMap = NamedNodeMap { unNamedNodeMap :: JSVal } + +instance PToJSVal NamedNodeMap where + pToJSVal = unNamedNodeMap + {-# INLINE pToJSVal #-} + +instance PFromJSVal NamedNodeMap where + pFromJSVal = NamedNodeMap + {-# INLINE pFromJSVal #-} + +instance ToJSVal NamedNodeMap where + toJSVal = return . unNamedNodeMap + {-# INLINE toJSVal #-} + +instance FromJSVal NamedNodeMap where + fromJSVal v = fmap NamedNodeMap <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NamedNodeMap + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NamedNodeMap where + makeObject = makeObject . unNamedNodeMap + +instance IsGObject NamedNodeMap where + typeGType _ = gTypeNamedNodeMap + {-# INLINE typeGType #-} + +noNamedNodeMap :: Maybe NamedNodeMap +noNamedNodeMap = Nothing +{-# INLINE noNamedNodeMap #-} + +gTypeNamedNodeMap :: JSM GType +gTypeNamedNodeMap = GType . Object <$> jsg "NamedNodeMap" + +-- | Functions for this inteface are in "JSDOM.Navigator". +-- Base interface functions are in: +-- +-- * "JSDOM.NavigatorOnLine" +-- * "JSDOM.NavigatorLanguage" +-- * "JSDOM.NavigatorID" +-- * "JSDOM.NavigatorConcurrentHardware" +-- +-- +newtype Navigator = Navigator { unNavigator :: JSVal } + +instance PToJSVal Navigator where + pToJSVal = unNavigator + {-# INLINE pToJSVal #-} + +instance PFromJSVal Navigator where + pFromJSVal = Navigator + {-# INLINE pFromJSVal #-} + +instance ToJSVal Navigator where + toJSVal = return . unNavigator + {-# INLINE toJSVal #-} + +instance FromJSVal Navigator where + fromJSVal v = fmap Navigator <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Navigator + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Navigator where + makeObject = makeObject . unNavigator + +instance IsNavigatorOnLine Navigator +instance IsNavigatorLanguage Navigator +instance IsNavigatorID Navigator +instance IsNavigatorConcurrentHardware Navigator +instance IsGObject Navigator where + typeGType _ = gTypeNavigator + {-# INLINE typeGType #-} + +noNavigator :: Maybe Navigator +noNavigator = Nothing +{-# INLINE noNavigator #-} + +gTypeNavigator :: JSM GType +gTypeNavigator = GType . Object <$> jsg "Navigator" + +-- | Functions for this inteface are in "JSDOM.NavigatorConcurrentHardware". +-- +-- +newtype NavigatorConcurrentHardware = NavigatorConcurrentHardware { unNavigatorConcurrentHardware :: JSVal } + +instance PToJSVal NavigatorConcurrentHardware where + pToJSVal = unNavigatorConcurrentHardware + {-# INLINE pToJSVal #-} + +instance PFromJSVal NavigatorConcurrentHardware where + pFromJSVal = NavigatorConcurrentHardware + {-# INLINE pFromJSVal #-} + +instance ToJSVal NavigatorConcurrentHardware where + toJSVal = return . unNavigatorConcurrentHardware + {-# INLINE toJSVal #-} + +instance FromJSVal NavigatorConcurrentHardware where + fromJSVal v = fmap NavigatorConcurrentHardware <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NavigatorConcurrentHardware + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NavigatorConcurrentHardware where + makeObject = makeObject . unNavigatorConcurrentHardware + +class (IsGObject o) => IsNavigatorConcurrentHardware o +toNavigatorConcurrentHardware :: IsNavigatorConcurrentHardware o => o -> NavigatorConcurrentHardware +toNavigatorConcurrentHardware = NavigatorConcurrentHardware . coerce + +instance IsNavigatorConcurrentHardware NavigatorConcurrentHardware +instance IsGObject NavigatorConcurrentHardware where + typeGType _ = gTypeNavigatorConcurrentHardware + {-# INLINE typeGType #-} + +noNavigatorConcurrentHardware :: Maybe NavigatorConcurrentHardware +noNavigatorConcurrentHardware = Nothing +{-# INLINE noNavigatorConcurrentHardware #-} + +gTypeNavigatorConcurrentHardware :: JSM GType +gTypeNavigatorConcurrentHardware = GType . Object <$> jsg "NavigatorConcurrentHardware" + +-- | Functions for this inteface are in "JSDOM.NavigatorID". +-- +-- +newtype NavigatorID = NavigatorID { unNavigatorID :: JSVal } + +instance PToJSVal NavigatorID where + pToJSVal = unNavigatorID + {-# INLINE pToJSVal #-} + +instance PFromJSVal NavigatorID where + pFromJSVal = NavigatorID + {-# INLINE pFromJSVal #-} + +instance ToJSVal NavigatorID where + toJSVal = return . unNavigatorID + {-# INLINE toJSVal #-} + +instance FromJSVal NavigatorID where + fromJSVal v = fmap NavigatorID <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NavigatorID + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NavigatorID where + makeObject = makeObject . unNavigatorID + +class (IsGObject o) => IsNavigatorID o +toNavigatorID :: IsNavigatorID o => o -> NavigatorID +toNavigatorID = NavigatorID . coerce + +instance IsNavigatorID NavigatorID +instance IsGObject NavigatorID where + typeGType _ = gTypeNavigatorID + {-# INLINE typeGType #-} + +noNavigatorID :: Maybe NavigatorID +noNavigatorID = Nothing +{-# INLINE noNavigatorID #-} + +gTypeNavigatorID :: JSM GType +gTypeNavigatorID = GType . Object <$> jsg "NavigatorID" + +-- | Functions for this inteface are in "JSDOM.NavigatorLanguage". +-- +-- +newtype NavigatorLanguage = NavigatorLanguage { unNavigatorLanguage :: JSVal } + +instance PToJSVal NavigatorLanguage where + pToJSVal = unNavigatorLanguage + {-# INLINE pToJSVal #-} + +instance PFromJSVal NavigatorLanguage where + pFromJSVal = NavigatorLanguage + {-# INLINE pFromJSVal #-} + +instance ToJSVal NavigatorLanguage where + toJSVal = return . unNavigatorLanguage + {-# INLINE toJSVal #-} + +instance FromJSVal NavigatorLanguage where + fromJSVal v = fmap NavigatorLanguage <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NavigatorLanguage + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NavigatorLanguage where + makeObject = makeObject . unNavigatorLanguage + +class (IsGObject o) => IsNavigatorLanguage o +toNavigatorLanguage :: IsNavigatorLanguage o => o -> NavigatorLanguage +toNavigatorLanguage = NavigatorLanguage . coerce + +instance IsNavigatorLanguage NavigatorLanguage +instance IsGObject NavigatorLanguage where + typeGType _ = gTypeNavigatorLanguage + {-# INLINE typeGType #-} + +noNavigatorLanguage :: Maybe NavigatorLanguage +noNavigatorLanguage = Nothing +{-# INLINE noNavigatorLanguage #-} + +gTypeNavigatorLanguage :: JSM GType +gTypeNavigatorLanguage = GType . Object <$> jsg "NavigatorLanguage" + +-- | Functions for this inteface are in "JSDOM.NavigatorOnLine". +-- +-- +newtype NavigatorOnLine = NavigatorOnLine { unNavigatorOnLine :: JSVal } + +instance PToJSVal NavigatorOnLine where + pToJSVal = unNavigatorOnLine + {-# INLINE pToJSVal #-} + +instance PFromJSVal NavigatorOnLine where + pFromJSVal = NavigatorOnLine + {-# INLINE pFromJSVal #-} + +instance ToJSVal NavigatorOnLine where + toJSVal = return . unNavigatorOnLine + {-# INLINE toJSVal #-} + +instance FromJSVal NavigatorOnLine where + fromJSVal v = fmap NavigatorOnLine <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NavigatorOnLine + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NavigatorOnLine where + makeObject = makeObject . unNavigatorOnLine + +class (IsGObject o) => IsNavigatorOnLine o +toNavigatorOnLine :: IsNavigatorOnLine o => o -> NavigatorOnLine +toNavigatorOnLine = NavigatorOnLine . coerce + +instance IsNavigatorOnLine NavigatorOnLine +instance IsGObject NavigatorOnLine where + typeGType _ = gTypeNavigatorOnLine + {-# INLINE typeGType #-} + +noNavigatorOnLine :: Maybe NavigatorOnLine +noNavigatorOnLine = Nothing +{-# INLINE noNavigatorOnLine #-} + +gTypeNavigatorOnLine :: JSM GType +gTypeNavigatorOnLine = GType . Object <$> jsg "NavigatorOnLine" + +-- | Functions for this inteface are in "JSDOM.NavigatorUserMediaError". +-- Base interface functions are in: +-- +-- * "JSDOM.DOMError" +-- +-- +newtype NavigatorUserMediaError = NavigatorUserMediaError { unNavigatorUserMediaError :: JSVal } + +instance PToJSVal NavigatorUserMediaError where + pToJSVal = unNavigatorUserMediaError + {-# INLINE pToJSVal #-} + +instance PFromJSVal NavigatorUserMediaError where + pFromJSVal = NavigatorUserMediaError + {-# INLINE pFromJSVal #-} + +instance ToJSVal NavigatorUserMediaError where + toJSVal = return . unNavigatorUserMediaError + {-# INLINE toJSVal #-} + +instance FromJSVal NavigatorUserMediaError where + fromJSVal v = fmap NavigatorUserMediaError <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NavigatorUserMediaError + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NavigatorUserMediaError where + makeObject = makeObject . unNavigatorUserMediaError + +instance IsDOMError NavigatorUserMediaError +instance IsGObject NavigatorUserMediaError where + typeGType _ = gTypeNavigatorUserMediaError + {-# INLINE typeGType #-} + +noNavigatorUserMediaError :: Maybe NavigatorUserMediaError +noNavigatorUserMediaError = Nothing +{-# INLINE noNavigatorUserMediaError #-} + +gTypeNavigatorUserMediaError :: JSM GType +gTypeNavigatorUserMediaError = GType . Object <$> jsg "NavigatorUserMediaError" + +-- | Functions for this inteface are in "JSDOM.Node". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype Node = Node { unNode :: JSVal } + +instance PToJSVal Node where + pToJSVal = unNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal Node where + pFromJSVal = Node + {-# INLINE pFromJSVal #-} + +instance ToJSVal Node where + toJSVal = return . unNode + {-# INLINE toJSVal #-} + +instance FromJSVal Node where + fromJSVal v = fmap Node <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Node + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Node where + makeObject = makeObject . unNode + +class (IsEventTarget o, IsGObject o) => IsNode o +toNode :: IsNode o => o -> Node +toNode = Node . coerce + +instance IsNode Node +instance IsEventTarget Node +instance IsGObject Node where + typeGType _ = gTypeNode + {-# INLINE typeGType #-} + +noNode :: Maybe Node +noNode = Nothing +{-# INLINE noNode #-} + +gTypeNode :: JSM GType +gTypeNode = GType . Object <$> jsg "Node" + +-- | Functions for this inteface are in "JSDOM.NodeIterator". +-- +-- +newtype NodeIterator = NodeIterator { unNodeIterator :: JSVal } + +instance PToJSVal NodeIterator where + pToJSVal = unNodeIterator + {-# INLINE pToJSVal #-} + +instance PFromJSVal NodeIterator where + pFromJSVal = NodeIterator + {-# INLINE pFromJSVal #-} + +instance ToJSVal NodeIterator where + toJSVal = return . unNodeIterator + {-# INLINE toJSVal #-} + +instance FromJSVal NodeIterator where + fromJSVal v = fmap NodeIterator <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NodeIterator + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NodeIterator where + makeObject = makeObject . unNodeIterator + +instance IsGObject NodeIterator where + typeGType _ = gTypeNodeIterator + {-# INLINE typeGType #-} + +noNodeIterator :: Maybe NodeIterator +noNodeIterator = Nothing +{-# INLINE noNodeIterator #-} + +gTypeNodeIterator :: JSM GType +gTypeNodeIterator = GType . Object <$> jsg "NodeIterator" + +-- | Functions for this inteface are in "JSDOM.NodeList". +-- +-- +newtype NodeList = NodeList { unNodeList :: JSVal } + +instance PToJSVal NodeList where + pToJSVal = unNodeList + {-# INLINE pToJSVal #-} + +instance PFromJSVal NodeList where + pFromJSVal = NodeList + {-# INLINE pFromJSVal #-} + +instance ToJSVal NodeList where + toJSVal = return . unNodeList + {-# INLINE toJSVal #-} + +instance FromJSVal NodeList where + fromJSVal v = fmap NodeList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NodeList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NodeList where + makeObject = makeObject . unNodeList + +class (IsGObject o) => IsNodeList o +toNodeList :: IsNodeList o => o -> NodeList +toNodeList = NodeList . coerce + +instance IsNodeList NodeList +instance IsGObject NodeList where + typeGType _ = gTypeNodeList + {-# INLINE typeGType #-} + +noNodeList :: Maybe NodeList +noNodeList = Nothing +{-# INLINE noNodeList #-} + +gTypeNodeList :: JSM GType +gTypeNodeList = GType . Object <$> jsg "NodeList" + +-- | Functions for this inteface are in "JSDOM.NonDocumentTypeChildNode". +-- +-- +newtype NonDocumentTypeChildNode = NonDocumentTypeChildNode { unNonDocumentTypeChildNode :: JSVal } + +instance PToJSVal NonDocumentTypeChildNode where + pToJSVal = unNonDocumentTypeChildNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal NonDocumentTypeChildNode where + pFromJSVal = NonDocumentTypeChildNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal NonDocumentTypeChildNode where + toJSVal = return . unNonDocumentTypeChildNode + {-# INLINE toJSVal #-} + +instance FromJSVal NonDocumentTypeChildNode where + fromJSVal v = fmap NonDocumentTypeChildNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NonDocumentTypeChildNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NonDocumentTypeChildNode where + makeObject = makeObject . unNonDocumentTypeChildNode + +class (IsGObject o) => IsNonDocumentTypeChildNode o +toNonDocumentTypeChildNode :: IsNonDocumentTypeChildNode o => o -> NonDocumentTypeChildNode +toNonDocumentTypeChildNode = NonDocumentTypeChildNode . coerce + +instance IsNonDocumentTypeChildNode NonDocumentTypeChildNode +instance IsGObject NonDocumentTypeChildNode where + typeGType _ = gTypeNonDocumentTypeChildNode + {-# INLINE typeGType #-} + +noNonDocumentTypeChildNode :: Maybe NonDocumentTypeChildNode +noNonDocumentTypeChildNode = Nothing +{-# INLINE noNonDocumentTypeChildNode #-} + +gTypeNonDocumentTypeChildNode :: JSM GType +gTypeNonDocumentTypeChildNode = GType . Object <$> jsg "NonDocumentTypeChildNode" + +-- | Functions for this inteface are in "JSDOM.NonElementParentNode". +-- +-- +newtype NonElementParentNode = NonElementParentNode { unNonElementParentNode :: JSVal } + +instance PToJSVal NonElementParentNode where + pToJSVal = unNonElementParentNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal NonElementParentNode where + pFromJSVal = NonElementParentNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal NonElementParentNode where + toJSVal = return . unNonElementParentNode + {-# INLINE toJSVal #-} + +instance FromJSVal NonElementParentNode where + fromJSVal v = fmap NonElementParentNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NonElementParentNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NonElementParentNode where + makeObject = makeObject . unNonElementParentNode + +class (IsGObject o) => IsNonElementParentNode o +toNonElementParentNode :: IsNonElementParentNode o => o -> NonElementParentNode +toNonElementParentNode = NonElementParentNode . coerce + +instance IsNonElementParentNode NonElementParentNode +instance IsGObject NonElementParentNode where + typeGType _ = gTypeNonElementParentNode + {-# INLINE typeGType #-} + +noNonElementParentNode :: Maybe NonElementParentNode +noNonElementParentNode = Nothing +{-# INLINE noNonElementParentNode #-} + +gTypeNonElementParentNode :: JSM GType +gTypeNonElementParentNode = GType . Object <$> jsg "NonElementParentNode" + +-- | Functions for this inteface are in "JSDOM.Notification". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype Notification = Notification { unNotification :: JSVal } + +instance PToJSVal Notification where + pToJSVal = unNotification + {-# INLINE pToJSVal #-} + +instance PFromJSVal Notification where + pFromJSVal = Notification + {-# INLINE pFromJSVal #-} + +instance ToJSVal Notification where + toJSVal = return . unNotification + {-# INLINE toJSVal #-} + +instance FromJSVal Notification where + fromJSVal v = fmap Notification <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Notification + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Notification where + makeObject = makeObject . unNotification + +instance IsEventTarget Notification +instance IsGObject Notification where + typeGType _ = gTypeNotification + {-# INLINE typeGType #-} + +noNotification :: Maybe Notification +noNotification = Nothing +{-# INLINE noNotification #-} + +gTypeNotification :: JSM GType +gTypeNotification = GType . Object <$> jsg "Notification" + +-- | Functions for this inteface are in "JSDOM.NotificationOptions". +-- +-- +newtype NotificationOptions = NotificationOptions { unNotificationOptions :: JSVal } + +instance PToJSVal NotificationOptions where + pToJSVal = unNotificationOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal NotificationOptions where + pFromJSVal = NotificationOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal NotificationOptions where + toJSVal = return . unNotificationOptions + {-# INLINE toJSVal #-} + +instance FromJSVal NotificationOptions where + fromJSVal v = fmap NotificationOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . NotificationOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject NotificationOptions where + makeObject = makeObject . unNotificationOptions + +instance IsGObject NotificationOptions where + typeGType _ = gTypeNotificationOptions + {-# INLINE typeGType #-} + +noNotificationOptions :: Maybe NotificationOptions +noNotificationOptions = Nothing +{-# INLINE noNotificationOptions #-} + +gTypeNotificationOptions :: JSM GType +gTypeNotificationOptions = GType . Object <$> jsg "NotificationOptions" + +-- | Functions for this inteface are in "JSDOM.OESElementIndexUint". +-- +-- +newtype OESElementIndexUint = OESElementIndexUint { unOESElementIndexUint :: JSVal } + +instance PToJSVal OESElementIndexUint where + pToJSVal = unOESElementIndexUint + {-# INLINE pToJSVal #-} + +instance PFromJSVal OESElementIndexUint where + pFromJSVal = OESElementIndexUint + {-# INLINE pFromJSVal #-} + +instance ToJSVal OESElementIndexUint where + toJSVal = return . unOESElementIndexUint + {-# INLINE toJSVal #-} + +instance FromJSVal OESElementIndexUint where + fromJSVal v = fmap OESElementIndexUint <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OESElementIndexUint + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OESElementIndexUint where + makeObject = makeObject . unOESElementIndexUint + +instance IsGObject OESElementIndexUint where + typeGType _ = gTypeOESElementIndexUint + {-# INLINE typeGType #-} + +noOESElementIndexUint :: Maybe OESElementIndexUint +noOESElementIndexUint = Nothing +{-# INLINE noOESElementIndexUint #-} + +gTypeOESElementIndexUint :: JSM GType +gTypeOESElementIndexUint = GType . Object <$> jsg "OESElementIndexUint" + +-- | Functions for this inteface are in "JSDOM.OESStandardDerivatives". +-- +-- +newtype OESStandardDerivatives = OESStandardDerivatives { unOESStandardDerivatives :: JSVal } + +instance PToJSVal OESStandardDerivatives where + pToJSVal = unOESStandardDerivatives + {-# INLINE pToJSVal #-} + +instance PFromJSVal OESStandardDerivatives where + pFromJSVal = OESStandardDerivatives + {-# INLINE pFromJSVal #-} + +instance ToJSVal OESStandardDerivatives where + toJSVal = return . unOESStandardDerivatives + {-# INLINE toJSVal #-} + +instance FromJSVal OESStandardDerivatives where + fromJSVal v = fmap OESStandardDerivatives <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OESStandardDerivatives + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OESStandardDerivatives where + makeObject = makeObject . unOESStandardDerivatives + +instance IsGObject OESStandardDerivatives where + typeGType _ = gTypeOESStandardDerivatives + {-# INLINE typeGType #-} + +noOESStandardDerivatives :: Maybe OESStandardDerivatives +noOESStandardDerivatives = Nothing +{-# INLINE noOESStandardDerivatives #-} + +gTypeOESStandardDerivatives :: JSM GType +gTypeOESStandardDerivatives = GType . Object <$> jsg "OESStandardDerivatives" + +-- | Functions for this inteface are in "JSDOM.OESTextureFloat". +-- +-- +newtype OESTextureFloat = OESTextureFloat { unOESTextureFloat :: JSVal } + +instance PToJSVal OESTextureFloat where + pToJSVal = unOESTextureFloat + {-# INLINE pToJSVal #-} + +instance PFromJSVal OESTextureFloat where + pFromJSVal = OESTextureFloat + {-# INLINE pFromJSVal #-} + +instance ToJSVal OESTextureFloat where + toJSVal = return . unOESTextureFloat + {-# INLINE toJSVal #-} + +instance FromJSVal OESTextureFloat where + fromJSVal v = fmap OESTextureFloat <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OESTextureFloat + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OESTextureFloat where + makeObject = makeObject . unOESTextureFloat + +instance IsGObject OESTextureFloat where + typeGType _ = gTypeOESTextureFloat + {-# INLINE typeGType #-} + +noOESTextureFloat :: Maybe OESTextureFloat +noOESTextureFloat = Nothing +{-# INLINE noOESTextureFloat #-} + +gTypeOESTextureFloat :: JSM GType +gTypeOESTextureFloat = GType . Object <$> jsg "OESTextureFloat" + +-- | Functions for this inteface are in "JSDOM.OESTextureFloatLinear". +-- +-- +newtype OESTextureFloatLinear = OESTextureFloatLinear { unOESTextureFloatLinear :: JSVal } + +instance PToJSVal OESTextureFloatLinear where + pToJSVal = unOESTextureFloatLinear + {-# INLINE pToJSVal #-} + +instance PFromJSVal OESTextureFloatLinear where + pFromJSVal = OESTextureFloatLinear + {-# INLINE pFromJSVal #-} + +instance ToJSVal OESTextureFloatLinear where + toJSVal = return . unOESTextureFloatLinear + {-# INLINE toJSVal #-} + +instance FromJSVal OESTextureFloatLinear where + fromJSVal v = fmap OESTextureFloatLinear <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OESTextureFloatLinear + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OESTextureFloatLinear where + makeObject = makeObject . unOESTextureFloatLinear + +instance IsGObject OESTextureFloatLinear where + typeGType _ = gTypeOESTextureFloatLinear + {-# INLINE typeGType #-} + +noOESTextureFloatLinear :: Maybe OESTextureFloatLinear +noOESTextureFloatLinear = Nothing +{-# INLINE noOESTextureFloatLinear #-} + +gTypeOESTextureFloatLinear :: JSM GType +gTypeOESTextureFloatLinear = GType . Object <$> jsg "OESTextureFloatLinear" + +-- | Functions for this inteface are in "JSDOM.OESTextureHalfFloat". +-- +-- +newtype OESTextureHalfFloat = OESTextureHalfFloat { unOESTextureHalfFloat :: JSVal } + +instance PToJSVal OESTextureHalfFloat where + pToJSVal = unOESTextureHalfFloat + {-# INLINE pToJSVal #-} + +instance PFromJSVal OESTextureHalfFloat where + pFromJSVal = OESTextureHalfFloat + {-# INLINE pFromJSVal #-} + +instance ToJSVal OESTextureHalfFloat where + toJSVal = return . unOESTextureHalfFloat + {-# INLINE toJSVal #-} + +instance FromJSVal OESTextureHalfFloat where + fromJSVal v = fmap OESTextureHalfFloat <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OESTextureHalfFloat + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OESTextureHalfFloat where + makeObject = makeObject . unOESTextureHalfFloat + +instance IsGObject OESTextureHalfFloat where + typeGType _ = gTypeOESTextureHalfFloat + {-# INLINE typeGType #-} + +noOESTextureHalfFloat :: Maybe OESTextureHalfFloat +noOESTextureHalfFloat = Nothing +{-# INLINE noOESTextureHalfFloat #-} + +gTypeOESTextureHalfFloat :: JSM GType +gTypeOESTextureHalfFloat = GType . Object <$> jsg "OESTextureHalfFloat" + +-- | Functions for this inteface are in "JSDOM.OESTextureHalfFloatLinear". +-- +-- +newtype OESTextureHalfFloatLinear = OESTextureHalfFloatLinear { unOESTextureHalfFloatLinear :: JSVal } + +instance PToJSVal OESTextureHalfFloatLinear where + pToJSVal = unOESTextureHalfFloatLinear + {-# INLINE pToJSVal #-} + +instance PFromJSVal OESTextureHalfFloatLinear where + pFromJSVal = OESTextureHalfFloatLinear + {-# INLINE pFromJSVal #-} + +instance ToJSVal OESTextureHalfFloatLinear where + toJSVal = return . unOESTextureHalfFloatLinear + {-# INLINE toJSVal #-} + +instance FromJSVal OESTextureHalfFloatLinear where + fromJSVal v = fmap OESTextureHalfFloatLinear <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OESTextureHalfFloatLinear + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OESTextureHalfFloatLinear where + makeObject = makeObject . unOESTextureHalfFloatLinear + +instance IsGObject OESTextureHalfFloatLinear where + typeGType _ = gTypeOESTextureHalfFloatLinear + {-# INLINE typeGType #-} + +noOESTextureHalfFloatLinear :: Maybe OESTextureHalfFloatLinear +noOESTextureHalfFloatLinear = Nothing +{-# INLINE noOESTextureHalfFloatLinear #-} + +gTypeOESTextureHalfFloatLinear :: JSM GType +gTypeOESTextureHalfFloatLinear = GType . Object <$> jsg "OESTextureHalfFloatLinear" + +-- | Functions for this inteface are in "JSDOM.OESVertexArrayObject". +-- +-- +newtype OESVertexArrayObject = OESVertexArrayObject { unOESVertexArrayObject :: JSVal } + +instance PToJSVal OESVertexArrayObject where + pToJSVal = unOESVertexArrayObject + {-# INLINE pToJSVal #-} + +instance PFromJSVal OESVertexArrayObject where + pFromJSVal = OESVertexArrayObject + {-# INLINE pFromJSVal #-} + +instance ToJSVal OESVertexArrayObject where + toJSVal = return . unOESVertexArrayObject + {-# INLINE toJSVal #-} + +instance FromJSVal OESVertexArrayObject where + fromJSVal v = fmap OESVertexArrayObject <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OESVertexArrayObject + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OESVertexArrayObject where + makeObject = makeObject . unOESVertexArrayObject + +instance IsGObject OESVertexArrayObject where + typeGType _ = gTypeOESVertexArrayObject + {-# INLINE typeGType #-} + +noOESVertexArrayObject :: Maybe OESVertexArrayObject +noOESVertexArrayObject = Nothing +{-# INLINE noOESVertexArrayObject #-} + +gTypeOESVertexArrayObject :: JSM GType +gTypeOESVertexArrayObject = GType . Object <$> jsg "OESVertexArrayObject" + +-- | Functions for this inteface are in "JSDOM.OfflineAudioCompletionEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype OfflineAudioCompletionEvent = OfflineAudioCompletionEvent { unOfflineAudioCompletionEvent :: JSVal } + +instance PToJSVal OfflineAudioCompletionEvent where + pToJSVal = unOfflineAudioCompletionEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal OfflineAudioCompletionEvent where + pFromJSVal = OfflineAudioCompletionEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal OfflineAudioCompletionEvent where + toJSVal = return . unOfflineAudioCompletionEvent + {-# INLINE toJSVal #-} + +instance FromJSVal OfflineAudioCompletionEvent where + fromJSVal v = fmap OfflineAudioCompletionEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OfflineAudioCompletionEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OfflineAudioCompletionEvent where + makeObject = makeObject . unOfflineAudioCompletionEvent + +instance IsEvent OfflineAudioCompletionEvent +instance IsGObject OfflineAudioCompletionEvent where + typeGType _ = gTypeOfflineAudioCompletionEvent + {-# INLINE typeGType #-} + +noOfflineAudioCompletionEvent :: Maybe OfflineAudioCompletionEvent +noOfflineAudioCompletionEvent = Nothing +{-# INLINE noOfflineAudioCompletionEvent #-} + +gTypeOfflineAudioCompletionEvent :: JSM GType +gTypeOfflineAudioCompletionEvent = GType . Object <$> jsg "OfflineAudioCompletionEvent" + +-- | Functions for this inteface are in "JSDOM.OfflineAudioContext". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioContext" +-- * "JSDOM.EventTarget" +-- +-- +newtype OfflineAudioContext = OfflineAudioContext { unOfflineAudioContext :: JSVal } + +instance PToJSVal OfflineAudioContext where + pToJSVal = unOfflineAudioContext + {-# INLINE pToJSVal #-} + +instance PFromJSVal OfflineAudioContext where + pFromJSVal = OfflineAudioContext + {-# INLINE pFromJSVal #-} + +instance ToJSVal OfflineAudioContext where + toJSVal = return . unOfflineAudioContext + {-# INLINE toJSVal #-} + +instance FromJSVal OfflineAudioContext where + fromJSVal v = fmap OfflineAudioContext <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OfflineAudioContext + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OfflineAudioContext where + makeObject = makeObject . unOfflineAudioContext + +instance IsAudioContext OfflineAudioContext +instance IsEventTarget OfflineAudioContext +instance IsGObject OfflineAudioContext where + typeGType _ = gTypeOfflineAudioContext + {-# INLINE typeGType #-} + +noOfflineAudioContext :: Maybe OfflineAudioContext +noOfflineAudioContext = Nothing +{-# INLINE noOfflineAudioContext #-} + +gTypeOfflineAudioContext :: JSM GType +gTypeOfflineAudioContext = GType . Object <$> jsg "OfflineAudioContext" + +-- | Functions for this inteface are in "JSDOM.OscillatorNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype OscillatorNode = OscillatorNode { unOscillatorNode :: JSVal } + +instance PToJSVal OscillatorNode where + pToJSVal = unOscillatorNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal OscillatorNode where + pFromJSVal = OscillatorNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal OscillatorNode where + toJSVal = return . unOscillatorNode + {-# INLINE toJSVal #-} + +instance FromJSVal OscillatorNode where + fromJSVal v = fmap OscillatorNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OscillatorNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OscillatorNode where + makeObject = makeObject . unOscillatorNode + +instance IsAudioNode OscillatorNode +instance IsEventTarget OscillatorNode +instance IsGObject OscillatorNode where + typeGType _ = gTypeOscillatorNode + {-# INLINE typeGType #-} + +noOscillatorNode :: Maybe OscillatorNode +noOscillatorNode = Nothing +{-# INLINE noOscillatorNode #-} + +gTypeOscillatorNode :: JSM GType +gTypeOscillatorNode = GType . Object <$> jsg "OscillatorNode" + +-- | Functions for this inteface are in "JSDOM.OverconstrainedError". +-- +-- +newtype OverconstrainedError = OverconstrainedError { unOverconstrainedError :: JSVal } + +instance PToJSVal OverconstrainedError where + pToJSVal = unOverconstrainedError + {-# INLINE pToJSVal #-} + +instance PFromJSVal OverconstrainedError where + pFromJSVal = OverconstrainedError + {-# INLINE pFromJSVal #-} + +instance ToJSVal OverconstrainedError where + toJSVal = return . unOverconstrainedError + {-# INLINE toJSVal #-} + +instance FromJSVal OverconstrainedError where + fromJSVal v = fmap OverconstrainedError <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OverconstrainedError + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OverconstrainedError where + makeObject = makeObject . unOverconstrainedError + +instance IsGObject OverconstrainedError where + typeGType _ = gTypeOverconstrainedError + {-# INLINE typeGType #-} + +noOverconstrainedError :: Maybe OverconstrainedError +noOverconstrainedError = Nothing +{-# INLINE noOverconstrainedError #-} + +gTypeOverconstrainedError :: JSM GType +gTypeOverconstrainedError = GType . Object <$> jsg "OverconstrainedError" + +-- | Functions for this inteface are in "JSDOM.OverconstrainedErrorEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype OverconstrainedErrorEvent = OverconstrainedErrorEvent { unOverconstrainedErrorEvent :: JSVal } + +instance PToJSVal OverconstrainedErrorEvent where + pToJSVal = unOverconstrainedErrorEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal OverconstrainedErrorEvent where + pFromJSVal = OverconstrainedErrorEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal OverconstrainedErrorEvent where + toJSVal = return . unOverconstrainedErrorEvent + {-# INLINE toJSVal #-} + +instance FromJSVal OverconstrainedErrorEvent where + fromJSVal v = fmap OverconstrainedErrorEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OverconstrainedErrorEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OverconstrainedErrorEvent where + makeObject = makeObject . unOverconstrainedErrorEvent + +instance IsEvent OverconstrainedErrorEvent +instance IsGObject OverconstrainedErrorEvent where + typeGType _ = gTypeOverconstrainedErrorEvent + {-# INLINE typeGType #-} + +noOverconstrainedErrorEvent :: Maybe OverconstrainedErrorEvent +noOverconstrainedErrorEvent = Nothing +{-# INLINE noOverconstrainedErrorEvent #-} + +gTypeOverconstrainedErrorEvent :: JSM GType +gTypeOverconstrainedErrorEvent = GType . Object <$> jsg "OverconstrainedErrorEvent" + +-- | Functions for this inteface are in "JSDOM.OverconstrainedErrorEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype OverconstrainedErrorEventInit = OverconstrainedErrorEventInit { unOverconstrainedErrorEventInit :: JSVal } + +instance PToJSVal OverconstrainedErrorEventInit where + pToJSVal = unOverconstrainedErrorEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal OverconstrainedErrorEventInit where + pFromJSVal = OverconstrainedErrorEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal OverconstrainedErrorEventInit where + toJSVal = return . unOverconstrainedErrorEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal OverconstrainedErrorEventInit where + fromJSVal v = fmap OverconstrainedErrorEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OverconstrainedErrorEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OverconstrainedErrorEventInit where + makeObject = makeObject . unOverconstrainedErrorEventInit + +instance IsEventInit OverconstrainedErrorEventInit +instance IsGObject OverconstrainedErrorEventInit where + typeGType _ = gTypeOverconstrainedErrorEventInit + {-# INLINE typeGType #-} + +noOverconstrainedErrorEventInit :: Maybe OverconstrainedErrorEventInit +noOverconstrainedErrorEventInit = Nothing +{-# INLINE noOverconstrainedErrorEventInit #-} + +gTypeOverconstrainedErrorEventInit :: JSM GType +gTypeOverconstrainedErrorEventInit = GType . Object <$> jsg "OverconstrainedErrorEventInit" + +-- | Functions for this inteface are in "JSDOM.OverflowEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype OverflowEvent = OverflowEvent { unOverflowEvent :: JSVal } + +instance PToJSVal OverflowEvent where + pToJSVal = unOverflowEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal OverflowEvent where + pFromJSVal = OverflowEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal OverflowEvent where + toJSVal = return . unOverflowEvent + {-# INLINE toJSVal #-} + +instance FromJSVal OverflowEvent where + fromJSVal v = fmap OverflowEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OverflowEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OverflowEvent where + makeObject = makeObject . unOverflowEvent + +instance IsEvent OverflowEvent +instance IsGObject OverflowEvent where + typeGType _ = gTypeOverflowEvent + {-# INLINE typeGType #-} + +noOverflowEvent :: Maybe OverflowEvent +noOverflowEvent = Nothing +{-# INLINE noOverflowEvent #-} + +gTypeOverflowEvent :: JSM GType +gTypeOverflowEvent = GType . Object <$> jsg "OverflowEvent" + +-- | Functions for this inteface are in "JSDOM.OverflowEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype OverflowEventInit = OverflowEventInit { unOverflowEventInit :: JSVal } + +instance PToJSVal OverflowEventInit where + pToJSVal = unOverflowEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal OverflowEventInit where + pFromJSVal = OverflowEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal OverflowEventInit where + toJSVal = return . unOverflowEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal OverflowEventInit where + fromJSVal v = fmap OverflowEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . OverflowEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject OverflowEventInit where + makeObject = makeObject . unOverflowEventInit + +instance IsEventInit OverflowEventInit +instance IsGObject OverflowEventInit where + typeGType _ = gTypeOverflowEventInit + {-# INLINE typeGType #-} + +noOverflowEventInit :: Maybe OverflowEventInit +noOverflowEventInit = Nothing +{-# INLINE noOverflowEventInit #-} + +gTypeOverflowEventInit :: JSM GType +gTypeOverflowEventInit = GType . Object <$> jsg "OverflowEventInit" + +-- | Functions for this inteface are in "JSDOM.PageTransitionEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype PageTransitionEvent = PageTransitionEvent { unPageTransitionEvent :: JSVal } + +instance PToJSVal PageTransitionEvent where + pToJSVal = unPageTransitionEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal PageTransitionEvent where + pFromJSVal = PageTransitionEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal PageTransitionEvent where + toJSVal = return . unPageTransitionEvent + {-# INLINE toJSVal #-} + +instance FromJSVal PageTransitionEvent where + fromJSVal v = fmap PageTransitionEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PageTransitionEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PageTransitionEvent where + makeObject = makeObject . unPageTransitionEvent + +instance IsEvent PageTransitionEvent +instance IsGObject PageTransitionEvent where + typeGType _ = gTypePageTransitionEvent + {-# INLINE typeGType #-} + +noPageTransitionEvent :: Maybe PageTransitionEvent +noPageTransitionEvent = Nothing +{-# INLINE noPageTransitionEvent #-} + +gTypePageTransitionEvent :: JSM GType +gTypePageTransitionEvent = GType . Object <$> jsg "PageTransitionEvent" + +-- | Functions for this inteface are in "JSDOM.PageTransitionEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype PageTransitionEventInit = PageTransitionEventInit { unPageTransitionEventInit :: JSVal } + +instance PToJSVal PageTransitionEventInit where + pToJSVal = unPageTransitionEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal PageTransitionEventInit where + pFromJSVal = PageTransitionEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal PageTransitionEventInit where + toJSVal = return . unPageTransitionEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal PageTransitionEventInit where + fromJSVal v = fmap PageTransitionEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PageTransitionEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PageTransitionEventInit where + makeObject = makeObject . unPageTransitionEventInit + +instance IsEventInit PageTransitionEventInit +instance IsGObject PageTransitionEventInit where + typeGType _ = gTypePageTransitionEventInit + {-# INLINE typeGType #-} + +noPageTransitionEventInit :: Maybe PageTransitionEventInit +noPageTransitionEventInit = Nothing +{-# INLINE noPageTransitionEventInit #-} + +gTypePageTransitionEventInit :: JSM GType +gTypePageTransitionEventInit = GType . Object <$> jsg "PageTransitionEventInit" + +-- | Functions for this inteface are in "JSDOM.PannerNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype PannerNode = PannerNode { unPannerNode :: JSVal } + +instance PToJSVal PannerNode where + pToJSVal = unPannerNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal PannerNode where + pFromJSVal = PannerNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal PannerNode where + toJSVal = return . unPannerNode + {-# INLINE toJSVal #-} + +instance FromJSVal PannerNode where + fromJSVal v = fmap PannerNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PannerNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PannerNode where + makeObject = makeObject . unPannerNode + +instance IsAudioNode PannerNode +instance IsEventTarget PannerNode +instance IsGObject PannerNode where + typeGType _ = gTypePannerNode + {-# INLINE typeGType #-} + +noPannerNode :: Maybe PannerNode +noPannerNode = Nothing +{-# INLINE noPannerNode #-} + +gTypePannerNode :: JSM GType +gTypePannerNode = GType . Object <$> jsg "webkitAudioPannerNode" + +-- | Functions for this inteface are in "JSDOM.ParentNode". +-- +-- +newtype ParentNode = ParentNode { unParentNode :: JSVal } + +instance PToJSVal ParentNode where + pToJSVal = unParentNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal ParentNode where + pFromJSVal = ParentNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal ParentNode where + toJSVal = return . unParentNode + {-# INLINE toJSVal #-} + +instance FromJSVal ParentNode where + fromJSVal v = fmap ParentNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ParentNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ParentNode where + makeObject = makeObject . unParentNode + +class (IsGObject o) => IsParentNode o +toParentNode :: IsParentNode o => o -> ParentNode +toParentNode = ParentNode . coerce + +instance IsParentNode ParentNode +instance IsGObject ParentNode where + typeGType _ = gTypeParentNode + {-# INLINE typeGType #-} + +noParentNode :: Maybe ParentNode +noParentNode = Nothing +{-# INLINE noParentNode #-} + +gTypeParentNode :: JSM GType +gTypeParentNode = GType . Object <$> jsg "ParentNode" + +-- | Functions for this inteface are in "JSDOM.PasswordCredential". +-- Base interface functions are in: +-- +-- * "JSDOM.SiteBoundCredential" +-- * "JSDOM.BasicCredential" +-- +-- +newtype PasswordCredential = PasswordCredential { unPasswordCredential :: JSVal } + +instance PToJSVal PasswordCredential where + pToJSVal = unPasswordCredential + {-# INLINE pToJSVal #-} + +instance PFromJSVal PasswordCredential where + pFromJSVal = PasswordCredential + {-# INLINE pFromJSVal #-} + +instance ToJSVal PasswordCredential where + toJSVal = return . unPasswordCredential + {-# INLINE toJSVal #-} + +instance FromJSVal PasswordCredential where + fromJSVal v = fmap PasswordCredential <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PasswordCredential + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PasswordCredential where + makeObject = makeObject . unPasswordCredential + +instance IsSiteBoundCredential PasswordCredential +instance IsBasicCredential PasswordCredential +instance IsGObject PasswordCredential where + typeGType _ = gTypePasswordCredential + {-# INLINE typeGType #-} + +noPasswordCredential :: Maybe PasswordCredential +noPasswordCredential = Nothing +{-# INLINE noPasswordCredential #-} + +gTypePasswordCredential :: JSM GType +gTypePasswordCredential = GType . Object <$> jsg "PasswordCredential" + +-- | Functions for this inteface are in "JSDOM.PasswordCredentialData". +-- Base interface functions are in: +-- +-- * "JSDOM.SiteBoundCredentialData" +-- * "JSDOM.CredentialData" +-- +-- +newtype PasswordCredentialData = PasswordCredentialData { unPasswordCredentialData :: JSVal } + +instance PToJSVal PasswordCredentialData where + pToJSVal = unPasswordCredentialData + {-# INLINE pToJSVal #-} + +instance PFromJSVal PasswordCredentialData where + pFromJSVal = PasswordCredentialData + {-# INLINE pFromJSVal #-} + +instance ToJSVal PasswordCredentialData where + toJSVal = return . unPasswordCredentialData + {-# INLINE toJSVal #-} + +instance FromJSVal PasswordCredentialData where + fromJSVal v = fmap PasswordCredentialData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PasswordCredentialData + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PasswordCredentialData where + makeObject = makeObject . unPasswordCredentialData + +instance IsSiteBoundCredentialData PasswordCredentialData +instance IsCredentialData PasswordCredentialData +instance IsGObject PasswordCredentialData where + typeGType _ = gTypePasswordCredentialData + {-# INLINE typeGType #-} + +noPasswordCredentialData :: Maybe PasswordCredentialData +noPasswordCredentialData = Nothing +{-# INLINE noPasswordCredentialData #-} + +gTypePasswordCredentialData :: JSM GType +gTypePasswordCredentialData = GType . Object <$> jsg "PasswordCredentialData" + +-- | Functions for this inteface are in "JSDOM.Path2D". +-- Base interface functions are in: +-- +-- * "JSDOM.CanvasPath" +-- +-- +newtype Path2D = Path2D { unPath2D :: JSVal } + +instance PToJSVal Path2D where + pToJSVal = unPath2D + {-# INLINE pToJSVal #-} + +instance PFromJSVal Path2D where + pFromJSVal = Path2D + {-# INLINE pFromJSVal #-} + +instance ToJSVal Path2D where + toJSVal = return . unPath2D + {-# INLINE toJSVal #-} + +instance FromJSVal Path2D where + fromJSVal v = fmap Path2D <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Path2D + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Path2D where + makeObject = makeObject . unPath2D + +instance IsCanvasPath Path2D +instance IsGObject Path2D where + typeGType _ = gTypePath2D + {-# INLINE typeGType #-} + +noPath2D :: Maybe Path2D +noPath2D = Nothing +{-# INLINE noPath2D #-} + +gTypePath2D :: JSM GType +gTypePath2D = GType . Object <$> jsg "Path2D" + +-- | Functions for this inteface are in "JSDOM.Pbkdf2Params". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype Pbkdf2Params = Pbkdf2Params { unPbkdf2Params :: JSVal } + +instance PToJSVal Pbkdf2Params where + pToJSVal = unPbkdf2Params + {-# INLINE pToJSVal #-} + +instance PFromJSVal Pbkdf2Params where + pFromJSVal = Pbkdf2Params + {-# INLINE pFromJSVal #-} + +instance ToJSVal Pbkdf2Params where + toJSVal = return . unPbkdf2Params + {-# INLINE toJSVal #-} + +instance FromJSVal Pbkdf2Params where + fromJSVal v = fmap Pbkdf2Params <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Pbkdf2Params + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Pbkdf2Params where + makeObject = makeObject . unPbkdf2Params + +instance IsCryptoAlgorithmParameters Pbkdf2Params +instance IsGObject Pbkdf2Params where + typeGType _ = gTypePbkdf2Params + {-# INLINE typeGType #-} + +noPbkdf2Params :: Maybe Pbkdf2Params +noPbkdf2Params = Nothing +{-# INLINE noPbkdf2Params #-} + +gTypePbkdf2Params :: JSM GType +gTypePbkdf2Params = GType . Object <$> jsg "Pbkdf2Params" + +-- | Functions for this inteface are in "JSDOM.Performance". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype Performance = Performance { unPerformance :: JSVal } + +instance PToJSVal Performance where + pToJSVal = unPerformance + {-# INLINE pToJSVal #-} + +instance PFromJSVal Performance where + pFromJSVal = Performance + {-# INLINE pFromJSVal #-} + +instance ToJSVal Performance where + toJSVal = return . unPerformance + {-# INLINE toJSVal #-} + +instance FromJSVal Performance where + fromJSVal v = fmap Performance <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Performance + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Performance where + makeObject = makeObject . unPerformance + +instance IsEventTarget Performance +instance IsGObject Performance where + typeGType _ = gTypePerformance + {-# INLINE typeGType #-} + +noPerformance :: Maybe Performance +noPerformance = Nothing +{-# INLINE noPerformance #-} + +gTypePerformance :: JSM GType +gTypePerformance = GType . Object <$> jsg "Performance" + +-- | Functions for this inteface are in "JSDOM.PerformanceEntry". +-- +-- +newtype PerformanceEntry = PerformanceEntry { unPerformanceEntry :: JSVal } + +instance PToJSVal PerformanceEntry where + pToJSVal = unPerformanceEntry + {-# INLINE pToJSVal #-} + +instance PFromJSVal PerformanceEntry where + pFromJSVal = PerformanceEntry + {-# INLINE pFromJSVal #-} + +instance ToJSVal PerformanceEntry where + toJSVal = return . unPerformanceEntry + {-# INLINE toJSVal #-} + +instance FromJSVal PerformanceEntry where + fromJSVal v = fmap PerformanceEntry <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PerformanceEntry + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PerformanceEntry where + makeObject = makeObject . unPerformanceEntry + +class (IsGObject o) => IsPerformanceEntry o +toPerformanceEntry :: IsPerformanceEntry o => o -> PerformanceEntry +toPerformanceEntry = PerformanceEntry . coerce + +instance IsPerformanceEntry PerformanceEntry +instance IsGObject PerformanceEntry where + typeGType _ = gTypePerformanceEntry + {-# INLINE typeGType #-} + +noPerformanceEntry :: Maybe PerformanceEntry +noPerformanceEntry = Nothing +{-# INLINE noPerformanceEntry #-} + +gTypePerformanceEntry :: JSM GType +gTypePerformanceEntry = GType . Object <$> jsg "PerformanceEntry" + +-- | Functions for this inteface are in "JSDOM.PerformanceMark". +-- Base interface functions are in: +-- +-- * "JSDOM.PerformanceEntry" +-- +-- +newtype PerformanceMark = PerformanceMark { unPerformanceMark :: JSVal } + +instance PToJSVal PerformanceMark where + pToJSVal = unPerformanceMark + {-# INLINE pToJSVal #-} + +instance PFromJSVal PerformanceMark where + pFromJSVal = PerformanceMark + {-# INLINE pFromJSVal #-} + +instance ToJSVal PerformanceMark where + toJSVal = return . unPerformanceMark + {-# INLINE toJSVal #-} + +instance FromJSVal PerformanceMark where + fromJSVal v = fmap PerformanceMark <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PerformanceMark + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PerformanceMark where + makeObject = makeObject . unPerformanceMark + +instance IsPerformanceEntry PerformanceMark +instance IsGObject PerformanceMark where + typeGType _ = gTypePerformanceMark + {-# INLINE typeGType #-} + +noPerformanceMark :: Maybe PerformanceMark +noPerformanceMark = Nothing +{-# INLINE noPerformanceMark #-} + +gTypePerformanceMark :: JSM GType +gTypePerformanceMark = GType . Object <$> jsg "PerformanceMark" + +-- | Functions for this inteface are in "JSDOM.PerformanceMeasure". +-- Base interface functions are in: +-- +-- * "JSDOM.PerformanceEntry" +-- +-- +newtype PerformanceMeasure = PerformanceMeasure { unPerformanceMeasure :: JSVal } + +instance PToJSVal PerformanceMeasure where + pToJSVal = unPerformanceMeasure + {-# INLINE pToJSVal #-} + +instance PFromJSVal PerformanceMeasure where + pFromJSVal = PerformanceMeasure + {-# INLINE pFromJSVal #-} + +instance ToJSVal PerformanceMeasure where + toJSVal = return . unPerformanceMeasure + {-# INLINE toJSVal #-} + +instance FromJSVal PerformanceMeasure where + fromJSVal v = fmap PerformanceMeasure <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PerformanceMeasure + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PerformanceMeasure where + makeObject = makeObject . unPerformanceMeasure + +instance IsPerformanceEntry PerformanceMeasure +instance IsGObject PerformanceMeasure where + typeGType _ = gTypePerformanceMeasure + {-# INLINE typeGType #-} + +noPerformanceMeasure :: Maybe PerformanceMeasure +noPerformanceMeasure = Nothing +{-# INLINE noPerformanceMeasure #-} + +gTypePerformanceMeasure :: JSM GType +gTypePerformanceMeasure = GType . Object <$> jsg "PerformanceMeasure" + +-- | Functions for this inteface are in "JSDOM.PerformanceNavigation". +-- +-- +newtype PerformanceNavigation = PerformanceNavigation { unPerformanceNavigation :: JSVal } + +instance PToJSVal PerformanceNavigation where + pToJSVal = unPerformanceNavigation + {-# INLINE pToJSVal #-} + +instance PFromJSVal PerformanceNavigation where + pFromJSVal = PerformanceNavigation + {-# INLINE pFromJSVal #-} + +instance ToJSVal PerformanceNavigation where + toJSVal = return . unPerformanceNavigation + {-# INLINE toJSVal #-} + +instance FromJSVal PerformanceNavigation where + fromJSVal v = fmap PerformanceNavigation <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PerformanceNavigation + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PerformanceNavigation where + makeObject = makeObject . unPerformanceNavigation + +instance IsGObject PerformanceNavigation where + typeGType _ = gTypePerformanceNavigation + {-# INLINE typeGType #-} + +noPerformanceNavigation :: Maybe PerformanceNavigation +noPerformanceNavigation = Nothing +{-# INLINE noPerformanceNavigation #-} + +gTypePerformanceNavigation :: JSM GType +gTypePerformanceNavigation = GType . Object <$> jsg "PerformanceNavigation" + +-- | Functions for this inteface are in "JSDOM.PerformanceObserver". +-- +-- +newtype PerformanceObserver = PerformanceObserver { unPerformanceObserver :: JSVal } + +instance PToJSVal PerformanceObserver where + pToJSVal = unPerformanceObserver + {-# INLINE pToJSVal #-} + +instance PFromJSVal PerformanceObserver where + pFromJSVal = PerformanceObserver + {-# INLINE pFromJSVal #-} + +instance ToJSVal PerformanceObserver where + toJSVal = return . unPerformanceObserver + {-# INLINE toJSVal #-} + +instance FromJSVal PerformanceObserver where + fromJSVal v = fmap PerformanceObserver <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PerformanceObserver + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PerformanceObserver where + makeObject = makeObject . unPerformanceObserver + +instance IsGObject PerformanceObserver where + typeGType _ = gTypePerformanceObserver + {-# INLINE typeGType #-} + +noPerformanceObserver :: Maybe PerformanceObserver +noPerformanceObserver = Nothing +{-# INLINE noPerformanceObserver #-} + +gTypePerformanceObserver :: JSM GType +gTypePerformanceObserver = GType . Object <$> jsg "PerformanceObserver" + +-- | Functions for this inteface are in "JSDOM.PerformanceObserverEntryList". +-- +-- +newtype PerformanceObserverEntryList = PerformanceObserverEntryList { unPerformanceObserverEntryList :: JSVal } + +instance PToJSVal PerformanceObserverEntryList where + pToJSVal = unPerformanceObserverEntryList + {-# INLINE pToJSVal #-} + +instance PFromJSVal PerformanceObserverEntryList where + pFromJSVal = PerformanceObserverEntryList + {-# INLINE pFromJSVal #-} + +instance ToJSVal PerformanceObserverEntryList where + toJSVal = return . unPerformanceObserverEntryList + {-# INLINE toJSVal #-} + +instance FromJSVal PerformanceObserverEntryList where + fromJSVal v = fmap PerformanceObserverEntryList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PerformanceObserverEntryList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PerformanceObserverEntryList where + makeObject = makeObject . unPerformanceObserverEntryList + +instance IsGObject PerformanceObserverEntryList where + typeGType _ = gTypePerformanceObserverEntryList + {-# INLINE typeGType #-} + +noPerformanceObserverEntryList :: Maybe PerformanceObserverEntryList +noPerformanceObserverEntryList = Nothing +{-# INLINE noPerformanceObserverEntryList #-} + +gTypePerformanceObserverEntryList :: JSM GType +gTypePerformanceObserverEntryList = GType . Object <$> jsg "PerformanceObserverEntryList" + +-- | Functions for this inteface are in "JSDOM.PerformanceObserverInit". +-- +-- +newtype PerformanceObserverInit = PerformanceObserverInit { unPerformanceObserverInit :: JSVal } + +instance PToJSVal PerformanceObserverInit where + pToJSVal = unPerformanceObserverInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal PerformanceObserverInit where + pFromJSVal = PerformanceObserverInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal PerformanceObserverInit where + toJSVal = return . unPerformanceObserverInit + {-# INLINE toJSVal #-} + +instance FromJSVal PerformanceObserverInit where + fromJSVal v = fmap PerformanceObserverInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PerformanceObserverInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PerformanceObserverInit where + makeObject = makeObject . unPerformanceObserverInit + +instance IsGObject PerformanceObserverInit where + typeGType _ = gTypePerformanceObserverInit + {-# INLINE typeGType #-} + +noPerformanceObserverInit :: Maybe PerformanceObserverInit +noPerformanceObserverInit = Nothing +{-# INLINE noPerformanceObserverInit #-} + +gTypePerformanceObserverInit :: JSM GType +gTypePerformanceObserverInit = GType . Object <$> jsg "PerformanceObserverInit" + +-- | Functions for this inteface are in "JSDOM.PerformanceResourceTiming". +-- Base interface functions are in: +-- +-- * "JSDOM.PerformanceEntry" +-- +-- +newtype PerformanceResourceTiming = PerformanceResourceTiming { unPerformanceResourceTiming :: JSVal } + +instance PToJSVal PerformanceResourceTiming where + pToJSVal = unPerformanceResourceTiming + {-# INLINE pToJSVal #-} + +instance PFromJSVal PerformanceResourceTiming where + pFromJSVal = PerformanceResourceTiming + {-# INLINE pFromJSVal #-} + +instance ToJSVal PerformanceResourceTiming where + toJSVal = return . unPerformanceResourceTiming + {-# INLINE toJSVal #-} + +instance FromJSVal PerformanceResourceTiming where + fromJSVal v = fmap PerformanceResourceTiming <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PerformanceResourceTiming + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PerformanceResourceTiming where + makeObject = makeObject . unPerformanceResourceTiming + +instance IsPerformanceEntry PerformanceResourceTiming +instance IsGObject PerformanceResourceTiming where + typeGType _ = gTypePerformanceResourceTiming + {-# INLINE typeGType #-} + +noPerformanceResourceTiming :: Maybe PerformanceResourceTiming +noPerformanceResourceTiming = Nothing +{-# INLINE noPerformanceResourceTiming #-} + +gTypePerformanceResourceTiming :: JSM GType +gTypePerformanceResourceTiming = GType . Object <$> jsg "PerformanceResourceTiming" + +-- | Functions for this inteface are in "JSDOM.PerformanceTiming". +-- +-- +newtype PerformanceTiming = PerformanceTiming { unPerformanceTiming :: JSVal } + +instance PToJSVal PerformanceTiming where + pToJSVal = unPerformanceTiming + {-# INLINE pToJSVal #-} + +instance PFromJSVal PerformanceTiming where + pFromJSVal = PerformanceTiming + {-# INLINE pFromJSVal #-} + +instance ToJSVal PerformanceTiming where + toJSVal = return . unPerformanceTiming + {-# INLINE toJSVal #-} + +instance FromJSVal PerformanceTiming where + fromJSVal v = fmap PerformanceTiming <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PerformanceTiming + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PerformanceTiming where + makeObject = makeObject . unPerformanceTiming + +instance IsGObject PerformanceTiming where + typeGType _ = gTypePerformanceTiming + {-# INLINE typeGType #-} + +noPerformanceTiming :: Maybe PerformanceTiming +noPerformanceTiming = Nothing +{-# INLINE noPerformanceTiming #-} + +gTypePerformanceTiming :: JSM GType +gTypePerformanceTiming = GType . Object <$> jsg "PerformanceTiming" + +-- | Functions for this inteface are in "JSDOM.PeriodicWave". +-- +-- +newtype PeriodicWave = PeriodicWave { unPeriodicWave :: JSVal } + +instance PToJSVal PeriodicWave where + pToJSVal = unPeriodicWave + {-# INLINE pToJSVal #-} + +instance PFromJSVal PeriodicWave where + pFromJSVal = PeriodicWave + {-# INLINE pFromJSVal #-} + +instance ToJSVal PeriodicWave where + toJSVal = return . unPeriodicWave + {-# INLINE toJSVal #-} + +instance FromJSVal PeriodicWave where + fromJSVal v = fmap PeriodicWave <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PeriodicWave + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PeriodicWave where + makeObject = makeObject . unPeriodicWave + +instance IsGObject PeriodicWave where + typeGType _ = gTypePeriodicWave + {-# INLINE typeGType #-} + +noPeriodicWave :: Maybe PeriodicWave +noPeriodicWave = Nothing +{-# INLINE noPeriodicWave #-} + +gTypePeriodicWave :: JSM GType +gTypePeriodicWave = GType . Object <$> jsg "PeriodicWave" + +-- | Functions for this inteface are in "JSDOM.Plugin". +-- +-- +newtype Plugin = Plugin { unPlugin :: JSVal } + +instance PToJSVal Plugin where + pToJSVal = unPlugin + {-# INLINE pToJSVal #-} + +instance PFromJSVal Plugin where + pFromJSVal = Plugin + {-# INLINE pFromJSVal #-} + +instance ToJSVal Plugin where + toJSVal = return . unPlugin + {-# INLINE toJSVal #-} + +instance FromJSVal Plugin where + fromJSVal v = fmap Plugin <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Plugin + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Plugin where + makeObject = makeObject . unPlugin + +instance IsGObject Plugin where + typeGType _ = gTypePlugin + {-# INLINE typeGType #-} + +noPlugin :: Maybe Plugin +noPlugin = Nothing +{-# INLINE noPlugin #-} + +gTypePlugin :: JSM GType +gTypePlugin = GType . Object <$> jsg "Plugin" + +-- | Functions for this inteface are in "JSDOM.PluginArray". +-- +-- +newtype PluginArray = PluginArray { unPluginArray :: JSVal } + +instance PToJSVal PluginArray where + pToJSVal = unPluginArray + {-# INLINE pToJSVal #-} + +instance PFromJSVal PluginArray where + pFromJSVal = PluginArray + {-# INLINE pFromJSVal #-} + +instance ToJSVal PluginArray where + toJSVal = return . unPluginArray + {-# INLINE toJSVal #-} + +instance FromJSVal PluginArray where + fromJSVal v = fmap PluginArray <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PluginArray + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PluginArray where + makeObject = makeObject . unPluginArray + +instance IsGObject PluginArray where + typeGType _ = gTypePluginArray + {-# INLINE typeGType #-} + +noPluginArray :: Maybe PluginArray +noPluginArray = Nothing +{-# INLINE noPluginArray #-} + +gTypePluginArray :: JSM GType +gTypePluginArray = GType . Object <$> jsg "PluginArray" + +-- | Functions for this inteface are in "JSDOM.PopStateEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype PopStateEvent = PopStateEvent { unPopStateEvent :: JSVal } + +instance PToJSVal PopStateEvent where + pToJSVal = unPopStateEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal PopStateEvent where + pFromJSVal = PopStateEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal PopStateEvent where + toJSVal = return . unPopStateEvent + {-# INLINE toJSVal #-} + +instance FromJSVal PopStateEvent where + fromJSVal v = fmap PopStateEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PopStateEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PopStateEvent where + makeObject = makeObject . unPopStateEvent + +instance IsEvent PopStateEvent +instance IsGObject PopStateEvent where + typeGType _ = gTypePopStateEvent + {-# INLINE typeGType #-} + +noPopStateEvent :: Maybe PopStateEvent +noPopStateEvent = Nothing +{-# INLINE noPopStateEvent #-} + +gTypePopStateEvent :: JSM GType +gTypePopStateEvent = GType . Object <$> jsg "PopStateEvent" + +-- | Functions for this inteface are in "JSDOM.PopStateEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype PopStateEventInit = PopStateEventInit { unPopStateEventInit :: JSVal } + +instance PToJSVal PopStateEventInit where + pToJSVal = unPopStateEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal PopStateEventInit where + pFromJSVal = PopStateEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal PopStateEventInit where + toJSVal = return . unPopStateEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal PopStateEventInit where + fromJSVal v = fmap PopStateEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PopStateEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PopStateEventInit where + makeObject = makeObject . unPopStateEventInit + +instance IsEventInit PopStateEventInit +instance IsGObject PopStateEventInit where + typeGType _ = gTypePopStateEventInit + {-# INLINE typeGType #-} + +noPopStateEventInit :: Maybe PopStateEventInit +noPopStateEventInit = Nothing +{-# INLINE noPopStateEventInit #-} + +gTypePopStateEventInit :: JSM GType +gTypePopStateEventInit = GType . Object <$> jsg "PopStateEventInit" + +-- | Functions for this inteface are in "JSDOM.PositionError". +-- +-- +newtype PositionError = PositionError { unPositionError :: JSVal } + +instance PToJSVal PositionError where + pToJSVal = unPositionError + {-# INLINE pToJSVal #-} + +instance PFromJSVal PositionError where + pFromJSVal = PositionError + {-# INLINE pFromJSVal #-} + +instance ToJSVal PositionError where + toJSVal = return . unPositionError + {-# INLINE toJSVal #-} + +instance FromJSVal PositionError where + fromJSVal v = fmap PositionError <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PositionError + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PositionError where + makeObject = makeObject . unPositionError + +instance IsGObject PositionError where + typeGType _ = gTypePositionError + {-# INLINE typeGType #-} + +noPositionError :: Maybe PositionError +noPositionError = Nothing +{-# INLINE noPositionError #-} + +gTypePositionError :: JSM GType +gTypePositionError = GType . Object <$> jsg "PositionError" + +-- | Functions for this inteface are in "JSDOM.PositionOptions". +-- +-- +newtype PositionOptions = PositionOptions { unPositionOptions :: JSVal } + +instance PToJSVal PositionOptions where + pToJSVal = unPositionOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal PositionOptions where + pFromJSVal = PositionOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal PositionOptions where + toJSVal = return . unPositionOptions + {-# INLINE toJSVal #-} + +instance FromJSVal PositionOptions where + fromJSVal v = fmap PositionOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PositionOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PositionOptions where + makeObject = makeObject . unPositionOptions + +instance IsGObject PositionOptions where + typeGType _ = gTypePositionOptions + {-# INLINE typeGType #-} + +noPositionOptions :: Maybe PositionOptions +noPositionOptions = Nothing +{-# INLINE noPositionOptions #-} + +gTypePositionOptions :: JSM GType +gTypePositionOptions = GType . Object <$> jsg "PositionOptions" + +-- | Functions for this inteface are in "JSDOM.ProcessingInstruction". +-- Base interface functions are in: +-- +-- * "JSDOM.CharacterData" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.ChildNode" +-- +-- +newtype ProcessingInstruction = ProcessingInstruction { unProcessingInstruction :: JSVal } + +instance PToJSVal ProcessingInstruction where + pToJSVal = unProcessingInstruction + {-# INLINE pToJSVal #-} + +instance PFromJSVal ProcessingInstruction where + pFromJSVal = ProcessingInstruction + {-# INLINE pFromJSVal #-} + +instance ToJSVal ProcessingInstruction where + toJSVal = return . unProcessingInstruction + {-# INLINE toJSVal #-} + +instance FromJSVal ProcessingInstruction where + fromJSVal v = fmap ProcessingInstruction <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ProcessingInstruction + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ProcessingInstruction where + makeObject = makeObject . unProcessingInstruction + +instance IsCharacterData ProcessingInstruction +instance IsNode ProcessingInstruction +instance IsEventTarget ProcessingInstruction +instance IsNonDocumentTypeChildNode ProcessingInstruction +instance IsChildNode ProcessingInstruction +instance IsGObject ProcessingInstruction where + typeGType _ = gTypeProcessingInstruction + {-# INLINE typeGType #-} + +noProcessingInstruction :: Maybe ProcessingInstruction +noProcessingInstruction = Nothing +{-# INLINE noProcessingInstruction #-} + +gTypeProcessingInstruction :: JSM GType +gTypeProcessingInstruction = GType . Object <$> jsg "ProcessingInstruction" + +-- | Functions for this inteface are in "JSDOM.ProgressEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype ProgressEvent = ProgressEvent { unProgressEvent :: JSVal } + +instance PToJSVal ProgressEvent where + pToJSVal = unProgressEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal ProgressEvent where + pFromJSVal = ProgressEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal ProgressEvent where + toJSVal = return . unProgressEvent + {-# INLINE toJSVal #-} + +instance FromJSVal ProgressEvent where + fromJSVal v = fmap ProgressEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ProgressEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ProgressEvent where + makeObject = makeObject . unProgressEvent + +class (IsEvent o, IsGObject o) => IsProgressEvent o +toProgressEvent :: IsProgressEvent o => o -> ProgressEvent +toProgressEvent = ProgressEvent . coerce + +instance IsProgressEvent ProgressEvent +instance IsEvent ProgressEvent +instance IsGObject ProgressEvent where + typeGType _ = gTypeProgressEvent + {-# INLINE typeGType #-} + +noProgressEvent :: Maybe ProgressEvent +noProgressEvent = Nothing +{-# INLINE noProgressEvent #-} + +gTypeProgressEvent :: JSM GType +gTypeProgressEvent = GType . Object <$> jsg "ProgressEvent" + +-- | Functions for this inteface are in "JSDOM.ProgressEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype ProgressEventInit = ProgressEventInit { unProgressEventInit :: JSVal } + +instance PToJSVal ProgressEventInit where + pToJSVal = unProgressEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal ProgressEventInit where + pFromJSVal = ProgressEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal ProgressEventInit where + toJSVal = return . unProgressEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal ProgressEventInit where + fromJSVal v = fmap ProgressEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ProgressEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ProgressEventInit where + makeObject = makeObject . unProgressEventInit + +instance IsEventInit ProgressEventInit +instance IsGObject ProgressEventInit where + typeGType _ = gTypeProgressEventInit + {-# INLINE typeGType #-} + +noProgressEventInit :: Maybe ProgressEventInit +noProgressEventInit = Nothing +{-# INLINE noProgressEventInit #-} + +gTypeProgressEventInit :: JSM GType +gTypeProgressEventInit = GType . Object <$> jsg "ProgressEventInit" + +-- | Functions for this inteface are in "JSDOM.PromiseRejectionEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype PromiseRejectionEvent = PromiseRejectionEvent { unPromiseRejectionEvent :: JSVal } + +instance PToJSVal PromiseRejectionEvent where + pToJSVal = unPromiseRejectionEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal PromiseRejectionEvent where + pFromJSVal = PromiseRejectionEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal PromiseRejectionEvent where + toJSVal = return . unPromiseRejectionEvent + {-# INLINE toJSVal #-} + +instance FromJSVal PromiseRejectionEvent where + fromJSVal v = fmap PromiseRejectionEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PromiseRejectionEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PromiseRejectionEvent where + makeObject = makeObject . unPromiseRejectionEvent + +instance IsEvent PromiseRejectionEvent +instance IsGObject PromiseRejectionEvent where + typeGType _ = gTypePromiseRejectionEvent + {-# INLINE typeGType #-} + +noPromiseRejectionEvent :: Maybe PromiseRejectionEvent +noPromiseRejectionEvent = Nothing +{-# INLINE noPromiseRejectionEvent #-} + +gTypePromiseRejectionEvent :: JSM GType +gTypePromiseRejectionEvent = GType . Object <$> jsg "PromiseRejectionEvent" + +-- | Functions for this inteface are in "JSDOM.PromiseRejectionEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype PromiseRejectionEventInit = PromiseRejectionEventInit { unPromiseRejectionEventInit :: JSVal } + +instance PToJSVal PromiseRejectionEventInit where + pToJSVal = unPromiseRejectionEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal PromiseRejectionEventInit where + pFromJSVal = PromiseRejectionEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal PromiseRejectionEventInit where + toJSVal = return . unPromiseRejectionEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal PromiseRejectionEventInit where + fromJSVal v = fmap PromiseRejectionEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . PromiseRejectionEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject PromiseRejectionEventInit where + makeObject = makeObject . unPromiseRejectionEventInit + +instance IsEventInit PromiseRejectionEventInit +instance IsGObject PromiseRejectionEventInit where + typeGType _ = gTypePromiseRejectionEventInit + {-# INLINE typeGType #-} + +noPromiseRejectionEventInit :: Maybe PromiseRejectionEventInit +noPromiseRejectionEventInit = Nothing +{-# INLINE noPromiseRejectionEventInit #-} + +gTypePromiseRejectionEventInit :: JSM GType +gTypePromiseRejectionEventInit = GType . Object <$> jsg "PromiseRejectionEventInit" + +-- | Functions for this inteface are in "JSDOM.QuickTimePluginReplacement". +-- +-- +newtype QuickTimePluginReplacement = QuickTimePluginReplacement { unQuickTimePluginReplacement :: JSVal } + +instance PToJSVal QuickTimePluginReplacement where + pToJSVal = unQuickTimePluginReplacement + {-# INLINE pToJSVal #-} + +instance PFromJSVal QuickTimePluginReplacement where + pFromJSVal = QuickTimePluginReplacement + {-# INLINE pFromJSVal #-} + +instance ToJSVal QuickTimePluginReplacement where + toJSVal = return . unQuickTimePluginReplacement + {-# INLINE toJSVal #-} + +instance FromJSVal QuickTimePluginReplacement where + fromJSVal v = fmap QuickTimePluginReplacement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . QuickTimePluginReplacement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject QuickTimePluginReplacement where + makeObject = makeObject . unQuickTimePluginReplacement + +instance IsGObject QuickTimePluginReplacement where + typeGType _ = gTypeQuickTimePluginReplacement + {-# INLINE typeGType #-} + +noQuickTimePluginReplacement :: Maybe QuickTimePluginReplacement +noQuickTimePluginReplacement = Nothing +{-# INLINE noQuickTimePluginReplacement #-} + +gTypeQuickTimePluginReplacement :: JSM GType +gTypeQuickTimePluginReplacement = GType . Object <$> jsg "QuickTimePluginReplacement" + +-- | Functions for this inteface are in "JSDOM.RGBColor". +-- +-- +newtype RGBColor = RGBColor { unRGBColor :: JSVal } + +instance PToJSVal RGBColor where + pToJSVal = unRGBColor + {-# INLINE pToJSVal #-} + +instance PFromJSVal RGBColor where + pFromJSVal = RGBColor + {-# INLINE pFromJSVal #-} + +instance ToJSVal RGBColor where + toJSVal = return . unRGBColor + {-# INLINE toJSVal #-} + +instance FromJSVal RGBColor where + fromJSVal v = fmap RGBColor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RGBColor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RGBColor where + makeObject = makeObject . unRGBColor + +instance IsGObject RGBColor where + typeGType _ = gTypeRGBColor + {-# INLINE typeGType #-} + +noRGBColor :: Maybe RGBColor +noRGBColor = Nothing +{-# INLINE noRGBColor #-} + +gTypeRGBColor :: JSM GType +gTypeRGBColor = GType . Object <$> jsg "RGBColor" + +-- | Functions for this inteface are in "JSDOM.RTCAnswerOptions". +-- Base interface functions are in: +-- +-- * "JSDOM.RTCOfferAnswerOptions" +-- +-- +newtype RTCAnswerOptions = RTCAnswerOptions { unRTCAnswerOptions :: JSVal } + +instance PToJSVal RTCAnswerOptions where + pToJSVal = unRTCAnswerOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCAnswerOptions where + pFromJSVal = RTCAnswerOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCAnswerOptions where + toJSVal = return . unRTCAnswerOptions + {-# INLINE toJSVal #-} + +instance FromJSVal RTCAnswerOptions where + fromJSVal v = fmap RTCAnswerOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCAnswerOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCAnswerOptions where + makeObject = makeObject . unRTCAnswerOptions + +instance IsRTCOfferAnswerOptions RTCAnswerOptions +instance IsGObject RTCAnswerOptions where + typeGType _ = gTypeRTCAnswerOptions + {-# INLINE typeGType #-} + +noRTCAnswerOptions :: Maybe RTCAnswerOptions +noRTCAnswerOptions = Nothing +{-# INLINE noRTCAnswerOptions #-} + +gTypeRTCAnswerOptions :: JSM GType +gTypeRTCAnswerOptions = GType . Object <$> jsg "RTCAnswerOptions" + +-- | Functions for this inteface are in "JSDOM.RTCConfiguration". +-- +-- +newtype RTCConfiguration = RTCConfiguration { unRTCConfiguration :: JSVal } + +instance PToJSVal RTCConfiguration where + pToJSVal = unRTCConfiguration + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCConfiguration where + pFromJSVal = RTCConfiguration + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCConfiguration where + toJSVal = return . unRTCConfiguration + {-# INLINE toJSVal #-} + +instance FromJSVal RTCConfiguration where + fromJSVal v = fmap RTCConfiguration <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCConfiguration + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCConfiguration where + makeObject = makeObject . unRTCConfiguration + +instance IsGObject RTCConfiguration where + typeGType _ = gTypeRTCConfiguration + {-# INLINE typeGType #-} + +noRTCConfiguration :: Maybe RTCConfiguration +noRTCConfiguration = Nothing +{-# INLINE noRTCConfiguration #-} + +gTypeRTCConfiguration :: JSM GType +gTypeRTCConfiguration = GType . Object <$> jsg "RTCConfiguration" + +-- | Functions for this inteface are in "JSDOM.RTCDTMFSender". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype RTCDTMFSender = RTCDTMFSender { unRTCDTMFSender :: JSVal } + +instance PToJSVal RTCDTMFSender where + pToJSVal = unRTCDTMFSender + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCDTMFSender where + pFromJSVal = RTCDTMFSender + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCDTMFSender where + toJSVal = return . unRTCDTMFSender + {-# INLINE toJSVal #-} + +instance FromJSVal RTCDTMFSender where + fromJSVal v = fmap RTCDTMFSender <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCDTMFSender + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCDTMFSender where + makeObject = makeObject . unRTCDTMFSender + +instance IsEventTarget RTCDTMFSender +instance IsGObject RTCDTMFSender where + typeGType _ = gTypeRTCDTMFSender + {-# INLINE typeGType #-} + +noRTCDTMFSender :: Maybe RTCDTMFSender +noRTCDTMFSender = Nothing +{-# INLINE noRTCDTMFSender #-} + +gTypeRTCDTMFSender :: JSM GType +gTypeRTCDTMFSender = GType . Object <$> jsg "RTCDTMFSender" + +-- | Functions for this inteface are in "JSDOM.RTCDTMFToneChangeEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype RTCDTMFToneChangeEvent = RTCDTMFToneChangeEvent { unRTCDTMFToneChangeEvent :: JSVal } + +instance PToJSVal RTCDTMFToneChangeEvent where + pToJSVal = unRTCDTMFToneChangeEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCDTMFToneChangeEvent where + pFromJSVal = RTCDTMFToneChangeEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCDTMFToneChangeEvent where + toJSVal = return . unRTCDTMFToneChangeEvent + {-# INLINE toJSVal #-} + +instance FromJSVal RTCDTMFToneChangeEvent where + fromJSVal v = fmap RTCDTMFToneChangeEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCDTMFToneChangeEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCDTMFToneChangeEvent where + makeObject = makeObject . unRTCDTMFToneChangeEvent + +instance IsEvent RTCDTMFToneChangeEvent +instance IsGObject RTCDTMFToneChangeEvent where + typeGType _ = gTypeRTCDTMFToneChangeEvent + {-# INLINE typeGType #-} + +noRTCDTMFToneChangeEvent :: Maybe RTCDTMFToneChangeEvent +noRTCDTMFToneChangeEvent = Nothing +{-# INLINE noRTCDTMFToneChangeEvent #-} + +gTypeRTCDTMFToneChangeEvent :: JSM GType +gTypeRTCDTMFToneChangeEvent = GType . Object <$> jsg "RTCDTMFToneChangeEvent" + +-- | Functions for this inteface are in "JSDOM.RTCDTMFToneChangeEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype RTCDTMFToneChangeEventInit = RTCDTMFToneChangeEventInit { unRTCDTMFToneChangeEventInit :: JSVal } + +instance PToJSVal RTCDTMFToneChangeEventInit where + pToJSVal = unRTCDTMFToneChangeEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCDTMFToneChangeEventInit where + pFromJSVal = RTCDTMFToneChangeEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCDTMFToneChangeEventInit where + toJSVal = return . unRTCDTMFToneChangeEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal RTCDTMFToneChangeEventInit where + fromJSVal v = fmap RTCDTMFToneChangeEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCDTMFToneChangeEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCDTMFToneChangeEventInit where + makeObject = makeObject . unRTCDTMFToneChangeEventInit + +instance IsEventInit RTCDTMFToneChangeEventInit +instance IsGObject RTCDTMFToneChangeEventInit where + typeGType _ = gTypeRTCDTMFToneChangeEventInit + {-# INLINE typeGType #-} + +noRTCDTMFToneChangeEventInit :: Maybe RTCDTMFToneChangeEventInit +noRTCDTMFToneChangeEventInit = Nothing +{-# INLINE noRTCDTMFToneChangeEventInit #-} + +gTypeRTCDTMFToneChangeEventInit :: JSM GType +gTypeRTCDTMFToneChangeEventInit = GType . Object <$> jsg "RTCDTMFToneChangeEventInit" + +-- | Functions for this inteface are in "JSDOM.RTCDataChannel". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype RTCDataChannel = RTCDataChannel { unRTCDataChannel :: JSVal } + +instance PToJSVal RTCDataChannel where + pToJSVal = unRTCDataChannel + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCDataChannel where + pFromJSVal = RTCDataChannel + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCDataChannel where + toJSVal = return . unRTCDataChannel + {-# INLINE toJSVal #-} + +instance FromJSVal RTCDataChannel where + fromJSVal v = fmap RTCDataChannel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCDataChannel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCDataChannel where + makeObject = makeObject . unRTCDataChannel + +instance IsEventTarget RTCDataChannel +instance IsGObject RTCDataChannel where + typeGType _ = gTypeRTCDataChannel + {-# INLINE typeGType #-} + +noRTCDataChannel :: Maybe RTCDataChannel +noRTCDataChannel = Nothing +{-# INLINE noRTCDataChannel #-} + +gTypeRTCDataChannel :: JSM GType +gTypeRTCDataChannel = GType . Object <$> jsg "RTCDataChannel" + +-- | Functions for this inteface are in "JSDOM.RTCDataChannelEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype RTCDataChannelEvent = RTCDataChannelEvent { unRTCDataChannelEvent :: JSVal } + +instance PToJSVal RTCDataChannelEvent where + pToJSVal = unRTCDataChannelEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCDataChannelEvent where + pFromJSVal = RTCDataChannelEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCDataChannelEvent where + toJSVal = return . unRTCDataChannelEvent + {-# INLINE toJSVal #-} + +instance FromJSVal RTCDataChannelEvent where + fromJSVal v = fmap RTCDataChannelEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCDataChannelEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCDataChannelEvent where + makeObject = makeObject . unRTCDataChannelEvent + +instance IsEvent RTCDataChannelEvent +instance IsGObject RTCDataChannelEvent where + typeGType _ = gTypeRTCDataChannelEvent + {-# INLINE typeGType #-} + +noRTCDataChannelEvent :: Maybe RTCDataChannelEvent +noRTCDataChannelEvent = Nothing +{-# INLINE noRTCDataChannelEvent #-} + +gTypeRTCDataChannelEvent :: JSM GType +gTypeRTCDataChannelEvent = GType . Object <$> jsg "RTCDataChannelEvent" + +-- | Functions for this inteface are in "JSDOM.RTCDataChannelEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype RTCDataChannelEventInit = RTCDataChannelEventInit { unRTCDataChannelEventInit :: JSVal } + +instance PToJSVal RTCDataChannelEventInit where + pToJSVal = unRTCDataChannelEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCDataChannelEventInit where + pFromJSVal = RTCDataChannelEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCDataChannelEventInit where + toJSVal = return . unRTCDataChannelEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal RTCDataChannelEventInit where + fromJSVal v = fmap RTCDataChannelEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCDataChannelEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCDataChannelEventInit where + makeObject = makeObject . unRTCDataChannelEventInit + +instance IsEventInit RTCDataChannelEventInit +instance IsGObject RTCDataChannelEventInit where + typeGType _ = gTypeRTCDataChannelEventInit + {-# INLINE typeGType #-} + +noRTCDataChannelEventInit :: Maybe RTCDataChannelEventInit +noRTCDataChannelEventInit = Nothing +{-# INLINE noRTCDataChannelEventInit #-} + +gTypeRTCDataChannelEventInit :: JSM GType +gTypeRTCDataChannelEventInit = GType . Object <$> jsg "RTCDataChannelEventInit" + +-- | Functions for this inteface are in "JSDOM.RTCDataChannelInit". +-- +-- +newtype RTCDataChannelInit = RTCDataChannelInit { unRTCDataChannelInit :: JSVal } + +instance PToJSVal RTCDataChannelInit where + pToJSVal = unRTCDataChannelInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCDataChannelInit where + pFromJSVal = RTCDataChannelInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCDataChannelInit where + toJSVal = return . unRTCDataChannelInit + {-# INLINE toJSVal #-} + +instance FromJSVal RTCDataChannelInit where + fromJSVal v = fmap RTCDataChannelInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCDataChannelInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCDataChannelInit where + makeObject = makeObject . unRTCDataChannelInit + +instance IsGObject RTCDataChannelInit where + typeGType _ = gTypeRTCDataChannelInit + {-# INLINE typeGType #-} + +noRTCDataChannelInit :: Maybe RTCDataChannelInit +noRTCDataChannelInit = Nothing +{-# INLINE noRTCDataChannelInit #-} + +gTypeRTCDataChannelInit :: JSM GType +gTypeRTCDataChannelInit = GType . Object <$> jsg "RTCDataChannelInit" + +-- | Functions for this inteface are in "JSDOM.RTCDataChannelStats". +-- Base interface functions are in: +-- +-- * "JSDOM.RTCStats" +-- +-- +newtype RTCDataChannelStats = RTCDataChannelStats { unRTCDataChannelStats :: JSVal } + +instance PToJSVal RTCDataChannelStats where + pToJSVal = unRTCDataChannelStats + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCDataChannelStats where + pFromJSVal = RTCDataChannelStats + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCDataChannelStats where + toJSVal = return . unRTCDataChannelStats + {-# INLINE toJSVal #-} + +instance FromJSVal RTCDataChannelStats where + fromJSVal v = fmap RTCDataChannelStats <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCDataChannelStats + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCDataChannelStats where + makeObject = makeObject . unRTCDataChannelStats + +instance IsRTCStats RTCDataChannelStats +instance IsGObject RTCDataChannelStats where + typeGType _ = gTypeRTCDataChannelStats + {-# INLINE typeGType #-} + +noRTCDataChannelStats :: Maybe RTCDataChannelStats +noRTCDataChannelStats = Nothing +{-# INLINE noRTCDataChannelStats #-} + +gTypeRTCDataChannelStats :: JSM GType +gTypeRTCDataChannelStats = GType . Object <$> jsg "RTCDataChannelStats" + +-- | Functions for this inteface are in "JSDOM.RTCIceCandidate". +-- +-- +newtype RTCIceCandidate = RTCIceCandidate { unRTCIceCandidate :: JSVal } + +instance PToJSVal RTCIceCandidate where + pToJSVal = unRTCIceCandidate + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCIceCandidate where + pFromJSVal = RTCIceCandidate + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCIceCandidate where + toJSVal = return . unRTCIceCandidate + {-# INLINE toJSVal #-} + +instance FromJSVal RTCIceCandidate where + fromJSVal v = fmap RTCIceCandidate <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCIceCandidate + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCIceCandidate where + makeObject = makeObject . unRTCIceCandidate + +instance IsGObject RTCIceCandidate where + typeGType _ = gTypeRTCIceCandidate + {-# INLINE typeGType #-} + +noRTCIceCandidate :: Maybe RTCIceCandidate +noRTCIceCandidate = Nothing +{-# INLINE noRTCIceCandidate #-} + +gTypeRTCIceCandidate :: JSM GType +gTypeRTCIceCandidate = GType . Object <$> jsg "RTCIceCandidate" + +-- | Functions for this inteface are in "JSDOM.RTCIceCandidateEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype RTCIceCandidateEvent = RTCIceCandidateEvent { unRTCIceCandidateEvent :: JSVal } + +instance PToJSVal RTCIceCandidateEvent where + pToJSVal = unRTCIceCandidateEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCIceCandidateEvent where + pFromJSVal = RTCIceCandidateEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCIceCandidateEvent where + toJSVal = return . unRTCIceCandidateEvent + {-# INLINE toJSVal #-} + +instance FromJSVal RTCIceCandidateEvent where + fromJSVal v = fmap RTCIceCandidateEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCIceCandidateEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCIceCandidateEvent where + makeObject = makeObject . unRTCIceCandidateEvent + +instance IsEvent RTCIceCandidateEvent +instance IsGObject RTCIceCandidateEvent where + typeGType _ = gTypeRTCIceCandidateEvent + {-# INLINE typeGType #-} + +noRTCIceCandidateEvent :: Maybe RTCIceCandidateEvent +noRTCIceCandidateEvent = Nothing +{-# INLINE noRTCIceCandidateEvent #-} + +gTypeRTCIceCandidateEvent :: JSM GType +gTypeRTCIceCandidateEvent = GType . Object <$> jsg "RTCIceCandidateEvent" + +-- | Functions for this inteface are in "JSDOM.RTCIceCandidateInit". +-- +-- +newtype RTCIceCandidateInit = RTCIceCandidateInit { unRTCIceCandidateInit :: JSVal } + +instance PToJSVal RTCIceCandidateInit where + pToJSVal = unRTCIceCandidateInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCIceCandidateInit where + pFromJSVal = RTCIceCandidateInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCIceCandidateInit where + toJSVal = return . unRTCIceCandidateInit + {-# INLINE toJSVal #-} + +instance FromJSVal RTCIceCandidateInit where + fromJSVal v = fmap RTCIceCandidateInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCIceCandidateInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCIceCandidateInit where + makeObject = makeObject . unRTCIceCandidateInit + +instance IsGObject RTCIceCandidateInit where + typeGType _ = gTypeRTCIceCandidateInit + {-# INLINE typeGType #-} + +noRTCIceCandidateInit :: Maybe RTCIceCandidateInit +noRTCIceCandidateInit = Nothing +{-# INLINE noRTCIceCandidateInit #-} + +gTypeRTCIceCandidateInit :: JSM GType +gTypeRTCIceCandidateInit = GType . Object <$> jsg "RTCIceCandidateInit" + +-- | Functions for this inteface are in "JSDOM.RTCIceServer". +-- +-- +newtype RTCIceServer = RTCIceServer { unRTCIceServer :: JSVal } + +instance PToJSVal RTCIceServer where + pToJSVal = unRTCIceServer + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCIceServer where + pFromJSVal = RTCIceServer + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCIceServer where + toJSVal = return . unRTCIceServer + {-# INLINE toJSVal #-} + +instance FromJSVal RTCIceServer where + fromJSVal v = fmap RTCIceServer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCIceServer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCIceServer where + makeObject = makeObject . unRTCIceServer + +instance IsGObject RTCIceServer where + typeGType _ = gTypeRTCIceServer + {-# INLINE typeGType #-} + +noRTCIceServer :: Maybe RTCIceServer +noRTCIceServer = Nothing +{-# INLINE noRTCIceServer #-} + +gTypeRTCIceServer :: JSM GType +gTypeRTCIceServer = GType . Object <$> jsg "RTCIceServer" + +-- | Functions for this inteface are in "JSDOM.RTCIceTransport". +-- +-- +newtype RTCIceTransport = RTCIceTransport { unRTCIceTransport :: JSVal } + +instance PToJSVal RTCIceTransport where + pToJSVal = unRTCIceTransport + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCIceTransport where + pFromJSVal = RTCIceTransport + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCIceTransport where + toJSVal = return . unRTCIceTransport + {-# INLINE toJSVal #-} + +instance FromJSVal RTCIceTransport where + fromJSVal v = fmap RTCIceTransport <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCIceTransport + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCIceTransport where + makeObject = makeObject . unRTCIceTransport + +instance IsGObject RTCIceTransport where + typeGType _ = gTypeRTCIceTransport + {-# INLINE typeGType #-} + +noRTCIceTransport :: Maybe RTCIceTransport +noRTCIceTransport = Nothing +{-# INLINE noRTCIceTransport #-} + +gTypeRTCIceTransport :: JSM GType +gTypeRTCIceTransport = GType . Object <$> jsg "RTCIceTransport" + +-- | Functions for this inteface are in "JSDOM.RTCInboundRTPStreamStats". +-- Base interface functions are in: +-- +-- * "JSDOM.RTCRTPStreamStats" +-- * "JSDOM.RTCStats" +-- +-- +newtype RTCInboundRTPStreamStats = RTCInboundRTPStreamStats { unRTCInboundRTPStreamStats :: JSVal } + +instance PToJSVal RTCInboundRTPStreamStats where + pToJSVal = unRTCInboundRTPStreamStats + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCInboundRTPStreamStats where + pFromJSVal = RTCInboundRTPStreamStats + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCInboundRTPStreamStats where + toJSVal = return . unRTCInboundRTPStreamStats + {-# INLINE toJSVal #-} + +instance FromJSVal RTCInboundRTPStreamStats where + fromJSVal v = fmap RTCInboundRTPStreamStats <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCInboundRTPStreamStats + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCInboundRTPStreamStats where + makeObject = makeObject . unRTCInboundRTPStreamStats + +instance IsRTCRTPStreamStats RTCInboundRTPStreamStats +instance IsRTCStats RTCInboundRTPStreamStats +instance IsGObject RTCInboundRTPStreamStats where + typeGType _ = gTypeRTCInboundRTPStreamStats + {-# INLINE typeGType #-} + +noRTCInboundRTPStreamStats :: Maybe RTCInboundRTPStreamStats +noRTCInboundRTPStreamStats = Nothing +{-# INLINE noRTCInboundRTPStreamStats #-} + +gTypeRTCInboundRTPStreamStats :: JSM GType +gTypeRTCInboundRTPStreamStats = GType . Object <$> jsg "RTCInboundRTPStreamStats" + +-- | Functions for this inteface are in "JSDOM.RTCMediaStreamTrackStats". +-- Base interface functions are in: +-- +-- * "JSDOM.RTCStats" +-- +-- +newtype RTCMediaStreamTrackStats = RTCMediaStreamTrackStats { unRTCMediaStreamTrackStats :: JSVal } + +instance PToJSVal RTCMediaStreamTrackStats where + pToJSVal = unRTCMediaStreamTrackStats + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCMediaStreamTrackStats where + pFromJSVal = RTCMediaStreamTrackStats + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCMediaStreamTrackStats where + toJSVal = return . unRTCMediaStreamTrackStats + {-# INLINE toJSVal #-} + +instance FromJSVal RTCMediaStreamTrackStats where + fromJSVal v = fmap RTCMediaStreamTrackStats <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCMediaStreamTrackStats + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCMediaStreamTrackStats where + makeObject = makeObject . unRTCMediaStreamTrackStats + +instance IsRTCStats RTCMediaStreamTrackStats +instance IsGObject RTCMediaStreamTrackStats where + typeGType _ = gTypeRTCMediaStreamTrackStats + {-# INLINE typeGType #-} + +noRTCMediaStreamTrackStats :: Maybe RTCMediaStreamTrackStats +noRTCMediaStreamTrackStats = Nothing +{-# INLINE noRTCMediaStreamTrackStats #-} + +gTypeRTCMediaStreamTrackStats :: JSM GType +gTypeRTCMediaStreamTrackStats = GType . Object <$> jsg "RTCMediaStreamTrackStats" + +-- | Functions for this inteface are in "JSDOM.RTCOfferAnswerOptions". +-- +-- +newtype RTCOfferAnswerOptions = RTCOfferAnswerOptions { unRTCOfferAnswerOptions :: JSVal } + +instance PToJSVal RTCOfferAnswerOptions where + pToJSVal = unRTCOfferAnswerOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCOfferAnswerOptions where + pFromJSVal = RTCOfferAnswerOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCOfferAnswerOptions where + toJSVal = return . unRTCOfferAnswerOptions + {-# INLINE toJSVal #-} + +instance FromJSVal RTCOfferAnswerOptions where + fromJSVal v = fmap RTCOfferAnswerOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCOfferAnswerOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCOfferAnswerOptions where + makeObject = makeObject . unRTCOfferAnswerOptions + +class (IsGObject o) => IsRTCOfferAnswerOptions o +toRTCOfferAnswerOptions :: IsRTCOfferAnswerOptions o => o -> RTCOfferAnswerOptions +toRTCOfferAnswerOptions = RTCOfferAnswerOptions . coerce + +instance IsRTCOfferAnswerOptions RTCOfferAnswerOptions +instance IsGObject RTCOfferAnswerOptions where + typeGType _ = gTypeRTCOfferAnswerOptions + {-# INLINE typeGType #-} + +noRTCOfferAnswerOptions :: Maybe RTCOfferAnswerOptions +noRTCOfferAnswerOptions = Nothing +{-# INLINE noRTCOfferAnswerOptions #-} + +gTypeRTCOfferAnswerOptions :: JSM GType +gTypeRTCOfferAnswerOptions = GType . Object <$> jsg "RTCOfferAnswerOptions" + +-- | Functions for this inteface are in "JSDOM.RTCOfferOptions". +-- Base interface functions are in: +-- +-- * "JSDOM.RTCOfferAnswerOptions" +-- +-- +newtype RTCOfferOptions = RTCOfferOptions { unRTCOfferOptions :: JSVal } + +instance PToJSVal RTCOfferOptions where + pToJSVal = unRTCOfferOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCOfferOptions where + pFromJSVal = RTCOfferOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCOfferOptions where + toJSVal = return . unRTCOfferOptions + {-# INLINE toJSVal #-} + +instance FromJSVal RTCOfferOptions where + fromJSVal v = fmap RTCOfferOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCOfferOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCOfferOptions where + makeObject = makeObject . unRTCOfferOptions + +instance IsRTCOfferAnswerOptions RTCOfferOptions +instance IsGObject RTCOfferOptions where + typeGType _ = gTypeRTCOfferOptions + {-# INLINE typeGType #-} + +noRTCOfferOptions :: Maybe RTCOfferOptions +noRTCOfferOptions = Nothing +{-# INLINE noRTCOfferOptions #-} + +gTypeRTCOfferOptions :: JSM GType +gTypeRTCOfferOptions = GType . Object <$> jsg "RTCOfferOptions" + +-- | Functions for this inteface are in "JSDOM.RTCOutboundRTPStreamStats". +-- Base interface functions are in: +-- +-- * "JSDOM.RTCRTPStreamStats" +-- * "JSDOM.RTCStats" +-- +-- +newtype RTCOutboundRTPStreamStats = RTCOutboundRTPStreamStats { unRTCOutboundRTPStreamStats :: JSVal } + +instance PToJSVal RTCOutboundRTPStreamStats where + pToJSVal = unRTCOutboundRTPStreamStats + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCOutboundRTPStreamStats where + pFromJSVal = RTCOutboundRTPStreamStats + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCOutboundRTPStreamStats where + toJSVal = return . unRTCOutboundRTPStreamStats + {-# INLINE toJSVal #-} + +instance FromJSVal RTCOutboundRTPStreamStats where + fromJSVal v = fmap RTCOutboundRTPStreamStats <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCOutboundRTPStreamStats + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCOutboundRTPStreamStats where + makeObject = makeObject . unRTCOutboundRTPStreamStats + +instance IsRTCRTPStreamStats RTCOutboundRTPStreamStats +instance IsRTCStats RTCOutboundRTPStreamStats +instance IsGObject RTCOutboundRTPStreamStats where + typeGType _ = gTypeRTCOutboundRTPStreamStats + {-# INLINE typeGType #-} + +noRTCOutboundRTPStreamStats :: Maybe RTCOutboundRTPStreamStats +noRTCOutboundRTPStreamStats = Nothing +{-# INLINE noRTCOutboundRTPStreamStats #-} + +gTypeRTCOutboundRTPStreamStats :: JSM GType +gTypeRTCOutboundRTPStreamStats = GType . Object <$> jsg "RTCOutboundRTPStreamStats" + +-- | Functions for this inteface are in "JSDOM.RTCPeerConnection". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype RTCPeerConnection = RTCPeerConnection { unRTCPeerConnection :: JSVal } + +instance PToJSVal RTCPeerConnection where + pToJSVal = unRTCPeerConnection + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCPeerConnection where + pFromJSVal = RTCPeerConnection + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCPeerConnection where + toJSVal = return . unRTCPeerConnection + {-# INLINE toJSVal #-} + +instance FromJSVal RTCPeerConnection where + fromJSVal v = fmap RTCPeerConnection <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCPeerConnection + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCPeerConnection where + makeObject = makeObject . unRTCPeerConnection + +instance IsEventTarget RTCPeerConnection +instance IsGObject RTCPeerConnection where + typeGType _ = gTypeRTCPeerConnection + {-# INLINE typeGType #-} + +noRTCPeerConnection :: Maybe RTCPeerConnection +noRTCPeerConnection = Nothing +{-# INLINE noRTCPeerConnection #-} + +gTypeRTCPeerConnection :: JSM GType +gTypeRTCPeerConnection = GType . Object <$> jsg "webkitRTCPeerConnection" + +-- | Functions for this inteface are in "JSDOM.RTCPeerConnectionIceEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype RTCPeerConnectionIceEvent = RTCPeerConnectionIceEvent { unRTCPeerConnectionIceEvent :: JSVal } + +instance PToJSVal RTCPeerConnectionIceEvent where + pToJSVal = unRTCPeerConnectionIceEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCPeerConnectionIceEvent where + pFromJSVal = RTCPeerConnectionIceEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCPeerConnectionIceEvent where + toJSVal = return . unRTCPeerConnectionIceEvent + {-# INLINE toJSVal #-} + +instance FromJSVal RTCPeerConnectionIceEvent where + fromJSVal v = fmap RTCPeerConnectionIceEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCPeerConnectionIceEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCPeerConnectionIceEvent where + makeObject = makeObject . unRTCPeerConnectionIceEvent + +instance IsEvent RTCPeerConnectionIceEvent +instance IsGObject RTCPeerConnectionIceEvent where + typeGType _ = gTypeRTCPeerConnectionIceEvent + {-# INLINE typeGType #-} + +noRTCPeerConnectionIceEvent :: Maybe RTCPeerConnectionIceEvent +noRTCPeerConnectionIceEvent = Nothing +{-# INLINE noRTCPeerConnectionIceEvent #-} + +gTypeRTCPeerConnectionIceEvent :: JSM GType +gTypeRTCPeerConnectionIceEvent = GType . Object <$> jsg "RTCPeerConnectionIceEvent" + +-- | Functions for this inteface are in "JSDOM.RTCRTPStreamStats". +-- Base interface functions are in: +-- +-- * "JSDOM.RTCStats" +-- +-- +newtype RTCRTPStreamStats = RTCRTPStreamStats { unRTCRTPStreamStats :: JSVal } + +instance PToJSVal RTCRTPStreamStats where + pToJSVal = unRTCRTPStreamStats + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRTPStreamStats where + pFromJSVal = RTCRTPStreamStats + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRTPStreamStats where + toJSVal = return . unRTCRTPStreamStats + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRTPStreamStats where + fromJSVal v = fmap RTCRTPStreamStats <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRTPStreamStats + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRTPStreamStats where + makeObject = makeObject . unRTCRTPStreamStats + +class (IsRTCStats o, IsGObject o) => IsRTCRTPStreamStats o +toRTCRTPStreamStats :: IsRTCRTPStreamStats o => o -> RTCRTPStreamStats +toRTCRTPStreamStats = RTCRTPStreamStats . coerce + +instance IsRTCRTPStreamStats RTCRTPStreamStats +instance IsRTCStats RTCRTPStreamStats +instance IsGObject RTCRTPStreamStats where + typeGType _ = gTypeRTCRTPStreamStats + {-# INLINE typeGType #-} + +noRTCRTPStreamStats :: Maybe RTCRTPStreamStats +noRTCRTPStreamStats = Nothing +{-# INLINE noRTCRTPStreamStats #-} + +gTypeRTCRTPStreamStats :: JSM GType +gTypeRTCRTPStreamStats = GType . Object <$> jsg "RTCRTPStreamStats" + +-- | Functions for this inteface are in "JSDOM.RTCRtpCodecParameters". +-- +-- +newtype RTCRtpCodecParameters = RTCRtpCodecParameters { unRTCRtpCodecParameters :: JSVal } + +instance PToJSVal RTCRtpCodecParameters where + pToJSVal = unRTCRtpCodecParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpCodecParameters where + pFromJSVal = RTCRtpCodecParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpCodecParameters where + toJSVal = return . unRTCRtpCodecParameters + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpCodecParameters where + fromJSVal v = fmap RTCRtpCodecParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpCodecParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpCodecParameters where + makeObject = makeObject . unRTCRtpCodecParameters + +instance IsGObject RTCRtpCodecParameters where + typeGType _ = gTypeRTCRtpCodecParameters + {-# INLINE typeGType #-} + +noRTCRtpCodecParameters :: Maybe RTCRtpCodecParameters +noRTCRtpCodecParameters = Nothing +{-# INLINE noRTCRtpCodecParameters #-} + +gTypeRTCRtpCodecParameters :: JSM GType +gTypeRTCRtpCodecParameters = GType . Object <$> jsg "RTCRtpCodecParameters" + +-- | Functions for this inteface are in "JSDOM.RTCRtpEncodingParameters". +-- +-- +newtype RTCRtpEncodingParameters = RTCRtpEncodingParameters { unRTCRtpEncodingParameters :: JSVal } + +instance PToJSVal RTCRtpEncodingParameters where + pToJSVal = unRTCRtpEncodingParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpEncodingParameters where + pFromJSVal = RTCRtpEncodingParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpEncodingParameters where + toJSVal = return . unRTCRtpEncodingParameters + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpEncodingParameters where + fromJSVal v = fmap RTCRtpEncodingParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpEncodingParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpEncodingParameters where + makeObject = makeObject . unRTCRtpEncodingParameters + +instance IsGObject RTCRtpEncodingParameters where + typeGType _ = gTypeRTCRtpEncodingParameters + {-# INLINE typeGType #-} + +noRTCRtpEncodingParameters :: Maybe RTCRtpEncodingParameters +noRTCRtpEncodingParameters = Nothing +{-# INLINE noRTCRtpEncodingParameters #-} + +gTypeRTCRtpEncodingParameters :: JSM GType +gTypeRTCRtpEncodingParameters = GType . Object <$> jsg "RTCRtpEncodingParameters" + +-- | Functions for this inteface are in "JSDOM.RTCRtpFecParameters". +-- +-- +newtype RTCRtpFecParameters = RTCRtpFecParameters { unRTCRtpFecParameters :: JSVal } + +instance PToJSVal RTCRtpFecParameters where + pToJSVal = unRTCRtpFecParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpFecParameters where + pFromJSVal = RTCRtpFecParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpFecParameters where + toJSVal = return . unRTCRtpFecParameters + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpFecParameters where + fromJSVal v = fmap RTCRtpFecParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpFecParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpFecParameters where + makeObject = makeObject . unRTCRtpFecParameters + +instance IsGObject RTCRtpFecParameters where + typeGType _ = gTypeRTCRtpFecParameters + {-# INLINE typeGType #-} + +noRTCRtpFecParameters :: Maybe RTCRtpFecParameters +noRTCRtpFecParameters = Nothing +{-# INLINE noRTCRtpFecParameters #-} + +gTypeRTCRtpFecParameters :: JSM GType +gTypeRTCRtpFecParameters = GType . Object <$> jsg "RTCRtpFecParameters" + +-- | Functions for this inteface are in "JSDOM.RTCRtpHeaderExtensionParameters". +-- +-- +newtype RTCRtpHeaderExtensionParameters = RTCRtpHeaderExtensionParameters { unRTCRtpHeaderExtensionParameters :: JSVal } + +instance PToJSVal RTCRtpHeaderExtensionParameters where + pToJSVal = unRTCRtpHeaderExtensionParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpHeaderExtensionParameters where + pFromJSVal = RTCRtpHeaderExtensionParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpHeaderExtensionParameters where + toJSVal = return . unRTCRtpHeaderExtensionParameters + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpHeaderExtensionParameters where + fromJSVal v = fmap RTCRtpHeaderExtensionParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpHeaderExtensionParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpHeaderExtensionParameters where + makeObject = makeObject . unRTCRtpHeaderExtensionParameters + +instance IsGObject RTCRtpHeaderExtensionParameters where + typeGType _ = gTypeRTCRtpHeaderExtensionParameters + {-# INLINE typeGType #-} + +noRTCRtpHeaderExtensionParameters :: Maybe RTCRtpHeaderExtensionParameters +noRTCRtpHeaderExtensionParameters = Nothing +{-# INLINE noRTCRtpHeaderExtensionParameters #-} + +gTypeRTCRtpHeaderExtensionParameters :: JSM GType +gTypeRTCRtpHeaderExtensionParameters = GType . Object <$> jsg "RTCRtpHeaderExtensionParameters" + +-- | Functions for this inteface are in "JSDOM.RTCRtpParameters". +-- +-- +newtype RTCRtpParameters = RTCRtpParameters { unRTCRtpParameters :: JSVal } + +instance PToJSVal RTCRtpParameters where + pToJSVal = unRTCRtpParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpParameters where + pFromJSVal = RTCRtpParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpParameters where + toJSVal = return . unRTCRtpParameters + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpParameters where + fromJSVal v = fmap RTCRtpParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpParameters where + makeObject = makeObject . unRTCRtpParameters + +instance IsGObject RTCRtpParameters where + typeGType _ = gTypeRTCRtpParameters + {-# INLINE typeGType #-} + +noRTCRtpParameters :: Maybe RTCRtpParameters +noRTCRtpParameters = Nothing +{-# INLINE noRTCRtpParameters #-} + +gTypeRTCRtpParameters :: JSM GType +gTypeRTCRtpParameters = GType . Object <$> jsg "RTCRtpParameters" + +-- | Functions for this inteface are in "JSDOM.RTCRtpReceiver". +-- +-- +newtype RTCRtpReceiver = RTCRtpReceiver { unRTCRtpReceiver :: JSVal } + +instance PToJSVal RTCRtpReceiver where + pToJSVal = unRTCRtpReceiver + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpReceiver where + pFromJSVal = RTCRtpReceiver + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpReceiver where + toJSVal = return . unRTCRtpReceiver + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpReceiver where + fromJSVal v = fmap RTCRtpReceiver <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpReceiver + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpReceiver where + makeObject = makeObject . unRTCRtpReceiver + +instance IsGObject RTCRtpReceiver where + typeGType _ = gTypeRTCRtpReceiver + {-# INLINE typeGType #-} + +noRTCRtpReceiver :: Maybe RTCRtpReceiver +noRTCRtpReceiver = Nothing +{-# INLINE noRTCRtpReceiver #-} + +gTypeRTCRtpReceiver :: JSM GType +gTypeRTCRtpReceiver = GType . Object <$> jsg "RTCRtpReceiver" + +-- | Functions for this inteface are in "JSDOM.RTCRtpRtxParameters". +-- +-- +newtype RTCRtpRtxParameters = RTCRtpRtxParameters { unRTCRtpRtxParameters :: JSVal } + +instance PToJSVal RTCRtpRtxParameters where + pToJSVal = unRTCRtpRtxParameters + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpRtxParameters where + pFromJSVal = RTCRtpRtxParameters + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpRtxParameters where + toJSVal = return . unRTCRtpRtxParameters + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpRtxParameters where + fromJSVal v = fmap RTCRtpRtxParameters <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpRtxParameters + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpRtxParameters where + makeObject = makeObject . unRTCRtpRtxParameters + +instance IsGObject RTCRtpRtxParameters where + typeGType _ = gTypeRTCRtpRtxParameters + {-# INLINE typeGType #-} + +noRTCRtpRtxParameters :: Maybe RTCRtpRtxParameters +noRTCRtpRtxParameters = Nothing +{-# INLINE noRTCRtpRtxParameters #-} + +gTypeRTCRtpRtxParameters :: JSM GType +gTypeRTCRtpRtxParameters = GType . Object <$> jsg "RTCRtpRtxParameters" + +-- | Functions for this inteface are in "JSDOM.RTCRtpSender". +-- +-- +newtype RTCRtpSender = RTCRtpSender { unRTCRtpSender :: JSVal } + +instance PToJSVal RTCRtpSender where + pToJSVal = unRTCRtpSender + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpSender where + pFromJSVal = RTCRtpSender + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpSender where + toJSVal = return . unRTCRtpSender + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpSender where + fromJSVal v = fmap RTCRtpSender <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpSender + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpSender where + makeObject = makeObject . unRTCRtpSender + +instance IsGObject RTCRtpSender where + typeGType _ = gTypeRTCRtpSender + {-# INLINE typeGType #-} + +noRTCRtpSender :: Maybe RTCRtpSender +noRTCRtpSender = Nothing +{-# INLINE noRTCRtpSender #-} + +gTypeRTCRtpSender :: JSM GType +gTypeRTCRtpSender = GType . Object <$> jsg "RTCRtpSender" + +-- | Functions for this inteface are in "JSDOM.RTCRtpTransceiver". +-- +-- +newtype RTCRtpTransceiver = RTCRtpTransceiver { unRTCRtpTransceiver :: JSVal } + +instance PToJSVal RTCRtpTransceiver where + pToJSVal = unRTCRtpTransceiver + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpTransceiver where + pFromJSVal = RTCRtpTransceiver + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpTransceiver where + toJSVal = return . unRTCRtpTransceiver + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpTransceiver where + fromJSVal v = fmap RTCRtpTransceiver <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpTransceiver + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpTransceiver where + makeObject = makeObject . unRTCRtpTransceiver + +instance IsGObject RTCRtpTransceiver where + typeGType _ = gTypeRTCRtpTransceiver + {-# INLINE typeGType #-} + +noRTCRtpTransceiver :: Maybe RTCRtpTransceiver +noRTCRtpTransceiver = Nothing +{-# INLINE noRTCRtpTransceiver #-} + +gTypeRTCRtpTransceiver :: JSM GType +gTypeRTCRtpTransceiver = GType . Object <$> jsg "RTCRtpTransceiver" + +-- | Functions for this inteface are in "JSDOM.RTCRtpTransceiverInit". +-- +-- +newtype RTCRtpTransceiverInit = RTCRtpTransceiverInit { unRTCRtpTransceiverInit :: JSVal } + +instance PToJSVal RTCRtpTransceiverInit where + pToJSVal = unRTCRtpTransceiverInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCRtpTransceiverInit where + pFromJSVal = RTCRtpTransceiverInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCRtpTransceiverInit where + toJSVal = return . unRTCRtpTransceiverInit + {-# INLINE toJSVal #-} + +instance FromJSVal RTCRtpTransceiverInit where + fromJSVal v = fmap RTCRtpTransceiverInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCRtpTransceiverInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCRtpTransceiverInit where + makeObject = makeObject . unRTCRtpTransceiverInit + +instance IsGObject RTCRtpTransceiverInit where + typeGType _ = gTypeRTCRtpTransceiverInit + {-# INLINE typeGType #-} + +noRTCRtpTransceiverInit :: Maybe RTCRtpTransceiverInit +noRTCRtpTransceiverInit = Nothing +{-# INLINE noRTCRtpTransceiverInit #-} + +gTypeRTCRtpTransceiverInit :: JSM GType +gTypeRTCRtpTransceiverInit = GType . Object <$> jsg "RTCRtpTransceiverInit" + +-- | Functions for this inteface are in "JSDOM.RTCSessionDescription". +-- +-- +newtype RTCSessionDescription = RTCSessionDescription { unRTCSessionDescription :: JSVal } + +instance PToJSVal RTCSessionDescription where + pToJSVal = unRTCSessionDescription + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCSessionDescription where + pFromJSVal = RTCSessionDescription + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCSessionDescription where + toJSVal = return . unRTCSessionDescription + {-# INLINE toJSVal #-} + +instance FromJSVal RTCSessionDescription where + fromJSVal v = fmap RTCSessionDescription <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCSessionDescription + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCSessionDescription where + makeObject = makeObject . unRTCSessionDescription + +instance IsGObject RTCSessionDescription where + typeGType _ = gTypeRTCSessionDescription + {-# INLINE typeGType #-} + +noRTCSessionDescription :: Maybe RTCSessionDescription +noRTCSessionDescription = Nothing +{-# INLINE noRTCSessionDescription #-} + +gTypeRTCSessionDescription :: JSM GType +gTypeRTCSessionDescription = GType . Object <$> jsg "RTCSessionDescription" + +-- | Functions for this inteface are in "JSDOM.RTCSessionDescriptionInit". +-- +-- +newtype RTCSessionDescriptionInit = RTCSessionDescriptionInit { unRTCSessionDescriptionInit :: JSVal } + +instance PToJSVal RTCSessionDescriptionInit where + pToJSVal = unRTCSessionDescriptionInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCSessionDescriptionInit where + pFromJSVal = RTCSessionDescriptionInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCSessionDescriptionInit where + toJSVal = return . unRTCSessionDescriptionInit + {-# INLINE toJSVal #-} + +instance FromJSVal RTCSessionDescriptionInit where + fromJSVal v = fmap RTCSessionDescriptionInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCSessionDescriptionInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCSessionDescriptionInit where + makeObject = makeObject . unRTCSessionDescriptionInit + +instance IsGObject RTCSessionDescriptionInit where + typeGType _ = gTypeRTCSessionDescriptionInit + {-# INLINE typeGType #-} + +noRTCSessionDescriptionInit :: Maybe RTCSessionDescriptionInit +noRTCSessionDescriptionInit = Nothing +{-# INLINE noRTCSessionDescriptionInit #-} + +gTypeRTCSessionDescriptionInit :: JSM GType +gTypeRTCSessionDescriptionInit = GType . Object <$> jsg "RTCSessionDescriptionInit" + +-- | Functions for this inteface are in "JSDOM.RTCStats". +-- +-- +newtype RTCStats = RTCStats { unRTCStats :: JSVal } + +instance PToJSVal RTCStats where + pToJSVal = unRTCStats + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCStats where + pFromJSVal = RTCStats + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCStats where + toJSVal = return . unRTCStats + {-# INLINE toJSVal #-} + +instance FromJSVal RTCStats where + fromJSVal v = fmap RTCStats <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCStats + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCStats where + makeObject = makeObject . unRTCStats + +class (IsGObject o) => IsRTCStats o +toRTCStats :: IsRTCStats o => o -> RTCStats +toRTCStats = RTCStats . coerce + +instance IsRTCStats RTCStats +instance IsGObject RTCStats where + typeGType _ = gTypeRTCStats + {-# INLINE typeGType #-} + +noRTCStats :: Maybe RTCStats +noRTCStats = Nothing +{-# INLINE noRTCStats #-} + +gTypeRTCStats :: JSM GType +gTypeRTCStats = GType . Object <$> jsg "RTCStats" + +-- | Functions for this inteface are in "JSDOM.RTCStatsReport". +-- +-- +newtype RTCStatsReport = RTCStatsReport { unRTCStatsReport :: JSVal } + +instance PToJSVal RTCStatsReport where + pToJSVal = unRTCStatsReport + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCStatsReport where + pFromJSVal = RTCStatsReport + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCStatsReport where + toJSVal = return . unRTCStatsReport + {-# INLINE toJSVal #-} + +instance FromJSVal RTCStatsReport where + fromJSVal v = fmap RTCStatsReport <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCStatsReport + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCStatsReport where + makeObject = makeObject . unRTCStatsReport + +instance IsGObject RTCStatsReport where + typeGType _ = gTypeRTCStatsReport + {-# INLINE typeGType #-} + +noRTCStatsReport :: Maybe RTCStatsReport +noRTCStatsReport = Nothing +{-# INLINE noRTCStatsReport #-} + +gTypeRTCStatsReport :: JSM GType +gTypeRTCStatsReport = GType . Object <$> jsg "RTCStatsReport" + +-- | Functions for this inteface are in "JSDOM.RTCTrackEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype RTCTrackEvent = RTCTrackEvent { unRTCTrackEvent :: JSVal } + +instance PToJSVal RTCTrackEvent where + pToJSVal = unRTCTrackEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCTrackEvent where + pFromJSVal = RTCTrackEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCTrackEvent where + toJSVal = return . unRTCTrackEvent + {-# INLINE toJSVal #-} + +instance FromJSVal RTCTrackEvent where + fromJSVal v = fmap RTCTrackEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCTrackEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCTrackEvent where + makeObject = makeObject . unRTCTrackEvent + +instance IsEvent RTCTrackEvent +instance IsGObject RTCTrackEvent where + typeGType _ = gTypeRTCTrackEvent + {-# INLINE typeGType #-} + +noRTCTrackEvent :: Maybe RTCTrackEvent +noRTCTrackEvent = Nothing +{-# INLINE noRTCTrackEvent #-} + +gTypeRTCTrackEvent :: JSM GType +gTypeRTCTrackEvent = GType . Object <$> jsg "RTCTrackEvent" + +-- | Functions for this inteface are in "JSDOM.RTCTrackEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype RTCTrackEventInit = RTCTrackEventInit { unRTCTrackEventInit :: JSVal } + +instance PToJSVal RTCTrackEventInit where + pToJSVal = unRTCTrackEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal RTCTrackEventInit where + pFromJSVal = RTCTrackEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal RTCTrackEventInit where + toJSVal = return . unRTCTrackEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal RTCTrackEventInit where + fromJSVal v = fmap RTCTrackEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RTCTrackEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RTCTrackEventInit where + makeObject = makeObject . unRTCTrackEventInit + +instance IsEventInit RTCTrackEventInit +instance IsGObject RTCTrackEventInit where + typeGType _ = gTypeRTCTrackEventInit + {-# INLINE typeGType #-} + +noRTCTrackEventInit :: Maybe RTCTrackEventInit +noRTCTrackEventInit = Nothing +{-# INLINE noRTCTrackEventInit #-} + +gTypeRTCTrackEventInit :: JSM GType +gTypeRTCTrackEventInit = GType . Object <$> jsg "RTCTrackEventInit" + +-- | Functions for this inteface are in "JSDOM.RadioNodeList". +-- Base interface functions are in: +-- +-- * "JSDOM.NodeList" +-- +-- +newtype RadioNodeList = RadioNodeList { unRadioNodeList :: JSVal } + +instance PToJSVal RadioNodeList where + pToJSVal = unRadioNodeList + {-# INLINE pToJSVal #-} + +instance PFromJSVal RadioNodeList where + pFromJSVal = RadioNodeList + {-# INLINE pFromJSVal #-} + +instance ToJSVal RadioNodeList where + toJSVal = return . unRadioNodeList + {-# INLINE toJSVal #-} + +instance FromJSVal RadioNodeList where + fromJSVal v = fmap RadioNodeList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RadioNodeList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RadioNodeList where + makeObject = makeObject . unRadioNodeList + +instance IsNodeList RadioNodeList +instance IsGObject RadioNodeList where + typeGType _ = gTypeRadioNodeList + {-# INLINE typeGType #-} + +noRadioNodeList :: Maybe RadioNodeList +noRadioNodeList = Nothing +{-# INLINE noRadioNodeList #-} + +gTypeRadioNodeList :: JSM GType +gTypeRadioNodeList = GType . Object <$> jsg "RadioNodeList" + +-- | Functions for this inteface are in "JSDOM.Range". +-- +-- +newtype Range = Range { unRange :: JSVal } + +instance PToJSVal Range where + pToJSVal = unRange + {-# INLINE pToJSVal #-} + +instance PFromJSVal Range where + pFromJSVal = Range + {-# INLINE pFromJSVal #-} + +instance ToJSVal Range where + toJSVal = return . unRange + {-# INLINE toJSVal #-} + +instance FromJSVal Range where + fromJSVal v = fmap Range <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Range + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Range where + makeObject = makeObject . unRange + +instance IsGObject Range where + typeGType _ = gTypeRange + {-# INLINE typeGType #-} + +noRange :: Maybe Range +noRange = Nothing +{-# INLINE noRange #-} + +gTypeRange :: JSM GType +gTypeRange = GType . Object <$> jsg "Range" + +-- | Functions for this inteface are in "JSDOM.ReadableByteStreamController". +-- +-- +newtype ReadableByteStreamController = ReadableByteStreamController { unReadableByteStreamController :: JSVal } + +instance PToJSVal ReadableByteStreamController where + pToJSVal = unReadableByteStreamController + {-# INLINE pToJSVal #-} + +instance PFromJSVal ReadableByteStreamController where + pFromJSVal = ReadableByteStreamController + {-# INLINE pFromJSVal #-} + +instance ToJSVal ReadableByteStreamController where + toJSVal = return . unReadableByteStreamController + {-# INLINE toJSVal #-} + +instance FromJSVal ReadableByteStreamController where + fromJSVal v = fmap ReadableByteStreamController <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ReadableByteStreamController + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ReadableByteStreamController where + makeObject = makeObject . unReadableByteStreamController + +instance IsGObject ReadableByteStreamController where + typeGType _ = gTypeReadableByteStreamController + {-# INLINE typeGType #-} + +noReadableByteStreamController :: Maybe ReadableByteStreamController +noReadableByteStreamController = Nothing +{-# INLINE noReadableByteStreamController #-} + +gTypeReadableByteStreamController :: JSM GType +gTypeReadableByteStreamController = GType . Object <$> jsg "ReadableByteStreamController" + +-- | Functions for this inteface are in "JSDOM.ReadableStream". +-- +-- +newtype ReadableStream = ReadableStream { unReadableStream :: JSVal } + +instance PToJSVal ReadableStream where + pToJSVal = unReadableStream + {-# INLINE pToJSVal #-} + +instance PFromJSVal ReadableStream where + pFromJSVal = ReadableStream + {-# INLINE pFromJSVal #-} + +instance ToJSVal ReadableStream where + toJSVal = return . unReadableStream + {-# INLINE toJSVal #-} + +instance FromJSVal ReadableStream where + fromJSVal v = fmap ReadableStream <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ReadableStream + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ReadableStream where + makeObject = makeObject . unReadableStream + +instance IsGObject ReadableStream where + typeGType _ = gTypeReadableStream + {-# INLINE typeGType #-} + +noReadableStream :: Maybe ReadableStream +noReadableStream = Nothing +{-# INLINE noReadableStream #-} + +gTypeReadableStream :: JSM GType +gTypeReadableStream = GType . Object <$> jsg "ReadableStream" + +-- | Functions for this inteface are in "JSDOM.ReadableStreamBYOBReader". +-- +-- +newtype ReadableStreamBYOBReader = ReadableStreamBYOBReader { unReadableStreamBYOBReader :: JSVal } + +instance PToJSVal ReadableStreamBYOBReader where + pToJSVal = unReadableStreamBYOBReader + {-# INLINE pToJSVal #-} + +instance PFromJSVal ReadableStreamBYOBReader where + pFromJSVal = ReadableStreamBYOBReader + {-# INLINE pFromJSVal #-} + +instance ToJSVal ReadableStreamBYOBReader where + toJSVal = return . unReadableStreamBYOBReader + {-# INLINE toJSVal #-} + +instance FromJSVal ReadableStreamBYOBReader where + fromJSVal v = fmap ReadableStreamBYOBReader <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ReadableStreamBYOBReader + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ReadableStreamBYOBReader where + makeObject = makeObject . unReadableStreamBYOBReader + +instance IsGObject ReadableStreamBYOBReader where + typeGType _ = gTypeReadableStreamBYOBReader + {-# INLINE typeGType #-} + +noReadableStreamBYOBReader :: Maybe ReadableStreamBYOBReader +noReadableStreamBYOBReader = Nothing +{-# INLINE noReadableStreamBYOBReader #-} + +gTypeReadableStreamBYOBReader :: JSM GType +gTypeReadableStreamBYOBReader = GType . Object <$> jsg "ReadableStreamBYOBReader" + +-- | Functions for this inteface are in "JSDOM.ReadableStreamBYOBRequest". +-- +-- +newtype ReadableStreamBYOBRequest = ReadableStreamBYOBRequest { unReadableStreamBYOBRequest :: JSVal } + +instance PToJSVal ReadableStreamBYOBRequest where + pToJSVal = unReadableStreamBYOBRequest + {-# INLINE pToJSVal #-} + +instance PFromJSVal ReadableStreamBYOBRequest where + pFromJSVal = ReadableStreamBYOBRequest + {-# INLINE pFromJSVal #-} + +instance ToJSVal ReadableStreamBYOBRequest where + toJSVal = return . unReadableStreamBYOBRequest + {-# INLINE toJSVal #-} + +instance FromJSVal ReadableStreamBYOBRequest where + fromJSVal v = fmap ReadableStreamBYOBRequest <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ReadableStreamBYOBRequest + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ReadableStreamBYOBRequest where + makeObject = makeObject . unReadableStreamBYOBRequest + +instance IsGObject ReadableStreamBYOBRequest where + typeGType _ = gTypeReadableStreamBYOBRequest + {-# INLINE typeGType #-} + +noReadableStreamBYOBRequest :: Maybe ReadableStreamBYOBRequest +noReadableStreamBYOBRequest = Nothing +{-# INLINE noReadableStreamBYOBRequest #-} + +gTypeReadableStreamBYOBRequest :: JSM GType +gTypeReadableStreamBYOBRequest = GType . Object <$> jsg "ReadableStreamBYOBRequest" + +-- | Functions for this inteface are in "JSDOM.ReadableStreamDefaultController". +-- +-- +newtype ReadableStreamDefaultController = ReadableStreamDefaultController { unReadableStreamDefaultController :: JSVal } + +instance PToJSVal ReadableStreamDefaultController where + pToJSVal = unReadableStreamDefaultController + {-# INLINE pToJSVal #-} + +instance PFromJSVal ReadableStreamDefaultController where + pFromJSVal = ReadableStreamDefaultController + {-# INLINE pFromJSVal #-} + +instance ToJSVal ReadableStreamDefaultController where + toJSVal = return . unReadableStreamDefaultController + {-# INLINE toJSVal #-} + +instance FromJSVal ReadableStreamDefaultController where + fromJSVal v = fmap ReadableStreamDefaultController <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ReadableStreamDefaultController + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ReadableStreamDefaultController where + makeObject = makeObject . unReadableStreamDefaultController + +instance IsGObject ReadableStreamDefaultController where + typeGType _ = gTypeReadableStreamDefaultController + {-# INLINE typeGType #-} + +noReadableStreamDefaultController :: Maybe ReadableStreamDefaultController +noReadableStreamDefaultController = Nothing +{-# INLINE noReadableStreamDefaultController #-} + +gTypeReadableStreamDefaultController :: JSM GType +gTypeReadableStreamDefaultController = GType . Object <$> jsg "ReadableStreamDefaultController" + +-- | Functions for this inteface are in "JSDOM.ReadableStreamDefaultReader". +-- +-- +newtype ReadableStreamDefaultReader = ReadableStreamDefaultReader { unReadableStreamDefaultReader :: JSVal } + +instance PToJSVal ReadableStreamDefaultReader where + pToJSVal = unReadableStreamDefaultReader + {-# INLINE pToJSVal #-} + +instance PFromJSVal ReadableStreamDefaultReader where + pFromJSVal = ReadableStreamDefaultReader + {-# INLINE pFromJSVal #-} + +instance ToJSVal ReadableStreamDefaultReader where + toJSVal = return . unReadableStreamDefaultReader + {-# INLINE toJSVal #-} + +instance FromJSVal ReadableStreamDefaultReader where + fromJSVal v = fmap ReadableStreamDefaultReader <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ReadableStreamDefaultReader + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ReadableStreamDefaultReader where + makeObject = makeObject . unReadableStreamDefaultReader + +instance IsGObject ReadableStreamDefaultReader where + typeGType _ = gTypeReadableStreamDefaultReader + {-# INLINE typeGType #-} + +noReadableStreamDefaultReader :: Maybe ReadableStreamDefaultReader +noReadableStreamDefaultReader = Nothing +{-# INLINE noReadableStreamDefaultReader #-} + +gTypeReadableStreamDefaultReader :: JSM GType +gTypeReadableStreamDefaultReader = GType . Object <$> jsg "ReadableStreamDefaultReader" + +-- | Functions for this inteface are in "JSDOM.ReadableStreamSource". +-- +-- +newtype ReadableStreamSource = ReadableStreamSource { unReadableStreamSource :: JSVal } + +instance PToJSVal ReadableStreamSource where + pToJSVal = unReadableStreamSource + {-# INLINE pToJSVal #-} + +instance PFromJSVal ReadableStreamSource where + pFromJSVal = ReadableStreamSource + {-# INLINE pFromJSVal #-} + +instance ToJSVal ReadableStreamSource where + toJSVal = return . unReadableStreamSource + {-# INLINE toJSVal #-} + +instance FromJSVal ReadableStreamSource where + fromJSVal v = fmap ReadableStreamSource <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ReadableStreamSource + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ReadableStreamSource where + makeObject = makeObject . unReadableStreamSource + +instance IsGObject ReadableStreamSource where + typeGType _ = gTypeReadableStreamSource + {-# INLINE typeGType #-} + +noReadableStreamSource :: Maybe ReadableStreamSource +noReadableStreamSource = Nothing +{-# INLINE noReadableStreamSource #-} + +gTypeReadableStreamSource :: JSM GType +gTypeReadableStreamSource = GType . Object <$> jsg "ReadableStreamSource" + +-- | Functions for this inteface are in "JSDOM.Rect". +-- +-- +newtype Rect = Rect { unRect :: JSVal } + +instance PToJSVal Rect where + pToJSVal = unRect + {-# INLINE pToJSVal #-} + +instance PFromJSVal Rect where + pFromJSVal = Rect + {-# INLINE pFromJSVal #-} + +instance ToJSVal Rect where + toJSVal = return . unRect + {-# INLINE toJSVal #-} + +instance FromJSVal Rect where + fromJSVal v = fmap Rect <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Rect + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Rect where + makeObject = makeObject . unRect + +instance IsGObject Rect where + typeGType _ = gTypeRect + {-# INLINE typeGType #-} + +noRect :: Maybe Rect +noRect = Nothing +{-# INLINE noRect #-} + +gTypeRect :: JSM GType +gTypeRect = GType . Object <$> jsg "Rect" + +-- | Functions for this inteface are in "JSDOM.Request". +-- Base interface functions are in: +-- +-- * "JSDOM.Body" +-- +-- +newtype Request = Request { unRequest :: JSVal } + +instance PToJSVal Request where + pToJSVal = unRequest + {-# INLINE pToJSVal #-} + +instance PFromJSVal Request where + pFromJSVal = Request + {-# INLINE pFromJSVal #-} + +instance ToJSVal Request where + toJSVal = return . unRequest + {-# INLINE toJSVal #-} + +instance FromJSVal Request where + fromJSVal v = fmap Request <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Request + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Request where + makeObject = makeObject . unRequest + +instance IsBody Request +instance IsGObject Request where + typeGType _ = gTypeRequest + {-# INLINE typeGType #-} + +noRequest :: Maybe Request +noRequest = Nothing +{-# INLINE noRequest #-} + +gTypeRequest :: JSM GType +gTypeRequest = GType . Object <$> jsg "Request" + +-- | Functions for this inteface are in "JSDOM.RequestInit". +-- +-- +newtype RequestInit = RequestInit { unRequestInit :: JSVal } + +instance PToJSVal RequestInit where + pToJSVal = unRequestInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal RequestInit where + pFromJSVal = RequestInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal RequestInit where + toJSVal = return . unRequestInit + {-# INLINE toJSVal #-} + +instance FromJSVal RequestInit where + fromJSVal v = fmap RequestInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RequestInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RequestInit where + makeObject = makeObject . unRequestInit + +instance IsGObject RequestInit where + typeGType _ = gTypeRequestInit + {-# INLINE typeGType #-} + +noRequestInit :: Maybe RequestInit +noRequestInit = Nothing +{-# INLINE noRequestInit #-} + +gTypeRequestInit :: JSM GType +gTypeRequestInit = GType . Object <$> jsg "RequestInit" + +-- | Functions for this inteface are in "JSDOM.Response". +-- +-- +newtype Response = Response { unResponse :: JSVal } + +instance PToJSVal Response where + pToJSVal = unResponse + {-# INLINE pToJSVal #-} + +instance PFromJSVal Response where + pFromJSVal = Response + {-# INLINE pFromJSVal #-} + +instance ToJSVal Response where + toJSVal = return . unResponse + {-# INLINE toJSVal #-} + +instance FromJSVal Response where + fromJSVal v = fmap Response <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Response + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Response where + makeObject = makeObject . unResponse + +instance IsGObject Response where + typeGType _ = gTypeResponse + {-# INLINE typeGType #-} + +noResponse :: Maybe Response +noResponse = Nothing +{-# INLINE noResponse #-} + +gTypeResponse :: JSM GType +gTypeResponse = GType . Object <$> jsg "Response" + +-- | Functions for this inteface are in "JSDOM.RotationRate". +-- +-- +newtype RotationRate = RotationRate { unRotationRate :: JSVal } + +instance PToJSVal RotationRate where + pToJSVal = unRotationRate + {-# INLINE pToJSVal #-} + +instance PFromJSVal RotationRate where + pFromJSVal = RotationRate + {-# INLINE pFromJSVal #-} + +instance ToJSVal RotationRate where + toJSVal = return . unRotationRate + {-# INLINE toJSVal #-} + +instance FromJSVal RotationRate where + fromJSVal v = fmap RotationRate <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RotationRate + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RotationRate where + makeObject = makeObject . unRotationRate + +instance IsGObject RotationRate where + typeGType _ = gTypeRotationRate + {-# INLINE typeGType #-} + +noRotationRate :: Maybe RotationRate +noRotationRate = Nothing +{-# INLINE noRotationRate #-} + +gTypeRotationRate :: JSM GType +gTypeRotationRate = GType . Object <$> jsg "RotationRate" + +-- | Functions for this inteface are in "JSDOM.RsaHashedImportParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype RsaHashedImportParams = RsaHashedImportParams { unRsaHashedImportParams :: JSVal } + +instance PToJSVal RsaHashedImportParams where + pToJSVal = unRsaHashedImportParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal RsaHashedImportParams where + pFromJSVal = RsaHashedImportParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal RsaHashedImportParams where + toJSVal = return . unRsaHashedImportParams + {-# INLINE toJSVal #-} + +instance FromJSVal RsaHashedImportParams where + fromJSVal v = fmap RsaHashedImportParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RsaHashedImportParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RsaHashedImportParams where + makeObject = makeObject . unRsaHashedImportParams + +instance IsCryptoAlgorithmParameters RsaHashedImportParams +instance IsGObject RsaHashedImportParams where + typeGType _ = gTypeRsaHashedImportParams + {-# INLINE typeGType #-} + +noRsaHashedImportParams :: Maybe RsaHashedImportParams +noRsaHashedImportParams = Nothing +{-# INLINE noRsaHashedImportParams #-} + +gTypeRsaHashedImportParams :: JSM GType +gTypeRsaHashedImportParams = GType . Object <$> jsg "RsaHashedImportParams" + +-- | Functions for this inteface are in "JSDOM.RsaHashedKeyGenParams". +-- Base interface functions are in: +-- +-- * "JSDOM.RsaKeyGenParams" +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype RsaHashedKeyGenParams = RsaHashedKeyGenParams { unRsaHashedKeyGenParams :: JSVal } + +instance PToJSVal RsaHashedKeyGenParams where + pToJSVal = unRsaHashedKeyGenParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal RsaHashedKeyGenParams where + pFromJSVal = RsaHashedKeyGenParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal RsaHashedKeyGenParams where + toJSVal = return . unRsaHashedKeyGenParams + {-# INLINE toJSVal #-} + +instance FromJSVal RsaHashedKeyGenParams where + fromJSVal v = fmap RsaHashedKeyGenParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RsaHashedKeyGenParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RsaHashedKeyGenParams where + makeObject = makeObject . unRsaHashedKeyGenParams + +instance IsRsaKeyGenParams RsaHashedKeyGenParams +instance IsCryptoAlgorithmParameters RsaHashedKeyGenParams +instance IsGObject RsaHashedKeyGenParams where + typeGType _ = gTypeRsaHashedKeyGenParams + {-# INLINE typeGType #-} + +noRsaHashedKeyGenParams :: Maybe RsaHashedKeyGenParams +noRsaHashedKeyGenParams = Nothing +{-# INLINE noRsaHashedKeyGenParams #-} + +gTypeRsaHashedKeyGenParams :: JSM GType +gTypeRsaHashedKeyGenParams = GType . Object <$> jsg "RsaHashedKeyGenParams" + +-- | Functions for this inteface are in "JSDOM.RsaKeyGenParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype RsaKeyGenParams = RsaKeyGenParams { unRsaKeyGenParams :: JSVal } + +instance PToJSVal RsaKeyGenParams where + pToJSVal = unRsaKeyGenParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal RsaKeyGenParams where + pFromJSVal = RsaKeyGenParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal RsaKeyGenParams where + toJSVal = return . unRsaKeyGenParams + {-# INLINE toJSVal #-} + +instance FromJSVal RsaKeyGenParams where + fromJSVal v = fmap RsaKeyGenParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RsaKeyGenParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RsaKeyGenParams where + makeObject = makeObject . unRsaKeyGenParams + +class (IsCryptoAlgorithmParameters o, IsGObject o) => IsRsaKeyGenParams o +toRsaKeyGenParams :: IsRsaKeyGenParams o => o -> RsaKeyGenParams +toRsaKeyGenParams = RsaKeyGenParams . coerce + +instance IsRsaKeyGenParams RsaKeyGenParams +instance IsCryptoAlgorithmParameters RsaKeyGenParams +instance IsGObject RsaKeyGenParams where + typeGType _ = gTypeRsaKeyGenParams + {-# INLINE typeGType #-} + +noRsaKeyGenParams :: Maybe RsaKeyGenParams +noRsaKeyGenParams = Nothing +{-# INLINE noRsaKeyGenParams #-} + +gTypeRsaKeyGenParams :: JSM GType +gTypeRsaKeyGenParams = GType . Object <$> jsg "RsaKeyGenParams" + +-- | Functions for this inteface are in "JSDOM.RsaOaepParams". +-- Base interface functions are in: +-- +-- * "JSDOM.CryptoAlgorithmParameters" +-- +-- +newtype RsaOaepParams = RsaOaepParams { unRsaOaepParams :: JSVal } + +instance PToJSVal RsaOaepParams where + pToJSVal = unRsaOaepParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal RsaOaepParams where + pFromJSVal = RsaOaepParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal RsaOaepParams where + toJSVal = return . unRsaOaepParams + {-# INLINE toJSVal #-} + +instance FromJSVal RsaOaepParams where + fromJSVal v = fmap RsaOaepParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RsaOaepParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RsaOaepParams where + makeObject = makeObject . unRsaOaepParams + +instance IsCryptoAlgorithmParameters RsaOaepParams +instance IsGObject RsaOaepParams where + typeGType _ = gTypeRsaOaepParams + {-# INLINE typeGType #-} + +noRsaOaepParams :: Maybe RsaOaepParams +noRsaOaepParams = Nothing +{-# INLINE noRsaOaepParams #-} + +gTypeRsaOaepParams :: JSM GType +gTypeRsaOaepParams = GType . Object <$> jsg "RsaOaepParams" + +-- | Functions for this inteface are in "JSDOM.RsaOtherPrimesInfo". +-- +-- +newtype RsaOtherPrimesInfo = RsaOtherPrimesInfo { unRsaOtherPrimesInfo :: JSVal } + +instance PToJSVal RsaOtherPrimesInfo where + pToJSVal = unRsaOtherPrimesInfo + {-# INLINE pToJSVal #-} + +instance PFromJSVal RsaOtherPrimesInfo where + pFromJSVal = RsaOtherPrimesInfo + {-# INLINE pFromJSVal #-} + +instance ToJSVal RsaOtherPrimesInfo where + toJSVal = return . unRsaOtherPrimesInfo + {-# INLINE toJSVal #-} + +instance FromJSVal RsaOtherPrimesInfo where + fromJSVal v = fmap RsaOtherPrimesInfo <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . RsaOtherPrimesInfo + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject RsaOtherPrimesInfo where + makeObject = makeObject . unRsaOtherPrimesInfo + +instance IsGObject RsaOtherPrimesInfo where + typeGType _ = gTypeRsaOtherPrimesInfo + {-# INLINE typeGType #-} + +noRsaOtherPrimesInfo :: Maybe RsaOtherPrimesInfo +noRsaOtherPrimesInfo = Nothing +{-# INLINE noRsaOtherPrimesInfo #-} + +gTypeRsaOtherPrimesInfo :: JSM GType +gTypeRsaOtherPrimesInfo = GType . Object <$> jsg "RsaOtherPrimesInfo" + +-- | Functions for this inteface are in "JSDOM.SQLError". +-- +-- +newtype SQLError = SQLError { unSQLError :: JSVal } + +instance PToJSVal SQLError where + pToJSVal = unSQLError + {-# INLINE pToJSVal #-} + +instance PFromJSVal SQLError where + pFromJSVal = SQLError + {-# INLINE pFromJSVal #-} + +instance ToJSVal SQLError where + toJSVal = return . unSQLError + {-# INLINE toJSVal #-} + +instance FromJSVal SQLError where + fromJSVal v = fmap SQLError <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SQLError + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SQLError where + makeObject = makeObject . unSQLError + +instance IsGObject SQLError where + typeGType _ = gTypeSQLError + {-# INLINE typeGType #-} + +noSQLError :: Maybe SQLError +noSQLError = Nothing +{-# INLINE noSQLError #-} + +gTypeSQLError :: JSM GType +gTypeSQLError = GType . Object <$> jsg "SQLError" + +-- | Functions for this inteface are in "JSDOM.SQLException". +-- +-- +newtype SQLException = SQLException { unSQLException :: JSVal } + +instance PToJSVal SQLException where + pToJSVal = unSQLException + {-# INLINE pToJSVal #-} + +instance PFromJSVal SQLException where + pFromJSVal = SQLException + {-# INLINE pFromJSVal #-} + +instance ToJSVal SQLException where + toJSVal = return . unSQLException + {-# INLINE toJSVal #-} + +instance FromJSVal SQLException where + fromJSVal v = fmap SQLException <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SQLException + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SQLException where + makeObject = makeObject . unSQLException + +instance IsGObject SQLException where + typeGType _ = gTypeSQLException + {-# INLINE typeGType #-} + +noSQLException :: Maybe SQLException +noSQLException = Nothing +{-# INLINE noSQLException #-} + +gTypeSQLException :: JSM GType +gTypeSQLException = GType . Object <$> jsg "SQLException" + +-- | Functions for this inteface are in "JSDOM.SQLResultSet". +-- +-- +newtype SQLResultSet = SQLResultSet { unSQLResultSet :: JSVal } + +instance PToJSVal SQLResultSet where + pToJSVal = unSQLResultSet + {-# INLINE pToJSVal #-} + +instance PFromJSVal SQLResultSet where + pFromJSVal = SQLResultSet + {-# INLINE pFromJSVal #-} + +instance ToJSVal SQLResultSet where + toJSVal = return . unSQLResultSet + {-# INLINE toJSVal #-} + +instance FromJSVal SQLResultSet where + fromJSVal v = fmap SQLResultSet <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SQLResultSet + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SQLResultSet where + makeObject = makeObject . unSQLResultSet + +instance IsGObject SQLResultSet where + typeGType _ = gTypeSQLResultSet + {-# INLINE typeGType #-} + +noSQLResultSet :: Maybe SQLResultSet +noSQLResultSet = Nothing +{-# INLINE noSQLResultSet #-} + +gTypeSQLResultSet :: JSM GType +gTypeSQLResultSet = GType . Object <$> jsg "SQLResultSet" + +-- | Functions for this inteface are in "JSDOM.SQLResultSetRowList". +-- +-- +newtype SQLResultSetRowList = SQLResultSetRowList { unSQLResultSetRowList :: JSVal } + +instance PToJSVal SQLResultSetRowList where + pToJSVal = unSQLResultSetRowList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SQLResultSetRowList where + pFromJSVal = SQLResultSetRowList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SQLResultSetRowList where + toJSVal = return . unSQLResultSetRowList + {-# INLINE toJSVal #-} + +instance FromJSVal SQLResultSetRowList where + fromJSVal v = fmap SQLResultSetRowList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SQLResultSetRowList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SQLResultSetRowList where + makeObject = makeObject . unSQLResultSetRowList + +instance IsGObject SQLResultSetRowList where + typeGType _ = gTypeSQLResultSetRowList + {-# INLINE typeGType #-} + +noSQLResultSetRowList :: Maybe SQLResultSetRowList +noSQLResultSetRowList = Nothing +{-# INLINE noSQLResultSetRowList #-} + +gTypeSQLResultSetRowList :: JSM GType +gTypeSQLResultSetRowList = GType . Object <$> jsg "SQLResultSetRowList" + +-- | Functions for this inteface are in "JSDOM.SQLTransaction". +-- +-- +newtype SQLTransaction = SQLTransaction { unSQLTransaction :: JSVal } + +instance PToJSVal SQLTransaction where + pToJSVal = unSQLTransaction + {-# INLINE pToJSVal #-} + +instance PFromJSVal SQLTransaction where + pFromJSVal = SQLTransaction + {-# INLINE pFromJSVal #-} + +instance ToJSVal SQLTransaction where + toJSVal = return . unSQLTransaction + {-# INLINE toJSVal #-} + +instance FromJSVal SQLTransaction where + fromJSVal v = fmap SQLTransaction <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SQLTransaction + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SQLTransaction where + makeObject = makeObject . unSQLTransaction + +instance IsGObject SQLTransaction where + typeGType _ = gTypeSQLTransaction + {-# INLINE typeGType #-} + +noSQLTransaction :: Maybe SQLTransaction +noSQLTransaction = Nothing +{-# INLINE noSQLTransaction #-} + +gTypeSQLTransaction :: JSM GType +gTypeSQLTransaction = GType . Object <$> jsg "SQLTransaction" + +-- | Functions for this inteface are in "JSDOM.SVGAElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGAElement = SVGAElement { unSVGAElement :: JSVal } + +instance PToJSVal SVGAElement where + pToJSVal = unSVGAElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAElement where + pFromJSVal = SVGAElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAElement where + toJSVal = return . unSVGAElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAElement where + fromJSVal v = fmap SVGAElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAElement where + makeObject = makeObject . unSVGAElement + +instance IsSVGGraphicsElement SVGAElement +instance IsSVGElement SVGAElement +instance IsElement SVGAElement +instance IsNode SVGAElement +instance IsEventTarget SVGAElement +instance IsSlotable SVGAElement +instance IsParentNode SVGAElement +instance IsNonDocumentTypeChildNode SVGAElement +instance IsDocumentAndElementEventHandlers SVGAElement +instance IsChildNode SVGAElement +instance IsAnimatable SVGAElement +instance IsGlobalEventHandlers SVGAElement +instance IsElementCSSInlineStyle SVGAElement +instance IsSVGTests SVGAElement +instance IsSVGURIReference SVGAElement +instance IsSVGExternalResourcesRequired SVGAElement +instance IsGObject SVGAElement where + typeGType _ = gTypeSVGAElement + {-# INLINE typeGType #-} + +noSVGAElement :: Maybe SVGAElement +noSVGAElement = Nothing +{-# INLINE noSVGAElement #-} + +gTypeSVGAElement :: JSM GType +gTypeSVGAElement = GType . Object <$> jsg "SVGAElement" + +-- | Functions for this inteface are in "JSDOM.SVGAltGlyphDefElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGAltGlyphDefElement = SVGAltGlyphDefElement { unSVGAltGlyphDefElement :: JSVal } + +instance PToJSVal SVGAltGlyphDefElement where + pToJSVal = unSVGAltGlyphDefElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAltGlyphDefElement where + pFromJSVal = SVGAltGlyphDefElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAltGlyphDefElement where + toJSVal = return . unSVGAltGlyphDefElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAltGlyphDefElement where + fromJSVal v = fmap SVGAltGlyphDefElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAltGlyphDefElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAltGlyphDefElement where + makeObject = makeObject . unSVGAltGlyphDefElement + +instance IsSVGElement SVGAltGlyphDefElement +instance IsElement SVGAltGlyphDefElement +instance IsNode SVGAltGlyphDefElement +instance IsEventTarget SVGAltGlyphDefElement +instance IsSlotable SVGAltGlyphDefElement +instance IsParentNode SVGAltGlyphDefElement +instance IsNonDocumentTypeChildNode SVGAltGlyphDefElement +instance IsDocumentAndElementEventHandlers SVGAltGlyphDefElement +instance IsChildNode SVGAltGlyphDefElement +instance IsAnimatable SVGAltGlyphDefElement +instance IsGlobalEventHandlers SVGAltGlyphDefElement +instance IsElementCSSInlineStyle SVGAltGlyphDefElement +instance IsGObject SVGAltGlyphDefElement where + typeGType _ = gTypeSVGAltGlyphDefElement + {-# INLINE typeGType #-} + +noSVGAltGlyphDefElement :: Maybe SVGAltGlyphDefElement +noSVGAltGlyphDefElement = Nothing +{-# INLINE noSVGAltGlyphDefElement #-} + +gTypeSVGAltGlyphDefElement :: JSM GType +gTypeSVGAltGlyphDefElement = GType . Object <$> jsg "SVGAltGlyphDefElement" + +-- | Functions for this inteface are in "JSDOM.SVGAltGlyphElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGTextPositioningElement" +-- * "JSDOM.SVGTextContentElement" +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- * "JSDOM.SVGURIReference" +-- +-- +newtype SVGAltGlyphElement = SVGAltGlyphElement { unSVGAltGlyphElement :: JSVal } + +instance PToJSVal SVGAltGlyphElement where + pToJSVal = unSVGAltGlyphElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAltGlyphElement where + pFromJSVal = SVGAltGlyphElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAltGlyphElement where + toJSVal = return . unSVGAltGlyphElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAltGlyphElement where + fromJSVal v = fmap SVGAltGlyphElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAltGlyphElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAltGlyphElement where + makeObject = makeObject . unSVGAltGlyphElement + +instance IsSVGTextPositioningElement SVGAltGlyphElement +instance IsSVGTextContentElement SVGAltGlyphElement +instance IsSVGGraphicsElement SVGAltGlyphElement +instance IsSVGElement SVGAltGlyphElement +instance IsElement SVGAltGlyphElement +instance IsNode SVGAltGlyphElement +instance IsEventTarget SVGAltGlyphElement +instance IsSlotable SVGAltGlyphElement +instance IsParentNode SVGAltGlyphElement +instance IsNonDocumentTypeChildNode SVGAltGlyphElement +instance IsDocumentAndElementEventHandlers SVGAltGlyphElement +instance IsChildNode SVGAltGlyphElement +instance IsAnimatable SVGAltGlyphElement +instance IsGlobalEventHandlers SVGAltGlyphElement +instance IsElementCSSInlineStyle SVGAltGlyphElement +instance IsSVGTests SVGAltGlyphElement +instance IsSVGExternalResourcesRequired SVGAltGlyphElement +instance IsSVGURIReference SVGAltGlyphElement +instance IsGObject SVGAltGlyphElement where + typeGType _ = gTypeSVGAltGlyphElement + {-# INLINE typeGType #-} + +noSVGAltGlyphElement :: Maybe SVGAltGlyphElement +noSVGAltGlyphElement = Nothing +{-# INLINE noSVGAltGlyphElement #-} + +gTypeSVGAltGlyphElement :: JSM GType +gTypeSVGAltGlyphElement = GType . Object <$> jsg "SVGAltGlyphElement" + +-- | Functions for this inteface are in "JSDOM.SVGAltGlyphItemElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGAltGlyphItemElement = SVGAltGlyphItemElement { unSVGAltGlyphItemElement :: JSVal } + +instance PToJSVal SVGAltGlyphItemElement where + pToJSVal = unSVGAltGlyphItemElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAltGlyphItemElement where + pFromJSVal = SVGAltGlyphItemElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAltGlyphItemElement where + toJSVal = return . unSVGAltGlyphItemElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAltGlyphItemElement where + fromJSVal v = fmap SVGAltGlyphItemElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAltGlyphItemElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAltGlyphItemElement where + makeObject = makeObject . unSVGAltGlyphItemElement + +instance IsSVGElement SVGAltGlyphItemElement +instance IsElement SVGAltGlyphItemElement +instance IsNode SVGAltGlyphItemElement +instance IsEventTarget SVGAltGlyphItemElement +instance IsSlotable SVGAltGlyphItemElement +instance IsParentNode SVGAltGlyphItemElement +instance IsNonDocumentTypeChildNode SVGAltGlyphItemElement +instance IsDocumentAndElementEventHandlers SVGAltGlyphItemElement +instance IsChildNode SVGAltGlyphItemElement +instance IsAnimatable SVGAltGlyphItemElement +instance IsGlobalEventHandlers SVGAltGlyphItemElement +instance IsElementCSSInlineStyle SVGAltGlyphItemElement +instance IsGObject SVGAltGlyphItemElement where + typeGType _ = gTypeSVGAltGlyphItemElement + {-# INLINE typeGType #-} + +noSVGAltGlyphItemElement :: Maybe SVGAltGlyphItemElement +noSVGAltGlyphItemElement = Nothing +{-# INLINE noSVGAltGlyphItemElement #-} + +gTypeSVGAltGlyphItemElement :: JSM GType +gTypeSVGAltGlyphItemElement = GType . Object <$> jsg "SVGAltGlyphItemElement" + +-- | Functions for this inteface are in "JSDOM.SVGAngle". +-- +-- +newtype SVGAngle = SVGAngle { unSVGAngle :: JSVal } + +instance PToJSVal SVGAngle where + pToJSVal = unSVGAngle + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAngle where + pFromJSVal = SVGAngle + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAngle where + toJSVal = return . unSVGAngle + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAngle where + fromJSVal v = fmap SVGAngle <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAngle + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAngle where + makeObject = makeObject . unSVGAngle + +instance IsGObject SVGAngle where + typeGType _ = gTypeSVGAngle + {-# INLINE typeGType #-} + +noSVGAngle :: Maybe SVGAngle +noSVGAngle = Nothing +{-# INLINE noSVGAngle #-} + +gTypeSVGAngle :: JSM GType +gTypeSVGAngle = GType . Object <$> jsg "SVGAngle" + +-- | Functions for this inteface are in "JSDOM.SVGAnimateColorElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGAnimationElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGAnimateColorElement = SVGAnimateColorElement { unSVGAnimateColorElement :: JSVal } + +instance PToJSVal SVGAnimateColorElement where + pToJSVal = unSVGAnimateColorElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimateColorElement where + pFromJSVal = SVGAnimateColorElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimateColorElement where + toJSVal = return . unSVGAnimateColorElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimateColorElement where + fromJSVal v = fmap SVGAnimateColorElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimateColorElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimateColorElement where + makeObject = makeObject . unSVGAnimateColorElement + +instance IsSVGAnimationElement SVGAnimateColorElement +instance IsSVGElement SVGAnimateColorElement +instance IsElement SVGAnimateColorElement +instance IsNode SVGAnimateColorElement +instance IsEventTarget SVGAnimateColorElement +instance IsSlotable SVGAnimateColorElement +instance IsParentNode SVGAnimateColorElement +instance IsNonDocumentTypeChildNode SVGAnimateColorElement +instance IsDocumentAndElementEventHandlers SVGAnimateColorElement +instance IsChildNode SVGAnimateColorElement +instance IsAnimatable SVGAnimateColorElement +instance IsGlobalEventHandlers SVGAnimateColorElement +instance IsElementCSSInlineStyle SVGAnimateColorElement +instance IsSVGTests SVGAnimateColorElement +instance IsSVGExternalResourcesRequired SVGAnimateColorElement +instance IsGObject SVGAnimateColorElement where + typeGType _ = gTypeSVGAnimateColorElement + {-# INLINE typeGType #-} + +noSVGAnimateColorElement :: Maybe SVGAnimateColorElement +noSVGAnimateColorElement = Nothing +{-# INLINE noSVGAnimateColorElement #-} + +gTypeSVGAnimateColorElement :: JSM GType +gTypeSVGAnimateColorElement = GType . Object <$> jsg "SVGAnimateColorElement" + +-- | Functions for this inteface are in "JSDOM.SVGAnimateElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGAnimationElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGAnimateElement = SVGAnimateElement { unSVGAnimateElement :: JSVal } + +instance PToJSVal SVGAnimateElement where + pToJSVal = unSVGAnimateElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimateElement where + pFromJSVal = SVGAnimateElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimateElement where + toJSVal = return . unSVGAnimateElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimateElement where + fromJSVal v = fmap SVGAnimateElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimateElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimateElement where + makeObject = makeObject . unSVGAnimateElement + +instance IsSVGAnimationElement SVGAnimateElement +instance IsSVGElement SVGAnimateElement +instance IsElement SVGAnimateElement +instance IsNode SVGAnimateElement +instance IsEventTarget SVGAnimateElement +instance IsSlotable SVGAnimateElement +instance IsParentNode SVGAnimateElement +instance IsNonDocumentTypeChildNode SVGAnimateElement +instance IsDocumentAndElementEventHandlers SVGAnimateElement +instance IsChildNode SVGAnimateElement +instance IsAnimatable SVGAnimateElement +instance IsGlobalEventHandlers SVGAnimateElement +instance IsElementCSSInlineStyle SVGAnimateElement +instance IsSVGTests SVGAnimateElement +instance IsSVGExternalResourcesRequired SVGAnimateElement +instance IsGObject SVGAnimateElement where + typeGType _ = gTypeSVGAnimateElement + {-# INLINE typeGType #-} + +noSVGAnimateElement :: Maybe SVGAnimateElement +noSVGAnimateElement = Nothing +{-# INLINE noSVGAnimateElement #-} + +gTypeSVGAnimateElement :: JSM GType +gTypeSVGAnimateElement = GType . Object <$> jsg "SVGAnimateElement" + +-- | Functions for this inteface are in "JSDOM.SVGAnimateMotionElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGAnimationElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGAnimateMotionElement = SVGAnimateMotionElement { unSVGAnimateMotionElement :: JSVal } + +instance PToJSVal SVGAnimateMotionElement where + pToJSVal = unSVGAnimateMotionElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimateMotionElement where + pFromJSVal = SVGAnimateMotionElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimateMotionElement where + toJSVal = return . unSVGAnimateMotionElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimateMotionElement where + fromJSVal v = fmap SVGAnimateMotionElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimateMotionElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimateMotionElement where + makeObject = makeObject . unSVGAnimateMotionElement + +instance IsSVGAnimationElement SVGAnimateMotionElement +instance IsSVGElement SVGAnimateMotionElement +instance IsElement SVGAnimateMotionElement +instance IsNode SVGAnimateMotionElement +instance IsEventTarget SVGAnimateMotionElement +instance IsSlotable SVGAnimateMotionElement +instance IsParentNode SVGAnimateMotionElement +instance IsNonDocumentTypeChildNode SVGAnimateMotionElement +instance IsDocumentAndElementEventHandlers SVGAnimateMotionElement +instance IsChildNode SVGAnimateMotionElement +instance IsAnimatable SVGAnimateMotionElement +instance IsGlobalEventHandlers SVGAnimateMotionElement +instance IsElementCSSInlineStyle SVGAnimateMotionElement +instance IsSVGTests SVGAnimateMotionElement +instance IsSVGExternalResourcesRequired SVGAnimateMotionElement +instance IsGObject SVGAnimateMotionElement where + typeGType _ = gTypeSVGAnimateMotionElement + {-# INLINE typeGType #-} + +noSVGAnimateMotionElement :: Maybe SVGAnimateMotionElement +noSVGAnimateMotionElement = Nothing +{-# INLINE noSVGAnimateMotionElement #-} + +gTypeSVGAnimateMotionElement :: JSM GType +gTypeSVGAnimateMotionElement = GType . Object <$> jsg "SVGAnimateMotionElement" + +-- | Functions for this inteface are in "JSDOM.SVGAnimateTransformElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGAnimationElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGAnimateTransformElement = SVGAnimateTransformElement { unSVGAnimateTransformElement :: JSVal } + +instance PToJSVal SVGAnimateTransformElement where + pToJSVal = unSVGAnimateTransformElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimateTransformElement where + pFromJSVal = SVGAnimateTransformElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimateTransformElement where + toJSVal = return . unSVGAnimateTransformElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimateTransformElement where + fromJSVal v = fmap SVGAnimateTransformElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimateTransformElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimateTransformElement where + makeObject = makeObject . unSVGAnimateTransformElement + +instance IsSVGAnimationElement SVGAnimateTransformElement +instance IsSVGElement SVGAnimateTransformElement +instance IsElement SVGAnimateTransformElement +instance IsNode SVGAnimateTransformElement +instance IsEventTarget SVGAnimateTransformElement +instance IsSlotable SVGAnimateTransformElement +instance IsParentNode SVGAnimateTransformElement +instance IsNonDocumentTypeChildNode SVGAnimateTransformElement +instance IsDocumentAndElementEventHandlers SVGAnimateTransformElement +instance IsChildNode SVGAnimateTransformElement +instance IsAnimatable SVGAnimateTransformElement +instance IsGlobalEventHandlers SVGAnimateTransformElement +instance IsElementCSSInlineStyle SVGAnimateTransformElement +instance IsSVGTests SVGAnimateTransformElement +instance IsSVGExternalResourcesRequired SVGAnimateTransformElement +instance IsGObject SVGAnimateTransformElement where + typeGType _ = gTypeSVGAnimateTransformElement + {-# INLINE typeGType #-} + +noSVGAnimateTransformElement :: Maybe SVGAnimateTransformElement +noSVGAnimateTransformElement = Nothing +{-# INLINE noSVGAnimateTransformElement #-} + +gTypeSVGAnimateTransformElement :: JSM GType +gTypeSVGAnimateTransformElement = GType . Object <$> jsg "SVGAnimateTransformElement" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedAngle". +-- +-- +newtype SVGAnimatedAngle = SVGAnimatedAngle { unSVGAnimatedAngle :: JSVal } + +instance PToJSVal SVGAnimatedAngle where + pToJSVal = unSVGAnimatedAngle + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedAngle where + pFromJSVal = SVGAnimatedAngle + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedAngle where + toJSVal = return . unSVGAnimatedAngle + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedAngle where + fromJSVal v = fmap SVGAnimatedAngle <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedAngle + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedAngle where + makeObject = makeObject . unSVGAnimatedAngle + +instance IsGObject SVGAnimatedAngle where + typeGType _ = gTypeSVGAnimatedAngle + {-# INLINE typeGType #-} + +noSVGAnimatedAngle :: Maybe SVGAnimatedAngle +noSVGAnimatedAngle = Nothing +{-# INLINE noSVGAnimatedAngle #-} + +gTypeSVGAnimatedAngle :: JSM GType +gTypeSVGAnimatedAngle = GType . Object <$> jsg "SVGAnimatedAngle" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedBoolean". +-- +-- +newtype SVGAnimatedBoolean = SVGAnimatedBoolean { unSVGAnimatedBoolean :: JSVal } + +instance PToJSVal SVGAnimatedBoolean where + pToJSVal = unSVGAnimatedBoolean + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedBoolean where + pFromJSVal = SVGAnimatedBoolean + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedBoolean where + toJSVal = return . unSVGAnimatedBoolean + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedBoolean where + fromJSVal v = fmap SVGAnimatedBoolean <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedBoolean + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedBoolean where + makeObject = makeObject . unSVGAnimatedBoolean + +instance IsGObject SVGAnimatedBoolean where + typeGType _ = gTypeSVGAnimatedBoolean + {-# INLINE typeGType #-} + +noSVGAnimatedBoolean :: Maybe SVGAnimatedBoolean +noSVGAnimatedBoolean = Nothing +{-# INLINE noSVGAnimatedBoolean #-} + +gTypeSVGAnimatedBoolean :: JSM GType +gTypeSVGAnimatedBoolean = GType . Object <$> jsg "SVGAnimatedBoolean" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedEnumeration". +-- +-- +newtype SVGAnimatedEnumeration = SVGAnimatedEnumeration { unSVGAnimatedEnumeration :: JSVal } + +instance PToJSVal SVGAnimatedEnumeration where + pToJSVal = unSVGAnimatedEnumeration + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedEnumeration where + pFromJSVal = SVGAnimatedEnumeration + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedEnumeration where + toJSVal = return . unSVGAnimatedEnumeration + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedEnumeration where + fromJSVal v = fmap SVGAnimatedEnumeration <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedEnumeration + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedEnumeration where + makeObject = makeObject . unSVGAnimatedEnumeration + +instance IsGObject SVGAnimatedEnumeration where + typeGType _ = gTypeSVGAnimatedEnumeration + {-# INLINE typeGType #-} + +noSVGAnimatedEnumeration :: Maybe SVGAnimatedEnumeration +noSVGAnimatedEnumeration = Nothing +{-# INLINE noSVGAnimatedEnumeration #-} + +gTypeSVGAnimatedEnumeration :: JSM GType +gTypeSVGAnimatedEnumeration = GType . Object <$> jsg "SVGAnimatedEnumeration" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedInteger". +-- +-- +newtype SVGAnimatedInteger = SVGAnimatedInteger { unSVGAnimatedInteger :: JSVal } + +instance PToJSVal SVGAnimatedInteger where + pToJSVal = unSVGAnimatedInteger + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedInteger where + pFromJSVal = SVGAnimatedInteger + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedInteger where + toJSVal = return . unSVGAnimatedInteger + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedInteger where + fromJSVal v = fmap SVGAnimatedInteger <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedInteger + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedInteger where + makeObject = makeObject . unSVGAnimatedInteger + +instance IsGObject SVGAnimatedInteger where + typeGType _ = gTypeSVGAnimatedInteger + {-# INLINE typeGType #-} + +noSVGAnimatedInteger :: Maybe SVGAnimatedInteger +noSVGAnimatedInteger = Nothing +{-# INLINE noSVGAnimatedInteger #-} + +gTypeSVGAnimatedInteger :: JSM GType +gTypeSVGAnimatedInteger = GType . Object <$> jsg "SVGAnimatedInteger" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedLength". +-- +-- +newtype SVGAnimatedLength = SVGAnimatedLength { unSVGAnimatedLength :: JSVal } + +instance PToJSVal SVGAnimatedLength where + pToJSVal = unSVGAnimatedLength + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedLength where + pFromJSVal = SVGAnimatedLength + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedLength where + toJSVal = return . unSVGAnimatedLength + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedLength where + fromJSVal v = fmap SVGAnimatedLength <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedLength + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedLength where + makeObject = makeObject . unSVGAnimatedLength + +instance IsGObject SVGAnimatedLength where + typeGType _ = gTypeSVGAnimatedLength + {-# INLINE typeGType #-} + +noSVGAnimatedLength :: Maybe SVGAnimatedLength +noSVGAnimatedLength = Nothing +{-# INLINE noSVGAnimatedLength #-} + +gTypeSVGAnimatedLength :: JSM GType +gTypeSVGAnimatedLength = GType . Object <$> jsg "SVGAnimatedLength" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedLengthList". +-- +-- +newtype SVGAnimatedLengthList = SVGAnimatedLengthList { unSVGAnimatedLengthList :: JSVal } + +instance PToJSVal SVGAnimatedLengthList where + pToJSVal = unSVGAnimatedLengthList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedLengthList where + pFromJSVal = SVGAnimatedLengthList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedLengthList where + toJSVal = return . unSVGAnimatedLengthList + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedLengthList where + fromJSVal v = fmap SVGAnimatedLengthList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedLengthList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedLengthList where + makeObject = makeObject . unSVGAnimatedLengthList + +instance IsGObject SVGAnimatedLengthList where + typeGType _ = gTypeSVGAnimatedLengthList + {-# INLINE typeGType #-} + +noSVGAnimatedLengthList :: Maybe SVGAnimatedLengthList +noSVGAnimatedLengthList = Nothing +{-# INLINE noSVGAnimatedLengthList #-} + +gTypeSVGAnimatedLengthList :: JSM GType +gTypeSVGAnimatedLengthList = GType . Object <$> jsg "SVGAnimatedLengthList" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedNumber". +-- +-- +newtype SVGAnimatedNumber = SVGAnimatedNumber { unSVGAnimatedNumber :: JSVal } + +instance PToJSVal SVGAnimatedNumber where + pToJSVal = unSVGAnimatedNumber + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedNumber where + pFromJSVal = SVGAnimatedNumber + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedNumber where + toJSVal = return . unSVGAnimatedNumber + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedNumber where + fromJSVal v = fmap SVGAnimatedNumber <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedNumber + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedNumber where + makeObject = makeObject . unSVGAnimatedNumber + +instance IsGObject SVGAnimatedNumber where + typeGType _ = gTypeSVGAnimatedNumber + {-# INLINE typeGType #-} + +noSVGAnimatedNumber :: Maybe SVGAnimatedNumber +noSVGAnimatedNumber = Nothing +{-# INLINE noSVGAnimatedNumber #-} + +gTypeSVGAnimatedNumber :: JSM GType +gTypeSVGAnimatedNumber = GType . Object <$> jsg "SVGAnimatedNumber" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedNumberList". +-- +-- +newtype SVGAnimatedNumberList = SVGAnimatedNumberList { unSVGAnimatedNumberList :: JSVal } + +instance PToJSVal SVGAnimatedNumberList where + pToJSVal = unSVGAnimatedNumberList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedNumberList where + pFromJSVal = SVGAnimatedNumberList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedNumberList where + toJSVal = return . unSVGAnimatedNumberList + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedNumberList where + fromJSVal v = fmap SVGAnimatedNumberList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedNumberList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedNumberList where + makeObject = makeObject . unSVGAnimatedNumberList + +instance IsGObject SVGAnimatedNumberList where + typeGType _ = gTypeSVGAnimatedNumberList + {-# INLINE typeGType #-} + +noSVGAnimatedNumberList :: Maybe SVGAnimatedNumberList +noSVGAnimatedNumberList = Nothing +{-# INLINE noSVGAnimatedNumberList #-} + +gTypeSVGAnimatedNumberList :: JSM GType +gTypeSVGAnimatedNumberList = GType . Object <$> jsg "SVGAnimatedNumberList" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedPreserveAspectRatio". +-- +-- +newtype SVGAnimatedPreserveAspectRatio = SVGAnimatedPreserveAspectRatio { unSVGAnimatedPreserveAspectRatio :: JSVal } + +instance PToJSVal SVGAnimatedPreserveAspectRatio where + pToJSVal = unSVGAnimatedPreserveAspectRatio + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedPreserveAspectRatio where + pFromJSVal = SVGAnimatedPreserveAspectRatio + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedPreserveAspectRatio where + toJSVal = return . unSVGAnimatedPreserveAspectRatio + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedPreserveAspectRatio where + fromJSVal v = fmap SVGAnimatedPreserveAspectRatio <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedPreserveAspectRatio + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedPreserveAspectRatio where + makeObject = makeObject . unSVGAnimatedPreserveAspectRatio + +instance IsGObject SVGAnimatedPreserveAspectRatio where + typeGType _ = gTypeSVGAnimatedPreserveAspectRatio + {-# INLINE typeGType #-} + +noSVGAnimatedPreserveAspectRatio :: Maybe SVGAnimatedPreserveAspectRatio +noSVGAnimatedPreserveAspectRatio = Nothing +{-# INLINE noSVGAnimatedPreserveAspectRatio #-} + +gTypeSVGAnimatedPreserveAspectRatio :: JSM GType +gTypeSVGAnimatedPreserveAspectRatio = GType . Object <$> jsg "SVGAnimatedPreserveAspectRatio" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedRect". +-- +-- +newtype SVGAnimatedRect = SVGAnimatedRect { unSVGAnimatedRect :: JSVal } + +instance PToJSVal SVGAnimatedRect where + pToJSVal = unSVGAnimatedRect + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedRect where + pFromJSVal = SVGAnimatedRect + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedRect where + toJSVal = return . unSVGAnimatedRect + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedRect where + fromJSVal v = fmap SVGAnimatedRect <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedRect + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedRect where + makeObject = makeObject . unSVGAnimatedRect + +instance IsGObject SVGAnimatedRect where + typeGType _ = gTypeSVGAnimatedRect + {-# INLINE typeGType #-} + +noSVGAnimatedRect :: Maybe SVGAnimatedRect +noSVGAnimatedRect = Nothing +{-# INLINE noSVGAnimatedRect #-} + +gTypeSVGAnimatedRect :: JSM GType +gTypeSVGAnimatedRect = GType . Object <$> jsg "SVGAnimatedRect" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedString". +-- +-- +newtype SVGAnimatedString = SVGAnimatedString { unSVGAnimatedString :: JSVal } + +instance PToJSVal SVGAnimatedString where + pToJSVal = unSVGAnimatedString + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedString where + pFromJSVal = SVGAnimatedString + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedString where + toJSVal = return . unSVGAnimatedString + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedString where + fromJSVal v = fmap SVGAnimatedString <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedString + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedString where + makeObject = makeObject . unSVGAnimatedString + +instance IsGObject SVGAnimatedString where + typeGType _ = gTypeSVGAnimatedString + {-# INLINE typeGType #-} + +noSVGAnimatedString :: Maybe SVGAnimatedString +noSVGAnimatedString = Nothing +{-# INLINE noSVGAnimatedString #-} + +gTypeSVGAnimatedString :: JSM GType +gTypeSVGAnimatedString = GType . Object <$> jsg "SVGAnimatedString" + +-- | Functions for this inteface are in "JSDOM.SVGAnimatedTransformList". +-- +-- +newtype SVGAnimatedTransformList = SVGAnimatedTransformList { unSVGAnimatedTransformList :: JSVal } + +instance PToJSVal SVGAnimatedTransformList where + pToJSVal = unSVGAnimatedTransformList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimatedTransformList where + pFromJSVal = SVGAnimatedTransformList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimatedTransformList where + toJSVal = return . unSVGAnimatedTransformList + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimatedTransformList where + fromJSVal v = fmap SVGAnimatedTransformList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimatedTransformList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimatedTransformList where + makeObject = makeObject . unSVGAnimatedTransformList + +instance IsGObject SVGAnimatedTransformList where + typeGType _ = gTypeSVGAnimatedTransformList + {-# INLINE typeGType #-} + +noSVGAnimatedTransformList :: Maybe SVGAnimatedTransformList +noSVGAnimatedTransformList = Nothing +{-# INLINE noSVGAnimatedTransformList #-} + +gTypeSVGAnimatedTransformList :: JSM GType +gTypeSVGAnimatedTransformList = GType . Object <$> jsg "SVGAnimatedTransformList" + +-- | Functions for this inteface are in "JSDOM.SVGAnimationElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGAnimationElement = SVGAnimationElement { unSVGAnimationElement :: JSVal } + +instance PToJSVal SVGAnimationElement where + pToJSVal = unSVGAnimationElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGAnimationElement where + pFromJSVal = SVGAnimationElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGAnimationElement where + toJSVal = return . unSVGAnimationElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGAnimationElement where + fromJSVal v = fmap SVGAnimationElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGAnimationElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGAnimationElement where + makeObject = makeObject . unSVGAnimationElement + +class (IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsElementCSSInlineStyle o, IsSVGTests o, IsSVGExternalResourcesRequired o, IsGObject o) => IsSVGAnimationElement o +toSVGAnimationElement :: IsSVGAnimationElement o => o -> SVGAnimationElement +toSVGAnimationElement = SVGAnimationElement . coerce + +instance IsSVGAnimationElement SVGAnimationElement +instance IsSVGElement SVGAnimationElement +instance IsElement SVGAnimationElement +instance IsNode SVGAnimationElement +instance IsEventTarget SVGAnimationElement +instance IsSlotable SVGAnimationElement +instance IsParentNode SVGAnimationElement +instance IsNonDocumentTypeChildNode SVGAnimationElement +instance IsDocumentAndElementEventHandlers SVGAnimationElement +instance IsChildNode SVGAnimationElement +instance IsAnimatable SVGAnimationElement +instance IsGlobalEventHandlers SVGAnimationElement +instance IsElementCSSInlineStyle SVGAnimationElement +instance IsSVGTests SVGAnimationElement +instance IsSVGExternalResourcesRequired SVGAnimationElement +instance IsGObject SVGAnimationElement where + typeGType _ = gTypeSVGAnimationElement + {-# INLINE typeGType #-} + +noSVGAnimationElement :: Maybe SVGAnimationElement +noSVGAnimationElement = Nothing +{-# INLINE noSVGAnimationElement #-} + +gTypeSVGAnimationElement :: JSM GType +gTypeSVGAnimationElement = GType . Object <$> jsg "SVGAnimationElement" + +-- | Functions for this inteface are in "JSDOM.SVGCircleElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGCircleElement = SVGCircleElement { unSVGCircleElement :: JSVal } + +instance PToJSVal SVGCircleElement where + pToJSVal = unSVGCircleElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGCircleElement where + pFromJSVal = SVGCircleElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGCircleElement where + toJSVal = return . unSVGCircleElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGCircleElement where + fromJSVal v = fmap SVGCircleElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGCircleElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGCircleElement where + makeObject = makeObject . unSVGCircleElement + +instance IsSVGGraphicsElement SVGCircleElement +instance IsSVGElement SVGCircleElement +instance IsElement SVGCircleElement +instance IsNode SVGCircleElement +instance IsEventTarget SVGCircleElement +instance IsSlotable SVGCircleElement +instance IsParentNode SVGCircleElement +instance IsNonDocumentTypeChildNode SVGCircleElement +instance IsDocumentAndElementEventHandlers SVGCircleElement +instance IsChildNode SVGCircleElement +instance IsAnimatable SVGCircleElement +instance IsGlobalEventHandlers SVGCircleElement +instance IsElementCSSInlineStyle SVGCircleElement +instance IsSVGTests SVGCircleElement +instance IsSVGExternalResourcesRequired SVGCircleElement +instance IsGObject SVGCircleElement where + typeGType _ = gTypeSVGCircleElement + {-# INLINE typeGType #-} + +noSVGCircleElement :: Maybe SVGCircleElement +noSVGCircleElement = Nothing +{-# INLINE noSVGCircleElement #-} + +gTypeSVGCircleElement :: JSM GType +gTypeSVGCircleElement = GType . Object <$> jsg "SVGCircleElement" + +-- | Functions for this inteface are in "JSDOM.SVGClipPathElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGClipPathElement = SVGClipPathElement { unSVGClipPathElement :: JSVal } + +instance PToJSVal SVGClipPathElement where + pToJSVal = unSVGClipPathElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGClipPathElement where + pFromJSVal = SVGClipPathElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGClipPathElement where + toJSVal = return . unSVGClipPathElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGClipPathElement where + fromJSVal v = fmap SVGClipPathElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGClipPathElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGClipPathElement where + makeObject = makeObject . unSVGClipPathElement + +instance IsSVGGraphicsElement SVGClipPathElement +instance IsSVGElement SVGClipPathElement +instance IsElement SVGClipPathElement +instance IsNode SVGClipPathElement +instance IsEventTarget SVGClipPathElement +instance IsSlotable SVGClipPathElement +instance IsParentNode SVGClipPathElement +instance IsNonDocumentTypeChildNode SVGClipPathElement +instance IsDocumentAndElementEventHandlers SVGClipPathElement +instance IsChildNode SVGClipPathElement +instance IsAnimatable SVGClipPathElement +instance IsGlobalEventHandlers SVGClipPathElement +instance IsElementCSSInlineStyle SVGClipPathElement +instance IsSVGTests SVGClipPathElement +instance IsSVGExternalResourcesRequired SVGClipPathElement +instance IsGObject SVGClipPathElement where + typeGType _ = gTypeSVGClipPathElement + {-# INLINE typeGType #-} + +noSVGClipPathElement :: Maybe SVGClipPathElement +noSVGClipPathElement = Nothing +{-# INLINE noSVGClipPathElement #-} + +gTypeSVGClipPathElement :: JSM GType +gTypeSVGClipPathElement = GType . Object <$> jsg "SVGClipPathElement" + +-- | Functions for this inteface are in "JSDOM.SVGComponentTransferFunctionElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGComponentTransferFunctionElement = SVGComponentTransferFunctionElement { unSVGComponentTransferFunctionElement :: JSVal } + +instance PToJSVal SVGComponentTransferFunctionElement where + pToJSVal = unSVGComponentTransferFunctionElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGComponentTransferFunctionElement where + pFromJSVal = SVGComponentTransferFunctionElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGComponentTransferFunctionElement where + toJSVal = return . unSVGComponentTransferFunctionElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGComponentTransferFunctionElement where + fromJSVal v = fmap SVGComponentTransferFunctionElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGComponentTransferFunctionElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGComponentTransferFunctionElement where + makeObject = makeObject . unSVGComponentTransferFunctionElement + +class (IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsElementCSSInlineStyle o, IsGObject o) => IsSVGComponentTransferFunctionElement o +toSVGComponentTransferFunctionElement :: IsSVGComponentTransferFunctionElement o => o -> SVGComponentTransferFunctionElement +toSVGComponentTransferFunctionElement = SVGComponentTransferFunctionElement . coerce + +instance IsSVGComponentTransferFunctionElement SVGComponentTransferFunctionElement +instance IsSVGElement SVGComponentTransferFunctionElement +instance IsElement SVGComponentTransferFunctionElement +instance IsNode SVGComponentTransferFunctionElement +instance IsEventTarget SVGComponentTransferFunctionElement +instance IsSlotable SVGComponentTransferFunctionElement +instance IsParentNode SVGComponentTransferFunctionElement +instance IsNonDocumentTypeChildNode SVGComponentTransferFunctionElement +instance IsDocumentAndElementEventHandlers SVGComponentTransferFunctionElement +instance IsChildNode SVGComponentTransferFunctionElement +instance IsAnimatable SVGComponentTransferFunctionElement +instance IsGlobalEventHandlers SVGComponentTransferFunctionElement +instance IsElementCSSInlineStyle SVGComponentTransferFunctionElement +instance IsGObject SVGComponentTransferFunctionElement where + typeGType _ = gTypeSVGComponentTransferFunctionElement + {-# INLINE typeGType #-} + +noSVGComponentTransferFunctionElement :: Maybe SVGComponentTransferFunctionElement +noSVGComponentTransferFunctionElement = Nothing +{-# INLINE noSVGComponentTransferFunctionElement #-} + +gTypeSVGComponentTransferFunctionElement :: JSM GType +gTypeSVGComponentTransferFunctionElement = GType . Object <$> jsg "SVGComponentTransferFunctionElement" + +-- | Functions for this inteface are in "JSDOM.SVGCursorElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGCursorElement = SVGCursorElement { unSVGCursorElement :: JSVal } + +instance PToJSVal SVGCursorElement where + pToJSVal = unSVGCursorElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGCursorElement where + pFromJSVal = SVGCursorElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGCursorElement where + toJSVal = return . unSVGCursorElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGCursorElement where + fromJSVal v = fmap SVGCursorElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGCursorElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGCursorElement where + makeObject = makeObject . unSVGCursorElement + +instance IsSVGElement SVGCursorElement +instance IsElement SVGCursorElement +instance IsNode SVGCursorElement +instance IsEventTarget SVGCursorElement +instance IsSlotable SVGCursorElement +instance IsParentNode SVGCursorElement +instance IsNonDocumentTypeChildNode SVGCursorElement +instance IsDocumentAndElementEventHandlers SVGCursorElement +instance IsChildNode SVGCursorElement +instance IsAnimatable SVGCursorElement +instance IsGlobalEventHandlers SVGCursorElement +instance IsElementCSSInlineStyle SVGCursorElement +instance IsSVGURIReference SVGCursorElement +instance IsSVGTests SVGCursorElement +instance IsSVGExternalResourcesRequired SVGCursorElement +instance IsGObject SVGCursorElement where + typeGType _ = gTypeSVGCursorElement + {-# INLINE typeGType #-} + +noSVGCursorElement :: Maybe SVGCursorElement +noSVGCursorElement = Nothing +{-# INLINE noSVGCursorElement #-} + +gTypeSVGCursorElement :: JSM GType +gTypeSVGCursorElement = GType . Object <$> jsg "SVGCursorElement" + +-- | Functions for this inteface are in "JSDOM.SVGDefsElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGDefsElement = SVGDefsElement { unSVGDefsElement :: JSVal } + +instance PToJSVal SVGDefsElement where + pToJSVal = unSVGDefsElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGDefsElement where + pFromJSVal = SVGDefsElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGDefsElement where + toJSVal = return . unSVGDefsElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGDefsElement where + fromJSVal v = fmap SVGDefsElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGDefsElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGDefsElement where + makeObject = makeObject . unSVGDefsElement + +instance IsSVGGraphicsElement SVGDefsElement +instance IsSVGElement SVGDefsElement +instance IsElement SVGDefsElement +instance IsNode SVGDefsElement +instance IsEventTarget SVGDefsElement +instance IsSlotable SVGDefsElement +instance IsParentNode SVGDefsElement +instance IsNonDocumentTypeChildNode SVGDefsElement +instance IsDocumentAndElementEventHandlers SVGDefsElement +instance IsChildNode SVGDefsElement +instance IsAnimatable SVGDefsElement +instance IsGlobalEventHandlers SVGDefsElement +instance IsElementCSSInlineStyle SVGDefsElement +instance IsSVGTests SVGDefsElement +instance IsSVGExternalResourcesRequired SVGDefsElement +instance IsGObject SVGDefsElement where + typeGType _ = gTypeSVGDefsElement + {-# INLINE typeGType #-} + +noSVGDefsElement :: Maybe SVGDefsElement +noSVGDefsElement = Nothing +{-# INLINE noSVGDefsElement #-} + +gTypeSVGDefsElement :: JSM GType +gTypeSVGDefsElement = GType . Object <$> jsg "SVGDefsElement" + +-- | Functions for this inteface are in "JSDOM.SVGDescElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGDescElement = SVGDescElement { unSVGDescElement :: JSVal } + +instance PToJSVal SVGDescElement where + pToJSVal = unSVGDescElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGDescElement where + pFromJSVal = SVGDescElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGDescElement where + toJSVal = return . unSVGDescElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGDescElement where + fromJSVal v = fmap SVGDescElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGDescElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGDescElement where + makeObject = makeObject . unSVGDescElement + +instance IsSVGElement SVGDescElement +instance IsElement SVGDescElement +instance IsNode SVGDescElement +instance IsEventTarget SVGDescElement +instance IsSlotable SVGDescElement +instance IsParentNode SVGDescElement +instance IsNonDocumentTypeChildNode SVGDescElement +instance IsDocumentAndElementEventHandlers SVGDescElement +instance IsChildNode SVGDescElement +instance IsAnimatable SVGDescElement +instance IsGlobalEventHandlers SVGDescElement +instance IsElementCSSInlineStyle SVGDescElement +instance IsGObject SVGDescElement where + typeGType _ = gTypeSVGDescElement + {-# INLINE typeGType #-} + +noSVGDescElement :: Maybe SVGDescElement +noSVGDescElement = Nothing +{-# INLINE noSVGDescElement #-} + +gTypeSVGDescElement :: JSM GType +gTypeSVGDescElement = GType . Object <$> jsg "SVGDescElement" + +-- | Functions for this inteface are in "JSDOM.SVGElement". +-- Base interface functions are in: +-- +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGElement = SVGElement { unSVGElement :: JSVal } + +instance PToJSVal SVGElement where + pToJSVal = unSVGElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGElement where + pFromJSVal = SVGElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGElement where + toJSVal = return . unSVGElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGElement where + fromJSVal v = fmap SVGElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGElement where + makeObject = makeObject . unSVGElement + +class (IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsElementCSSInlineStyle o, IsGObject o) => IsSVGElement o +toSVGElement :: IsSVGElement o => o -> SVGElement +toSVGElement = SVGElement . coerce + +instance IsSVGElement SVGElement +instance IsElement SVGElement +instance IsNode SVGElement +instance IsEventTarget SVGElement +instance IsSlotable SVGElement +instance IsParentNode SVGElement +instance IsNonDocumentTypeChildNode SVGElement +instance IsDocumentAndElementEventHandlers SVGElement +instance IsChildNode SVGElement +instance IsAnimatable SVGElement +instance IsGlobalEventHandlers SVGElement +instance IsElementCSSInlineStyle SVGElement +instance IsGObject SVGElement where + typeGType _ = gTypeSVGElement + {-# INLINE typeGType #-} + +noSVGElement :: Maybe SVGElement +noSVGElement = Nothing +{-# INLINE noSVGElement #-} + +gTypeSVGElement :: JSM GType +gTypeSVGElement = GType . Object <$> jsg "SVGElement" + +-- | Functions for this inteface are in "JSDOM.SVGEllipseElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGEllipseElement = SVGEllipseElement { unSVGEllipseElement :: JSVal } + +instance PToJSVal SVGEllipseElement where + pToJSVal = unSVGEllipseElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGEllipseElement where + pFromJSVal = SVGEllipseElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGEllipseElement where + toJSVal = return . unSVGEllipseElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGEllipseElement where + fromJSVal v = fmap SVGEllipseElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGEllipseElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGEllipseElement where + makeObject = makeObject . unSVGEllipseElement + +instance IsSVGGraphicsElement SVGEllipseElement +instance IsSVGElement SVGEllipseElement +instance IsElement SVGEllipseElement +instance IsNode SVGEllipseElement +instance IsEventTarget SVGEllipseElement +instance IsSlotable SVGEllipseElement +instance IsParentNode SVGEllipseElement +instance IsNonDocumentTypeChildNode SVGEllipseElement +instance IsDocumentAndElementEventHandlers SVGEllipseElement +instance IsChildNode SVGEllipseElement +instance IsAnimatable SVGEllipseElement +instance IsGlobalEventHandlers SVGEllipseElement +instance IsElementCSSInlineStyle SVGEllipseElement +instance IsSVGTests SVGEllipseElement +instance IsSVGExternalResourcesRequired SVGEllipseElement +instance IsGObject SVGEllipseElement where + typeGType _ = gTypeSVGEllipseElement + {-# INLINE typeGType #-} + +noSVGEllipseElement :: Maybe SVGEllipseElement +noSVGEllipseElement = Nothing +{-# INLINE noSVGEllipseElement #-} + +gTypeSVGEllipseElement :: JSM GType +gTypeSVGEllipseElement = GType . Object <$> jsg "SVGEllipseElement" + +-- | Functions for this inteface are in "JSDOM.SVGException". +-- +-- +newtype SVGException = SVGException { unSVGException :: JSVal } + +instance PToJSVal SVGException where + pToJSVal = unSVGException + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGException where + pFromJSVal = SVGException + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGException where + toJSVal = return . unSVGException + {-# INLINE toJSVal #-} + +instance FromJSVal SVGException where + fromJSVal v = fmap SVGException <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGException + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGException where + makeObject = makeObject . unSVGException + +instance IsGObject SVGException where + typeGType _ = gTypeSVGException + {-# INLINE typeGType #-} + +noSVGException :: Maybe SVGException +noSVGException = Nothing +{-# INLINE noSVGException #-} + +gTypeSVGException :: JSM GType +gTypeSVGException = GType . Object <$> jsg "SVGException" + +-- | Functions for this inteface are in "JSDOM.SVGExternalResourcesRequired". +-- +-- +newtype SVGExternalResourcesRequired = SVGExternalResourcesRequired { unSVGExternalResourcesRequired :: JSVal } + +instance PToJSVal SVGExternalResourcesRequired where + pToJSVal = unSVGExternalResourcesRequired + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGExternalResourcesRequired where + pFromJSVal = SVGExternalResourcesRequired + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGExternalResourcesRequired where + toJSVal = return . unSVGExternalResourcesRequired + {-# INLINE toJSVal #-} + +instance FromJSVal SVGExternalResourcesRequired where + fromJSVal v = fmap SVGExternalResourcesRequired <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGExternalResourcesRequired + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGExternalResourcesRequired where + makeObject = makeObject . unSVGExternalResourcesRequired + +class (IsGObject o) => IsSVGExternalResourcesRequired o +toSVGExternalResourcesRequired :: IsSVGExternalResourcesRequired o => o -> SVGExternalResourcesRequired +toSVGExternalResourcesRequired = SVGExternalResourcesRequired . coerce + +instance IsSVGExternalResourcesRequired SVGExternalResourcesRequired +instance IsGObject SVGExternalResourcesRequired where + typeGType _ = gTypeSVGExternalResourcesRequired + {-# INLINE typeGType #-} + +noSVGExternalResourcesRequired :: Maybe SVGExternalResourcesRequired +noSVGExternalResourcesRequired = Nothing +{-# INLINE noSVGExternalResourcesRequired #-} + +gTypeSVGExternalResourcesRequired :: JSM GType +gTypeSVGExternalResourcesRequired = GType . Object <$> jsg "SVGExternalResourcesRequired" + +-- | Functions for this inteface are in "JSDOM.SVGFEBlendElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEBlendElement = SVGFEBlendElement { unSVGFEBlendElement :: JSVal } + +instance PToJSVal SVGFEBlendElement where + pToJSVal = unSVGFEBlendElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEBlendElement where + pFromJSVal = SVGFEBlendElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEBlendElement where + toJSVal = return . unSVGFEBlendElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEBlendElement where + fromJSVal v = fmap SVGFEBlendElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEBlendElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEBlendElement where + makeObject = makeObject . unSVGFEBlendElement + +instance IsSVGElement SVGFEBlendElement +instance IsElement SVGFEBlendElement +instance IsNode SVGFEBlendElement +instance IsEventTarget SVGFEBlendElement +instance IsSlotable SVGFEBlendElement +instance IsParentNode SVGFEBlendElement +instance IsNonDocumentTypeChildNode SVGFEBlendElement +instance IsDocumentAndElementEventHandlers SVGFEBlendElement +instance IsChildNode SVGFEBlendElement +instance IsAnimatable SVGFEBlendElement +instance IsGlobalEventHandlers SVGFEBlendElement +instance IsElementCSSInlineStyle SVGFEBlendElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEBlendElement +instance IsGObject SVGFEBlendElement where + typeGType _ = gTypeSVGFEBlendElement + {-# INLINE typeGType #-} + +noSVGFEBlendElement :: Maybe SVGFEBlendElement +noSVGFEBlendElement = Nothing +{-# INLINE noSVGFEBlendElement #-} + +gTypeSVGFEBlendElement :: JSM GType +gTypeSVGFEBlendElement = GType . Object <$> jsg "SVGFEBlendElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEColorMatrixElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEColorMatrixElement = SVGFEColorMatrixElement { unSVGFEColorMatrixElement :: JSVal } + +instance PToJSVal SVGFEColorMatrixElement where + pToJSVal = unSVGFEColorMatrixElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEColorMatrixElement where + pFromJSVal = SVGFEColorMatrixElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEColorMatrixElement where + toJSVal = return . unSVGFEColorMatrixElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEColorMatrixElement where + fromJSVal v = fmap SVGFEColorMatrixElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEColorMatrixElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEColorMatrixElement where + makeObject = makeObject . unSVGFEColorMatrixElement + +instance IsSVGElement SVGFEColorMatrixElement +instance IsElement SVGFEColorMatrixElement +instance IsNode SVGFEColorMatrixElement +instance IsEventTarget SVGFEColorMatrixElement +instance IsSlotable SVGFEColorMatrixElement +instance IsParentNode SVGFEColorMatrixElement +instance IsNonDocumentTypeChildNode SVGFEColorMatrixElement +instance IsDocumentAndElementEventHandlers SVGFEColorMatrixElement +instance IsChildNode SVGFEColorMatrixElement +instance IsAnimatable SVGFEColorMatrixElement +instance IsGlobalEventHandlers SVGFEColorMatrixElement +instance IsElementCSSInlineStyle SVGFEColorMatrixElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEColorMatrixElement +instance IsGObject SVGFEColorMatrixElement where + typeGType _ = gTypeSVGFEColorMatrixElement + {-# INLINE typeGType #-} + +noSVGFEColorMatrixElement :: Maybe SVGFEColorMatrixElement +noSVGFEColorMatrixElement = Nothing +{-# INLINE noSVGFEColorMatrixElement #-} + +gTypeSVGFEColorMatrixElement :: JSM GType +gTypeSVGFEColorMatrixElement = GType . Object <$> jsg "SVGFEColorMatrixElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEComponentTransferElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEComponentTransferElement = SVGFEComponentTransferElement { unSVGFEComponentTransferElement :: JSVal } + +instance PToJSVal SVGFEComponentTransferElement where + pToJSVal = unSVGFEComponentTransferElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEComponentTransferElement where + pFromJSVal = SVGFEComponentTransferElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEComponentTransferElement where + toJSVal = return . unSVGFEComponentTransferElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEComponentTransferElement where + fromJSVal v = fmap SVGFEComponentTransferElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEComponentTransferElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEComponentTransferElement where + makeObject = makeObject . unSVGFEComponentTransferElement + +instance IsSVGElement SVGFEComponentTransferElement +instance IsElement SVGFEComponentTransferElement +instance IsNode SVGFEComponentTransferElement +instance IsEventTarget SVGFEComponentTransferElement +instance IsSlotable SVGFEComponentTransferElement +instance IsParentNode SVGFEComponentTransferElement +instance IsNonDocumentTypeChildNode SVGFEComponentTransferElement +instance IsDocumentAndElementEventHandlers SVGFEComponentTransferElement +instance IsChildNode SVGFEComponentTransferElement +instance IsAnimatable SVGFEComponentTransferElement +instance IsGlobalEventHandlers SVGFEComponentTransferElement +instance IsElementCSSInlineStyle SVGFEComponentTransferElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEComponentTransferElement +instance IsGObject SVGFEComponentTransferElement where + typeGType _ = gTypeSVGFEComponentTransferElement + {-# INLINE typeGType #-} + +noSVGFEComponentTransferElement :: Maybe SVGFEComponentTransferElement +noSVGFEComponentTransferElement = Nothing +{-# INLINE noSVGFEComponentTransferElement #-} + +gTypeSVGFEComponentTransferElement :: JSM GType +gTypeSVGFEComponentTransferElement = GType . Object <$> jsg "SVGFEComponentTransferElement" + +-- | Functions for this inteface are in "JSDOM.SVGFECompositeElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFECompositeElement = SVGFECompositeElement { unSVGFECompositeElement :: JSVal } + +instance PToJSVal SVGFECompositeElement where + pToJSVal = unSVGFECompositeElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFECompositeElement where + pFromJSVal = SVGFECompositeElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFECompositeElement where + toJSVal = return . unSVGFECompositeElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFECompositeElement where + fromJSVal v = fmap SVGFECompositeElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFECompositeElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFECompositeElement where + makeObject = makeObject . unSVGFECompositeElement + +instance IsSVGElement SVGFECompositeElement +instance IsElement SVGFECompositeElement +instance IsNode SVGFECompositeElement +instance IsEventTarget SVGFECompositeElement +instance IsSlotable SVGFECompositeElement +instance IsParentNode SVGFECompositeElement +instance IsNonDocumentTypeChildNode SVGFECompositeElement +instance IsDocumentAndElementEventHandlers SVGFECompositeElement +instance IsChildNode SVGFECompositeElement +instance IsAnimatable SVGFECompositeElement +instance IsGlobalEventHandlers SVGFECompositeElement +instance IsElementCSSInlineStyle SVGFECompositeElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFECompositeElement +instance IsGObject SVGFECompositeElement where + typeGType _ = gTypeSVGFECompositeElement + {-# INLINE typeGType #-} + +noSVGFECompositeElement :: Maybe SVGFECompositeElement +noSVGFECompositeElement = Nothing +{-# INLINE noSVGFECompositeElement #-} + +gTypeSVGFECompositeElement :: JSM GType +gTypeSVGFECompositeElement = GType . Object <$> jsg "SVGFECompositeElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEConvolveMatrixElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEConvolveMatrixElement = SVGFEConvolveMatrixElement { unSVGFEConvolveMatrixElement :: JSVal } + +instance PToJSVal SVGFEConvolveMatrixElement where + pToJSVal = unSVGFEConvolveMatrixElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEConvolveMatrixElement where + pFromJSVal = SVGFEConvolveMatrixElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEConvolveMatrixElement where + toJSVal = return . unSVGFEConvolveMatrixElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEConvolveMatrixElement where + fromJSVal v = fmap SVGFEConvolveMatrixElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEConvolveMatrixElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEConvolveMatrixElement where + makeObject = makeObject . unSVGFEConvolveMatrixElement + +instance IsSVGElement SVGFEConvolveMatrixElement +instance IsElement SVGFEConvolveMatrixElement +instance IsNode SVGFEConvolveMatrixElement +instance IsEventTarget SVGFEConvolveMatrixElement +instance IsSlotable SVGFEConvolveMatrixElement +instance IsParentNode SVGFEConvolveMatrixElement +instance IsNonDocumentTypeChildNode SVGFEConvolveMatrixElement +instance IsDocumentAndElementEventHandlers SVGFEConvolveMatrixElement +instance IsChildNode SVGFEConvolveMatrixElement +instance IsAnimatable SVGFEConvolveMatrixElement +instance IsGlobalEventHandlers SVGFEConvolveMatrixElement +instance IsElementCSSInlineStyle SVGFEConvolveMatrixElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEConvolveMatrixElement +instance IsGObject SVGFEConvolveMatrixElement where + typeGType _ = gTypeSVGFEConvolveMatrixElement + {-# INLINE typeGType #-} + +noSVGFEConvolveMatrixElement :: Maybe SVGFEConvolveMatrixElement +noSVGFEConvolveMatrixElement = Nothing +{-# INLINE noSVGFEConvolveMatrixElement #-} + +gTypeSVGFEConvolveMatrixElement :: JSM GType +gTypeSVGFEConvolveMatrixElement = GType . Object <$> jsg "SVGFEConvolveMatrixElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEDiffuseLightingElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEDiffuseLightingElement = SVGFEDiffuseLightingElement { unSVGFEDiffuseLightingElement :: JSVal } + +instance PToJSVal SVGFEDiffuseLightingElement where + pToJSVal = unSVGFEDiffuseLightingElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEDiffuseLightingElement where + pFromJSVal = SVGFEDiffuseLightingElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEDiffuseLightingElement where + toJSVal = return . unSVGFEDiffuseLightingElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEDiffuseLightingElement where + fromJSVal v = fmap SVGFEDiffuseLightingElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEDiffuseLightingElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEDiffuseLightingElement where + makeObject = makeObject . unSVGFEDiffuseLightingElement + +instance IsSVGElement SVGFEDiffuseLightingElement +instance IsElement SVGFEDiffuseLightingElement +instance IsNode SVGFEDiffuseLightingElement +instance IsEventTarget SVGFEDiffuseLightingElement +instance IsSlotable SVGFEDiffuseLightingElement +instance IsParentNode SVGFEDiffuseLightingElement +instance IsNonDocumentTypeChildNode SVGFEDiffuseLightingElement +instance IsDocumentAndElementEventHandlers SVGFEDiffuseLightingElement +instance IsChildNode SVGFEDiffuseLightingElement +instance IsAnimatable SVGFEDiffuseLightingElement +instance IsGlobalEventHandlers SVGFEDiffuseLightingElement +instance IsElementCSSInlineStyle SVGFEDiffuseLightingElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEDiffuseLightingElement +instance IsGObject SVGFEDiffuseLightingElement where + typeGType _ = gTypeSVGFEDiffuseLightingElement + {-# INLINE typeGType #-} + +noSVGFEDiffuseLightingElement :: Maybe SVGFEDiffuseLightingElement +noSVGFEDiffuseLightingElement = Nothing +{-# INLINE noSVGFEDiffuseLightingElement #-} + +gTypeSVGFEDiffuseLightingElement :: JSM GType +gTypeSVGFEDiffuseLightingElement = GType . Object <$> jsg "SVGFEDiffuseLightingElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEDisplacementMapElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEDisplacementMapElement = SVGFEDisplacementMapElement { unSVGFEDisplacementMapElement :: JSVal } + +instance PToJSVal SVGFEDisplacementMapElement where + pToJSVal = unSVGFEDisplacementMapElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEDisplacementMapElement where + pFromJSVal = SVGFEDisplacementMapElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEDisplacementMapElement where + toJSVal = return . unSVGFEDisplacementMapElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEDisplacementMapElement where + fromJSVal v = fmap SVGFEDisplacementMapElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEDisplacementMapElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEDisplacementMapElement where + makeObject = makeObject . unSVGFEDisplacementMapElement + +instance IsSVGElement SVGFEDisplacementMapElement +instance IsElement SVGFEDisplacementMapElement +instance IsNode SVGFEDisplacementMapElement +instance IsEventTarget SVGFEDisplacementMapElement +instance IsSlotable SVGFEDisplacementMapElement +instance IsParentNode SVGFEDisplacementMapElement +instance IsNonDocumentTypeChildNode SVGFEDisplacementMapElement +instance IsDocumentAndElementEventHandlers SVGFEDisplacementMapElement +instance IsChildNode SVGFEDisplacementMapElement +instance IsAnimatable SVGFEDisplacementMapElement +instance IsGlobalEventHandlers SVGFEDisplacementMapElement +instance IsElementCSSInlineStyle SVGFEDisplacementMapElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEDisplacementMapElement +instance IsGObject SVGFEDisplacementMapElement where + typeGType _ = gTypeSVGFEDisplacementMapElement + {-# INLINE typeGType #-} + +noSVGFEDisplacementMapElement :: Maybe SVGFEDisplacementMapElement +noSVGFEDisplacementMapElement = Nothing +{-# INLINE noSVGFEDisplacementMapElement #-} + +gTypeSVGFEDisplacementMapElement :: JSM GType +gTypeSVGFEDisplacementMapElement = GType . Object <$> jsg "SVGFEDisplacementMapElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEDistantLightElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFEDistantLightElement = SVGFEDistantLightElement { unSVGFEDistantLightElement :: JSVal } + +instance PToJSVal SVGFEDistantLightElement where + pToJSVal = unSVGFEDistantLightElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEDistantLightElement where + pFromJSVal = SVGFEDistantLightElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEDistantLightElement where + toJSVal = return . unSVGFEDistantLightElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEDistantLightElement where + fromJSVal v = fmap SVGFEDistantLightElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEDistantLightElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEDistantLightElement where + makeObject = makeObject . unSVGFEDistantLightElement + +instance IsSVGElement SVGFEDistantLightElement +instance IsElement SVGFEDistantLightElement +instance IsNode SVGFEDistantLightElement +instance IsEventTarget SVGFEDistantLightElement +instance IsSlotable SVGFEDistantLightElement +instance IsParentNode SVGFEDistantLightElement +instance IsNonDocumentTypeChildNode SVGFEDistantLightElement +instance IsDocumentAndElementEventHandlers SVGFEDistantLightElement +instance IsChildNode SVGFEDistantLightElement +instance IsAnimatable SVGFEDistantLightElement +instance IsGlobalEventHandlers SVGFEDistantLightElement +instance IsElementCSSInlineStyle SVGFEDistantLightElement +instance IsGObject SVGFEDistantLightElement where + typeGType _ = gTypeSVGFEDistantLightElement + {-# INLINE typeGType #-} + +noSVGFEDistantLightElement :: Maybe SVGFEDistantLightElement +noSVGFEDistantLightElement = Nothing +{-# INLINE noSVGFEDistantLightElement #-} + +gTypeSVGFEDistantLightElement :: JSM GType +gTypeSVGFEDistantLightElement = GType . Object <$> jsg "SVGFEDistantLightElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEDropShadowElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEDropShadowElement = SVGFEDropShadowElement { unSVGFEDropShadowElement :: JSVal } + +instance PToJSVal SVGFEDropShadowElement where + pToJSVal = unSVGFEDropShadowElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEDropShadowElement where + pFromJSVal = SVGFEDropShadowElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEDropShadowElement where + toJSVal = return . unSVGFEDropShadowElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEDropShadowElement where + fromJSVal v = fmap SVGFEDropShadowElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEDropShadowElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEDropShadowElement where + makeObject = makeObject . unSVGFEDropShadowElement + +instance IsSVGElement SVGFEDropShadowElement +instance IsElement SVGFEDropShadowElement +instance IsNode SVGFEDropShadowElement +instance IsEventTarget SVGFEDropShadowElement +instance IsSlotable SVGFEDropShadowElement +instance IsParentNode SVGFEDropShadowElement +instance IsNonDocumentTypeChildNode SVGFEDropShadowElement +instance IsDocumentAndElementEventHandlers SVGFEDropShadowElement +instance IsChildNode SVGFEDropShadowElement +instance IsAnimatable SVGFEDropShadowElement +instance IsGlobalEventHandlers SVGFEDropShadowElement +instance IsElementCSSInlineStyle SVGFEDropShadowElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEDropShadowElement +instance IsGObject SVGFEDropShadowElement where + typeGType _ = gTypeSVGFEDropShadowElement + {-# INLINE typeGType #-} + +noSVGFEDropShadowElement :: Maybe SVGFEDropShadowElement +noSVGFEDropShadowElement = Nothing +{-# INLINE noSVGFEDropShadowElement #-} + +gTypeSVGFEDropShadowElement :: JSM GType +gTypeSVGFEDropShadowElement = GType . Object <$> jsg "SVGFEDropShadowElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEFloodElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEFloodElement = SVGFEFloodElement { unSVGFEFloodElement :: JSVal } + +instance PToJSVal SVGFEFloodElement where + pToJSVal = unSVGFEFloodElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEFloodElement where + pFromJSVal = SVGFEFloodElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEFloodElement where + toJSVal = return . unSVGFEFloodElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEFloodElement where + fromJSVal v = fmap SVGFEFloodElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEFloodElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEFloodElement where + makeObject = makeObject . unSVGFEFloodElement + +instance IsSVGElement SVGFEFloodElement +instance IsElement SVGFEFloodElement +instance IsNode SVGFEFloodElement +instance IsEventTarget SVGFEFloodElement +instance IsSlotable SVGFEFloodElement +instance IsParentNode SVGFEFloodElement +instance IsNonDocumentTypeChildNode SVGFEFloodElement +instance IsDocumentAndElementEventHandlers SVGFEFloodElement +instance IsChildNode SVGFEFloodElement +instance IsAnimatable SVGFEFloodElement +instance IsGlobalEventHandlers SVGFEFloodElement +instance IsElementCSSInlineStyle SVGFEFloodElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEFloodElement +instance IsGObject SVGFEFloodElement where + typeGType _ = gTypeSVGFEFloodElement + {-# INLINE typeGType #-} + +noSVGFEFloodElement :: Maybe SVGFEFloodElement +noSVGFEFloodElement = Nothing +{-# INLINE noSVGFEFloodElement #-} + +gTypeSVGFEFloodElement :: JSM GType +gTypeSVGFEFloodElement = GType . Object <$> jsg "SVGFEFloodElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEFuncAElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGComponentTransferFunctionElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFEFuncAElement = SVGFEFuncAElement { unSVGFEFuncAElement :: JSVal } + +instance PToJSVal SVGFEFuncAElement where + pToJSVal = unSVGFEFuncAElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEFuncAElement where + pFromJSVal = SVGFEFuncAElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEFuncAElement where + toJSVal = return . unSVGFEFuncAElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEFuncAElement where + fromJSVal v = fmap SVGFEFuncAElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEFuncAElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEFuncAElement where + makeObject = makeObject . unSVGFEFuncAElement + +instance IsSVGComponentTransferFunctionElement SVGFEFuncAElement +instance IsSVGElement SVGFEFuncAElement +instance IsElement SVGFEFuncAElement +instance IsNode SVGFEFuncAElement +instance IsEventTarget SVGFEFuncAElement +instance IsSlotable SVGFEFuncAElement +instance IsParentNode SVGFEFuncAElement +instance IsNonDocumentTypeChildNode SVGFEFuncAElement +instance IsDocumentAndElementEventHandlers SVGFEFuncAElement +instance IsChildNode SVGFEFuncAElement +instance IsAnimatable SVGFEFuncAElement +instance IsGlobalEventHandlers SVGFEFuncAElement +instance IsElementCSSInlineStyle SVGFEFuncAElement +instance IsGObject SVGFEFuncAElement where + typeGType _ = gTypeSVGFEFuncAElement + {-# INLINE typeGType #-} + +noSVGFEFuncAElement :: Maybe SVGFEFuncAElement +noSVGFEFuncAElement = Nothing +{-# INLINE noSVGFEFuncAElement #-} + +gTypeSVGFEFuncAElement :: JSM GType +gTypeSVGFEFuncAElement = GType . Object <$> jsg "SVGFEFuncAElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEFuncBElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGComponentTransferFunctionElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFEFuncBElement = SVGFEFuncBElement { unSVGFEFuncBElement :: JSVal } + +instance PToJSVal SVGFEFuncBElement where + pToJSVal = unSVGFEFuncBElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEFuncBElement where + pFromJSVal = SVGFEFuncBElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEFuncBElement where + toJSVal = return . unSVGFEFuncBElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEFuncBElement where + fromJSVal v = fmap SVGFEFuncBElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEFuncBElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEFuncBElement where + makeObject = makeObject . unSVGFEFuncBElement + +instance IsSVGComponentTransferFunctionElement SVGFEFuncBElement +instance IsSVGElement SVGFEFuncBElement +instance IsElement SVGFEFuncBElement +instance IsNode SVGFEFuncBElement +instance IsEventTarget SVGFEFuncBElement +instance IsSlotable SVGFEFuncBElement +instance IsParentNode SVGFEFuncBElement +instance IsNonDocumentTypeChildNode SVGFEFuncBElement +instance IsDocumentAndElementEventHandlers SVGFEFuncBElement +instance IsChildNode SVGFEFuncBElement +instance IsAnimatable SVGFEFuncBElement +instance IsGlobalEventHandlers SVGFEFuncBElement +instance IsElementCSSInlineStyle SVGFEFuncBElement +instance IsGObject SVGFEFuncBElement where + typeGType _ = gTypeSVGFEFuncBElement + {-# INLINE typeGType #-} + +noSVGFEFuncBElement :: Maybe SVGFEFuncBElement +noSVGFEFuncBElement = Nothing +{-# INLINE noSVGFEFuncBElement #-} + +gTypeSVGFEFuncBElement :: JSM GType +gTypeSVGFEFuncBElement = GType . Object <$> jsg "SVGFEFuncBElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEFuncGElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGComponentTransferFunctionElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFEFuncGElement = SVGFEFuncGElement { unSVGFEFuncGElement :: JSVal } + +instance PToJSVal SVGFEFuncGElement where + pToJSVal = unSVGFEFuncGElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEFuncGElement where + pFromJSVal = SVGFEFuncGElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEFuncGElement where + toJSVal = return . unSVGFEFuncGElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEFuncGElement where + fromJSVal v = fmap SVGFEFuncGElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEFuncGElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEFuncGElement where + makeObject = makeObject . unSVGFEFuncGElement + +instance IsSVGComponentTransferFunctionElement SVGFEFuncGElement +instance IsSVGElement SVGFEFuncGElement +instance IsElement SVGFEFuncGElement +instance IsNode SVGFEFuncGElement +instance IsEventTarget SVGFEFuncGElement +instance IsSlotable SVGFEFuncGElement +instance IsParentNode SVGFEFuncGElement +instance IsNonDocumentTypeChildNode SVGFEFuncGElement +instance IsDocumentAndElementEventHandlers SVGFEFuncGElement +instance IsChildNode SVGFEFuncGElement +instance IsAnimatable SVGFEFuncGElement +instance IsGlobalEventHandlers SVGFEFuncGElement +instance IsElementCSSInlineStyle SVGFEFuncGElement +instance IsGObject SVGFEFuncGElement where + typeGType _ = gTypeSVGFEFuncGElement + {-# INLINE typeGType #-} + +noSVGFEFuncGElement :: Maybe SVGFEFuncGElement +noSVGFEFuncGElement = Nothing +{-# INLINE noSVGFEFuncGElement #-} + +gTypeSVGFEFuncGElement :: JSM GType +gTypeSVGFEFuncGElement = GType . Object <$> jsg "SVGFEFuncGElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEFuncRElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGComponentTransferFunctionElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFEFuncRElement = SVGFEFuncRElement { unSVGFEFuncRElement :: JSVal } + +instance PToJSVal SVGFEFuncRElement where + pToJSVal = unSVGFEFuncRElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEFuncRElement where + pFromJSVal = SVGFEFuncRElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEFuncRElement where + toJSVal = return . unSVGFEFuncRElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEFuncRElement where + fromJSVal v = fmap SVGFEFuncRElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEFuncRElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEFuncRElement where + makeObject = makeObject . unSVGFEFuncRElement + +instance IsSVGComponentTransferFunctionElement SVGFEFuncRElement +instance IsSVGElement SVGFEFuncRElement +instance IsElement SVGFEFuncRElement +instance IsNode SVGFEFuncRElement +instance IsEventTarget SVGFEFuncRElement +instance IsSlotable SVGFEFuncRElement +instance IsParentNode SVGFEFuncRElement +instance IsNonDocumentTypeChildNode SVGFEFuncRElement +instance IsDocumentAndElementEventHandlers SVGFEFuncRElement +instance IsChildNode SVGFEFuncRElement +instance IsAnimatable SVGFEFuncRElement +instance IsGlobalEventHandlers SVGFEFuncRElement +instance IsElementCSSInlineStyle SVGFEFuncRElement +instance IsGObject SVGFEFuncRElement where + typeGType _ = gTypeSVGFEFuncRElement + {-# INLINE typeGType #-} + +noSVGFEFuncRElement :: Maybe SVGFEFuncRElement +noSVGFEFuncRElement = Nothing +{-# INLINE noSVGFEFuncRElement #-} + +gTypeSVGFEFuncRElement :: JSM GType +gTypeSVGFEFuncRElement = GType . Object <$> jsg "SVGFEFuncRElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEGaussianBlurElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEGaussianBlurElement = SVGFEGaussianBlurElement { unSVGFEGaussianBlurElement :: JSVal } + +instance PToJSVal SVGFEGaussianBlurElement where + pToJSVal = unSVGFEGaussianBlurElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEGaussianBlurElement where + pFromJSVal = SVGFEGaussianBlurElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEGaussianBlurElement where + toJSVal = return . unSVGFEGaussianBlurElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEGaussianBlurElement where + fromJSVal v = fmap SVGFEGaussianBlurElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEGaussianBlurElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEGaussianBlurElement where + makeObject = makeObject . unSVGFEGaussianBlurElement + +instance IsSVGElement SVGFEGaussianBlurElement +instance IsElement SVGFEGaussianBlurElement +instance IsNode SVGFEGaussianBlurElement +instance IsEventTarget SVGFEGaussianBlurElement +instance IsSlotable SVGFEGaussianBlurElement +instance IsParentNode SVGFEGaussianBlurElement +instance IsNonDocumentTypeChildNode SVGFEGaussianBlurElement +instance IsDocumentAndElementEventHandlers SVGFEGaussianBlurElement +instance IsChildNode SVGFEGaussianBlurElement +instance IsAnimatable SVGFEGaussianBlurElement +instance IsGlobalEventHandlers SVGFEGaussianBlurElement +instance IsElementCSSInlineStyle SVGFEGaussianBlurElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEGaussianBlurElement +instance IsGObject SVGFEGaussianBlurElement where + typeGType _ = gTypeSVGFEGaussianBlurElement + {-# INLINE typeGType #-} + +noSVGFEGaussianBlurElement :: Maybe SVGFEGaussianBlurElement +noSVGFEGaussianBlurElement = Nothing +{-# INLINE noSVGFEGaussianBlurElement #-} + +gTypeSVGFEGaussianBlurElement :: JSM GType +gTypeSVGFEGaussianBlurElement = GType . Object <$> jsg "SVGFEGaussianBlurElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEImageElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGFEImageElement = SVGFEImageElement { unSVGFEImageElement :: JSVal } + +instance PToJSVal SVGFEImageElement where + pToJSVal = unSVGFEImageElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEImageElement where + pFromJSVal = SVGFEImageElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEImageElement where + toJSVal = return . unSVGFEImageElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEImageElement where + fromJSVal v = fmap SVGFEImageElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEImageElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEImageElement where + makeObject = makeObject . unSVGFEImageElement + +instance IsSVGElement SVGFEImageElement +instance IsElement SVGFEImageElement +instance IsNode SVGFEImageElement +instance IsEventTarget SVGFEImageElement +instance IsSlotable SVGFEImageElement +instance IsParentNode SVGFEImageElement +instance IsNonDocumentTypeChildNode SVGFEImageElement +instance IsDocumentAndElementEventHandlers SVGFEImageElement +instance IsChildNode SVGFEImageElement +instance IsAnimatable SVGFEImageElement +instance IsGlobalEventHandlers SVGFEImageElement +instance IsElementCSSInlineStyle SVGFEImageElement +instance IsSVGURIReference SVGFEImageElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEImageElement +instance IsSVGExternalResourcesRequired SVGFEImageElement +instance IsGObject SVGFEImageElement where + typeGType _ = gTypeSVGFEImageElement + {-# INLINE typeGType #-} + +noSVGFEImageElement :: Maybe SVGFEImageElement +noSVGFEImageElement = Nothing +{-# INLINE noSVGFEImageElement #-} + +gTypeSVGFEImageElement :: JSM GType +gTypeSVGFEImageElement = GType . Object <$> jsg "SVGFEImageElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEMergeElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEMergeElement = SVGFEMergeElement { unSVGFEMergeElement :: JSVal } + +instance PToJSVal SVGFEMergeElement where + pToJSVal = unSVGFEMergeElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEMergeElement where + pFromJSVal = SVGFEMergeElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEMergeElement where + toJSVal = return . unSVGFEMergeElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEMergeElement where + fromJSVal v = fmap SVGFEMergeElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEMergeElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEMergeElement where + makeObject = makeObject . unSVGFEMergeElement + +instance IsSVGElement SVGFEMergeElement +instance IsElement SVGFEMergeElement +instance IsNode SVGFEMergeElement +instance IsEventTarget SVGFEMergeElement +instance IsSlotable SVGFEMergeElement +instance IsParentNode SVGFEMergeElement +instance IsNonDocumentTypeChildNode SVGFEMergeElement +instance IsDocumentAndElementEventHandlers SVGFEMergeElement +instance IsChildNode SVGFEMergeElement +instance IsAnimatable SVGFEMergeElement +instance IsGlobalEventHandlers SVGFEMergeElement +instance IsElementCSSInlineStyle SVGFEMergeElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEMergeElement +instance IsGObject SVGFEMergeElement where + typeGType _ = gTypeSVGFEMergeElement + {-# INLINE typeGType #-} + +noSVGFEMergeElement :: Maybe SVGFEMergeElement +noSVGFEMergeElement = Nothing +{-# INLINE noSVGFEMergeElement #-} + +gTypeSVGFEMergeElement :: JSM GType +gTypeSVGFEMergeElement = GType . Object <$> jsg "SVGFEMergeElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEMergeNodeElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFEMergeNodeElement = SVGFEMergeNodeElement { unSVGFEMergeNodeElement :: JSVal } + +instance PToJSVal SVGFEMergeNodeElement where + pToJSVal = unSVGFEMergeNodeElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEMergeNodeElement where + pFromJSVal = SVGFEMergeNodeElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEMergeNodeElement where + toJSVal = return . unSVGFEMergeNodeElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEMergeNodeElement where + fromJSVal v = fmap SVGFEMergeNodeElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEMergeNodeElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEMergeNodeElement where + makeObject = makeObject . unSVGFEMergeNodeElement + +instance IsSVGElement SVGFEMergeNodeElement +instance IsElement SVGFEMergeNodeElement +instance IsNode SVGFEMergeNodeElement +instance IsEventTarget SVGFEMergeNodeElement +instance IsSlotable SVGFEMergeNodeElement +instance IsParentNode SVGFEMergeNodeElement +instance IsNonDocumentTypeChildNode SVGFEMergeNodeElement +instance IsDocumentAndElementEventHandlers SVGFEMergeNodeElement +instance IsChildNode SVGFEMergeNodeElement +instance IsAnimatable SVGFEMergeNodeElement +instance IsGlobalEventHandlers SVGFEMergeNodeElement +instance IsElementCSSInlineStyle SVGFEMergeNodeElement +instance IsGObject SVGFEMergeNodeElement where + typeGType _ = gTypeSVGFEMergeNodeElement + {-# INLINE typeGType #-} + +noSVGFEMergeNodeElement :: Maybe SVGFEMergeNodeElement +noSVGFEMergeNodeElement = Nothing +{-# INLINE noSVGFEMergeNodeElement #-} + +gTypeSVGFEMergeNodeElement :: JSM GType +gTypeSVGFEMergeNodeElement = GType . Object <$> jsg "SVGFEMergeNodeElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEMorphologyElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEMorphologyElement = SVGFEMorphologyElement { unSVGFEMorphologyElement :: JSVal } + +instance PToJSVal SVGFEMorphologyElement where + pToJSVal = unSVGFEMorphologyElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEMorphologyElement where + pFromJSVal = SVGFEMorphologyElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEMorphologyElement where + toJSVal = return . unSVGFEMorphologyElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEMorphologyElement where + fromJSVal v = fmap SVGFEMorphologyElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEMorphologyElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEMorphologyElement where + makeObject = makeObject . unSVGFEMorphologyElement + +instance IsSVGElement SVGFEMorphologyElement +instance IsElement SVGFEMorphologyElement +instance IsNode SVGFEMorphologyElement +instance IsEventTarget SVGFEMorphologyElement +instance IsSlotable SVGFEMorphologyElement +instance IsParentNode SVGFEMorphologyElement +instance IsNonDocumentTypeChildNode SVGFEMorphologyElement +instance IsDocumentAndElementEventHandlers SVGFEMorphologyElement +instance IsChildNode SVGFEMorphologyElement +instance IsAnimatable SVGFEMorphologyElement +instance IsGlobalEventHandlers SVGFEMorphologyElement +instance IsElementCSSInlineStyle SVGFEMorphologyElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEMorphologyElement +instance IsGObject SVGFEMorphologyElement where + typeGType _ = gTypeSVGFEMorphologyElement + {-# INLINE typeGType #-} + +noSVGFEMorphologyElement :: Maybe SVGFEMorphologyElement +noSVGFEMorphologyElement = Nothing +{-# INLINE noSVGFEMorphologyElement #-} + +gTypeSVGFEMorphologyElement :: JSM GType +gTypeSVGFEMorphologyElement = GType . Object <$> jsg "SVGFEMorphologyElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEOffsetElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFEOffsetElement = SVGFEOffsetElement { unSVGFEOffsetElement :: JSVal } + +instance PToJSVal SVGFEOffsetElement where + pToJSVal = unSVGFEOffsetElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEOffsetElement where + pFromJSVal = SVGFEOffsetElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEOffsetElement where + toJSVal = return . unSVGFEOffsetElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEOffsetElement where + fromJSVal v = fmap SVGFEOffsetElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEOffsetElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEOffsetElement where + makeObject = makeObject . unSVGFEOffsetElement + +instance IsSVGElement SVGFEOffsetElement +instance IsElement SVGFEOffsetElement +instance IsNode SVGFEOffsetElement +instance IsEventTarget SVGFEOffsetElement +instance IsSlotable SVGFEOffsetElement +instance IsParentNode SVGFEOffsetElement +instance IsNonDocumentTypeChildNode SVGFEOffsetElement +instance IsDocumentAndElementEventHandlers SVGFEOffsetElement +instance IsChildNode SVGFEOffsetElement +instance IsAnimatable SVGFEOffsetElement +instance IsGlobalEventHandlers SVGFEOffsetElement +instance IsElementCSSInlineStyle SVGFEOffsetElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFEOffsetElement +instance IsGObject SVGFEOffsetElement where + typeGType _ = gTypeSVGFEOffsetElement + {-# INLINE typeGType #-} + +noSVGFEOffsetElement :: Maybe SVGFEOffsetElement +noSVGFEOffsetElement = Nothing +{-# INLINE noSVGFEOffsetElement #-} + +gTypeSVGFEOffsetElement :: JSM GType +gTypeSVGFEOffsetElement = GType . Object <$> jsg "SVGFEOffsetElement" + +-- | Functions for this inteface are in "JSDOM.SVGFEPointLightElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFEPointLightElement = SVGFEPointLightElement { unSVGFEPointLightElement :: JSVal } + +instance PToJSVal SVGFEPointLightElement where + pToJSVal = unSVGFEPointLightElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFEPointLightElement where + pFromJSVal = SVGFEPointLightElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFEPointLightElement where + toJSVal = return . unSVGFEPointLightElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFEPointLightElement where + fromJSVal v = fmap SVGFEPointLightElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFEPointLightElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFEPointLightElement where + makeObject = makeObject . unSVGFEPointLightElement + +instance IsSVGElement SVGFEPointLightElement +instance IsElement SVGFEPointLightElement +instance IsNode SVGFEPointLightElement +instance IsEventTarget SVGFEPointLightElement +instance IsSlotable SVGFEPointLightElement +instance IsParentNode SVGFEPointLightElement +instance IsNonDocumentTypeChildNode SVGFEPointLightElement +instance IsDocumentAndElementEventHandlers SVGFEPointLightElement +instance IsChildNode SVGFEPointLightElement +instance IsAnimatable SVGFEPointLightElement +instance IsGlobalEventHandlers SVGFEPointLightElement +instance IsElementCSSInlineStyle SVGFEPointLightElement +instance IsGObject SVGFEPointLightElement where + typeGType _ = gTypeSVGFEPointLightElement + {-# INLINE typeGType #-} + +noSVGFEPointLightElement :: Maybe SVGFEPointLightElement +noSVGFEPointLightElement = Nothing +{-# INLINE noSVGFEPointLightElement #-} + +gTypeSVGFEPointLightElement :: JSM GType +gTypeSVGFEPointLightElement = GType . Object <$> jsg "SVGFEPointLightElement" + +-- | Functions for this inteface are in "JSDOM.SVGFESpecularLightingElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFESpecularLightingElement = SVGFESpecularLightingElement { unSVGFESpecularLightingElement :: JSVal } + +instance PToJSVal SVGFESpecularLightingElement where + pToJSVal = unSVGFESpecularLightingElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFESpecularLightingElement where + pFromJSVal = SVGFESpecularLightingElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFESpecularLightingElement where + toJSVal = return . unSVGFESpecularLightingElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFESpecularLightingElement where + fromJSVal v = fmap SVGFESpecularLightingElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFESpecularLightingElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFESpecularLightingElement where + makeObject = makeObject . unSVGFESpecularLightingElement + +instance IsSVGElement SVGFESpecularLightingElement +instance IsElement SVGFESpecularLightingElement +instance IsNode SVGFESpecularLightingElement +instance IsEventTarget SVGFESpecularLightingElement +instance IsSlotable SVGFESpecularLightingElement +instance IsParentNode SVGFESpecularLightingElement +instance IsNonDocumentTypeChildNode SVGFESpecularLightingElement +instance IsDocumentAndElementEventHandlers SVGFESpecularLightingElement +instance IsChildNode SVGFESpecularLightingElement +instance IsAnimatable SVGFESpecularLightingElement +instance IsGlobalEventHandlers SVGFESpecularLightingElement +instance IsElementCSSInlineStyle SVGFESpecularLightingElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFESpecularLightingElement +instance IsGObject SVGFESpecularLightingElement where + typeGType _ = gTypeSVGFESpecularLightingElement + {-# INLINE typeGType #-} + +noSVGFESpecularLightingElement :: Maybe SVGFESpecularLightingElement +noSVGFESpecularLightingElement = Nothing +{-# INLINE noSVGFESpecularLightingElement #-} + +gTypeSVGFESpecularLightingElement :: JSM GType +gTypeSVGFESpecularLightingElement = GType . Object <$> jsg "SVGFESpecularLightingElement" + +-- | Functions for this inteface are in "JSDOM.SVGFESpotLightElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFESpotLightElement = SVGFESpotLightElement { unSVGFESpotLightElement :: JSVal } + +instance PToJSVal SVGFESpotLightElement where + pToJSVal = unSVGFESpotLightElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFESpotLightElement where + pFromJSVal = SVGFESpotLightElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFESpotLightElement where + toJSVal = return . unSVGFESpotLightElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFESpotLightElement where + fromJSVal v = fmap SVGFESpotLightElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFESpotLightElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFESpotLightElement where + makeObject = makeObject . unSVGFESpotLightElement + +instance IsSVGElement SVGFESpotLightElement +instance IsElement SVGFESpotLightElement +instance IsNode SVGFESpotLightElement +instance IsEventTarget SVGFESpotLightElement +instance IsSlotable SVGFESpotLightElement +instance IsParentNode SVGFESpotLightElement +instance IsNonDocumentTypeChildNode SVGFESpotLightElement +instance IsDocumentAndElementEventHandlers SVGFESpotLightElement +instance IsChildNode SVGFESpotLightElement +instance IsAnimatable SVGFESpotLightElement +instance IsGlobalEventHandlers SVGFESpotLightElement +instance IsElementCSSInlineStyle SVGFESpotLightElement +instance IsGObject SVGFESpotLightElement where + typeGType _ = gTypeSVGFESpotLightElement + {-# INLINE typeGType #-} + +noSVGFESpotLightElement :: Maybe SVGFESpotLightElement +noSVGFESpotLightElement = Nothing +{-# INLINE noSVGFESpotLightElement #-} + +gTypeSVGFESpotLightElement :: JSM GType +gTypeSVGFESpotLightElement = GType . Object <$> jsg "SVGFESpotLightElement" + +-- | Functions for this inteface are in "JSDOM.SVGFETileElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFETileElement = SVGFETileElement { unSVGFETileElement :: JSVal } + +instance PToJSVal SVGFETileElement where + pToJSVal = unSVGFETileElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFETileElement where + pFromJSVal = SVGFETileElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFETileElement where + toJSVal = return . unSVGFETileElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFETileElement where + fromJSVal v = fmap SVGFETileElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFETileElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFETileElement where + makeObject = makeObject . unSVGFETileElement + +instance IsSVGElement SVGFETileElement +instance IsElement SVGFETileElement +instance IsNode SVGFETileElement +instance IsEventTarget SVGFETileElement +instance IsSlotable SVGFETileElement +instance IsParentNode SVGFETileElement +instance IsNonDocumentTypeChildNode SVGFETileElement +instance IsDocumentAndElementEventHandlers SVGFETileElement +instance IsChildNode SVGFETileElement +instance IsAnimatable SVGFETileElement +instance IsGlobalEventHandlers SVGFETileElement +instance IsElementCSSInlineStyle SVGFETileElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFETileElement +instance IsGObject SVGFETileElement where + typeGType _ = gTypeSVGFETileElement + {-# INLINE typeGType #-} + +noSVGFETileElement :: Maybe SVGFETileElement +noSVGFETileElement = Nothing +{-# INLINE noSVGFETileElement #-} + +gTypeSVGFETileElement :: JSM GType +gTypeSVGFETileElement = GType . Object <$> jsg "SVGFETileElement" + +-- | Functions for this inteface are in "JSDOM.SVGFETurbulenceElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFilterPrimitiveStandardAttributes" +-- +-- +newtype SVGFETurbulenceElement = SVGFETurbulenceElement { unSVGFETurbulenceElement :: JSVal } + +instance PToJSVal SVGFETurbulenceElement where + pToJSVal = unSVGFETurbulenceElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFETurbulenceElement where + pFromJSVal = SVGFETurbulenceElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFETurbulenceElement where + toJSVal = return . unSVGFETurbulenceElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFETurbulenceElement where + fromJSVal v = fmap SVGFETurbulenceElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFETurbulenceElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFETurbulenceElement where + makeObject = makeObject . unSVGFETurbulenceElement + +instance IsSVGElement SVGFETurbulenceElement +instance IsElement SVGFETurbulenceElement +instance IsNode SVGFETurbulenceElement +instance IsEventTarget SVGFETurbulenceElement +instance IsSlotable SVGFETurbulenceElement +instance IsParentNode SVGFETurbulenceElement +instance IsNonDocumentTypeChildNode SVGFETurbulenceElement +instance IsDocumentAndElementEventHandlers SVGFETurbulenceElement +instance IsChildNode SVGFETurbulenceElement +instance IsAnimatable SVGFETurbulenceElement +instance IsGlobalEventHandlers SVGFETurbulenceElement +instance IsElementCSSInlineStyle SVGFETurbulenceElement +instance IsSVGFilterPrimitiveStandardAttributes SVGFETurbulenceElement +instance IsGObject SVGFETurbulenceElement where + typeGType _ = gTypeSVGFETurbulenceElement + {-# INLINE typeGType #-} + +noSVGFETurbulenceElement :: Maybe SVGFETurbulenceElement +noSVGFETurbulenceElement = Nothing +{-# INLINE noSVGFETurbulenceElement #-} + +gTypeSVGFETurbulenceElement :: JSM GType +gTypeSVGFETurbulenceElement = GType . Object <$> jsg "SVGFETurbulenceElement" + +-- | Functions for this inteface are in "JSDOM.SVGFilterElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGFilterElement = SVGFilterElement { unSVGFilterElement :: JSVal } + +instance PToJSVal SVGFilterElement where + pToJSVal = unSVGFilterElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFilterElement where + pFromJSVal = SVGFilterElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFilterElement where + toJSVal = return . unSVGFilterElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFilterElement where + fromJSVal v = fmap SVGFilterElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFilterElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFilterElement where + makeObject = makeObject . unSVGFilterElement + +instance IsSVGElement SVGFilterElement +instance IsElement SVGFilterElement +instance IsNode SVGFilterElement +instance IsEventTarget SVGFilterElement +instance IsSlotable SVGFilterElement +instance IsParentNode SVGFilterElement +instance IsNonDocumentTypeChildNode SVGFilterElement +instance IsDocumentAndElementEventHandlers SVGFilterElement +instance IsChildNode SVGFilterElement +instance IsAnimatable SVGFilterElement +instance IsGlobalEventHandlers SVGFilterElement +instance IsElementCSSInlineStyle SVGFilterElement +instance IsSVGURIReference SVGFilterElement +instance IsSVGExternalResourcesRequired SVGFilterElement +instance IsGObject SVGFilterElement where + typeGType _ = gTypeSVGFilterElement + {-# INLINE typeGType #-} + +noSVGFilterElement :: Maybe SVGFilterElement +noSVGFilterElement = Nothing +{-# INLINE noSVGFilterElement #-} + +gTypeSVGFilterElement :: JSM GType +gTypeSVGFilterElement = GType . Object <$> jsg "SVGFilterElement" + +-- | Functions for this inteface are in "JSDOM.SVGFilterPrimitiveStandardAttributes". +-- +-- +newtype SVGFilterPrimitiveStandardAttributes = SVGFilterPrimitiveStandardAttributes { unSVGFilterPrimitiveStandardAttributes :: JSVal } + +instance PToJSVal SVGFilterPrimitiveStandardAttributes where + pToJSVal = unSVGFilterPrimitiveStandardAttributes + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFilterPrimitiveStandardAttributes where + pFromJSVal = SVGFilterPrimitiveStandardAttributes + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFilterPrimitiveStandardAttributes where + toJSVal = return . unSVGFilterPrimitiveStandardAttributes + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFilterPrimitiveStandardAttributes where + fromJSVal v = fmap SVGFilterPrimitiveStandardAttributes <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFilterPrimitiveStandardAttributes + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFilterPrimitiveStandardAttributes where + makeObject = makeObject . unSVGFilterPrimitiveStandardAttributes + +class (IsGObject o) => IsSVGFilterPrimitiveStandardAttributes o +toSVGFilterPrimitiveStandardAttributes :: IsSVGFilterPrimitiveStandardAttributes o => o -> SVGFilterPrimitiveStandardAttributes +toSVGFilterPrimitiveStandardAttributes = SVGFilterPrimitiveStandardAttributes . coerce + +instance IsSVGFilterPrimitiveStandardAttributes SVGFilterPrimitiveStandardAttributes +instance IsGObject SVGFilterPrimitiveStandardAttributes where + typeGType _ = gTypeSVGFilterPrimitiveStandardAttributes + {-# INLINE typeGType #-} + +noSVGFilterPrimitiveStandardAttributes :: Maybe SVGFilterPrimitiveStandardAttributes +noSVGFilterPrimitiveStandardAttributes = Nothing +{-# INLINE noSVGFilterPrimitiveStandardAttributes #-} + +gTypeSVGFilterPrimitiveStandardAttributes :: JSM GType +gTypeSVGFilterPrimitiveStandardAttributes = GType . Object <$> jsg "SVGFilterPrimitiveStandardAttributes" + +-- | Functions for this inteface are in "JSDOM.SVGFitToViewBox". +-- +-- +newtype SVGFitToViewBox = SVGFitToViewBox { unSVGFitToViewBox :: JSVal } + +instance PToJSVal SVGFitToViewBox where + pToJSVal = unSVGFitToViewBox + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFitToViewBox where + pFromJSVal = SVGFitToViewBox + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFitToViewBox where + toJSVal = return . unSVGFitToViewBox + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFitToViewBox where + fromJSVal v = fmap SVGFitToViewBox <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFitToViewBox + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFitToViewBox where + makeObject = makeObject . unSVGFitToViewBox + +class (IsGObject o) => IsSVGFitToViewBox o +toSVGFitToViewBox :: IsSVGFitToViewBox o => o -> SVGFitToViewBox +toSVGFitToViewBox = SVGFitToViewBox . coerce + +instance IsSVGFitToViewBox SVGFitToViewBox +instance IsGObject SVGFitToViewBox where + typeGType _ = gTypeSVGFitToViewBox + {-# INLINE typeGType #-} + +noSVGFitToViewBox :: Maybe SVGFitToViewBox +noSVGFitToViewBox = Nothing +{-# INLINE noSVGFitToViewBox #-} + +gTypeSVGFitToViewBox :: JSM GType +gTypeSVGFitToViewBox = GType . Object <$> jsg "SVGFitToViewBox" + +-- | Functions for this inteface are in "JSDOM.SVGFontElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFontElement = SVGFontElement { unSVGFontElement :: JSVal } + +instance PToJSVal SVGFontElement where + pToJSVal = unSVGFontElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFontElement where + pFromJSVal = SVGFontElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFontElement where + toJSVal = return . unSVGFontElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFontElement where + fromJSVal v = fmap SVGFontElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFontElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFontElement where + makeObject = makeObject . unSVGFontElement + +instance IsSVGElement SVGFontElement +instance IsElement SVGFontElement +instance IsNode SVGFontElement +instance IsEventTarget SVGFontElement +instance IsSlotable SVGFontElement +instance IsParentNode SVGFontElement +instance IsNonDocumentTypeChildNode SVGFontElement +instance IsDocumentAndElementEventHandlers SVGFontElement +instance IsChildNode SVGFontElement +instance IsAnimatable SVGFontElement +instance IsGlobalEventHandlers SVGFontElement +instance IsElementCSSInlineStyle SVGFontElement +instance IsGObject SVGFontElement where + typeGType _ = gTypeSVGFontElement + {-# INLINE typeGType #-} + +noSVGFontElement :: Maybe SVGFontElement +noSVGFontElement = Nothing +{-# INLINE noSVGFontElement #-} + +gTypeSVGFontElement :: JSM GType +gTypeSVGFontElement = GType . Object <$> jsg "SVGFontElement" + +-- | Functions for this inteface are in "JSDOM.SVGFontFaceElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFontFaceElement = SVGFontFaceElement { unSVGFontFaceElement :: JSVal } + +instance PToJSVal SVGFontFaceElement where + pToJSVal = unSVGFontFaceElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFontFaceElement where + pFromJSVal = SVGFontFaceElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFontFaceElement where + toJSVal = return . unSVGFontFaceElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFontFaceElement where + fromJSVal v = fmap SVGFontFaceElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFontFaceElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFontFaceElement where + makeObject = makeObject . unSVGFontFaceElement + +instance IsSVGElement SVGFontFaceElement +instance IsElement SVGFontFaceElement +instance IsNode SVGFontFaceElement +instance IsEventTarget SVGFontFaceElement +instance IsSlotable SVGFontFaceElement +instance IsParentNode SVGFontFaceElement +instance IsNonDocumentTypeChildNode SVGFontFaceElement +instance IsDocumentAndElementEventHandlers SVGFontFaceElement +instance IsChildNode SVGFontFaceElement +instance IsAnimatable SVGFontFaceElement +instance IsGlobalEventHandlers SVGFontFaceElement +instance IsElementCSSInlineStyle SVGFontFaceElement +instance IsGObject SVGFontFaceElement where + typeGType _ = gTypeSVGFontFaceElement + {-# INLINE typeGType #-} + +noSVGFontFaceElement :: Maybe SVGFontFaceElement +noSVGFontFaceElement = Nothing +{-# INLINE noSVGFontFaceElement #-} + +gTypeSVGFontFaceElement :: JSM GType +gTypeSVGFontFaceElement = GType . Object <$> jsg "SVGFontFaceElement" + +-- | Functions for this inteface are in "JSDOM.SVGFontFaceFormatElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFontFaceFormatElement = SVGFontFaceFormatElement { unSVGFontFaceFormatElement :: JSVal } + +instance PToJSVal SVGFontFaceFormatElement where + pToJSVal = unSVGFontFaceFormatElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFontFaceFormatElement where + pFromJSVal = SVGFontFaceFormatElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFontFaceFormatElement where + toJSVal = return . unSVGFontFaceFormatElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFontFaceFormatElement where + fromJSVal v = fmap SVGFontFaceFormatElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFontFaceFormatElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFontFaceFormatElement where + makeObject = makeObject . unSVGFontFaceFormatElement + +instance IsSVGElement SVGFontFaceFormatElement +instance IsElement SVGFontFaceFormatElement +instance IsNode SVGFontFaceFormatElement +instance IsEventTarget SVGFontFaceFormatElement +instance IsSlotable SVGFontFaceFormatElement +instance IsParentNode SVGFontFaceFormatElement +instance IsNonDocumentTypeChildNode SVGFontFaceFormatElement +instance IsDocumentAndElementEventHandlers SVGFontFaceFormatElement +instance IsChildNode SVGFontFaceFormatElement +instance IsAnimatable SVGFontFaceFormatElement +instance IsGlobalEventHandlers SVGFontFaceFormatElement +instance IsElementCSSInlineStyle SVGFontFaceFormatElement +instance IsGObject SVGFontFaceFormatElement where + typeGType _ = gTypeSVGFontFaceFormatElement + {-# INLINE typeGType #-} + +noSVGFontFaceFormatElement :: Maybe SVGFontFaceFormatElement +noSVGFontFaceFormatElement = Nothing +{-# INLINE noSVGFontFaceFormatElement #-} + +gTypeSVGFontFaceFormatElement :: JSM GType +gTypeSVGFontFaceFormatElement = GType . Object <$> jsg "SVGFontFaceFormatElement" + +-- | Functions for this inteface are in "JSDOM.SVGFontFaceNameElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFontFaceNameElement = SVGFontFaceNameElement { unSVGFontFaceNameElement :: JSVal } + +instance PToJSVal SVGFontFaceNameElement where + pToJSVal = unSVGFontFaceNameElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFontFaceNameElement where + pFromJSVal = SVGFontFaceNameElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFontFaceNameElement where + toJSVal = return . unSVGFontFaceNameElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFontFaceNameElement where + fromJSVal v = fmap SVGFontFaceNameElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFontFaceNameElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFontFaceNameElement where + makeObject = makeObject . unSVGFontFaceNameElement + +instance IsSVGElement SVGFontFaceNameElement +instance IsElement SVGFontFaceNameElement +instance IsNode SVGFontFaceNameElement +instance IsEventTarget SVGFontFaceNameElement +instance IsSlotable SVGFontFaceNameElement +instance IsParentNode SVGFontFaceNameElement +instance IsNonDocumentTypeChildNode SVGFontFaceNameElement +instance IsDocumentAndElementEventHandlers SVGFontFaceNameElement +instance IsChildNode SVGFontFaceNameElement +instance IsAnimatable SVGFontFaceNameElement +instance IsGlobalEventHandlers SVGFontFaceNameElement +instance IsElementCSSInlineStyle SVGFontFaceNameElement +instance IsGObject SVGFontFaceNameElement where + typeGType _ = gTypeSVGFontFaceNameElement + {-# INLINE typeGType #-} + +noSVGFontFaceNameElement :: Maybe SVGFontFaceNameElement +noSVGFontFaceNameElement = Nothing +{-# INLINE noSVGFontFaceNameElement #-} + +gTypeSVGFontFaceNameElement :: JSM GType +gTypeSVGFontFaceNameElement = GType . Object <$> jsg "SVGFontFaceNameElement" + +-- | Functions for this inteface are in "JSDOM.SVGFontFaceSrcElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFontFaceSrcElement = SVGFontFaceSrcElement { unSVGFontFaceSrcElement :: JSVal } + +instance PToJSVal SVGFontFaceSrcElement where + pToJSVal = unSVGFontFaceSrcElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFontFaceSrcElement where + pFromJSVal = SVGFontFaceSrcElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFontFaceSrcElement where + toJSVal = return . unSVGFontFaceSrcElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFontFaceSrcElement where + fromJSVal v = fmap SVGFontFaceSrcElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFontFaceSrcElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFontFaceSrcElement where + makeObject = makeObject . unSVGFontFaceSrcElement + +instance IsSVGElement SVGFontFaceSrcElement +instance IsElement SVGFontFaceSrcElement +instance IsNode SVGFontFaceSrcElement +instance IsEventTarget SVGFontFaceSrcElement +instance IsSlotable SVGFontFaceSrcElement +instance IsParentNode SVGFontFaceSrcElement +instance IsNonDocumentTypeChildNode SVGFontFaceSrcElement +instance IsDocumentAndElementEventHandlers SVGFontFaceSrcElement +instance IsChildNode SVGFontFaceSrcElement +instance IsAnimatable SVGFontFaceSrcElement +instance IsGlobalEventHandlers SVGFontFaceSrcElement +instance IsElementCSSInlineStyle SVGFontFaceSrcElement +instance IsGObject SVGFontFaceSrcElement where + typeGType _ = gTypeSVGFontFaceSrcElement + {-# INLINE typeGType #-} + +noSVGFontFaceSrcElement :: Maybe SVGFontFaceSrcElement +noSVGFontFaceSrcElement = Nothing +{-# INLINE noSVGFontFaceSrcElement #-} + +gTypeSVGFontFaceSrcElement :: JSM GType +gTypeSVGFontFaceSrcElement = GType . Object <$> jsg "SVGFontFaceSrcElement" + +-- | Functions for this inteface are in "JSDOM.SVGFontFaceUriElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGFontFaceUriElement = SVGFontFaceUriElement { unSVGFontFaceUriElement :: JSVal } + +instance PToJSVal SVGFontFaceUriElement where + pToJSVal = unSVGFontFaceUriElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGFontFaceUriElement where + pFromJSVal = SVGFontFaceUriElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGFontFaceUriElement where + toJSVal = return . unSVGFontFaceUriElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGFontFaceUriElement where + fromJSVal v = fmap SVGFontFaceUriElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGFontFaceUriElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGFontFaceUriElement where + makeObject = makeObject . unSVGFontFaceUriElement + +instance IsSVGElement SVGFontFaceUriElement +instance IsElement SVGFontFaceUriElement +instance IsNode SVGFontFaceUriElement +instance IsEventTarget SVGFontFaceUriElement +instance IsSlotable SVGFontFaceUriElement +instance IsParentNode SVGFontFaceUriElement +instance IsNonDocumentTypeChildNode SVGFontFaceUriElement +instance IsDocumentAndElementEventHandlers SVGFontFaceUriElement +instance IsChildNode SVGFontFaceUriElement +instance IsAnimatable SVGFontFaceUriElement +instance IsGlobalEventHandlers SVGFontFaceUriElement +instance IsElementCSSInlineStyle SVGFontFaceUriElement +instance IsGObject SVGFontFaceUriElement where + typeGType _ = gTypeSVGFontFaceUriElement + {-# INLINE typeGType #-} + +noSVGFontFaceUriElement :: Maybe SVGFontFaceUriElement +noSVGFontFaceUriElement = Nothing +{-# INLINE noSVGFontFaceUriElement #-} + +gTypeSVGFontFaceUriElement :: JSM GType +gTypeSVGFontFaceUriElement = GType . Object <$> jsg "SVGFontFaceUriElement" + +-- | Functions for this inteface are in "JSDOM.SVGForeignObjectElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGForeignObjectElement = SVGForeignObjectElement { unSVGForeignObjectElement :: JSVal } + +instance PToJSVal SVGForeignObjectElement where + pToJSVal = unSVGForeignObjectElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGForeignObjectElement where + pFromJSVal = SVGForeignObjectElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGForeignObjectElement where + toJSVal = return . unSVGForeignObjectElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGForeignObjectElement where + fromJSVal v = fmap SVGForeignObjectElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGForeignObjectElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGForeignObjectElement where + makeObject = makeObject . unSVGForeignObjectElement + +instance IsSVGGraphicsElement SVGForeignObjectElement +instance IsSVGElement SVGForeignObjectElement +instance IsElement SVGForeignObjectElement +instance IsNode SVGForeignObjectElement +instance IsEventTarget SVGForeignObjectElement +instance IsSlotable SVGForeignObjectElement +instance IsParentNode SVGForeignObjectElement +instance IsNonDocumentTypeChildNode SVGForeignObjectElement +instance IsDocumentAndElementEventHandlers SVGForeignObjectElement +instance IsChildNode SVGForeignObjectElement +instance IsAnimatable SVGForeignObjectElement +instance IsGlobalEventHandlers SVGForeignObjectElement +instance IsElementCSSInlineStyle SVGForeignObjectElement +instance IsSVGTests SVGForeignObjectElement +instance IsSVGExternalResourcesRequired SVGForeignObjectElement +instance IsGObject SVGForeignObjectElement where + typeGType _ = gTypeSVGForeignObjectElement + {-# INLINE typeGType #-} + +noSVGForeignObjectElement :: Maybe SVGForeignObjectElement +noSVGForeignObjectElement = Nothing +{-# INLINE noSVGForeignObjectElement #-} + +gTypeSVGForeignObjectElement :: JSM GType +gTypeSVGForeignObjectElement = GType . Object <$> jsg "SVGForeignObjectElement" + +-- | Functions for this inteface are in "JSDOM.SVGGElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGGElement = SVGGElement { unSVGGElement :: JSVal } + +instance PToJSVal SVGGElement where + pToJSVal = unSVGGElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGGElement where + pFromJSVal = SVGGElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGGElement where + toJSVal = return . unSVGGElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGGElement where + fromJSVal v = fmap SVGGElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGGElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGGElement where + makeObject = makeObject . unSVGGElement + +instance IsSVGGraphicsElement SVGGElement +instance IsSVGElement SVGGElement +instance IsElement SVGGElement +instance IsNode SVGGElement +instance IsEventTarget SVGGElement +instance IsSlotable SVGGElement +instance IsParentNode SVGGElement +instance IsNonDocumentTypeChildNode SVGGElement +instance IsDocumentAndElementEventHandlers SVGGElement +instance IsChildNode SVGGElement +instance IsAnimatable SVGGElement +instance IsGlobalEventHandlers SVGGElement +instance IsElementCSSInlineStyle SVGGElement +instance IsSVGTests SVGGElement +instance IsSVGExternalResourcesRequired SVGGElement +instance IsGObject SVGGElement where + typeGType _ = gTypeSVGGElement + {-# INLINE typeGType #-} + +noSVGGElement :: Maybe SVGGElement +noSVGGElement = Nothing +{-# INLINE noSVGGElement #-} + +gTypeSVGGElement :: JSM GType +gTypeSVGGElement = GType . Object <$> jsg "SVGGElement" + +-- | Functions for this inteface are in "JSDOM.SVGGlyphElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGGlyphElement = SVGGlyphElement { unSVGGlyphElement :: JSVal } + +instance PToJSVal SVGGlyphElement where + pToJSVal = unSVGGlyphElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGGlyphElement where + pFromJSVal = SVGGlyphElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGGlyphElement where + toJSVal = return . unSVGGlyphElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGGlyphElement where + fromJSVal v = fmap SVGGlyphElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGGlyphElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGGlyphElement where + makeObject = makeObject . unSVGGlyphElement + +instance IsSVGElement SVGGlyphElement +instance IsElement SVGGlyphElement +instance IsNode SVGGlyphElement +instance IsEventTarget SVGGlyphElement +instance IsSlotable SVGGlyphElement +instance IsParentNode SVGGlyphElement +instance IsNonDocumentTypeChildNode SVGGlyphElement +instance IsDocumentAndElementEventHandlers SVGGlyphElement +instance IsChildNode SVGGlyphElement +instance IsAnimatable SVGGlyphElement +instance IsGlobalEventHandlers SVGGlyphElement +instance IsElementCSSInlineStyle SVGGlyphElement +instance IsGObject SVGGlyphElement where + typeGType _ = gTypeSVGGlyphElement + {-# INLINE typeGType #-} + +noSVGGlyphElement :: Maybe SVGGlyphElement +noSVGGlyphElement = Nothing +{-# INLINE noSVGGlyphElement #-} + +gTypeSVGGlyphElement :: JSM GType +gTypeSVGGlyphElement = GType . Object <$> jsg "SVGGlyphElement" + +-- | Functions for this inteface are in "JSDOM.SVGGlyphRefElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- +-- +newtype SVGGlyphRefElement = SVGGlyphRefElement { unSVGGlyphRefElement :: JSVal } + +instance PToJSVal SVGGlyphRefElement where + pToJSVal = unSVGGlyphRefElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGGlyphRefElement where + pFromJSVal = SVGGlyphRefElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGGlyphRefElement where + toJSVal = return . unSVGGlyphRefElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGGlyphRefElement where + fromJSVal v = fmap SVGGlyphRefElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGGlyphRefElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGGlyphRefElement where + makeObject = makeObject . unSVGGlyphRefElement + +instance IsSVGElement SVGGlyphRefElement +instance IsElement SVGGlyphRefElement +instance IsNode SVGGlyphRefElement +instance IsEventTarget SVGGlyphRefElement +instance IsSlotable SVGGlyphRefElement +instance IsParentNode SVGGlyphRefElement +instance IsNonDocumentTypeChildNode SVGGlyphRefElement +instance IsDocumentAndElementEventHandlers SVGGlyphRefElement +instance IsChildNode SVGGlyphRefElement +instance IsAnimatable SVGGlyphRefElement +instance IsGlobalEventHandlers SVGGlyphRefElement +instance IsElementCSSInlineStyle SVGGlyphRefElement +instance IsSVGURIReference SVGGlyphRefElement +instance IsGObject SVGGlyphRefElement where + typeGType _ = gTypeSVGGlyphRefElement + {-# INLINE typeGType #-} + +noSVGGlyphRefElement :: Maybe SVGGlyphRefElement +noSVGGlyphRefElement = Nothing +{-# INLINE noSVGGlyphRefElement #-} + +gTypeSVGGlyphRefElement :: JSM GType +gTypeSVGGlyphRefElement = GType . Object <$> jsg "SVGGlyphRefElement" + +-- | Functions for this inteface are in "JSDOM.SVGGradientElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGGradientElement = SVGGradientElement { unSVGGradientElement :: JSVal } + +instance PToJSVal SVGGradientElement where + pToJSVal = unSVGGradientElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGGradientElement where + pFromJSVal = SVGGradientElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGGradientElement where + toJSVal = return . unSVGGradientElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGGradientElement where + fromJSVal v = fmap SVGGradientElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGGradientElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGGradientElement where + makeObject = makeObject . unSVGGradientElement + +class (IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsElementCSSInlineStyle o, IsSVGURIReference o, IsSVGExternalResourcesRequired o, IsGObject o) => IsSVGGradientElement o +toSVGGradientElement :: IsSVGGradientElement o => o -> SVGGradientElement +toSVGGradientElement = SVGGradientElement . coerce + +instance IsSVGGradientElement SVGGradientElement +instance IsSVGElement SVGGradientElement +instance IsElement SVGGradientElement +instance IsNode SVGGradientElement +instance IsEventTarget SVGGradientElement +instance IsSlotable SVGGradientElement +instance IsParentNode SVGGradientElement +instance IsNonDocumentTypeChildNode SVGGradientElement +instance IsDocumentAndElementEventHandlers SVGGradientElement +instance IsChildNode SVGGradientElement +instance IsAnimatable SVGGradientElement +instance IsGlobalEventHandlers SVGGradientElement +instance IsElementCSSInlineStyle SVGGradientElement +instance IsSVGURIReference SVGGradientElement +instance IsSVGExternalResourcesRequired SVGGradientElement +instance IsGObject SVGGradientElement where + typeGType _ = gTypeSVGGradientElement + {-# INLINE typeGType #-} + +noSVGGradientElement :: Maybe SVGGradientElement +noSVGGradientElement = Nothing +{-# INLINE noSVGGradientElement #-} + +gTypeSVGGradientElement :: JSM GType +gTypeSVGGradientElement = GType . Object <$> jsg "SVGGradientElement" + +-- | Functions for this inteface are in "JSDOM.SVGGraphicsElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- +-- +newtype SVGGraphicsElement = SVGGraphicsElement { unSVGGraphicsElement :: JSVal } + +instance PToJSVal SVGGraphicsElement where + pToJSVal = unSVGGraphicsElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGGraphicsElement where + pFromJSVal = SVGGraphicsElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGGraphicsElement where + toJSVal = return . unSVGGraphicsElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGGraphicsElement where + fromJSVal v = fmap SVGGraphicsElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGGraphicsElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGGraphicsElement where + makeObject = makeObject . unSVGGraphicsElement + +class (IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsElementCSSInlineStyle o, IsSVGTests o, IsGObject o) => IsSVGGraphicsElement o +toSVGGraphicsElement :: IsSVGGraphicsElement o => o -> SVGGraphicsElement +toSVGGraphicsElement = SVGGraphicsElement . coerce + +instance IsSVGGraphicsElement SVGGraphicsElement +instance IsSVGElement SVGGraphicsElement +instance IsElement SVGGraphicsElement +instance IsNode SVGGraphicsElement +instance IsEventTarget SVGGraphicsElement +instance IsSlotable SVGGraphicsElement +instance IsParentNode SVGGraphicsElement +instance IsNonDocumentTypeChildNode SVGGraphicsElement +instance IsDocumentAndElementEventHandlers SVGGraphicsElement +instance IsChildNode SVGGraphicsElement +instance IsAnimatable SVGGraphicsElement +instance IsGlobalEventHandlers SVGGraphicsElement +instance IsElementCSSInlineStyle SVGGraphicsElement +instance IsSVGTests SVGGraphicsElement +instance IsGObject SVGGraphicsElement where + typeGType _ = gTypeSVGGraphicsElement + {-# INLINE typeGType #-} + +noSVGGraphicsElement :: Maybe SVGGraphicsElement +noSVGGraphicsElement = Nothing +{-# INLINE noSVGGraphicsElement #-} + +gTypeSVGGraphicsElement :: JSM GType +gTypeSVGGraphicsElement = GType . Object <$> jsg "SVGGraphicsElement" + +-- | Functions for this inteface are in "JSDOM.SVGHKernElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGHKernElement = SVGHKernElement { unSVGHKernElement :: JSVal } + +instance PToJSVal SVGHKernElement where + pToJSVal = unSVGHKernElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGHKernElement where + pFromJSVal = SVGHKernElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGHKernElement where + toJSVal = return . unSVGHKernElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGHKernElement where + fromJSVal v = fmap SVGHKernElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGHKernElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGHKernElement where + makeObject = makeObject . unSVGHKernElement + +instance IsSVGElement SVGHKernElement +instance IsElement SVGHKernElement +instance IsNode SVGHKernElement +instance IsEventTarget SVGHKernElement +instance IsSlotable SVGHKernElement +instance IsParentNode SVGHKernElement +instance IsNonDocumentTypeChildNode SVGHKernElement +instance IsDocumentAndElementEventHandlers SVGHKernElement +instance IsChildNode SVGHKernElement +instance IsAnimatable SVGHKernElement +instance IsGlobalEventHandlers SVGHKernElement +instance IsElementCSSInlineStyle SVGHKernElement +instance IsGObject SVGHKernElement where + typeGType _ = gTypeSVGHKernElement + {-# INLINE typeGType #-} + +noSVGHKernElement :: Maybe SVGHKernElement +noSVGHKernElement = Nothing +{-# INLINE noSVGHKernElement #-} + +gTypeSVGHKernElement :: JSM GType +gTypeSVGHKernElement = GType . Object <$> jsg "SVGHKernElement" + +-- | Functions for this inteface are in "JSDOM.SVGImageElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGImageElement = SVGImageElement { unSVGImageElement :: JSVal } + +instance PToJSVal SVGImageElement where + pToJSVal = unSVGImageElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGImageElement where + pFromJSVal = SVGImageElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGImageElement where + toJSVal = return . unSVGImageElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGImageElement where + fromJSVal v = fmap SVGImageElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGImageElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGImageElement where + makeObject = makeObject . unSVGImageElement + +instance IsSVGGraphicsElement SVGImageElement +instance IsSVGElement SVGImageElement +instance IsElement SVGImageElement +instance IsNode SVGImageElement +instance IsEventTarget SVGImageElement +instance IsSlotable SVGImageElement +instance IsParentNode SVGImageElement +instance IsNonDocumentTypeChildNode SVGImageElement +instance IsDocumentAndElementEventHandlers SVGImageElement +instance IsChildNode SVGImageElement +instance IsAnimatable SVGImageElement +instance IsGlobalEventHandlers SVGImageElement +instance IsElementCSSInlineStyle SVGImageElement +instance IsSVGTests SVGImageElement +instance IsSVGURIReference SVGImageElement +instance IsSVGExternalResourcesRequired SVGImageElement +instance IsGObject SVGImageElement where + typeGType _ = gTypeSVGImageElement + {-# INLINE typeGType #-} + +noSVGImageElement :: Maybe SVGImageElement +noSVGImageElement = Nothing +{-# INLINE noSVGImageElement #-} + +gTypeSVGImageElement :: JSM GType +gTypeSVGImageElement = GType . Object <$> jsg "SVGImageElement" + +-- | Functions for this inteface are in "JSDOM.SVGLength". +-- +-- +newtype SVGLength = SVGLength { unSVGLength :: JSVal } + +instance PToJSVal SVGLength where + pToJSVal = unSVGLength + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGLength where + pFromJSVal = SVGLength + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGLength where + toJSVal = return . unSVGLength + {-# INLINE toJSVal #-} + +instance FromJSVal SVGLength where + fromJSVal v = fmap SVGLength <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGLength + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGLength where + makeObject = makeObject . unSVGLength + +instance IsGObject SVGLength where + typeGType _ = gTypeSVGLength + {-# INLINE typeGType #-} + +noSVGLength :: Maybe SVGLength +noSVGLength = Nothing +{-# INLINE noSVGLength #-} + +gTypeSVGLength :: JSM GType +gTypeSVGLength = GType . Object <$> jsg "SVGLength" + +-- | Functions for this inteface are in "JSDOM.SVGLengthList". +-- +-- +newtype SVGLengthList = SVGLengthList { unSVGLengthList :: JSVal } + +instance PToJSVal SVGLengthList where + pToJSVal = unSVGLengthList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGLengthList where + pFromJSVal = SVGLengthList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGLengthList where + toJSVal = return . unSVGLengthList + {-# INLINE toJSVal #-} + +instance FromJSVal SVGLengthList where + fromJSVal v = fmap SVGLengthList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGLengthList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGLengthList where + makeObject = makeObject . unSVGLengthList + +instance IsGObject SVGLengthList where + typeGType _ = gTypeSVGLengthList + {-# INLINE typeGType #-} + +noSVGLengthList :: Maybe SVGLengthList +noSVGLengthList = Nothing +{-# INLINE noSVGLengthList #-} + +gTypeSVGLengthList :: JSM GType +gTypeSVGLengthList = GType . Object <$> jsg "SVGLengthList" + +-- | Functions for this inteface are in "JSDOM.SVGLineElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGLineElement = SVGLineElement { unSVGLineElement :: JSVal } + +instance PToJSVal SVGLineElement where + pToJSVal = unSVGLineElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGLineElement where + pFromJSVal = SVGLineElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGLineElement where + toJSVal = return . unSVGLineElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGLineElement where + fromJSVal v = fmap SVGLineElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGLineElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGLineElement where + makeObject = makeObject . unSVGLineElement + +instance IsSVGGraphicsElement SVGLineElement +instance IsSVGElement SVGLineElement +instance IsElement SVGLineElement +instance IsNode SVGLineElement +instance IsEventTarget SVGLineElement +instance IsSlotable SVGLineElement +instance IsParentNode SVGLineElement +instance IsNonDocumentTypeChildNode SVGLineElement +instance IsDocumentAndElementEventHandlers SVGLineElement +instance IsChildNode SVGLineElement +instance IsAnimatable SVGLineElement +instance IsGlobalEventHandlers SVGLineElement +instance IsElementCSSInlineStyle SVGLineElement +instance IsSVGTests SVGLineElement +instance IsSVGExternalResourcesRequired SVGLineElement +instance IsGObject SVGLineElement where + typeGType _ = gTypeSVGLineElement + {-# INLINE typeGType #-} + +noSVGLineElement :: Maybe SVGLineElement +noSVGLineElement = Nothing +{-# INLINE noSVGLineElement #-} + +gTypeSVGLineElement :: JSM GType +gTypeSVGLineElement = GType . Object <$> jsg "SVGLineElement" + +-- | Functions for this inteface are in "JSDOM.SVGLinearGradientElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGradientElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGLinearGradientElement = SVGLinearGradientElement { unSVGLinearGradientElement :: JSVal } + +instance PToJSVal SVGLinearGradientElement where + pToJSVal = unSVGLinearGradientElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGLinearGradientElement where + pFromJSVal = SVGLinearGradientElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGLinearGradientElement where + toJSVal = return . unSVGLinearGradientElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGLinearGradientElement where + fromJSVal v = fmap SVGLinearGradientElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGLinearGradientElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGLinearGradientElement where + makeObject = makeObject . unSVGLinearGradientElement + +instance IsSVGGradientElement SVGLinearGradientElement +instance IsSVGElement SVGLinearGradientElement +instance IsElement SVGLinearGradientElement +instance IsNode SVGLinearGradientElement +instance IsEventTarget SVGLinearGradientElement +instance IsSlotable SVGLinearGradientElement +instance IsParentNode SVGLinearGradientElement +instance IsNonDocumentTypeChildNode SVGLinearGradientElement +instance IsDocumentAndElementEventHandlers SVGLinearGradientElement +instance IsChildNode SVGLinearGradientElement +instance IsAnimatable SVGLinearGradientElement +instance IsGlobalEventHandlers SVGLinearGradientElement +instance IsElementCSSInlineStyle SVGLinearGradientElement +instance IsSVGURIReference SVGLinearGradientElement +instance IsSVGExternalResourcesRequired SVGLinearGradientElement +instance IsGObject SVGLinearGradientElement where + typeGType _ = gTypeSVGLinearGradientElement + {-# INLINE typeGType #-} + +noSVGLinearGradientElement :: Maybe SVGLinearGradientElement +noSVGLinearGradientElement = Nothing +{-# INLINE noSVGLinearGradientElement #-} + +gTypeSVGLinearGradientElement :: JSM GType +gTypeSVGLinearGradientElement = GType . Object <$> jsg "SVGLinearGradientElement" + +-- | Functions for this inteface are in "JSDOM.SVGMPathElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGMPathElement = SVGMPathElement { unSVGMPathElement :: JSVal } + +instance PToJSVal SVGMPathElement where + pToJSVal = unSVGMPathElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGMPathElement where + pFromJSVal = SVGMPathElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGMPathElement where + toJSVal = return . unSVGMPathElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGMPathElement where + fromJSVal v = fmap SVGMPathElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGMPathElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGMPathElement where + makeObject = makeObject . unSVGMPathElement + +instance IsSVGElement SVGMPathElement +instance IsElement SVGMPathElement +instance IsNode SVGMPathElement +instance IsEventTarget SVGMPathElement +instance IsSlotable SVGMPathElement +instance IsParentNode SVGMPathElement +instance IsNonDocumentTypeChildNode SVGMPathElement +instance IsDocumentAndElementEventHandlers SVGMPathElement +instance IsChildNode SVGMPathElement +instance IsAnimatable SVGMPathElement +instance IsGlobalEventHandlers SVGMPathElement +instance IsElementCSSInlineStyle SVGMPathElement +instance IsSVGURIReference SVGMPathElement +instance IsSVGExternalResourcesRequired SVGMPathElement +instance IsGObject SVGMPathElement where + typeGType _ = gTypeSVGMPathElement + {-# INLINE typeGType #-} + +noSVGMPathElement :: Maybe SVGMPathElement +noSVGMPathElement = Nothing +{-# INLINE noSVGMPathElement #-} + +gTypeSVGMPathElement :: JSM GType +gTypeSVGMPathElement = GType . Object <$> jsg "SVGMPathElement" + +-- | Functions for this inteface are in "JSDOM.SVGMarkerElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFitToViewBox" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGMarkerElement = SVGMarkerElement { unSVGMarkerElement :: JSVal } + +instance PToJSVal SVGMarkerElement where + pToJSVal = unSVGMarkerElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGMarkerElement where + pFromJSVal = SVGMarkerElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGMarkerElement where + toJSVal = return . unSVGMarkerElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGMarkerElement where + fromJSVal v = fmap SVGMarkerElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGMarkerElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGMarkerElement where + makeObject = makeObject . unSVGMarkerElement + +instance IsSVGElement SVGMarkerElement +instance IsElement SVGMarkerElement +instance IsNode SVGMarkerElement +instance IsEventTarget SVGMarkerElement +instance IsSlotable SVGMarkerElement +instance IsParentNode SVGMarkerElement +instance IsNonDocumentTypeChildNode SVGMarkerElement +instance IsDocumentAndElementEventHandlers SVGMarkerElement +instance IsChildNode SVGMarkerElement +instance IsAnimatable SVGMarkerElement +instance IsGlobalEventHandlers SVGMarkerElement +instance IsElementCSSInlineStyle SVGMarkerElement +instance IsSVGFitToViewBox SVGMarkerElement +instance IsSVGExternalResourcesRequired SVGMarkerElement +instance IsGObject SVGMarkerElement where + typeGType _ = gTypeSVGMarkerElement + {-# INLINE typeGType #-} + +noSVGMarkerElement :: Maybe SVGMarkerElement +noSVGMarkerElement = Nothing +{-# INLINE noSVGMarkerElement #-} + +gTypeSVGMarkerElement :: JSM GType +gTypeSVGMarkerElement = GType . Object <$> jsg "SVGMarkerElement" + +-- | Functions for this inteface are in "JSDOM.SVGMaskElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGMaskElement = SVGMaskElement { unSVGMaskElement :: JSVal } + +instance PToJSVal SVGMaskElement where + pToJSVal = unSVGMaskElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGMaskElement where + pFromJSVal = SVGMaskElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGMaskElement where + toJSVal = return . unSVGMaskElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGMaskElement where + fromJSVal v = fmap SVGMaskElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGMaskElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGMaskElement where + makeObject = makeObject . unSVGMaskElement + +instance IsSVGElement SVGMaskElement +instance IsElement SVGMaskElement +instance IsNode SVGMaskElement +instance IsEventTarget SVGMaskElement +instance IsSlotable SVGMaskElement +instance IsParentNode SVGMaskElement +instance IsNonDocumentTypeChildNode SVGMaskElement +instance IsDocumentAndElementEventHandlers SVGMaskElement +instance IsChildNode SVGMaskElement +instance IsAnimatable SVGMaskElement +instance IsGlobalEventHandlers SVGMaskElement +instance IsElementCSSInlineStyle SVGMaskElement +instance IsSVGTests SVGMaskElement +instance IsSVGExternalResourcesRequired SVGMaskElement +instance IsGObject SVGMaskElement where + typeGType _ = gTypeSVGMaskElement + {-# INLINE typeGType #-} + +noSVGMaskElement :: Maybe SVGMaskElement +noSVGMaskElement = Nothing +{-# INLINE noSVGMaskElement #-} + +gTypeSVGMaskElement :: JSM GType +gTypeSVGMaskElement = GType . Object <$> jsg "SVGMaskElement" + +-- | Functions for this inteface are in "JSDOM.SVGMatrix". +-- +-- +newtype SVGMatrix = SVGMatrix { unSVGMatrix :: JSVal } + +instance PToJSVal SVGMatrix where + pToJSVal = unSVGMatrix + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGMatrix where + pFromJSVal = SVGMatrix + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGMatrix where + toJSVal = return . unSVGMatrix + {-# INLINE toJSVal #-} + +instance FromJSVal SVGMatrix where + fromJSVal v = fmap SVGMatrix <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGMatrix + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGMatrix where + makeObject = makeObject . unSVGMatrix + +instance IsGObject SVGMatrix where + typeGType _ = gTypeSVGMatrix + {-# INLINE typeGType #-} + +noSVGMatrix :: Maybe SVGMatrix +noSVGMatrix = Nothing +{-# INLINE noSVGMatrix #-} + +gTypeSVGMatrix :: JSM GType +gTypeSVGMatrix = GType . Object <$> jsg "SVGMatrix" + +-- | Functions for this inteface are in "JSDOM.SVGMetadataElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGMetadataElement = SVGMetadataElement { unSVGMetadataElement :: JSVal } + +instance PToJSVal SVGMetadataElement where + pToJSVal = unSVGMetadataElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGMetadataElement where + pFromJSVal = SVGMetadataElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGMetadataElement where + toJSVal = return . unSVGMetadataElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGMetadataElement where + fromJSVal v = fmap SVGMetadataElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGMetadataElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGMetadataElement where + makeObject = makeObject . unSVGMetadataElement + +instance IsSVGElement SVGMetadataElement +instance IsElement SVGMetadataElement +instance IsNode SVGMetadataElement +instance IsEventTarget SVGMetadataElement +instance IsSlotable SVGMetadataElement +instance IsParentNode SVGMetadataElement +instance IsNonDocumentTypeChildNode SVGMetadataElement +instance IsDocumentAndElementEventHandlers SVGMetadataElement +instance IsChildNode SVGMetadataElement +instance IsAnimatable SVGMetadataElement +instance IsGlobalEventHandlers SVGMetadataElement +instance IsElementCSSInlineStyle SVGMetadataElement +instance IsGObject SVGMetadataElement where + typeGType _ = gTypeSVGMetadataElement + {-# INLINE typeGType #-} + +noSVGMetadataElement :: Maybe SVGMetadataElement +noSVGMetadataElement = Nothing +{-# INLINE noSVGMetadataElement #-} + +gTypeSVGMetadataElement :: JSM GType +gTypeSVGMetadataElement = GType . Object <$> jsg "SVGMetadataElement" + +-- | Functions for this inteface are in "JSDOM.SVGMissingGlyphElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGMissingGlyphElement = SVGMissingGlyphElement { unSVGMissingGlyphElement :: JSVal } + +instance PToJSVal SVGMissingGlyphElement where + pToJSVal = unSVGMissingGlyphElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGMissingGlyphElement where + pFromJSVal = SVGMissingGlyphElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGMissingGlyphElement where + toJSVal = return . unSVGMissingGlyphElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGMissingGlyphElement where + fromJSVal v = fmap SVGMissingGlyphElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGMissingGlyphElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGMissingGlyphElement where + makeObject = makeObject . unSVGMissingGlyphElement + +instance IsSVGElement SVGMissingGlyphElement +instance IsElement SVGMissingGlyphElement +instance IsNode SVGMissingGlyphElement +instance IsEventTarget SVGMissingGlyphElement +instance IsSlotable SVGMissingGlyphElement +instance IsParentNode SVGMissingGlyphElement +instance IsNonDocumentTypeChildNode SVGMissingGlyphElement +instance IsDocumentAndElementEventHandlers SVGMissingGlyphElement +instance IsChildNode SVGMissingGlyphElement +instance IsAnimatable SVGMissingGlyphElement +instance IsGlobalEventHandlers SVGMissingGlyphElement +instance IsElementCSSInlineStyle SVGMissingGlyphElement +instance IsGObject SVGMissingGlyphElement where + typeGType _ = gTypeSVGMissingGlyphElement + {-# INLINE typeGType #-} + +noSVGMissingGlyphElement :: Maybe SVGMissingGlyphElement +noSVGMissingGlyphElement = Nothing +{-# INLINE noSVGMissingGlyphElement #-} + +gTypeSVGMissingGlyphElement :: JSM GType +gTypeSVGMissingGlyphElement = GType . Object <$> jsg "SVGMissingGlyphElement" + +-- | Functions for this inteface are in "JSDOM.SVGNumber". +-- +-- +newtype SVGNumber = SVGNumber { unSVGNumber :: JSVal } + +instance PToJSVal SVGNumber where + pToJSVal = unSVGNumber + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGNumber where + pFromJSVal = SVGNumber + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGNumber where + toJSVal = return . unSVGNumber + {-# INLINE toJSVal #-} + +instance FromJSVal SVGNumber where + fromJSVal v = fmap SVGNumber <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGNumber + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGNumber where + makeObject = makeObject . unSVGNumber + +instance IsGObject SVGNumber where + typeGType _ = gTypeSVGNumber + {-# INLINE typeGType #-} + +noSVGNumber :: Maybe SVGNumber +noSVGNumber = Nothing +{-# INLINE noSVGNumber #-} + +gTypeSVGNumber :: JSM GType +gTypeSVGNumber = GType . Object <$> jsg "SVGNumber" + +-- | Functions for this inteface are in "JSDOM.SVGNumberList". +-- +-- +newtype SVGNumberList = SVGNumberList { unSVGNumberList :: JSVal } + +instance PToJSVal SVGNumberList where + pToJSVal = unSVGNumberList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGNumberList where + pFromJSVal = SVGNumberList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGNumberList where + toJSVal = return . unSVGNumberList + {-# INLINE toJSVal #-} + +instance FromJSVal SVGNumberList where + fromJSVal v = fmap SVGNumberList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGNumberList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGNumberList where + makeObject = makeObject . unSVGNumberList + +instance IsGObject SVGNumberList where + typeGType _ = gTypeSVGNumberList + {-# INLINE typeGType #-} + +noSVGNumberList :: Maybe SVGNumberList +noSVGNumberList = Nothing +{-# INLINE noSVGNumberList #-} + +gTypeSVGNumberList :: JSM GType +gTypeSVGNumberList = GType . Object <$> jsg "SVGNumberList" + +-- | Functions for this inteface are in "JSDOM.SVGPathElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGPathElement = SVGPathElement { unSVGPathElement :: JSVal } + +instance PToJSVal SVGPathElement where + pToJSVal = unSVGPathElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathElement where + pFromJSVal = SVGPathElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathElement where + toJSVal = return . unSVGPathElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathElement where + fromJSVal v = fmap SVGPathElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathElement where + makeObject = makeObject . unSVGPathElement + +instance IsSVGGraphicsElement SVGPathElement +instance IsSVGElement SVGPathElement +instance IsElement SVGPathElement +instance IsNode SVGPathElement +instance IsEventTarget SVGPathElement +instance IsSlotable SVGPathElement +instance IsParentNode SVGPathElement +instance IsNonDocumentTypeChildNode SVGPathElement +instance IsDocumentAndElementEventHandlers SVGPathElement +instance IsChildNode SVGPathElement +instance IsAnimatable SVGPathElement +instance IsGlobalEventHandlers SVGPathElement +instance IsElementCSSInlineStyle SVGPathElement +instance IsSVGTests SVGPathElement +instance IsSVGExternalResourcesRequired SVGPathElement +instance IsGObject SVGPathElement where + typeGType _ = gTypeSVGPathElement + {-# INLINE typeGType #-} + +noSVGPathElement :: Maybe SVGPathElement +noSVGPathElement = Nothing +{-# INLINE noSVGPathElement #-} + +gTypeSVGPathElement :: JSM GType +gTypeSVGPathElement = GType . Object <$> jsg "SVGPathElement" + +-- | Functions for this inteface are in "JSDOM.SVGPathSeg". +-- +-- +newtype SVGPathSeg = SVGPathSeg { unSVGPathSeg :: JSVal } + +instance PToJSVal SVGPathSeg where + pToJSVal = unSVGPathSeg + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSeg where + pFromJSVal = SVGPathSeg + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSeg where + toJSVal = return . unSVGPathSeg + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSeg where + fromJSVal v = fmap SVGPathSeg <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSeg + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSeg where + makeObject = makeObject . unSVGPathSeg + +class (IsGObject o) => IsSVGPathSeg o +toSVGPathSeg :: IsSVGPathSeg o => o -> SVGPathSeg +toSVGPathSeg = SVGPathSeg . coerce + +instance IsSVGPathSeg SVGPathSeg +instance IsGObject SVGPathSeg where + typeGType _ = gTypeSVGPathSeg + {-# INLINE typeGType #-} + +noSVGPathSeg :: Maybe SVGPathSeg +noSVGPathSeg = Nothing +{-# INLINE noSVGPathSeg #-} + +gTypeSVGPathSeg :: JSM GType +gTypeSVGPathSeg = GType . Object <$> jsg "SVGPathSeg" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegArcAbs". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegArcAbs = SVGPathSegArcAbs { unSVGPathSegArcAbs :: JSVal } + +instance PToJSVal SVGPathSegArcAbs where + pToJSVal = unSVGPathSegArcAbs + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegArcAbs where + pFromJSVal = SVGPathSegArcAbs + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegArcAbs where + toJSVal = return . unSVGPathSegArcAbs + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegArcAbs where + fromJSVal v = fmap SVGPathSegArcAbs <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegArcAbs + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegArcAbs where + makeObject = makeObject . unSVGPathSegArcAbs + +instance IsSVGPathSeg SVGPathSegArcAbs +instance IsGObject SVGPathSegArcAbs where + typeGType _ = gTypeSVGPathSegArcAbs + {-# INLINE typeGType #-} + +noSVGPathSegArcAbs :: Maybe SVGPathSegArcAbs +noSVGPathSegArcAbs = Nothing +{-# INLINE noSVGPathSegArcAbs #-} + +gTypeSVGPathSegArcAbs :: JSM GType +gTypeSVGPathSegArcAbs = GType . Object <$> jsg "SVGPathSegArcAbs" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegArcRel". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegArcRel = SVGPathSegArcRel { unSVGPathSegArcRel :: JSVal } + +instance PToJSVal SVGPathSegArcRel where + pToJSVal = unSVGPathSegArcRel + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegArcRel where + pFromJSVal = SVGPathSegArcRel + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegArcRel where + toJSVal = return . unSVGPathSegArcRel + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegArcRel where + fromJSVal v = fmap SVGPathSegArcRel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegArcRel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegArcRel where + makeObject = makeObject . unSVGPathSegArcRel + +instance IsSVGPathSeg SVGPathSegArcRel +instance IsGObject SVGPathSegArcRel where + typeGType _ = gTypeSVGPathSegArcRel + {-# INLINE typeGType #-} + +noSVGPathSegArcRel :: Maybe SVGPathSegArcRel +noSVGPathSegArcRel = Nothing +{-# INLINE noSVGPathSegArcRel #-} + +gTypeSVGPathSegArcRel :: JSM GType +gTypeSVGPathSegArcRel = GType . Object <$> jsg "SVGPathSegArcRel" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegClosePath". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegClosePath = SVGPathSegClosePath { unSVGPathSegClosePath :: JSVal } + +instance PToJSVal SVGPathSegClosePath where + pToJSVal = unSVGPathSegClosePath + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegClosePath where + pFromJSVal = SVGPathSegClosePath + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegClosePath where + toJSVal = return . unSVGPathSegClosePath + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegClosePath where + fromJSVal v = fmap SVGPathSegClosePath <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegClosePath + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegClosePath where + makeObject = makeObject . unSVGPathSegClosePath + +instance IsSVGPathSeg SVGPathSegClosePath +instance IsGObject SVGPathSegClosePath where + typeGType _ = gTypeSVGPathSegClosePath + {-# INLINE typeGType #-} + +noSVGPathSegClosePath :: Maybe SVGPathSegClosePath +noSVGPathSegClosePath = Nothing +{-# INLINE noSVGPathSegClosePath #-} + +gTypeSVGPathSegClosePath :: JSM GType +gTypeSVGPathSegClosePath = GType . Object <$> jsg "SVGPathSegClosePath" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicAbs". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegCurvetoCubicAbs = SVGPathSegCurvetoCubicAbs { unSVGPathSegCurvetoCubicAbs :: JSVal } + +instance PToJSVal SVGPathSegCurvetoCubicAbs where + pToJSVal = unSVGPathSegCurvetoCubicAbs + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegCurvetoCubicAbs where + pFromJSVal = SVGPathSegCurvetoCubicAbs + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegCurvetoCubicAbs where + toJSVal = return . unSVGPathSegCurvetoCubicAbs + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegCurvetoCubicAbs where + fromJSVal v = fmap SVGPathSegCurvetoCubicAbs <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegCurvetoCubicAbs + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegCurvetoCubicAbs where + makeObject = makeObject . unSVGPathSegCurvetoCubicAbs + +instance IsSVGPathSeg SVGPathSegCurvetoCubicAbs +instance IsGObject SVGPathSegCurvetoCubicAbs where + typeGType _ = gTypeSVGPathSegCurvetoCubicAbs + {-# INLINE typeGType #-} + +noSVGPathSegCurvetoCubicAbs :: Maybe SVGPathSegCurvetoCubicAbs +noSVGPathSegCurvetoCubicAbs = Nothing +{-# INLINE noSVGPathSegCurvetoCubicAbs #-} + +gTypeSVGPathSegCurvetoCubicAbs :: JSM GType +gTypeSVGPathSegCurvetoCubicAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicAbs" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicRel". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegCurvetoCubicRel = SVGPathSegCurvetoCubicRel { unSVGPathSegCurvetoCubicRel :: JSVal } + +instance PToJSVal SVGPathSegCurvetoCubicRel where + pToJSVal = unSVGPathSegCurvetoCubicRel + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegCurvetoCubicRel where + pFromJSVal = SVGPathSegCurvetoCubicRel + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegCurvetoCubicRel where + toJSVal = return . unSVGPathSegCurvetoCubicRel + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegCurvetoCubicRel where + fromJSVal v = fmap SVGPathSegCurvetoCubicRel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegCurvetoCubicRel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegCurvetoCubicRel where + makeObject = makeObject . unSVGPathSegCurvetoCubicRel + +instance IsSVGPathSeg SVGPathSegCurvetoCubicRel +instance IsGObject SVGPathSegCurvetoCubicRel where + typeGType _ = gTypeSVGPathSegCurvetoCubicRel + {-# INLINE typeGType #-} + +noSVGPathSegCurvetoCubicRel :: Maybe SVGPathSegCurvetoCubicRel +noSVGPathSegCurvetoCubicRel = Nothing +{-# INLINE noSVGPathSegCurvetoCubicRel #-} + +gTypeSVGPathSegCurvetoCubicRel :: JSM GType +gTypeSVGPathSegCurvetoCubicRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicRel" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicSmoothAbs". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegCurvetoCubicSmoothAbs = SVGPathSegCurvetoCubicSmoothAbs { unSVGPathSegCurvetoCubicSmoothAbs :: JSVal } + +instance PToJSVal SVGPathSegCurvetoCubicSmoothAbs where + pToJSVal = unSVGPathSegCurvetoCubicSmoothAbs + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegCurvetoCubicSmoothAbs where + pFromJSVal = SVGPathSegCurvetoCubicSmoothAbs + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegCurvetoCubicSmoothAbs where + toJSVal = return . unSVGPathSegCurvetoCubicSmoothAbs + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegCurvetoCubicSmoothAbs where + fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothAbs <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegCurvetoCubicSmoothAbs + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegCurvetoCubicSmoothAbs where + makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothAbs + +instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothAbs +instance IsGObject SVGPathSegCurvetoCubicSmoothAbs where + typeGType _ = gTypeSVGPathSegCurvetoCubicSmoothAbs + {-# INLINE typeGType #-} + +noSVGPathSegCurvetoCubicSmoothAbs :: Maybe SVGPathSegCurvetoCubicSmoothAbs +noSVGPathSegCurvetoCubicSmoothAbs = Nothing +{-# INLINE noSVGPathSegCurvetoCubicSmoothAbs #-} + +gTypeSVGPathSegCurvetoCubicSmoothAbs :: JSM GType +gTypeSVGPathSegCurvetoCubicSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothAbs" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoCubicSmoothRel". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegCurvetoCubicSmoothRel = SVGPathSegCurvetoCubicSmoothRel { unSVGPathSegCurvetoCubicSmoothRel :: JSVal } + +instance PToJSVal SVGPathSegCurvetoCubicSmoothRel where + pToJSVal = unSVGPathSegCurvetoCubicSmoothRel + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegCurvetoCubicSmoothRel where + pFromJSVal = SVGPathSegCurvetoCubicSmoothRel + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegCurvetoCubicSmoothRel where + toJSVal = return . unSVGPathSegCurvetoCubicSmoothRel + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegCurvetoCubicSmoothRel where + fromJSVal v = fmap SVGPathSegCurvetoCubicSmoothRel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegCurvetoCubicSmoothRel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegCurvetoCubicSmoothRel where + makeObject = makeObject . unSVGPathSegCurvetoCubicSmoothRel + +instance IsSVGPathSeg SVGPathSegCurvetoCubicSmoothRel +instance IsGObject SVGPathSegCurvetoCubicSmoothRel where + typeGType _ = gTypeSVGPathSegCurvetoCubicSmoothRel + {-# INLINE typeGType #-} + +noSVGPathSegCurvetoCubicSmoothRel :: Maybe SVGPathSegCurvetoCubicSmoothRel +noSVGPathSegCurvetoCubicSmoothRel = Nothing +{-# INLINE noSVGPathSegCurvetoCubicSmoothRel #-} + +gTypeSVGPathSegCurvetoCubicSmoothRel :: JSM GType +gTypeSVGPathSegCurvetoCubicSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoCubicSmoothRel" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticAbs". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegCurvetoQuadraticAbs = SVGPathSegCurvetoQuadraticAbs { unSVGPathSegCurvetoQuadraticAbs :: JSVal } + +instance PToJSVal SVGPathSegCurvetoQuadraticAbs where + pToJSVal = unSVGPathSegCurvetoQuadraticAbs + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegCurvetoQuadraticAbs where + pFromJSVal = SVGPathSegCurvetoQuadraticAbs + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegCurvetoQuadraticAbs where + toJSVal = return . unSVGPathSegCurvetoQuadraticAbs + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegCurvetoQuadraticAbs where + fromJSVal v = fmap SVGPathSegCurvetoQuadraticAbs <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegCurvetoQuadraticAbs + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegCurvetoQuadraticAbs where + makeObject = makeObject . unSVGPathSegCurvetoQuadraticAbs + +instance IsSVGPathSeg SVGPathSegCurvetoQuadraticAbs +instance IsGObject SVGPathSegCurvetoQuadraticAbs where + typeGType _ = gTypeSVGPathSegCurvetoQuadraticAbs + {-# INLINE typeGType #-} + +noSVGPathSegCurvetoQuadraticAbs :: Maybe SVGPathSegCurvetoQuadraticAbs +noSVGPathSegCurvetoQuadraticAbs = Nothing +{-# INLINE noSVGPathSegCurvetoQuadraticAbs #-} + +gTypeSVGPathSegCurvetoQuadraticAbs :: JSM GType +gTypeSVGPathSegCurvetoQuadraticAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticAbs" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticRel". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegCurvetoQuadraticRel = SVGPathSegCurvetoQuadraticRel { unSVGPathSegCurvetoQuadraticRel :: JSVal } + +instance PToJSVal SVGPathSegCurvetoQuadraticRel where + pToJSVal = unSVGPathSegCurvetoQuadraticRel + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegCurvetoQuadraticRel where + pFromJSVal = SVGPathSegCurvetoQuadraticRel + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegCurvetoQuadraticRel where + toJSVal = return . unSVGPathSegCurvetoQuadraticRel + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegCurvetoQuadraticRel where + fromJSVal v = fmap SVGPathSegCurvetoQuadraticRel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegCurvetoQuadraticRel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegCurvetoQuadraticRel where + makeObject = makeObject . unSVGPathSegCurvetoQuadraticRel + +instance IsSVGPathSeg SVGPathSegCurvetoQuadraticRel +instance IsGObject SVGPathSegCurvetoQuadraticRel where + typeGType _ = gTypeSVGPathSegCurvetoQuadraticRel + {-# INLINE typeGType #-} + +noSVGPathSegCurvetoQuadraticRel :: Maybe SVGPathSegCurvetoQuadraticRel +noSVGPathSegCurvetoQuadraticRel = Nothing +{-# INLINE noSVGPathSegCurvetoQuadraticRel #-} + +gTypeSVGPathSegCurvetoQuadraticRel :: JSM GType +gTypeSVGPathSegCurvetoQuadraticRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticRel" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticSmoothAbs". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegCurvetoQuadraticSmoothAbs = SVGPathSegCurvetoQuadraticSmoothAbs { unSVGPathSegCurvetoQuadraticSmoothAbs :: JSVal } + +instance PToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where + pToJSVal = unSVGPathSegCurvetoQuadraticSmoothAbs + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where + pFromJSVal = SVGPathSegCurvetoQuadraticSmoothAbs + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegCurvetoQuadraticSmoothAbs where + toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothAbs + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegCurvetoQuadraticSmoothAbs where + fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothAbs <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegCurvetoQuadraticSmoothAbs + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegCurvetoQuadraticSmoothAbs where + makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothAbs + +instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothAbs +instance IsGObject SVGPathSegCurvetoQuadraticSmoothAbs where + typeGType _ = gTypeSVGPathSegCurvetoQuadraticSmoothAbs + {-# INLINE typeGType #-} + +noSVGPathSegCurvetoQuadraticSmoothAbs :: Maybe SVGPathSegCurvetoQuadraticSmoothAbs +noSVGPathSegCurvetoQuadraticSmoothAbs = Nothing +{-# INLINE noSVGPathSegCurvetoQuadraticSmoothAbs #-} + +gTypeSVGPathSegCurvetoQuadraticSmoothAbs :: JSM GType +gTypeSVGPathSegCurvetoQuadraticSmoothAbs = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothAbs" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegCurvetoQuadraticSmoothRel". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegCurvetoQuadraticSmoothRel = SVGPathSegCurvetoQuadraticSmoothRel { unSVGPathSegCurvetoQuadraticSmoothRel :: JSVal } + +instance PToJSVal SVGPathSegCurvetoQuadraticSmoothRel where + pToJSVal = unSVGPathSegCurvetoQuadraticSmoothRel + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegCurvetoQuadraticSmoothRel where + pFromJSVal = SVGPathSegCurvetoQuadraticSmoothRel + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegCurvetoQuadraticSmoothRel where + toJSVal = return . unSVGPathSegCurvetoQuadraticSmoothRel + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegCurvetoQuadraticSmoothRel where + fromJSVal v = fmap SVGPathSegCurvetoQuadraticSmoothRel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegCurvetoQuadraticSmoothRel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegCurvetoQuadraticSmoothRel where + makeObject = makeObject . unSVGPathSegCurvetoQuadraticSmoothRel + +instance IsSVGPathSeg SVGPathSegCurvetoQuadraticSmoothRel +instance IsGObject SVGPathSegCurvetoQuadraticSmoothRel where + typeGType _ = gTypeSVGPathSegCurvetoQuadraticSmoothRel + {-# INLINE typeGType #-} + +noSVGPathSegCurvetoQuadraticSmoothRel :: Maybe SVGPathSegCurvetoQuadraticSmoothRel +noSVGPathSegCurvetoQuadraticSmoothRel = Nothing +{-# INLINE noSVGPathSegCurvetoQuadraticSmoothRel #-} + +gTypeSVGPathSegCurvetoQuadraticSmoothRel :: JSM GType +gTypeSVGPathSegCurvetoQuadraticSmoothRel = GType . Object <$> jsg "SVGPathSegCurvetoQuadraticSmoothRel" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoAbs". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegLinetoAbs = SVGPathSegLinetoAbs { unSVGPathSegLinetoAbs :: JSVal } + +instance PToJSVal SVGPathSegLinetoAbs where + pToJSVal = unSVGPathSegLinetoAbs + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegLinetoAbs where + pFromJSVal = SVGPathSegLinetoAbs + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegLinetoAbs where + toJSVal = return . unSVGPathSegLinetoAbs + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegLinetoAbs where + fromJSVal v = fmap SVGPathSegLinetoAbs <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegLinetoAbs + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegLinetoAbs where + makeObject = makeObject . unSVGPathSegLinetoAbs + +instance IsSVGPathSeg SVGPathSegLinetoAbs +instance IsGObject SVGPathSegLinetoAbs where + typeGType _ = gTypeSVGPathSegLinetoAbs + {-# INLINE typeGType #-} + +noSVGPathSegLinetoAbs :: Maybe SVGPathSegLinetoAbs +noSVGPathSegLinetoAbs = Nothing +{-# INLINE noSVGPathSegLinetoAbs #-} + +gTypeSVGPathSegLinetoAbs :: JSM GType +gTypeSVGPathSegLinetoAbs = GType . Object <$> jsg "SVGPathSegLinetoAbs" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoHorizontalAbs". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegLinetoHorizontalAbs = SVGPathSegLinetoHorizontalAbs { unSVGPathSegLinetoHorizontalAbs :: JSVal } + +instance PToJSVal SVGPathSegLinetoHorizontalAbs where + pToJSVal = unSVGPathSegLinetoHorizontalAbs + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegLinetoHorizontalAbs where + pFromJSVal = SVGPathSegLinetoHorizontalAbs + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegLinetoHorizontalAbs where + toJSVal = return . unSVGPathSegLinetoHorizontalAbs + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegLinetoHorizontalAbs where + fromJSVal v = fmap SVGPathSegLinetoHorizontalAbs <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegLinetoHorizontalAbs + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegLinetoHorizontalAbs where + makeObject = makeObject . unSVGPathSegLinetoHorizontalAbs + +instance IsSVGPathSeg SVGPathSegLinetoHorizontalAbs +instance IsGObject SVGPathSegLinetoHorizontalAbs where + typeGType _ = gTypeSVGPathSegLinetoHorizontalAbs + {-# INLINE typeGType #-} + +noSVGPathSegLinetoHorizontalAbs :: Maybe SVGPathSegLinetoHorizontalAbs +noSVGPathSegLinetoHorizontalAbs = Nothing +{-# INLINE noSVGPathSegLinetoHorizontalAbs #-} + +gTypeSVGPathSegLinetoHorizontalAbs :: JSM GType +gTypeSVGPathSegLinetoHorizontalAbs = GType . Object <$> jsg "SVGPathSegLinetoHorizontalAbs" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoHorizontalRel". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegLinetoHorizontalRel = SVGPathSegLinetoHorizontalRel { unSVGPathSegLinetoHorizontalRel :: JSVal } + +instance PToJSVal SVGPathSegLinetoHorizontalRel where + pToJSVal = unSVGPathSegLinetoHorizontalRel + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegLinetoHorizontalRel where + pFromJSVal = SVGPathSegLinetoHorizontalRel + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegLinetoHorizontalRel where + toJSVal = return . unSVGPathSegLinetoHorizontalRel + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegLinetoHorizontalRel where + fromJSVal v = fmap SVGPathSegLinetoHorizontalRel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegLinetoHorizontalRel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegLinetoHorizontalRel where + makeObject = makeObject . unSVGPathSegLinetoHorizontalRel + +instance IsSVGPathSeg SVGPathSegLinetoHorizontalRel +instance IsGObject SVGPathSegLinetoHorizontalRel where + typeGType _ = gTypeSVGPathSegLinetoHorizontalRel + {-# INLINE typeGType #-} + +noSVGPathSegLinetoHorizontalRel :: Maybe SVGPathSegLinetoHorizontalRel +noSVGPathSegLinetoHorizontalRel = Nothing +{-# INLINE noSVGPathSegLinetoHorizontalRel #-} + +gTypeSVGPathSegLinetoHorizontalRel :: JSM GType +gTypeSVGPathSegLinetoHorizontalRel = GType . Object <$> jsg "SVGPathSegLinetoHorizontalRel" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoRel". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegLinetoRel = SVGPathSegLinetoRel { unSVGPathSegLinetoRel :: JSVal } + +instance PToJSVal SVGPathSegLinetoRel where + pToJSVal = unSVGPathSegLinetoRel + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegLinetoRel where + pFromJSVal = SVGPathSegLinetoRel + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegLinetoRel where + toJSVal = return . unSVGPathSegLinetoRel + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegLinetoRel where + fromJSVal v = fmap SVGPathSegLinetoRel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegLinetoRel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegLinetoRel where + makeObject = makeObject . unSVGPathSegLinetoRel + +instance IsSVGPathSeg SVGPathSegLinetoRel +instance IsGObject SVGPathSegLinetoRel where + typeGType _ = gTypeSVGPathSegLinetoRel + {-# INLINE typeGType #-} + +noSVGPathSegLinetoRel :: Maybe SVGPathSegLinetoRel +noSVGPathSegLinetoRel = Nothing +{-# INLINE noSVGPathSegLinetoRel #-} + +gTypeSVGPathSegLinetoRel :: JSM GType +gTypeSVGPathSegLinetoRel = GType . Object <$> jsg "SVGPathSegLinetoRel" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoVerticalAbs". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegLinetoVerticalAbs = SVGPathSegLinetoVerticalAbs { unSVGPathSegLinetoVerticalAbs :: JSVal } + +instance PToJSVal SVGPathSegLinetoVerticalAbs where + pToJSVal = unSVGPathSegLinetoVerticalAbs + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegLinetoVerticalAbs where + pFromJSVal = SVGPathSegLinetoVerticalAbs + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegLinetoVerticalAbs where + toJSVal = return . unSVGPathSegLinetoVerticalAbs + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegLinetoVerticalAbs where + fromJSVal v = fmap SVGPathSegLinetoVerticalAbs <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegLinetoVerticalAbs + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegLinetoVerticalAbs where + makeObject = makeObject . unSVGPathSegLinetoVerticalAbs + +instance IsSVGPathSeg SVGPathSegLinetoVerticalAbs +instance IsGObject SVGPathSegLinetoVerticalAbs where + typeGType _ = gTypeSVGPathSegLinetoVerticalAbs + {-# INLINE typeGType #-} + +noSVGPathSegLinetoVerticalAbs :: Maybe SVGPathSegLinetoVerticalAbs +noSVGPathSegLinetoVerticalAbs = Nothing +{-# INLINE noSVGPathSegLinetoVerticalAbs #-} + +gTypeSVGPathSegLinetoVerticalAbs :: JSM GType +gTypeSVGPathSegLinetoVerticalAbs = GType . Object <$> jsg "SVGPathSegLinetoVerticalAbs" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegLinetoVerticalRel". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegLinetoVerticalRel = SVGPathSegLinetoVerticalRel { unSVGPathSegLinetoVerticalRel :: JSVal } + +instance PToJSVal SVGPathSegLinetoVerticalRel where + pToJSVal = unSVGPathSegLinetoVerticalRel + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegLinetoVerticalRel where + pFromJSVal = SVGPathSegLinetoVerticalRel + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegLinetoVerticalRel where + toJSVal = return . unSVGPathSegLinetoVerticalRel + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegLinetoVerticalRel where + fromJSVal v = fmap SVGPathSegLinetoVerticalRel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegLinetoVerticalRel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegLinetoVerticalRel where + makeObject = makeObject . unSVGPathSegLinetoVerticalRel + +instance IsSVGPathSeg SVGPathSegLinetoVerticalRel +instance IsGObject SVGPathSegLinetoVerticalRel where + typeGType _ = gTypeSVGPathSegLinetoVerticalRel + {-# INLINE typeGType #-} + +noSVGPathSegLinetoVerticalRel :: Maybe SVGPathSegLinetoVerticalRel +noSVGPathSegLinetoVerticalRel = Nothing +{-# INLINE noSVGPathSegLinetoVerticalRel #-} + +gTypeSVGPathSegLinetoVerticalRel :: JSM GType +gTypeSVGPathSegLinetoVerticalRel = GType . Object <$> jsg "SVGPathSegLinetoVerticalRel" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegList". +-- +-- +newtype SVGPathSegList = SVGPathSegList { unSVGPathSegList :: JSVal } + +instance PToJSVal SVGPathSegList where + pToJSVal = unSVGPathSegList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegList where + pFromJSVal = SVGPathSegList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegList where + toJSVal = return . unSVGPathSegList + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegList where + fromJSVal v = fmap SVGPathSegList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegList where + makeObject = makeObject . unSVGPathSegList + +instance IsGObject SVGPathSegList where + typeGType _ = gTypeSVGPathSegList + {-# INLINE typeGType #-} + +noSVGPathSegList :: Maybe SVGPathSegList +noSVGPathSegList = Nothing +{-# INLINE noSVGPathSegList #-} + +gTypeSVGPathSegList :: JSM GType +gTypeSVGPathSegList = GType . Object <$> jsg "SVGPathSegList" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegMovetoAbs". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegMovetoAbs = SVGPathSegMovetoAbs { unSVGPathSegMovetoAbs :: JSVal } + +instance PToJSVal SVGPathSegMovetoAbs where + pToJSVal = unSVGPathSegMovetoAbs + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegMovetoAbs where + pFromJSVal = SVGPathSegMovetoAbs + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegMovetoAbs where + toJSVal = return . unSVGPathSegMovetoAbs + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegMovetoAbs where + fromJSVal v = fmap SVGPathSegMovetoAbs <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegMovetoAbs + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegMovetoAbs where + makeObject = makeObject . unSVGPathSegMovetoAbs + +instance IsSVGPathSeg SVGPathSegMovetoAbs +instance IsGObject SVGPathSegMovetoAbs where + typeGType _ = gTypeSVGPathSegMovetoAbs + {-# INLINE typeGType #-} + +noSVGPathSegMovetoAbs :: Maybe SVGPathSegMovetoAbs +noSVGPathSegMovetoAbs = Nothing +{-# INLINE noSVGPathSegMovetoAbs #-} + +gTypeSVGPathSegMovetoAbs :: JSM GType +gTypeSVGPathSegMovetoAbs = GType . Object <$> jsg "SVGPathSegMovetoAbs" + +-- | Functions for this inteface are in "JSDOM.SVGPathSegMovetoRel". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGPathSeg" +-- +-- +newtype SVGPathSegMovetoRel = SVGPathSegMovetoRel { unSVGPathSegMovetoRel :: JSVal } + +instance PToJSVal SVGPathSegMovetoRel where + pToJSVal = unSVGPathSegMovetoRel + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPathSegMovetoRel where + pFromJSVal = SVGPathSegMovetoRel + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPathSegMovetoRel where + toJSVal = return . unSVGPathSegMovetoRel + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPathSegMovetoRel where + fromJSVal v = fmap SVGPathSegMovetoRel <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPathSegMovetoRel + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPathSegMovetoRel where + makeObject = makeObject . unSVGPathSegMovetoRel + +instance IsSVGPathSeg SVGPathSegMovetoRel +instance IsGObject SVGPathSegMovetoRel where + typeGType _ = gTypeSVGPathSegMovetoRel + {-# INLINE typeGType #-} + +noSVGPathSegMovetoRel :: Maybe SVGPathSegMovetoRel +noSVGPathSegMovetoRel = Nothing +{-# INLINE noSVGPathSegMovetoRel #-} + +gTypeSVGPathSegMovetoRel :: JSM GType +gTypeSVGPathSegMovetoRel = GType . Object <$> jsg "SVGPathSegMovetoRel" + +-- | Functions for this inteface are in "JSDOM.SVGPatternElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGFitToViewBox" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGPatternElement = SVGPatternElement { unSVGPatternElement :: JSVal } + +instance PToJSVal SVGPatternElement where + pToJSVal = unSVGPatternElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPatternElement where + pFromJSVal = SVGPatternElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPatternElement where + toJSVal = return . unSVGPatternElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPatternElement where + fromJSVal v = fmap SVGPatternElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPatternElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPatternElement where + makeObject = makeObject . unSVGPatternElement + +instance IsSVGElement SVGPatternElement +instance IsElement SVGPatternElement +instance IsNode SVGPatternElement +instance IsEventTarget SVGPatternElement +instance IsSlotable SVGPatternElement +instance IsParentNode SVGPatternElement +instance IsNonDocumentTypeChildNode SVGPatternElement +instance IsDocumentAndElementEventHandlers SVGPatternElement +instance IsChildNode SVGPatternElement +instance IsAnimatable SVGPatternElement +instance IsGlobalEventHandlers SVGPatternElement +instance IsElementCSSInlineStyle SVGPatternElement +instance IsSVGURIReference SVGPatternElement +instance IsSVGTests SVGPatternElement +instance IsSVGFitToViewBox SVGPatternElement +instance IsSVGExternalResourcesRequired SVGPatternElement +instance IsGObject SVGPatternElement where + typeGType _ = gTypeSVGPatternElement + {-# INLINE typeGType #-} + +noSVGPatternElement :: Maybe SVGPatternElement +noSVGPatternElement = Nothing +{-# INLINE noSVGPatternElement #-} + +gTypeSVGPatternElement :: JSM GType +gTypeSVGPatternElement = GType . Object <$> jsg "SVGPatternElement" + +-- | Functions for this inteface are in "JSDOM.SVGPoint". +-- +-- +newtype SVGPoint = SVGPoint { unSVGPoint :: JSVal } + +instance PToJSVal SVGPoint where + pToJSVal = unSVGPoint + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPoint where + pFromJSVal = SVGPoint + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPoint where + toJSVal = return . unSVGPoint + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPoint where + fromJSVal v = fmap SVGPoint <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPoint + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPoint where + makeObject = makeObject . unSVGPoint + +instance IsGObject SVGPoint where + typeGType _ = gTypeSVGPoint + {-# INLINE typeGType #-} + +noSVGPoint :: Maybe SVGPoint +noSVGPoint = Nothing +{-# INLINE noSVGPoint #-} + +gTypeSVGPoint :: JSM GType +gTypeSVGPoint = GType . Object <$> jsg "SVGPoint" + +-- | Functions for this inteface are in "JSDOM.SVGPointList". +-- +-- +newtype SVGPointList = SVGPointList { unSVGPointList :: JSVal } + +instance PToJSVal SVGPointList where + pToJSVal = unSVGPointList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPointList where + pFromJSVal = SVGPointList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPointList where + toJSVal = return . unSVGPointList + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPointList where + fromJSVal v = fmap SVGPointList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPointList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPointList where + makeObject = makeObject . unSVGPointList + +instance IsGObject SVGPointList where + typeGType _ = gTypeSVGPointList + {-# INLINE typeGType #-} + +noSVGPointList :: Maybe SVGPointList +noSVGPointList = Nothing +{-# INLINE noSVGPointList #-} + +gTypeSVGPointList :: JSM GType +gTypeSVGPointList = GType . Object <$> jsg "SVGPointList" + +-- | Functions for this inteface are in "JSDOM.SVGPolygonElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGPolygonElement = SVGPolygonElement { unSVGPolygonElement :: JSVal } + +instance PToJSVal SVGPolygonElement where + pToJSVal = unSVGPolygonElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPolygonElement where + pFromJSVal = SVGPolygonElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPolygonElement where + toJSVal = return . unSVGPolygonElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPolygonElement where + fromJSVal v = fmap SVGPolygonElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPolygonElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPolygonElement where + makeObject = makeObject . unSVGPolygonElement + +instance IsSVGGraphicsElement SVGPolygonElement +instance IsSVGElement SVGPolygonElement +instance IsElement SVGPolygonElement +instance IsNode SVGPolygonElement +instance IsEventTarget SVGPolygonElement +instance IsSlotable SVGPolygonElement +instance IsParentNode SVGPolygonElement +instance IsNonDocumentTypeChildNode SVGPolygonElement +instance IsDocumentAndElementEventHandlers SVGPolygonElement +instance IsChildNode SVGPolygonElement +instance IsAnimatable SVGPolygonElement +instance IsGlobalEventHandlers SVGPolygonElement +instance IsElementCSSInlineStyle SVGPolygonElement +instance IsSVGTests SVGPolygonElement +instance IsSVGExternalResourcesRequired SVGPolygonElement +instance IsGObject SVGPolygonElement where + typeGType _ = gTypeSVGPolygonElement + {-# INLINE typeGType #-} + +noSVGPolygonElement :: Maybe SVGPolygonElement +noSVGPolygonElement = Nothing +{-# INLINE noSVGPolygonElement #-} + +gTypeSVGPolygonElement :: JSM GType +gTypeSVGPolygonElement = GType . Object <$> jsg "SVGPolygonElement" + +-- | Functions for this inteface are in "JSDOM.SVGPolylineElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGPolylineElement = SVGPolylineElement { unSVGPolylineElement :: JSVal } + +instance PToJSVal SVGPolylineElement where + pToJSVal = unSVGPolylineElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPolylineElement where + pFromJSVal = SVGPolylineElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPolylineElement where + toJSVal = return . unSVGPolylineElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPolylineElement where + fromJSVal v = fmap SVGPolylineElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPolylineElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPolylineElement where + makeObject = makeObject . unSVGPolylineElement + +instance IsSVGGraphicsElement SVGPolylineElement +instance IsSVGElement SVGPolylineElement +instance IsElement SVGPolylineElement +instance IsNode SVGPolylineElement +instance IsEventTarget SVGPolylineElement +instance IsSlotable SVGPolylineElement +instance IsParentNode SVGPolylineElement +instance IsNonDocumentTypeChildNode SVGPolylineElement +instance IsDocumentAndElementEventHandlers SVGPolylineElement +instance IsChildNode SVGPolylineElement +instance IsAnimatable SVGPolylineElement +instance IsGlobalEventHandlers SVGPolylineElement +instance IsElementCSSInlineStyle SVGPolylineElement +instance IsSVGTests SVGPolylineElement +instance IsSVGExternalResourcesRequired SVGPolylineElement +instance IsGObject SVGPolylineElement where + typeGType _ = gTypeSVGPolylineElement + {-# INLINE typeGType #-} + +noSVGPolylineElement :: Maybe SVGPolylineElement +noSVGPolylineElement = Nothing +{-# INLINE noSVGPolylineElement #-} + +gTypeSVGPolylineElement :: JSM GType +gTypeSVGPolylineElement = GType . Object <$> jsg "SVGPolylineElement" + +-- | Functions for this inteface are in "JSDOM.SVGPreserveAspectRatio". +-- +-- +newtype SVGPreserveAspectRatio = SVGPreserveAspectRatio { unSVGPreserveAspectRatio :: JSVal } + +instance PToJSVal SVGPreserveAspectRatio where + pToJSVal = unSVGPreserveAspectRatio + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGPreserveAspectRatio where + pFromJSVal = SVGPreserveAspectRatio + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGPreserveAspectRatio where + toJSVal = return . unSVGPreserveAspectRatio + {-# INLINE toJSVal #-} + +instance FromJSVal SVGPreserveAspectRatio where + fromJSVal v = fmap SVGPreserveAspectRatio <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGPreserveAspectRatio + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGPreserveAspectRatio where + makeObject = makeObject . unSVGPreserveAspectRatio + +instance IsGObject SVGPreserveAspectRatio where + typeGType _ = gTypeSVGPreserveAspectRatio + {-# INLINE typeGType #-} + +noSVGPreserveAspectRatio :: Maybe SVGPreserveAspectRatio +noSVGPreserveAspectRatio = Nothing +{-# INLINE noSVGPreserveAspectRatio #-} + +gTypeSVGPreserveAspectRatio :: JSM GType +gTypeSVGPreserveAspectRatio = GType . Object <$> jsg "SVGPreserveAspectRatio" + +-- | Functions for this inteface are in "JSDOM.SVGRadialGradientElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGradientElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGRadialGradientElement = SVGRadialGradientElement { unSVGRadialGradientElement :: JSVal } + +instance PToJSVal SVGRadialGradientElement where + pToJSVal = unSVGRadialGradientElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGRadialGradientElement where + pFromJSVal = SVGRadialGradientElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGRadialGradientElement where + toJSVal = return . unSVGRadialGradientElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGRadialGradientElement where + fromJSVal v = fmap SVGRadialGradientElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGRadialGradientElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGRadialGradientElement where + makeObject = makeObject . unSVGRadialGradientElement + +instance IsSVGGradientElement SVGRadialGradientElement +instance IsSVGElement SVGRadialGradientElement +instance IsElement SVGRadialGradientElement +instance IsNode SVGRadialGradientElement +instance IsEventTarget SVGRadialGradientElement +instance IsSlotable SVGRadialGradientElement +instance IsParentNode SVGRadialGradientElement +instance IsNonDocumentTypeChildNode SVGRadialGradientElement +instance IsDocumentAndElementEventHandlers SVGRadialGradientElement +instance IsChildNode SVGRadialGradientElement +instance IsAnimatable SVGRadialGradientElement +instance IsGlobalEventHandlers SVGRadialGradientElement +instance IsElementCSSInlineStyle SVGRadialGradientElement +instance IsSVGURIReference SVGRadialGradientElement +instance IsSVGExternalResourcesRequired SVGRadialGradientElement +instance IsGObject SVGRadialGradientElement where + typeGType _ = gTypeSVGRadialGradientElement + {-# INLINE typeGType #-} + +noSVGRadialGradientElement :: Maybe SVGRadialGradientElement +noSVGRadialGradientElement = Nothing +{-# INLINE noSVGRadialGradientElement #-} + +gTypeSVGRadialGradientElement :: JSM GType +gTypeSVGRadialGradientElement = GType . Object <$> jsg "SVGRadialGradientElement" + +-- | Functions for this inteface are in "JSDOM.SVGRect". +-- +-- +newtype SVGRect = SVGRect { unSVGRect :: JSVal } + +instance PToJSVal SVGRect where + pToJSVal = unSVGRect + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGRect where + pFromJSVal = SVGRect + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGRect where + toJSVal = return . unSVGRect + {-# INLINE toJSVal #-} + +instance FromJSVal SVGRect where + fromJSVal v = fmap SVGRect <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGRect + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGRect where + makeObject = makeObject . unSVGRect + +instance IsGObject SVGRect where + typeGType _ = gTypeSVGRect + {-# INLINE typeGType #-} + +noSVGRect :: Maybe SVGRect +noSVGRect = Nothing +{-# INLINE noSVGRect #-} + +gTypeSVGRect :: JSM GType +gTypeSVGRect = GType . Object <$> jsg "SVGRect" + +-- | Functions for this inteface are in "JSDOM.SVGRectElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGRectElement = SVGRectElement { unSVGRectElement :: JSVal } + +instance PToJSVal SVGRectElement where + pToJSVal = unSVGRectElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGRectElement where + pFromJSVal = SVGRectElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGRectElement where + toJSVal = return . unSVGRectElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGRectElement where + fromJSVal v = fmap SVGRectElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGRectElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGRectElement where + makeObject = makeObject . unSVGRectElement + +instance IsSVGGraphicsElement SVGRectElement +instance IsSVGElement SVGRectElement +instance IsElement SVGRectElement +instance IsNode SVGRectElement +instance IsEventTarget SVGRectElement +instance IsSlotable SVGRectElement +instance IsParentNode SVGRectElement +instance IsNonDocumentTypeChildNode SVGRectElement +instance IsDocumentAndElementEventHandlers SVGRectElement +instance IsChildNode SVGRectElement +instance IsAnimatable SVGRectElement +instance IsGlobalEventHandlers SVGRectElement +instance IsElementCSSInlineStyle SVGRectElement +instance IsSVGTests SVGRectElement +instance IsSVGExternalResourcesRequired SVGRectElement +instance IsGObject SVGRectElement where + typeGType _ = gTypeSVGRectElement + {-# INLINE typeGType #-} + +noSVGRectElement :: Maybe SVGRectElement +noSVGRectElement = Nothing +{-# INLINE noSVGRectElement #-} + +gTypeSVGRectElement :: JSM GType +gTypeSVGRectElement = GType . Object <$> jsg "SVGRectElement" + +-- | Functions for this inteface are in "JSDOM.SVGRenderingIntent". +-- +-- +newtype SVGRenderingIntent = SVGRenderingIntent { unSVGRenderingIntent :: JSVal } + +instance PToJSVal SVGRenderingIntent where + pToJSVal = unSVGRenderingIntent + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGRenderingIntent where + pFromJSVal = SVGRenderingIntent + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGRenderingIntent where + toJSVal = return . unSVGRenderingIntent + {-# INLINE toJSVal #-} + +instance FromJSVal SVGRenderingIntent where + fromJSVal v = fmap SVGRenderingIntent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGRenderingIntent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGRenderingIntent where + makeObject = makeObject . unSVGRenderingIntent + +instance IsGObject SVGRenderingIntent where + typeGType _ = gTypeSVGRenderingIntent + {-# INLINE typeGType #-} + +noSVGRenderingIntent :: Maybe SVGRenderingIntent +noSVGRenderingIntent = Nothing +{-# INLINE noSVGRenderingIntent #-} + +gTypeSVGRenderingIntent :: JSM GType +gTypeSVGRenderingIntent = GType . Object <$> jsg "SVGRenderingIntent" + +-- | Functions for this inteface are in "JSDOM.SVGSVGElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGZoomAndPan" +-- * "JSDOM.SVGFitToViewBox" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGSVGElement = SVGSVGElement { unSVGSVGElement :: JSVal } + +instance PToJSVal SVGSVGElement where + pToJSVal = unSVGSVGElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGSVGElement where + pFromJSVal = SVGSVGElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGSVGElement where + toJSVal = return . unSVGSVGElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGSVGElement where + fromJSVal v = fmap SVGSVGElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGSVGElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGSVGElement where + makeObject = makeObject . unSVGSVGElement + +instance IsSVGGraphicsElement SVGSVGElement +instance IsSVGElement SVGSVGElement +instance IsElement SVGSVGElement +instance IsNode SVGSVGElement +instance IsEventTarget SVGSVGElement +instance IsSlotable SVGSVGElement +instance IsParentNode SVGSVGElement +instance IsNonDocumentTypeChildNode SVGSVGElement +instance IsDocumentAndElementEventHandlers SVGSVGElement +instance IsChildNode SVGSVGElement +instance IsAnimatable SVGSVGElement +instance IsGlobalEventHandlers SVGSVGElement +instance IsElementCSSInlineStyle SVGSVGElement +instance IsSVGTests SVGSVGElement +instance IsSVGZoomAndPan SVGSVGElement +instance IsSVGFitToViewBox SVGSVGElement +instance IsSVGExternalResourcesRequired SVGSVGElement +instance IsGObject SVGSVGElement where + typeGType _ = gTypeSVGSVGElement + {-# INLINE typeGType #-} + +noSVGSVGElement :: Maybe SVGSVGElement +noSVGSVGElement = Nothing +{-# INLINE noSVGSVGElement #-} + +gTypeSVGSVGElement :: JSM GType +gTypeSVGSVGElement = GType . Object <$> jsg "SVGSVGElement" + +-- | Functions for this inteface are in "JSDOM.SVGScriptElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGScriptElement = SVGScriptElement { unSVGScriptElement :: JSVal } + +instance PToJSVal SVGScriptElement where + pToJSVal = unSVGScriptElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGScriptElement where + pFromJSVal = SVGScriptElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGScriptElement where + toJSVal = return . unSVGScriptElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGScriptElement where + fromJSVal v = fmap SVGScriptElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGScriptElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGScriptElement where + makeObject = makeObject . unSVGScriptElement + +instance IsSVGElement SVGScriptElement +instance IsElement SVGScriptElement +instance IsNode SVGScriptElement +instance IsEventTarget SVGScriptElement +instance IsSlotable SVGScriptElement +instance IsParentNode SVGScriptElement +instance IsNonDocumentTypeChildNode SVGScriptElement +instance IsDocumentAndElementEventHandlers SVGScriptElement +instance IsChildNode SVGScriptElement +instance IsAnimatable SVGScriptElement +instance IsGlobalEventHandlers SVGScriptElement +instance IsElementCSSInlineStyle SVGScriptElement +instance IsSVGURIReference SVGScriptElement +instance IsSVGExternalResourcesRequired SVGScriptElement +instance IsGObject SVGScriptElement where + typeGType _ = gTypeSVGScriptElement + {-# INLINE typeGType #-} + +noSVGScriptElement :: Maybe SVGScriptElement +noSVGScriptElement = Nothing +{-# INLINE noSVGScriptElement #-} + +gTypeSVGScriptElement :: JSM GType +gTypeSVGScriptElement = GType . Object <$> jsg "SVGScriptElement" + +-- | Functions for this inteface are in "JSDOM.SVGSetElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGAnimationElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGSetElement = SVGSetElement { unSVGSetElement :: JSVal } + +instance PToJSVal SVGSetElement where + pToJSVal = unSVGSetElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGSetElement where + pFromJSVal = SVGSetElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGSetElement where + toJSVal = return . unSVGSetElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGSetElement where + fromJSVal v = fmap SVGSetElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGSetElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGSetElement where + makeObject = makeObject . unSVGSetElement + +instance IsSVGAnimationElement SVGSetElement +instance IsSVGElement SVGSetElement +instance IsElement SVGSetElement +instance IsNode SVGSetElement +instance IsEventTarget SVGSetElement +instance IsSlotable SVGSetElement +instance IsParentNode SVGSetElement +instance IsNonDocumentTypeChildNode SVGSetElement +instance IsDocumentAndElementEventHandlers SVGSetElement +instance IsChildNode SVGSetElement +instance IsAnimatable SVGSetElement +instance IsGlobalEventHandlers SVGSetElement +instance IsElementCSSInlineStyle SVGSetElement +instance IsSVGTests SVGSetElement +instance IsSVGExternalResourcesRequired SVGSetElement +instance IsGObject SVGSetElement where + typeGType _ = gTypeSVGSetElement + {-# INLINE typeGType #-} + +noSVGSetElement :: Maybe SVGSetElement +noSVGSetElement = Nothing +{-# INLINE noSVGSetElement #-} + +gTypeSVGSetElement :: JSM GType +gTypeSVGSetElement = GType . Object <$> jsg "SVGSetElement" + +-- | Functions for this inteface are in "JSDOM.SVGStopElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGStopElement = SVGStopElement { unSVGStopElement :: JSVal } + +instance PToJSVal SVGStopElement where + pToJSVal = unSVGStopElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGStopElement where + pFromJSVal = SVGStopElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGStopElement where + toJSVal = return . unSVGStopElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGStopElement where + fromJSVal v = fmap SVGStopElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGStopElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGStopElement where + makeObject = makeObject . unSVGStopElement + +instance IsSVGElement SVGStopElement +instance IsElement SVGStopElement +instance IsNode SVGStopElement +instance IsEventTarget SVGStopElement +instance IsSlotable SVGStopElement +instance IsParentNode SVGStopElement +instance IsNonDocumentTypeChildNode SVGStopElement +instance IsDocumentAndElementEventHandlers SVGStopElement +instance IsChildNode SVGStopElement +instance IsAnimatable SVGStopElement +instance IsGlobalEventHandlers SVGStopElement +instance IsElementCSSInlineStyle SVGStopElement +instance IsGObject SVGStopElement where + typeGType _ = gTypeSVGStopElement + {-# INLINE typeGType #-} + +noSVGStopElement :: Maybe SVGStopElement +noSVGStopElement = Nothing +{-# INLINE noSVGStopElement #-} + +gTypeSVGStopElement :: JSM GType +gTypeSVGStopElement = GType . Object <$> jsg "SVGStopElement" + +-- | Functions for this inteface are in "JSDOM.SVGStringList". +-- +-- +newtype SVGStringList = SVGStringList { unSVGStringList :: JSVal } + +instance PToJSVal SVGStringList where + pToJSVal = unSVGStringList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGStringList where + pFromJSVal = SVGStringList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGStringList where + toJSVal = return . unSVGStringList + {-# INLINE toJSVal #-} + +instance FromJSVal SVGStringList where + fromJSVal v = fmap SVGStringList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGStringList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGStringList where + makeObject = makeObject . unSVGStringList + +instance IsGObject SVGStringList where + typeGType _ = gTypeSVGStringList + {-# INLINE typeGType #-} + +noSVGStringList :: Maybe SVGStringList +noSVGStringList = Nothing +{-# INLINE noSVGStringList #-} + +gTypeSVGStringList :: JSM GType +gTypeSVGStringList = GType . Object <$> jsg "SVGStringList" + +-- | Functions for this inteface are in "JSDOM.SVGStyleElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGStyleElement = SVGStyleElement { unSVGStyleElement :: JSVal } + +instance PToJSVal SVGStyleElement where + pToJSVal = unSVGStyleElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGStyleElement where + pFromJSVal = SVGStyleElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGStyleElement where + toJSVal = return . unSVGStyleElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGStyleElement where + fromJSVal v = fmap SVGStyleElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGStyleElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGStyleElement where + makeObject = makeObject . unSVGStyleElement + +instance IsSVGElement SVGStyleElement +instance IsElement SVGStyleElement +instance IsNode SVGStyleElement +instance IsEventTarget SVGStyleElement +instance IsSlotable SVGStyleElement +instance IsParentNode SVGStyleElement +instance IsNonDocumentTypeChildNode SVGStyleElement +instance IsDocumentAndElementEventHandlers SVGStyleElement +instance IsChildNode SVGStyleElement +instance IsAnimatable SVGStyleElement +instance IsGlobalEventHandlers SVGStyleElement +instance IsElementCSSInlineStyle SVGStyleElement +instance IsGObject SVGStyleElement where + typeGType _ = gTypeSVGStyleElement + {-# INLINE typeGType #-} + +noSVGStyleElement :: Maybe SVGStyleElement +noSVGStyleElement = Nothing +{-# INLINE noSVGStyleElement #-} + +gTypeSVGStyleElement :: JSM GType +gTypeSVGStyleElement = GType . Object <$> jsg "SVGStyleElement" + +-- | Functions for this inteface are in "JSDOM.SVGSwitchElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGSwitchElement = SVGSwitchElement { unSVGSwitchElement :: JSVal } + +instance PToJSVal SVGSwitchElement where + pToJSVal = unSVGSwitchElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGSwitchElement where + pFromJSVal = SVGSwitchElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGSwitchElement where + toJSVal = return . unSVGSwitchElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGSwitchElement where + fromJSVal v = fmap SVGSwitchElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGSwitchElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGSwitchElement where + makeObject = makeObject . unSVGSwitchElement + +instance IsSVGGraphicsElement SVGSwitchElement +instance IsSVGElement SVGSwitchElement +instance IsElement SVGSwitchElement +instance IsNode SVGSwitchElement +instance IsEventTarget SVGSwitchElement +instance IsSlotable SVGSwitchElement +instance IsParentNode SVGSwitchElement +instance IsNonDocumentTypeChildNode SVGSwitchElement +instance IsDocumentAndElementEventHandlers SVGSwitchElement +instance IsChildNode SVGSwitchElement +instance IsAnimatable SVGSwitchElement +instance IsGlobalEventHandlers SVGSwitchElement +instance IsElementCSSInlineStyle SVGSwitchElement +instance IsSVGTests SVGSwitchElement +instance IsSVGExternalResourcesRequired SVGSwitchElement +instance IsGObject SVGSwitchElement where + typeGType _ = gTypeSVGSwitchElement + {-# INLINE typeGType #-} + +noSVGSwitchElement :: Maybe SVGSwitchElement +noSVGSwitchElement = Nothing +{-# INLINE noSVGSwitchElement #-} + +gTypeSVGSwitchElement :: JSM GType +gTypeSVGSwitchElement = GType . Object <$> jsg "SVGSwitchElement" + +-- | Functions for this inteface are in "JSDOM.SVGSymbolElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGFitToViewBox" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGSymbolElement = SVGSymbolElement { unSVGSymbolElement :: JSVal } + +instance PToJSVal SVGSymbolElement where + pToJSVal = unSVGSymbolElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGSymbolElement where + pFromJSVal = SVGSymbolElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGSymbolElement where + toJSVal = return . unSVGSymbolElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGSymbolElement where + fromJSVal v = fmap SVGSymbolElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGSymbolElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGSymbolElement where + makeObject = makeObject . unSVGSymbolElement + +instance IsSVGElement SVGSymbolElement +instance IsElement SVGSymbolElement +instance IsNode SVGSymbolElement +instance IsEventTarget SVGSymbolElement +instance IsSlotable SVGSymbolElement +instance IsParentNode SVGSymbolElement +instance IsNonDocumentTypeChildNode SVGSymbolElement +instance IsDocumentAndElementEventHandlers SVGSymbolElement +instance IsChildNode SVGSymbolElement +instance IsAnimatable SVGSymbolElement +instance IsGlobalEventHandlers SVGSymbolElement +instance IsElementCSSInlineStyle SVGSymbolElement +instance IsSVGFitToViewBox SVGSymbolElement +instance IsSVGExternalResourcesRequired SVGSymbolElement +instance IsGObject SVGSymbolElement where + typeGType _ = gTypeSVGSymbolElement + {-# INLINE typeGType #-} + +noSVGSymbolElement :: Maybe SVGSymbolElement +noSVGSymbolElement = Nothing +{-# INLINE noSVGSymbolElement #-} + +gTypeSVGSymbolElement :: JSM GType +gTypeSVGSymbolElement = GType . Object <$> jsg "SVGSymbolElement" + +-- | Functions for this inteface are in "JSDOM.SVGTRefElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGTextPositioningElement" +-- * "JSDOM.SVGTextContentElement" +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- * "JSDOM.SVGURIReference" +-- +-- +newtype SVGTRefElement = SVGTRefElement { unSVGTRefElement :: JSVal } + +instance PToJSVal SVGTRefElement where + pToJSVal = unSVGTRefElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTRefElement where + pFromJSVal = SVGTRefElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTRefElement where + toJSVal = return . unSVGTRefElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTRefElement where + fromJSVal v = fmap SVGTRefElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTRefElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTRefElement where + makeObject = makeObject . unSVGTRefElement + +instance IsSVGTextPositioningElement SVGTRefElement +instance IsSVGTextContentElement SVGTRefElement +instance IsSVGGraphicsElement SVGTRefElement +instance IsSVGElement SVGTRefElement +instance IsElement SVGTRefElement +instance IsNode SVGTRefElement +instance IsEventTarget SVGTRefElement +instance IsSlotable SVGTRefElement +instance IsParentNode SVGTRefElement +instance IsNonDocumentTypeChildNode SVGTRefElement +instance IsDocumentAndElementEventHandlers SVGTRefElement +instance IsChildNode SVGTRefElement +instance IsAnimatable SVGTRefElement +instance IsGlobalEventHandlers SVGTRefElement +instance IsElementCSSInlineStyle SVGTRefElement +instance IsSVGTests SVGTRefElement +instance IsSVGExternalResourcesRequired SVGTRefElement +instance IsSVGURIReference SVGTRefElement +instance IsGObject SVGTRefElement where + typeGType _ = gTypeSVGTRefElement + {-# INLINE typeGType #-} + +noSVGTRefElement :: Maybe SVGTRefElement +noSVGTRefElement = Nothing +{-# INLINE noSVGTRefElement #-} + +gTypeSVGTRefElement :: JSM GType +gTypeSVGTRefElement = GType . Object <$> jsg "SVGTRefElement" + +-- | Functions for this inteface are in "JSDOM.SVGTSpanElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGTextPositioningElement" +-- * "JSDOM.SVGTextContentElement" +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGTSpanElement = SVGTSpanElement { unSVGTSpanElement :: JSVal } + +instance PToJSVal SVGTSpanElement where + pToJSVal = unSVGTSpanElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTSpanElement where + pFromJSVal = SVGTSpanElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTSpanElement where + toJSVal = return . unSVGTSpanElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTSpanElement where + fromJSVal v = fmap SVGTSpanElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTSpanElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTSpanElement where + makeObject = makeObject . unSVGTSpanElement + +instance IsSVGTextPositioningElement SVGTSpanElement +instance IsSVGTextContentElement SVGTSpanElement +instance IsSVGGraphicsElement SVGTSpanElement +instance IsSVGElement SVGTSpanElement +instance IsElement SVGTSpanElement +instance IsNode SVGTSpanElement +instance IsEventTarget SVGTSpanElement +instance IsSlotable SVGTSpanElement +instance IsParentNode SVGTSpanElement +instance IsNonDocumentTypeChildNode SVGTSpanElement +instance IsDocumentAndElementEventHandlers SVGTSpanElement +instance IsChildNode SVGTSpanElement +instance IsAnimatable SVGTSpanElement +instance IsGlobalEventHandlers SVGTSpanElement +instance IsElementCSSInlineStyle SVGTSpanElement +instance IsSVGTests SVGTSpanElement +instance IsSVGExternalResourcesRequired SVGTSpanElement +instance IsGObject SVGTSpanElement where + typeGType _ = gTypeSVGTSpanElement + {-# INLINE typeGType #-} + +noSVGTSpanElement :: Maybe SVGTSpanElement +noSVGTSpanElement = Nothing +{-# INLINE noSVGTSpanElement #-} + +gTypeSVGTSpanElement :: JSM GType +gTypeSVGTSpanElement = GType . Object <$> jsg "SVGTSpanElement" + +-- | Functions for this inteface are in "JSDOM.SVGTests". +-- +-- +newtype SVGTests = SVGTests { unSVGTests :: JSVal } + +instance PToJSVal SVGTests where + pToJSVal = unSVGTests + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTests where + pFromJSVal = SVGTests + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTests where + toJSVal = return . unSVGTests + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTests where + fromJSVal v = fmap SVGTests <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTests + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTests where + makeObject = makeObject . unSVGTests + +class (IsGObject o) => IsSVGTests o +toSVGTests :: IsSVGTests o => o -> SVGTests +toSVGTests = SVGTests . coerce + +instance IsSVGTests SVGTests +instance IsGObject SVGTests where + typeGType _ = gTypeSVGTests + {-# INLINE typeGType #-} + +noSVGTests :: Maybe SVGTests +noSVGTests = Nothing +{-# INLINE noSVGTests #-} + +gTypeSVGTests :: JSM GType +gTypeSVGTests = GType . Object <$> jsg "SVGTests" + +-- | Functions for this inteface are in "JSDOM.SVGTextContentElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGTextContentElement = SVGTextContentElement { unSVGTextContentElement :: JSVal } + +instance PToJSVal SVGTextContentElement where + pToJSVal = unSVGTextContentElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTextContentElement where + pFromJSVal = SVGTextContentElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTextContentElement where + toJSVal = return . unSVGTextContentElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTextContentElement where + fromJSVal v = fmap SVGTextContentElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTextContentElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTextContentElement where + makeObject = makeObject . unSVGTextContentElement + +class (IsSVGGraphicsElement o, IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsElementCSSInlineStyle o, IsSVGTests o, IsSVGExternalResourcesRequired o, IsGObject o) => IsSVGTextContentElement o +toSVGTextContentElement :: IsSVGTextContentElement o => o -> SVGTextContentElement +toSVGTextContentElement = SVGTextContentElement . coerce + +instance IsSVGTextContentElement SVGTextContentElement +instance IsSVGGraphicsElement SVGTextContentElement +instance IsSVGElement SVGTextContentElement +instance IsElement SVGTextContentElement +instance IsNode SVGTextContentElement +instance IsEventTarget SVGTextContentElement +instance IsSlotable SVGTextContentElement +instance IsParentNode SVGTextContentElement +instance IsNonDocumentTypeChildNode SVGTextContentElement +instance IsDocumentAndElementEventHandlers SVGTextContentElement +instance IsChildNode SVGTextContentElement +instance IsAnimatable SVGTextContentElement +instance IsGlobalEventHandlers SVGTextContentElement +instance IsElementCSSInlineStyle SVGTextContentElement +instance IsSVGTests SVGTextContentElement +instance IsSVGExternalResourcesRequired SVGTextContentElement +instance IsGObject SVGTextContentElement where + typeGType _ = gTypeSVGTextContentElement + {-# INLINE typeGType #-} + +noSVGTextContentElement :: Maybe SVGTextContentElement +noSVGTextContentElement = Nothing +{-# INLINE noSVGTextContentElement #-} + +gTypeSVGTextContentElement :: JSM GType +gTypeSVGTextContentElement = GType . Object <$> jsg "SVGTextContentElement" + +-- | Functions for this inteface are in "JSDOM.SVGTextElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGTextPositioningElement" +-- * "JSDOM.SVGTextContentElement" +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGTextElement = SVGTextElement { unSVGTextElement :: JSVal } + +instance PToJSVal SVGTextElement where + pToJSVal = unSVGTextElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTextElement where + pFromJSVal = SVGTextElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTextElement where + toJSVal = return . unSVGTextElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTextElement where + fromJSVal v = fmap SVGTextElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTextElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTextElement where + makeObject = makeObject . unSVGTextElement + +instance IsSVGTextPositioningElement SVGTextElement +instance IsSVGTextContentElement SVGTextElement +instance IsSVGGraphicsElement SVGTextElement +instance IsSVGElement SVGTextElement +instance IsElement SVGTextElement +instance IsNode SVGTextElement +instance IsEventTarget SVGTextElement +instance IsSlotable SVGTextElement +instance IsParentNode SVGTextElement +instance IsNonDocumentTypeChildNode SVGTextElement +instance IsDocumentAndElementEventHandlers SVGTextElement +instance IsChildNode SVGTextElement +instance IsAnimatable SVGTextElement +instance IsGlobalEventHandlers SVGTextElement +instance IsElementCSSInlineStyle SVGTextElement +instance IsSVGTests SVGTextElement +instance IsSVGExternalResourcesRequired SVGTextElement +instance IsGObject SVGTextElement where + typeGType _ = gTypeSVGTextElement + {-# INLINE typeGType #-} + +noSVGTextElement :: Maybe SVGTextElement +noSVGTextElement = Nothing +{-# INLINE noSVGTextElement #-} + +gTypeSVGTextElement :: JSM GType +gTypeSVGTextElement = GType . Object <$> jsg "SVGTextElement" + +-- | Functions for this inteface are in "JSDOM.SVGTextPathElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGTextContentElement" +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- * "JSDOM.SVGURIReference" +-- +-- +newtype SVGTextPathElement = SVGTextPathElement { unSVGTextPathElement :: JSVal } + +instance PToJSVal SVGTextPathElement where + pToJSVal = unSVGTextPathElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTextPathElement where + pFromJSVal = SVGTextPathElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTextPathElement where + toJSVal = return . unSVGTextPathElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTextPathElement where + fromJSVal v = fmap SVGTextPathElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTextPathElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTextPathElement where + makeObject = makeObject . unSVGTextPathElement + +instance IsSVGTextContentElement SVGTextPathElement +instance IsSVGGraphicsElement SVGTextPathElement +instance IsSVGElement SVGTextPathElement +instance IsElement SVGTextPathElement +instance IsNode SVGTextPathElement +instance IsEventTarget SVGTextPathElement +instance IsSlotable SVGTextPathElement +instance IsParentNode SVGTextPathElement +instance IsNonDocumentTypeChildNode SVGTextPathElement +instance IsDocumentAndElementEventHandlers SVGTextPathElement +instance IsChildNode SVGTextPathElement +instance IsAnimatable SVGTextPathElement +instance IsGlobalEventHandlers SVGTextPathElement +instance IsElementCSSInlineStyle SVGTextPathElement +instance IsSVGTests SVGTextPathElement +instance IsSVGExternalResourcesRequired SVGTextPathElement +instance IsSVGURIReference SVGTextPathElement +instance IsGObject SVGTextPathElement where + typeGType _ = gTypeSVGTextPathElement + {-# INLINE typeGType #-} + +noSVGTextPathElement :: Maybe SVGTextPathElement +noSVGTextPathElement = Nothing +{-# INLINE noSVGTextPathElement #-} + +gTypeSVGTextPathElement :: JSM GType +gTypeSVGTextPathElement = GType . Object <$> jsg "SVGTextPathElement" + +-- | Functions for this inteface are in "JSDOM.SVGTextPositioningElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGTextContentElement" +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGTextPositioningElement = SVGTextPositioningElement { unSVGTextPositioningElement :: JSVal } + +instance PToJSVal SVGTextPositioningElement where + pToJSVal = unSVGTextPositioningElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTextPositioningElement where + pFromJSVal = SVGTextPositioningElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTextPositioningElement where + toJSVal = return . unSVGTextPositioningElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTextPositioningElement where + fromJSVal v = fmap SVGTextPositioningElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTextPositioningElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTextPositioningElement where + makeObject = makeObject . unSVGTextPositioningElement + +class (IsSVGTextContentElement o, IsSVGGraphicsElement o, IsSVGElement o, IsElement o, IsNode o, IsEventTarget o, IsSlotable o, IsParentNode o, IsNonDocumentTypeChildNode o, IsDocumentAndElementEventHandlers o, IsChildNode o, IsAnimatable o, IsGlobalEventHandlers o, IsElementCSSInlineStyle o, IsSVGTests o, IsSVGExternalResourcesRequired o, IsGObject o) => IsSVGTextPositioningElement o +toSVGTextPositioningElement :: IsSVGTextPositioningElement o => o -> SVGTextPositioningElement +toSVGTextPositioningElement = SVGTextPositioningElement . coerce + +instance IsSVGTextPositioningElement SVGTextPositioningElement +instance IsSVGTextContentElement SVGTextPositioningElement +instance IsSVGGraphicsElement SVGTextPositioningElement +instance IsSVGElement SVGTextPositioningElement +instance IsElement SVGTextPositioningElement +instance IsNode SVGTextPositioningElement +instance IsEventTarget SVGTextPositioningElement +instance IsSlotable SVGTextPositioningElement +instance IsParentNode SVGTextPositioningElement +instance IsNonDocumentTypeChildNode SVGTextPositioningElement +instance IsDocumentAndElementEventHandlers SVGTextPositioningElement +instance IsChildNode SVGTextPositioningElement +instance IsAnimatable SVGTextPositioningElement +instance IsGlobalEventHandlers SVGTextPositioningElement +instance IsElementCSSInlineStyle SVGTextPositioningElement +instance IsSVGTests SVGTextPositioningElement +instance IsSVGExternalResourcesRequired SVGTextPositioningElement +instance IsGObject SVGTextPositioningElement where + typeGType _ = gTypeSVGTextPositioningElement + {-# INLINE typeGType #-} + +noSVGTextPositioningElement :: Maybe SVGTextPositioningElement +noSVGTextPositioningElement = Nothing +{-# INLINE noSVGTextPositioningElement #-} + +gTypeSVGTextPositioningElement :: JSM GType +gTypeSVGTextPositioningElement = GType . Object <$> jsg "SVGTextPositioningElement" + +-- | Functions for this inteface are in "JSDOM.SVGTitleElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGTitleElement = SVGTitleElement { unSVGTitleElement :: JSVal } + +instance PToJSVal SVGTitleElement where + pToJSVal = unSVGTitleElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTitleElement where + pFromJSVal = SVGTitleElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTitleElement where + toJSVal = return . unSVGTitleElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTitleElement where + fromJSVal v = fmap SVGTitleElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTitleElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTitleElement where + makeObject = makeObject . unSVGTitleElement + +instance IsSVGElement SVGTitleElement +instance IsElement SVGTitleElement +instance IsNode SVGTitleElement +instance IsEventTarget SVGTitleElement +instance IsSlotable SVGTitleElement +instance IsParentNode SVGTitleElement +instance IsNonDocumentTypeChildNode SVGTitleElement +instance IsDocumentAndElementEventHandlers SVGTitleElement +instance IsChildNode SVGTitleElement +instance IsAnimatable SVGTitleElement +instance IsGlobalEventHandlers SVGTitleElement +instance IsElementCSSInlineStyle SVGTitleElement +instance IsGObject SVGTitleElement where + typeGType _ = gTypeSVGTitleElement + {-# INLINE typeGType #-} + +noSVGTitleElement :: Maybe SVGTitleElement +noSVGTitleElement = Nothing +{-# INLINE noSVGTitleElement #-} + +gTypeSVGTitleElement :: JSM GType +gTypeSVGTitleElement = GType . Object <$> jsg "SVGTitleElement" + +-- | Functions for this inteface are in "JSDOM.SVGTransform". +-- +-- +newtype SVGTransform = SVGTransform { unSVGTransform :: JSVal } + +instance PToJSVal SVGTransform where + pToJSVal = unSVGTransform + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTransform where + pFromJSVal = SVGTransform + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTransform where + toJSVal = return . unSVGTransform + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTransform where + fromJSVal v = fmap SVGTransform <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTransform + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTransform where + makeObject = makeObject . unSVGTransform + +instance IsGObject SVGTransform where + typeGType _ = gTypeSVGTransform + {-# INLINE typeGType #-} + +noSVGTransform :: Maybe SVGTransform +noSVGTransform = Nothing +{-# INLINE noSVGTransform #-} + +gTypeSVGTransform :: JSM GType +gTypeSVGTransform = GType . Object <$> jsg "SVGTransform" + +-- | Functions for this inteface are in "JSDOM.SVGTransformList". +-- +-- +newtype SVGTransformList = SVGTransformList { unSVGTransformList :: JSVal } + +instance PToJSVal SVGTransformList where + pToJSVal = unSVGTransformList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGTransformList where + pFromJSVal = SVGTransformList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGTransformList where + toJSVal = return . unSVGTransformList + {-# INLINE toJSVal #-} + +instance FromJSVal SVGTransformList where + fromJSVal v = fmap SVGTransformList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGTransformList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGTransformList where + makeObject = makeObject . unSVGTransformList + +instance IsGObject SVGTransformList where + typeGType _ = gTypeSVGTransformList + {-# INLINE typeGType #-} + +noSVGTransformList :: Maybe SVGTransformList +noSVGTransformList = Nothing +{-# INLINE noSVGTransformList #-} + +gTypeSVGTransformList :: JSM GType +gTypeSVGTransformList = GType . Object <$> jsg "SVGTransformList" + +-- | Functions for this inteface are in "JSDOM.SVGURIReference". +-- +-- +newtype SVGURIReference = SVGURIReference { unSVGURIReference :: JSVal } + +instance PToJSVal SVGURIReference where + pToJSVal = unSVGURIReference + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGURIReference where + pFromJSVal = SVGURIReference + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGURIReference where + toJSVal = return . unSVGURIReference + {-# INLINE toJSVal #-} + +instance FromJSVal SVGURIReference where + fromJSVal v = fmap SVGURIReference <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGURIReference + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGURIReference where + makeObject = makeObject . unSVGURIReference + +class (IsGObject o) => IsSVGURIReference o +toSVGURIReference :: IsSVGURIReference o => o -> SVGURIReference +toSVGURIReference = SVGURIReference . coerce + +instance IsSVGURIReference SVGURIReference +instance IsGObject SVGURIReference where + typeGType _ = gTypeSVGURIReference + {-# INLINE typeGType #-} + +noSVGURIReference :: Maybe SVGURIReference +noSVGURIReference = Nothing +{-# INLINE noSVGURIReference #-} + +gTypeSVGURIReference :: JSM GType +gTypeSVGURIReference = GType . Object <$> jsg "SVGURIReference" + +-- | Functions for this inteface are in "JSDOM.SVGUnitTypes". +-- +-- +newtype SVGUnitTypes = SVGUnitTypes { unSVGUnitTypes :: JSVal } + +instance PToJSVal SVGUnitTypes where + pToJSVal = unSVGUnitTypes + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGUnitTypes where + pFromJSVal = SVGUnitTypes + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGUnitTypes where + toJSVal = return . unSVGUnitTypes + {-# INLINE toJSVal #-} + +instance FromJSVal SVGUnitTypes where + fromJSVal v = fmap SVGUnitTypes <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGUnitTypes + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGUnitTypes where + makeObject = makeObject . unSVGUnitTypes + +instance IsGObject SVGUnitTypes where + typeGType _ = gTypeSVGUnitTypes + {-# INLINE typeGType #-} + +noSVGUnitTypes :: Maybe SVGUnitTypes +noSVGUnitTypes = Nothing +{-# INLINE noSVGUnitTypes #-} + +gTypeSVGUnitTypes :: JSM GType +gTypeSVGUnitTypes = GType . Object <$> jsg "SVGUnitTypes" + +-- | Functions for this inteface are in "JSDOM.SVGUseElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGGraphicsElement" +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGTests" +-- * "JSDOM.SVGURIReference" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGUseElement = SVGUseElement { unSVGUseElement :: JSVal } + +instance PToJSVal SVGUseElement where + pToJSVal = unSVGUseElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGUseElement where + pFromJSVal = SVGUseElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGUseElement where + toJSVal = return . unSVGUseElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGUseElement where + fromJSVal v = fmap SVGUseElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGUseElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGUseElement where + makeObject = makeObject . unSVGUseElement + +instance IsSVGGraphicsElement SVGUseElement +instance IsSVGElement SVGUseElement +instance IsElement SVGUseElement +instance IsNode SVGUseElement +instance IsEventTarget SVGUseElement +instance IsSlotable SVGUseElement +instance IsParentNode SVGUseElement +instance IsNonDocumentTypeChildNode SVGUseElement +instance IsDocumentAndElementEventHandlers SVGUseElement +instance IsChildNode SVGUseElement +instance IsAnimatable SVGUseElement +instance IsGlobalEventHandlers SVGUseElement +instance IsElementCSSInlineStyle SVGUseElement +instance IsSVGTests SVGUseElement +instance IsSVGURIReference SVGUseElement +instance IsSVGExternalResourcesRequired SVGUseElement +instance IsGObject SVGUseElement where + typeGType _ = gTypeSVGUseElement + {-# INLINE typeGType #-} + +noSVGUseElement :: Maybe SVGUseElement +noSVGUseElement = Nothing +{-# INLINE noSVGUseElement #-} + +gTypeSVGUseElement :: JSM GType +gTypeSVGUseElement = GType . Object <$> jsg "SVGUseElement" + +-- | Functions for this inteface are in "JSDOM.SVGVKernElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- +-- +newtype SVGVKernElement = SVGVKernElement { unSVGVKernElement :: JSVal } + +instance PToJSVal SVGVKernElement where + pToJSVal = unSVGVKernElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGVKernElement where + pFromJSVal = SVGVKernElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGVKernElement where + toJSVal = return . unSVGVKernElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGVKernElement where + fromJSVal v = fmap SVGVKernElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGVKernElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGVKernElement where + makeObject = makeObject . unSVGVKernElement + +instance IsSVGElement SVGVKernElement +instance IsElement SVGVKernElement +instance IsNode SVGVKernElement +instance IsEventTarget SVGVKernElement +instance IsSlotable SVGVKernElement +instance IsParentNode SVGVKernElement +instance IsNonDocumentTypeChildNode SVGVKernElement +instance IsDocumentAndElementEventHandlers SVGVKernElement +instance IsChildNode SVGVKernElement +instance IsAnimatable SVGVKernElement +instance IsGlobalEventHandlers SVGVKernElement +instance IsElementCSSInlineStyle SVGVKernElement +instance IsGObject SVGVKernElement where + typeGType _ = gTypeSVGVKernElement + {-# INLINE typeGType #-} + +noSVGVKernElement :: Maybe SVGVKernElement +noSVGVKernElement = Nothing +{-# INLINE noSVGVKernElement #-} + +gTypeSVGVKernElement :: JSM GType +gTypeSVGVKernElement = GType . Object <$> jsg "SVGVKernElement" + +-- | Functions for this inteface are in "JSDOM.SVGViewElement". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGElement" +-- * "JSDOM.Element" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.Slotable" +-- * "JSDOM.ParentNode" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Animatable" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.ElementCSSInlineStyle" +-- * "JSDOM.SVGZoomAndPan" +-- * "JSDOM.SVGFitToViewBox" +-- * "JSDOM.SVGExternalResourcesRequired" +-- +-- +newtype SVGViewElement = SVGViewElement { unSVGViewElement :: JSVal } + +instance PToJSVal SVGViewElement where + pToJSVal = unSVGViewElement + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGViewElement where + pFromJSVal = SVGViewElement + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGViewElement where + toJSVal = return . unSVGViewElement + {-# INLINE toJSVal #-} + +instance FromJSVal SVGViewElement where + fromJSVal v = fmap SVGViewElement <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGViewElement + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGViewElement where + makeObject = makeObject . unSVGViewElement + +instance IsSVGElement SVGViewElement +instance IsElement SVGViewElement +instance IsNode SVGViewElement +instance IsEventTarget SVGViewElement +instance IsSlotable SVGViewElement +instance IsParentNode SVGViewElement +instance IsNonDocumentTypeChildNode SVGViewElement +instance IsDocumentAndElementEventHandlers SVGViewElement +instance IsChildNode SVGViewElement +instance IsAnimatable SVGViewElement +instance IsGlobalEventHandlers SVGViewElement +instance IsElementCSSInlineStyle SVGViewElement +instance IsSVGZoomAndPan SVGViewElement +instance IsSVGFitToViewBox SVGViewElement +instance IsSVGExternalResourcesRequired SVGViewElement +instance IsGObject SVGViewElement where + typeGType _ = gTypeSVGViewElement + {-# INLINE typeGType #-} + +noSVGViewElement :: Maybe SVGViewElement +noSVGViewElement = Nothing +{-# INLINE noSVGViewElement #-} + +gTypeSVGViewElement :: JSM GType +gTypeSVGViewElement = GType . Object <$> jsg "SVGViewElement" + +-- | Functions for this inteface are in "JSDOM.SVGViewSpec". +-- Base interface functions are in: +-- +-- * "JSDOM.SVGFitToViewBox" +-- +-- +newtype SVGViewSpec = SVGViewSpec { unSVGViewSpec :: JSVal } + +instance PToJSVal SVGViewSpec where + pToJSVal = unSVGViewSpec + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGViewSpec where + pFromJSVal = SVGViewSpec + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGViewSpec where + toJSVal = return . unSVGViewSpec + {-# INLINE toJSVal #-} + +instance FromJSVal SVGViewSpec where + fromJSVal v = fmap SVGViewSpec <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGViewSpec + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGViewSpec where + makeObject = makeObject . unSVGViewSpec + +instance IsSVGFitToViewBox SVGViewSpec +instance IsGObject SVGViewSpec where + typeGType _ = gTypeSVGViewSpec + {-# INLINE typeGType #-} + +noSVGViewSpec :: Maybe SVGViewSpec +noSVGViewSpec = Nothing +{-# INLINE noSVGViewSpec #-} + +gTypeSVGViewSpec :: JSM GType +gTypeSVGViewSpec = GType . Object <$> jsg "SVGViewSpec" + +-- | Functions for this inteface are in "JSDOM.SVGZoomAndPan". +-- +-- +newtype SVGZoomAndPan = SVGZoomAndPan { unSVGZoomAndPan :: JSVal } + +instance PToJSVal SVGZoomAndPan where + pToJSVal = unSVGZoomAndPan + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGZoomAndPan where + pFromJSVal = SVGZoomAndPan + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGZoomAndPan where + toJSVal = return . unSVGZoomAndPan + {-# INLINE toJSVal #-} + +instance FromJSVal SVGZoomAndPan where + fromJSVal v = fmap SVGZoomAndPan <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGZoomAndPan + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGZoomAndPan where + makeObject = makeObject . unSVGZoomAndPan + +class (IsGObject o) => IsSVGZoomAndPan o +toSVGZoomAndPan :: IsSVGZoomAndPan o => o -> SVGZoomAndPan +toSVGZoomAndPan = SVGZoomAndPan . coerce + +instance IsSVGZoomAndPan SVGZoomAndPan +instance IsGObject SVGZoomAndPan where + typeGType _ = gTypeSVGZoomAndPan + {-# INLINE typeGType #-} + +noSVGZoomAndPan :: Maybe SVGZoomAndPan +noSVGZoomAndPan = Nothing +{-# INLINE noSVGZoomAndPan #-} + +gTypeSVGZoomAndPan :: JSM GType +gTypeSVGZoomAndPan = GType . Object <$> jsg "SVGZoomAndPan" + +-- | Functions for this inteface are in "JSDOM.SVGZoomEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEvent" +-- * "JSDOM.Event" +-- +-- +newtype SVGZoomEvent = SVGZoomEvent { unSVGZoomEvent :: JSVal } + +instance PToJSVal SVGZoomEvent where + pToJSVal = unSVGZoomEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal SVGZoomEvent where + pFromJSVal = SVGZoomEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal SVGZoomEvent where + toJSVal = return . unSVGZoomEvent + {-# INLINE toJSVal #-} + +instance FromJSVal SVGZoomEvent where + fromJSVal v = fmap SVGZoomEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SVGZoomEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SVGZoomEvent where + makeObject = makeObject . unSVGZoomEvent + +instance IsUIEvent SVGZoomEvent +instance IsEvent SVGZoomEvent +instance IsGObject SVGZoomEvent where + typeGType _ = gTypeSVGZoomEvent + {-# INLINE typeGType #-} + +noSVGZoomEvent :: Maybe SVGZoomEvent +noSVGZoomEvent = Nothing +{-# INLINE noSVGZoomEvent #-} + +gTypeSVGZoomEvent :: JSM GType +gTypeSVGZoomEvent = GType . Object <$> jsg "SVGZoomEvent" + +-- | Functions for this inteface are in "JSDOM.Screen". +-- +-- +newtype Screen = Screen { unScreen :: JSVal } + +instance PToJSVal Screen where + pToJSVal = unScreen + {-# INLINE pToJSVal #-} + +instance PFromJSVal Screen where + pFromJSVal = Screen + {-# INLINE pFromJSVal #-} + +instance ToJSVal Screen where + toJSVal = return . unScreen + {-# INLINE toJSVal #-} + +instance FromJSVal Screen where + fromJSVal v = fmap Screen <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Screen + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Screen where + makeObject = makeObject . unScreen + +instance IsGObject Screen where + typeGType _ = gTypeScreen + {-# INLINE typeGType #-} + +noScreen :: Maybe Screen +noScreen = Nothing +{-# INLINE noScreen #-} + +gTypeScreen :: JSM GType +gTypeScreen = GType . Object <$> jsg "Screen" + +-- | Functions for this inteface are in "JSDOM.ScriptProcessorNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype ScriptProcessorNode = ScriptProcessorNode { unScriptProcessorNode :: JSVal } + +instance PToJSVal ScriptProcessorNode where + pToJSVal = unScriptProcessorNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal ScriptProcessorNode where + pFromJSVal = ScriptProcessorNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal ScriptProcessorNode where + toJSVal = return . unScriptProcessorNode + {-# INLINE toJSVal #-} + +instance FromJSVal ScriptProcessorNode where + fromJSVal v = fmap ScriptProcessorNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ScriptProcessorNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ScriptProcessorNode where + makeObject = makeObject . unScriptProcessorNode + +instance IsAudioNode ScriptProcessorNode +instance IsEventTarget ScriptProcessorNode +instance IsGObject ScriptProcessorNode where + typeGType _ = gTypeScriptProcessorNode + {-# INLINE typeGType #-} + +noScriptProcessorNode :: Maybe ScriptProcessorNode +noScriptProcessorNode = Nothing +{-# INLINE noScriptProcessorNode #-} + +gTypeScriptProcessorNode :: JSM GType +gTypeScriptProcessorNode = GType . Object <$> jsg "ScriptProcessorNode" + +-- | Functions for this inteface are in "JSDOM.ScrollToOptions". +-- +-- +newtype ScrollToOptions = ScrollToOptions { unScrollToOptions :: JSVal } + +instance PToJSVal ScrollToOptions where + pToJSVal = unScrollToOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal ScrollToOptions where + pFromJSVal = ScrollToOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal ScrollToOptions where + toJSVal = return . unScrollToOptions + {-# INLINE toJSVal #-} + +instance FromJSVal ScrollToOptions where + fromJSVal v = fmap ScrollToOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ScrollToOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ScrollToOptions where + makeObject = makeObject . unScrollToOptions + +instance IsGObject ScrollToOptions where + typeGType _ = gTypeScrollToOptions + {-# INLINE typeGType #-} + +noScrollToOptions :: Maybe ScrollToOptions +noScrollToOptions = Nothing +{-# INLINE noScrollToOptions #-} + +gTypeScrollToOptions :: JSM GType +gTypeScrollToOptions = GType . Object <$> jsg "ScrollToOptions" + +-- | Functions for this inteface are in "JSDOM.SecurityPolicyViolationEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype SecurityPolicyViolationEvent = SecurityPolicyViolationEvent { unSecurityPolicyViolationEvent :: JSVal } + +instance PToJSVal SecurityPolicyViolationEvent where + pToJSVal = unSecurityPolicyViolationEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal SecurityPolicyViolationEvent where + pFromJSVal = SecurityPolicyViolationEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal SecurityPolicyViolationEvent where + toJSVal = return . unSecurityPolicyViolationEvent + {-# INLINE toJSVal #-} + +instance FromJSVal SecurityPolicyViolationEvent where + fromJSVal v = fmap SecurityPolicyViolationEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SecurityPolicyViolationEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SecurityPolicyViolationEvent where + makeObject = makeObject . unSecurityPolicyViolationEvent + +instance IsEvent SecurityPolicyViolationEvent +instance IsGObject SecurityPolicyViolationEvent where + typeGType _ = gTypeSecurityPolicyViolationEvent + {-# INLINE typeGType #-} + +noSecurityPolicyViolationEvent :: Maybe SecurityPolicyViolationEvent +noSecurityPolicyViolationEvent = Nothing +{-# INLINE noSecurityPolicyViolationEvent #-} + +gTypeSecurityPolicyViolationEvent :: JSM GType +gTypeSecurityPolicyViolationEvent = GType . Object <$> jsg "SecurityPolicyViolationEvent" + +-- | Functions for this inteface are in "JSDOM.SecurityPolicyViolationEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype SecurityPolicyViolationEventInit = SecurityPolicyViolationEventInit { unSecurityPolicyViolationEventInit :: JSVal } + +instance PToJSVal SecurityPolicyViolationEventInit where + pToJSVal = unSecurityPolicyViolationEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal SecurityPolicyViolationEventInit where + pFromJSVal = SecurityPolicyViolationEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal SecurityPolicyViolationEventInit where + toJSVal = return . unSecurityPolicyViolationEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal SecurityPolicyViolationEventInit where + fromJSVal v = fmap SecurityPolicyViolationEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SecurityPolicyViolationEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SecurityPolicyViolationEventInit where + makeObject = makeObject . unSecurityPolicyViolationEventInit + +instance IsEventInit SecurityPolicyViolationEventInit +instance IsGObject SecurityPolicyViolationEventInit where + typeGType _ = gTypeSecurityPolicyViolationEventInit + {-# INLINE typeGType #-} + +noSecurityPolicyViolationEventInit :: Maybe SecurityPolicyViolationEventInit +noSecurityPolicyViolationEventInit = Nothing +{-# INLINE noSecurityPolicyViolationEventInit #-} + +gTypeSecurityPolicyViolationEventInit :: JSM GType +gTypeSecurityPolicyViolationEventInit = GType . Object <$> jsg "SecurityPolicyViolationEventInit" + +-- | Functions for this inteface are in "JSDOM.Selection". +-- +-- +newtype Selection = Selection { unSelection :: JSVal } + +instance PToJSVal Selection where + pToJSVal = unSelection + {-# INLINE pToJSVal #-} + +instance PFromJSVal Selection where + pFromJSVal = Selection + {-# INLINE pFromJSVal #-} + +instance ToJSVal Selection where + toJSVal = return . unSelection + {-# INLINE toJSVal #-} + +instance FromJSVal Selection where + fromJSVal v = fmap Selection <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Selection + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Selection where + makeObject = makeObject . unSelection + +instance IsGObject Selection where + typeGType _ = gTypeSelection + {-# INLINE typeGType #-} + +noSelection :: Maybe Selection +noSelection = Nothing +{-# INLINE noSelection #-} + +gTypeSelection :: JSM GType +gTypeSelection = GType . Object <$> jsg "Selection" + +-- | Functions for this inteface are in "JSDOM.ShadowRoot". +-- Base interface functions are in: +-- +-- * "JSDOM.DocumentFragment" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.NonElementParentNode" +-- * "JSDOM.ParentNode" +-- * "JSDOM.DocumentOrShadowRoot" +-- +-- +newtype ShadowRoot = ShadowRoot { unShadowRoot :: JSVal } + +instance PToJSVal ShadowRoot where + pToJSVal = unShadowRoot + {-# INLINE pToJSVal #-} + +instance PFromJSVal ShadowRoot where + pFromJSVal = ShadowRoot + {-# INLINE pFromJSVal #-} + +instance ToJSVal ShadowRoot where + toJSVal = return . unShadowRoot + {-# INLINE toJSVal #-} + +instance FromJSVal ShadowRoot where + fromJSVal v = fmap ShadowRoot <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ShadowRoot + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ShadowRoot where + makeObject = makeObject . unShadowRoot + +instance IsDocumentFragment ShadowRoot +instance IsNode ShadowRoot +instance IsEventTarget ShadowRoot +instance IsNonElementParentNode ShadowRoot +instance IsParentNode ShadowRoot +instance IsDocumentOrShadowRoot ShadowRoot +instance IsGObject ShadowRoot where + typeGType _ = gTypeShadowRoot + {-# INLINE typeGType #-} + +noShadowRoot :: Maybe ShadowRoot +noShadowRoot = Nothing +{-# INLINE noShadowRoot #-} + +gTypeShadowRoot :: JSM GType +gTypeShadowRoot = GType . Object <$> jsg "ShadowRoot" + +-- | Functions for this inteface are in "JSDOM.ShadowRootInit". +-- +-- +newtype ShadowRootInit = ShadowRootInit { unShadowRootInit :: JSVal } + +instance PToJSVal ShadowRootInit where + pToJSVal = unShadowRootInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal ShadowRootInit where + pFromJSVal = ShadowRootInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal ShadowRootInit where + toJSVal = return . unShadowRootInit + {-# INLINE toJSVal #-} + +instance FromJSVal ShadowRootInit where + fromJSVal v = fmap ShadowRootInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ShadowRootInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ShadowRootInit where + makeObject = makeObject . unShadowRootInit + +instance IsGObject ShadowRootInit where + typeGType _ = gTypeShadowRootInit + {-# INLINE typeGType #-} + +noShadowRootInit :: Maybe ShadowRootInit +noShadowRootInit = Nothing +{-# INLINE noShadowRootInit #-} + +gTypeShadowRootInit :: JSM GType +gTypeShadowRootInit = GType . Object <$> jsg "ShadowRootInit" + +-- | Functions for this inteface are in "JSDOM.SiteBoundCredential". +-- Base interface functions are in: +-- +-- * "JSDOM.BasicCredential" +-- +-- +newtype SiteBoundCredential = SiteBoundCredential { unSiteBoundCredential :: JSVal } + +instance PToJSVal SiteBoundCredential where + pToJSVal = unSiteBoundCredential + {-# INLINE pToJSVal #-} + +instance PFromJSVal SiteBoundCredential where + pFromJSVal = SiteBoundCredential + {-# INLINE pFromJSVal #-} + +instance ToJSVal SiteBoundCredential where + toJSVal = return . unSiteBoundCredential + {-# INLINE toJSVal #-} + +instance FromJSVal SiteBoundCredential where + fromJSVal v = fmap SiteBoundCredential <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SiteBoundCredential + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SiteBoundCredential where + makeObject = makeObject . unSiteBoundCredential + +class (IsBasicCredential o, IsGObject o) => IsSiteBoundCredential o +toSiteBoundCredential :: IsSiteBoundCredential o => o -> SiteBoundCredential +toSiteBoundCredential = SiteBoundCredential . coerce + +instance IsSiteBoundCredential SiteBoundCredential +instance IsBasicCredential SiteBoundCredential +instance IsGObject SiteBoundCredential where + typeGType _ = gTypeSiteBoundCredential + {-# INLINE typeGType #-} + +noSiteBoundCredential :: Maybe SiteBoundCredential +noSiteBoundCredential = Nothing +{-# INLINE noSiteBoundCredential #-} + +gTypeSiteBoundCredential :: JSM GType +gTypeSiteBoundCredential = GType . Object <$> jsg "SiteBoundCredential" + +-- | Functions for this inteface are in "JSDOM.SiteBoundCredentialData". +-- Base interface functions are in: +-- +-- * "JSDOM.CredentialData" +-- +-- +newtype SiteBoundCredentialData = SiteBoundCredentialData { unSiteBoundCredentialData :: JSVal } + +instance PToJSVal SiteBoundCredentialData where + pToJSVal = unSiteBoundCredentialData + {-# INLINE pToJSVal #-} + +instance PFromJSVal SiteBoundCredentialData where + pFromJSVal = SiteBoundCredentialData + {-# INLINE pFromJSVal #-} + +instance ToJSVal SiteBoundCredentialData where + toJSVal = return . unSiteBoundCredentialData + {-# INLINE toJSVal #-} + +instance FromJSVal SiteBoundCredentialData where + fromJSVal v = fmap SiteBoundCredentialData <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SiteBoundCredentialData + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SiteBoundCredentialData where + makeObject = makeObject . unSiteBoundCredentialData + +class (IsCredentialData o, IsGObject o) => IsSiteBoundCredentialData o +toSiteBoundCredentialData :: IsSiteBoundCredentialData o => o -> SiteBoundCredentialData +toSiteBoundCredentialData = SiteBoundCredentialData . coerce + +instance IsSiteBoundCredentialData SiteBoundCredentialData +instance IsCredentialData SiteBoundCredentialData +instance IsGObject SiteBoundCredentialData where + typeGType _ = gTypeSiteBoundCredentialData + {-# INLINE typeGType #-} + +noSiteBoundCredentialData :: Maybe SiteBoundCredentialData +noSiteBoundCredentialData = Nothing +{-# INLINE noSiteBoundCredentialData #-} + +gTypeSiteBoundCredentialData :: JSM GType +gTypeSiteBoundCredentialData = GType . Object <$> jsg "SiteBoundCredentialData" + +-- | Functions for this inteface are in "JSDOM.Slotable". +-- +-- +newtype Slotable = Slotable { unSlotable :: JSVal } + +instance PToJSVal Slotable where + pToJSVal = unSlotable + {-# INLINE pToJSVal #-} + +instance PFromJSVal Slotable where + pFromJSVal = Slotable + {-# INLINE pFromJSVal #-} + +instance ToJSVal Slotable where + toJSVal = return . unSlotable + {-# INLINE toJSVal #-} + +instance FromJSVal Slotable where + fromJSVal v = fmap Slotable <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Slotable + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Slotable where + makeObject = makeObject . unSlotable + +class (IsGObject o) => IsSlotable o +toSlotable :: IsSlotable o => o -> Slotable +toSlotable = Slotable . coerce + +instance IsSlotable Slotable +instance IsGObject Slotable where + typeGType _ = gTypeSlotable + {-# INLINE typeGType #-} + +noSlotable :: Maybe Slotable +noSlotable = Nothing +{-# INLINE noSlotable #-} + +gTypeSlotable :: JSM GType +gTypeSlotable = GType . Object <$> jsg "Slotable" + +-- | Functions for this inteface are in "JSDOM.SourceBuffer". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype SourceBuffer = SourceBuffer { unSourceBuffer :: JSVal } + +instance PToJSVal SourceBuffer where + pToJSVal = unSourceBuffer + {-# INLINE pToJSVal #-} + +instance PFromJSVal SourceBuffer where + pFromJSVal = SourceBuffer + {-# INLINE pFromJSVal #-} + +instance ToJSVal SourceBuffer where + toJSVal = return . unSourceBuffer + {-# INLINE toJSVal #-} + +instance FromJSVal SourceBuffer where + fromJSVal v = fmap SourceBuffer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SourceBuffer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SourceBuffer where + makeObject = makeObject . unSourceBuffer + +instance IsEventTarget SourceBuffer +instance IsGObject SourceBuffer where + typeGType _ = gTypeSourceBuffer + {-# INLINE typeGType #-} + +noSourceBuffer :: Maybe SourceBuffer +noSourceBuffer = Nothing +{-# INLINE noSourceBuffer #-} + +gTypeSourceBuffer :: JSM GType +gTypeSourceBuffer = GType . Object <$> jsg "SourceBuffer" + +-- | Functions for this inteface are in "JSDOM.SourceBufferList". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype SourceBufferList = SourceBufferList { unSourceBufferList :: JSVal } + +instance PToJSVal SourceBufferList where + pToJSVal = unSourceBufferList + {-# INLINE pToJSVal #-} + +instance PFromJSVal SourceBufferList where + pFromJSVal = SourceBufferList + {-# INLINE pFromJSVal #-} + +instance ToJSVal SourceBufferList where + toJSVal = return . unSourceBufferList + {-# INLINE toJSVal #-} + +instance FromJSVal SourceBufferList where + fromJSVal v = fmap SourceBufferList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SourceBufferList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SourceBufferList where + makeObject = makeObject . unSourceBufferList + +instance IsEventTarget SourceBufferList +instance IsGObject SourceBufferList where + typeGType _ = gTypeSourceBufferList + {-# INLINE typeGType #-} + +noSourceBufferList :: Maybe SourceBufferList +noSourceBufferList = Nothing +{-# INLINE noSourceBufferList #-} + +gTypeSourceBufferList :: JSM GType +gTypeSourceBufferList = GType . Object <$> jsg "SourceBufferList" + +-- | Functions for this inteface are in "JSDOM.SpeechSynthesis". +-- +-- +newtype SpeechSynthesis = SpeechSynthesis { unSpeechSynthesis :: JSVal } + +instance PToJSVal SpeechSynthesis where + pToJSVal = unSpeechSynthesis + {-# INLINE pToJSVal #-} + +instance PFromJSVal SpeechSynthesis where + pFromJSVal = SpeechSynthesis + {-# INLINE pFromJSVal #-} + +instance ToJSVal SpeechSynthesis where + toJSVal = return . unSpeechSynthesis + {-# INLINE toJSVal #-} + +instance FromJSVal SpeechSynthesis where + fromJSVal v = fmap SpeechSynthesis <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SpeechSynthesis + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SpeechSynthesis where + makeObject = makeObject . unSpeechSynthesis + +instance IsGObject SpeechSynthesis where + typeGType _ = gTypeSpeechSynthesis + {-# INLINE typeGType #-} + +noSpeechSynthesis :: Maybe SpeechSynthesis +noSpeechSynthesis = Nothing +{-# INLINE noSpeechSynthesis #-} + +gTypeSpeechSynthesis :: JSM GType +gTypeSpeechSynthesis = GType . Object <$> jsg "SpeechSynthesis" + +-- | Functions for this inteface are in "JSDOM.SpeechSynthesisEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype SpeechSynthesisEvent = SpeechSynthesisEvent { unSpeechSynthesisEvent :: JSVal } + +instance PToJSVal SpeechSynthesisEvent where + pToJSVal = unSpeechSynthesisEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal SpeechSynthesisEvent where + pFromJSVal = SpeechSynthesisEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal SpeechSynthesisEvent where + toJSVal = return . unSpeechSynthesisEvent + {-# INLINE toJSVal #-} + +instance FromJSVal SpeechSynthesisEvent where + fromJSVal v = fmap SpeechSynthesisEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SpeechSynthesisEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SpeechSynthesisEvent where + makeObject = makeObject . unSpeechSynthesisEvent + +instance IsEvent SpeechSynthesisEvent +instance IsGObject SpeechSynthesisEvent where + typeGType _ = gTypeSpeechSynthesisEvent + {-# INLINE typeGType #-} + +noSpeechSynthesisEvent :: Maybe SpeechSynthesisEvent +noSpeechSynthesisEvent = Nothing +{-# INLINE noSpeechSynthesisEvent #-} + +gTypeSpeechSynthesisEvent :: JSM GType +gTypeSpeechSynthesisEvent = GType . Object <$> jsg "SpeechSynthesisEvent" + +-- | Functions for this inteface are in "JSDOM.SpeechSynthesisUtterance". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype SpeechSynthesisUtterance = SpeechSynthesisUtterance { unSpeechSynthesisUtterance :: JSVal } + +instance PToJSVal SpeechSynthesisUtterance where + pToJSVal = unSpeechSynthesisUtterance + {-# INLINE pToJSVal #-} + +instance PFromJSVal SpeechSynthesisUtterance where + pFromJSVal = SpeechSynthesisUtterance + {-# INLINE pFromJSVal #-} + +instance ToJSVal SpeechSynthesisUtterance where + toJSVal = return . unSpeechSynthesisUtterance + {-# INLINE toJSVal #-} + +instance FromJSVal SpeechSynthesisUtterance where + fromJSVal v = fmap SpeechSynthesisUtterance <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SpeechSynthesisUtterance + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SpeechSynthesisUtterance where + makeObject = makeObject . unSpeechSynthesisUtterance + +instance IsEventTarget SpeechSynthesisUtterance +instance IsGObject SpeechSynthesisUtterance where + typeGType _ = gTypeSpeechSynthesisUtterance + {-# INLINE typeGType #-} + +noSpeechSynthesisUtterance :: Maybe SpeechSynthesisUtterance +noSpeechSynthesisUtterance = Nothing +{-# INLINE noSpeechSynthesisUtterance #-} + +gTypeSpeechSynthesisUtterance :: JSM GType +gTypeSpeechSynthesisUtterance = GType . Object <$> jsg "SpeechSynthesisUtterance" + +-- | Functions for this inteface are in "JSDOM.SpeechSynthesisVoice". +-- +-- +newtype SpeechSynthesisVoice = SpeechSynthesisVoice { unSpeechSynthesisVoice :: JSVal } + +instance PToJSVal SpeechSynthesisVoice where + pToJSVal = unSpeechSynthesisVoice + {-# INLINE pToJSVal #-} + +instance PFromJSVal SpeechSynthesisVoice where + pFromJSVal = SpeechSynthesisVoice + {-# INLINE pFromJSVal #-} + +instance ToJSVal SpeechSynthesisVoice where + toJSVal = return . unSpeechSynthesisVoice + {-# INLINE toJSVal #-} + +instance FromJSVal SpeechSynthesisVoice where + fromJSVal v = fmap SpeechSynthesisVoice <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SpeechSynthesisVoice + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SpeechSynthesisVoice where + makeObject = makeObject . unSpeechSynthesisVoice + +instance IsGObject SpeechSynthesisVoice where + typeGType _ = gTypeSpeechSynthesisVoice + {-# INLINE typeGType #-} + +noSpeechSynthesisVoice :: Maybe SpeechSynthesisVoice +noSpeechSynthesisVoice = Nothing +{-# INLINE noSpeechSynthesisVoice #-} + +gTypeSpeechSynthesisVoice :: JSM GType +gTypeSpeechSynthesisVoice = GType . Object <$> jsg "SpeechSynthesisVoice" + +-- | Functions for this inteface are in "JSDOM.StaticRange". +-- +-- +newtype StaticRange = StaticRange { unStaticRange :: JSVal } + +instance PToJSVal StaticRange where + pToJSVal = unStaticRange + {-# INLINE pToJSVal #-} + +instance PFromJSVal StaticRange where + pFromJSVal = StaticRange + {-# INLINE pFromJSVal #-} + +instance ToJSVal StaticRange where + toJSVal = return . unStaticRange + {-# INLINE toJSVal #-} + +instance FromJSVal StaticRange where + fromJSVal v = fmap StaticRange <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StaticRange + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StaticRange where + makeObject = makeObject . unStaticRange + +instance IsGObject StaticRange where + typeGType _ = gTypeStaticRange + {-# INLINE typeGType #-} + +noStaticRange :: Maybe StaticRange +noStaticRange = Nothing +{-# INLINE noStaticRange #-} + +gTypeStaticRange :: JSM GType +gTypeStaticRange = GType . Object <$> jsg "StaticRange" + +-- | Functions for this inteface are in "JSDOM.Storage". +-- +-- +newtype Storage = Storage { unStorage :: JSVal } + +instance PToJSVal Storage where + pToJSVal = unStorage + {-# INLINE pToJSVal #-} + +instance PFromJSVal Storage where + pFromJSVal = Storage + {-# INLINE pFromJSVal #-} + +instance ToJSVal Storage where + toJSVal = return . unStorage + {-# INLINE toJSVal #-} + +instance FromJSVal Storage where + fromJSVal v = fmap Storage <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Storage + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Storage where + makeObject = makeObject . unStorage + +instance IsGObject Storage where + typeGType _ = gTypeStorage + {-# INLINE typeGType #-} + +noStorage :: Maybe Storage +noStorage = Nothing +{-# INLINE noStorage #-} + +gTypeStorage :: JSM GType +gTypeStorage = GType . Object <$> jsg "Storage" + +-- | Functions for this inteface are in "JSDOM.StorageEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype StorageEvent = StorageEvent { unStorageEvent :: JSVal } + +instance PToJSVal StorageEvent where + pToJSVal = unStorageEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal StorageEvent where + pFromJSVal = StorageEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal StorageEvent where + toJSVal = return . unStorageEvent + {-# INLINE toJSVal #-} + +instance FromJSVal StorageEvent where + fromJSVal v = fmap StorageEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StorageEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StorageEvent where + makeObject = makeObject . unStorageEvent + +instance IsEvent StorageEvent +instance IsGObject StorageEvent where + typeGType _ = gTypeStorageEvent + {-# INLINE typeGType #-} + +noStorageEvent :: Maybe StorageEvent +noStorageEvent = Nothing +{-# INLINE noStorageEvent #-} + +gTypeStorageEvent :: JSM GType +gTypeStorageEvent = GType . Object <$> jsg "StorageEvent" + +-- | Functions for this inteface are in "JSDOM.StorageEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype StorageEventInit = StorageEventInit { unStorageEventInit :: JSVal } + +instance PToJSVal StorageEventInit where + pToJSVal = unStorageEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal StorageEventInit where + pFromJSVal = StorageEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal StorageEventInit where + toJSVal = return . unStorageEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal StorageEventInit where + fromJSVal v = fmap StorageEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StorageEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StorageEventInit where + makeObject = makeObject . unStorageEventInit + +instance IsEventInit StorageEventInit +instance IsGObject StorageEventInit where + typeGType _ = gTypeStorageEventInit + {-# INLINE typeGType #-} + +noStorageEventInit :: Maybe StorageEventInit +noStorageEventInit = Nothing +{-# INLINE noStorageEventInit #-} + +gTypeStorageEventInit :: JSM GType +gTypeStorageEventInit = GType . Object <$> jsg "StorageEventInit" + +-- | Functions for this inteface are in "JSDOM.StorageInfo". +-- +-- +newtype StorageInfo = StorageInfo { unStorageInfo :: JSVal } + +instance PToJSVal StorageInfo where + pToJSVal = unStorageInfo + {-# INLINE pToJSVal #-} + +instance PFromJSVal StorageInfo where + pFromJSVal = StorageInfo + {-# INLINE pFromJSVal #-} + +instance ToJSVal StorageInfo where + toJSVal = return . unStorageInfo + {-# INLINE toJSVal #-} + +instance FromJSVal StorageInfo where + fromJSVal v = fmap StorageInfo <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StorageInfo + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StorageInfo where + makeObject = makeObject . unStorageInfo + +instance IsGObject StorageInfo where + typeGType _ = gTypeStorageInfo + {-# INLINE typeGType #-} + +noStorageInfo :: Maybe StorageInfo +noStorageInfo = Nothing +{-# INLINE noStorageInfo #-} + +gTypeStorageInfo :: JSM GType +gTypeStorageInfo = GType . Object <$> jsg "StorageInfo" + +-- | Functions for this inteface are in "JSDOM.StorageQuota". +-- +-- +newtype StorageQuota = StorageQuota { unStorageQuota :: JSVal } + +instance PToJSVal StorageQuota where + pToJSVal = unStorageQuota + {-# INLINE pToJSVal #-} + +instance PFromJSVal StorageQuota where + pFromJSVal = StorageQuota + {-# INLINE pFromJSVal #-} + +instance ToJSVal StorageQuota where + toJSVal = return . unStorageQuota + {-# INLINE toJSVal #-} + +instance FromJSVal StorageQuota where + fromJSVal v = fmap StorageQuota <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StorageQuota + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StorageQuota where + makeObject = makeObject . unStorageQuota + +instance IsGObject StorageQuota where + typeGType _ = gTypeStorageQuota + {-# INLINE typeGType #-} + +noStorageQuota :: Maybe StorageQuota +noStorageQuota = Nothing +{-# INLINE noStorageQuota #-} + +gTypeStorageQuota :: JSM GType +gTypeStorageQuota = GType . Object <$> jsg "StorageQuota" + +-- | Functions for this inteface are in "JSDOM.StyleMedia". +-- +-- +newtype StyleMedia = StyleMedia { unStyleMedia :: JSVal } + +instance PToJSVal StyleMedia where + pToJSVal = unStyleMedia + {-# INLINE pToJSVal #-} + +instance PFromJSVal StyleMedia where + pFromJSVal = StyleMedia + {-# INLINE pFromJSVal #-} + +instance ToJSVal StyleMedia where + toJSVal = return . unStyleMedia + {-# INLINE toJSVal #-} + +instance FromJSVal StyleMedia where + fromJSVal v = fmap StyleMedia <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StyleMedia + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StyleMedia where + makeObject = makeObject . unStyleMedia + +instance IsGObject StyleMedia where + typeGType _ = gTypeStyleMedia + {-# INLINE typeGType #-} + +noStyleMedia :: Maybe StyleMedia +noStyleMedia = Nothing +{-# INLINE noStyleMedia #-} + +gTypeStyleMedia :: JSM GType +gTypeStyleMedia = GType . Object <$> jsg "StyleMedia" + +-- | Functions for this inteface are in "JSDOM.StyleSheet". +-- +-- +newtype StyleSheet = StyleSheet { unStyleSheet :: JSVal } + +instance PToJSVal StyleSheet where + pToJSVal = unStyleSheet + {-# INLINE pToJSVal #-} + +instance PFromJSVal StyleSheet where + pFromJSVal = StyleSheet + {-# INLINE pFromJSVal #-} + +instance ToJSVal StyleSheet where + toJSVal = return . unStyleSheet + {-# INLINE toJSVal #-} + +instance FromJSVal StyleSheet where + fromJSVal v = fmap StyleSheet <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StyleSheet + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StyleSheet where + makeObject = makeObject . unStyleSheet + +class (IsGObject o) => IsStyleSheet o +toStyleSheet :: IsStyleSheet o => o -> StyleSheet +toStyleSheet = StyleSheet . coerce + +instance IsStyleSheet StyleSheet +instance IsGObject StyleSheet where + typeGType _ = gTypeStyleSheet + {-# INLINE typeGType #-} + +noStyleSheet :: Maybe StyleSheet +noStyleSheet = Nothing +{-# INLINE noStyleSheet #-} + +gTypeStyleSheet :: JSM GType +gTypeStyleSheet = GType . Object <$> jsg "StyleSheet" + +-- | Functions for this inteface are in "JSDOM.StyleSheetList". +-- +-- +newtype StyleSheetList = StyleSheetList { unStyleSheetList :: JSVal } + +instance PToJSVal StyleSheetList where + pToJSVal = unStyleSheetList + {-# INLINE pToJSVal #-} + +instance PFromJSVal StyleSheetList where + pFromJSVal = StyleSheetList + {-# INLINE pFromJSVal #-} + +instance ToJSVal StyleSheetList where + toJSVal = return . unStyleSheetList + {-# INLINE toJSVal #-} + +instance FromJSVal StyleSheetList where + fromJSVal v = fmap StyleSheetList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . StyleSheetList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject StyleSheetList where + makeObject = makeObject . unStyleSheetList + +instance IsGObject StyleSheetList where + typeGType _ = gTypeStyleSheetList + {-# INLINE typeGType #-} + +noStyleSheetList :: Maybe StyleSheetList +noStyleSheetList = Nothing +{-# INLINE noStyleSheetList #-} + +gTypeStyleSheetList :: JSM GType +gTypeStyleSheetList = GType . Object <$> jsg "StyleSheetList" + +-- | Functions for this inteface are in "JSDOM.SubtleCrypto". +-- +-- +newtype SubtleCrypto = SubtleCrypto { unSubtleCrypto :: JSVal } + +instance PToJSVal SubtleCrypto where + pToJSVal = unSubtleCrypto + {-# INLINE pToJSVal #-} + +instance PFromJSVal SubtleCrypto where + pFromJSVal = SubtleCrypto + {-# INLINE pFromJSVal #-} + +instance ToJSVal SubtleCrypto where + toJSVal = return . unSubtleCrypto + {-# INLINE toJSVal #-} + +instance FromJSVal SubtleCrypto where + fromJSVal v = fmap SubtleCrypto <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . SubtleCrypto + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject SubtleCrypto where + makeObject = makeObject . unSubtleCrypto + +instance IsGObject SubtleCrypto where + typeGType _ = gTypeSubtleCrypto + {-# INLINE typeGType #-} + +noSubtleCrypto :: Maybe SubtleCrypto +noSubtleCrypto = Nothing +{-# INLINE noSubtleCrypto #-} + +gTypeSubtleCrypto :: JSM GType +gTypeSubtleCrypto = GType . Object <$> jsg "WebKitSubtleCrypto" + +-- | Functions for this inteface are in "JSDOM.Text". +-- Base interface functions are in: +-- +-- * "JSDOM.CharacterData" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.NonDocumentTypeChildNode" +-- * "JSDOM.ChildNode" +-- * "JSDOM.Slotable" +-- +-- +newtype Text = Text { unText :: JSVal } + +instance PToJSVal Text where + pToJSVal = unText + {-# INLINE pToJSVal #-} + +instance PFromJSVal Text where + pFromJSVal = Text + {-# INLINE pFromJSVal #-} + +instance ToJSVal Text where + toJSVal = return . unText + {-# INLINE toJSVal #-} + +instance FromJSVal Text where + fromJSVal v = fmap Text <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Text + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Text where + makeObject = makeObject . unText + +class (IsCharacterData o, IsNode o, IsEventTarget o, IsNonDocumentTypeChildNode o, IsChildNode o, IsSlotable o, IsGObject o) => IsText o +toText :: IsText o => o -> Text +toText = Text . coerce + +instance IsText Text +instance IsCharacterData Text +instance IsNode Text +instance IsEventTarget Text +instance IsNonDocumentTypeChildNode Text +instance IsChildNode Text +instance IsSlotable Text +instance IsGObject Text where + typeGType _ = gTypeText + {-# INLINE typeGType #-} + +noText :: Maybe Text +noText = Nothing +{-# INLINE noText #-} + +gTypeText :: JSM GType +gTypeText = GType . Object <$> jsg "Text" + +-- | Functions for this inteface are in "JSDOM.TextDecodeOptions". +-- +-- +newtype TextDecodeOptions = TextDecodeOptions { unTextDecodeOptions :: JSVal } + +instance PToJSVal TextDecodeOptions where + pToJSVal = unTextDecodeOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextDecodeOptions where + pFromJSVal = TextDecodeOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextDecodeOptions where + toJSVal = return . unTextDecodeOptions + {-# INLINE toJSVal #-} + +instance FromJSVal TextDecodeOptions where + fromJSVal v = fmap TextDecodeOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextDecodeOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextDecodeOptions where + makeObject = makeObject . unTextDecodeOptions + +instance IsGObject TextDecodeOptions where + typeGType _ = gTypeTextDecodeOptions + {-# INLINE typeGType #-} + +noTextDecodeOptions :: Maybe TextDecodeOptions +noTextDecodeOptions = Nothing +{-# INLINE noTextDecodeOptions #-} + +gTypeTextDecodeOptions :: JSM GType +gTypeTextDecodeOptions = GType . Object <$> jsg "TextDecodeOptions" + +-- | Functions for this inteface are in "JSDOM.TextDecoder". +-- +-- +newtype TextDecoder = TextDecoder { unTextDecoder :: JSVal } + +instance PToJSVal TextDecoder where + pToJSVal = unTextDecoder + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextDecoder where + pFromJSVal = TextDecoder + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextDecoder where + toJSVal = return . unTextDecoder + {-# INLINE toJSVal #-} + +instance FromJSVal TextDecoder where + fromJSVal v = fmap TextDecoder <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextDecoder + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextDecoder where + makeObject = makeObject . unTextDecoder + +instance IsGObject TextDecoder where + typeGType _ = gTypeTextDecoder + {-# INLINE typeGType #-} + +noTextDecoder :: Maybe TextDecoder +noTextDecoder = Nothing +{-# INLINE noTextDecoder #-} + +gTypeTextDecoder :: JSM GType +gTypeTextDecoder = GType . Object <$> jsg "TextDecoder" + +-- | Functions for this inteface are in "JSDOM.TextDecoderOptions". +-- +-- +newtype TextDecoderOptions = TextDecoderOptions { unTextDecoderOptions :: JSVal } + +instance PToJSVal TextDecoderOptions where + pToJSVal = unTextDecoderOptions + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextDecoderOptions where + pFromJSVal = TextDecoderOptions + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextDecoderOptions where + toJSVal = return . unTextDecoderOptions + {-# INLINE toJSVal #-} + +instance FromJSVal TextDecoderOptions where + fromJSVal v = fmap TextDecoderOptions <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextDecoderOptions + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextDecoderOptions where + makeObject = makeObject . unTextDecoderOptions + +instance IsGObject TextDecoderOptions where + typeGType _ = gTypeTextDecoderOptions + {-# INLINE typeGType #-} + +noTextDecoderOptions :: Maybe TextDecoderOptions +noTextDecoderOptions = Nothing +{-# INLINE noTextDecoderOptions #-} + +gTypeTextDecoderOptions :: JSM GType +gTypeTextDecoderOptions = GType . Object <$> jsg "TextDecoderOptions" + +-- | Functions for this inteface are in "JSDOM.TextEncoder". +-- +-- +newtype TextEncoder = TextEncoder { unTextEncoder :: JSVal } + +instance PToJSVal TextEncoder where + pToJSVal = unTextEncoder + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextEncoder where + pFromJSVal = TextEncoder + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextEncoder where + toJSVal = return . unTextEncoder + {-# INLINE toJSVal #-} + +instance FromJSVal TextEncoder where + fromJSVal v = fmap TextEncoder <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextEncoder + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextEncoder where + makeObject = makeObject . unTextEncoder + +instance IsGObject TextEncoder where + typeGType _ = gTypeTextEncoder + {-# INLINE typeGType #-} + +noTextEncoder :: Maybe TextEncoder +noTextEncoder = Nothing +{-# INLINE noTextEncoder #-} + +gTypeTextEncoder :: JSM GType +gTypeTextEncoder = GType . Object <$> jsg "TextEncoder" + +-- | Functions for this inteface are in "JSDOM.TextEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEvent" +-- * "JSDOM.Event" +-- +-- +newtype TextEvent = TextEvent { unTextEvent :: JSVal } + +instance PToJSVal TextEvent where + pToJSVal = unTextEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextEvent where + pFromJSVal = TextEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextEvent where + toJSVal = return . unTextEvent + {-# INLINE toJSVal #-} + +instance FromJSVal TextEvent where + fromJSVal v = fmap TextEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextEvent where + makeObject = makeObject . unTextEvent + +instance IsUIEvent TextEvent +instance IsEvent TextEvent +instance IsGObject TextEvent where + typeGType _ = gTypeTextEvent + {-# INLINE typeGType #-} + +noTextEvent :: Maybe TextEvent +noTextEvent = Nothing +{-# INLINE noTextEvent #-} + +gTypeTextEvent :: JSM GType +gTypeTextEvent = GType . Object <$> jsg "TextEvent" + +-- | Functions for this inteface are in "JSDOM.TextMetrics". +-- +-- +newtype TextMetrics = TextMetrics { unTextMetrics :: JSVal } + +instance PToJSVal TextMetrics where + pToJSVal = unTextMetrics + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextMetrics where + pFromJSVal = TextMetrics + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextMetrics where + toJSVal = return . unTextMetrics + {-# INLINE toJSVal #-} + +instance FromJSVal TextMetrics where + fromJSVal v = fmap TextMetrics <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextMetrics + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextMetrics where + makeObject = makeObject . unTextMetrics + +instance IsGObject TextMetrics where + typeGType _ = gTypeTextMetrics + {-# INLINE typeGType #-} + +noTextMetrics :: Maybe TextMetrics +noTextMetrics = Nothing +{-# INLINE noTextMetrics #-} + +gTypeTextMetrics :: JSM GType +gTypeTextMetrics = GType . Object <$> jsg "TextMetrics" + +-- | Functions for this inteface are in "JSDOM.TextTrack". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype TextTrack = TextTrack { unTextTrack :: JSVal } + +instance PToJSVal TextTrack where + pToJSVal = unTextTrack + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextTrack where + pFromJSVal = TextTrack + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextTrack where + toJSVal = return . unTextTrack + {-# INLINE toJSVal #-} + +instance FromJSVal TextTrack where + fromJSVal v = fmap TextTrack <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextTrack + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextTrack where + makeObject = makeObject . unTextTrack + +instance IsEventTarget TextTrack +instance IsGObject TextTrack where + typeGType _ = gTypeTextTrack + {-# INLINE typeGType #-} + +noTextTrack :: Maybe TextTrack +noTextTrack = Nothing +{-# INLINE noTextTrack #-} + +gTypeTextTrack :: JSM GType +gTypeTextTrack = GType . Object <$> jsg "TextTrack" + +-- | Functions for this inteface are in "JSDOM.TextTrackCue". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype TextTrackCue = TextTrackCue { unTextTrackCue :: JSVal } + +instance PToJSVal TextTrackCue where + pToJSVal = unTextTrackCue + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextTrackCue where + pFromJSVal = TextTrackCue + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextTrackCue where + toJSVal = return . unTextTrackCue + {-# INLINE toJSVal #-} + +instance FromJSVal TextTrackCue where + fromJSVal v = fmap TextTrackCue <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextTrackCue + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextTrackCue where + makeObject = makeObject . unTextTrackCue + +class (IsEventTarget o, IsGObject o) => IsTextTrackCue o +toTextTrackCue :: IsTextTrackCue o => o -> TextTrackCue +toTextTrackCue = TextTrackCue . coerce + +instance IsTextTrackCue TextTrackCue +instance IsEventTarget TextTrackCue +instance IsGObject TextTrackCue where + typeGType _ = gTypeTextTrackCue + {-# INLINE typeGType #-} + +noTextTrackCue :: Maybe TextTrackCue +noTextTrackCue = Nothing +{-# INLINE noTextTrackCue #-} + +gTypeTextTrackCue :: JSM GType +gTypeTextTrackCue = GType . Object <$> jsg "TextTrackCue" + +-- | Functions for this inteface are in "JSDOM.TextTrackCueList". +-- +-- +newtype TextTrackCueList = TextTrackCueList { unTextTrackCueList :: JSVal } + +instance PToJSVal TextTrackCueList where + pToJSVal = unTextTrackCueList + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextTrackCueList where + pFromJSVal = TextTrackCueList + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextTrackCueList where + toJSVal = return . unTextTrackCueList + {-# INLINE toJSVal #-} + +instance FromJSVal TextTrackCueList where + fromJSVal v = fmap TextTrackCueList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextTrackCueList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextTrackCueList where + makeObject = makeObject . unTextTrackCueList + +instance IsGObject TextTrackCueList where + typeGType _ = gTypeTextTrackCueList + {-# INLINE typeGType #-} + +noTextTrackCueList :: Maybe TextTrackCueList +noTextTrackCueList = Nothing +{-# INLINE noTextTrackCueList #-} + +gTypeTextTrackCueList :: JSM GType +gTypeTextTrackCueList = GType . Object <$> jsg "TextTrackCueList" + +-- | Functions for this inteface are in "JSDOM.TextTrackList". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype TextTrackList = TextTrackList { unTextTrackList :: JSVal } + +instance PToJSVal TextTrackList where + pToJSVal = unTextTrackList + {-# INLINE pToJSVal #-} + +instance PFromJSVal TextTrackList where + pFromJSVal = TextTrackList + {-# INLINE pFromJSVal #-} + +instance ToJSVal TextTrackList where + toJSVal = return . unTextTrackList + {-# INLINE toJSVal #-} + +instance FromJSVal TextTrackList where + fromJSVal v = fmap TextTrackList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TextTrackList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TextTrackList where + makeObject = makeObject . unTextTrackList + +instance IsEventTarget TextTrackList +instance IsGObject TextTrackList where + typeGType _ = gTypeTextTrackList + {-# INLINE typeGType #-} + +noTextTrackList :: Maybe TextTrackList +noTextTrackList = Nothing +{-# INLINE noTextTrackList #-} + +gTypeTextTrackList :: JSM GType +gTypeTextTrackList = GType . Object <$> jsg "TextTrackList" + +-- | Functions for this inteface are in "JSDOM.TimeRanges". +-- +-- +newtype TimeRanges = TimeRanges { unTimeRanges :: JSVal } + +instance PToJSVal TimeRanges where + pToJSVal = unTimeRanges + {-# INLINE pToJSVal #-} + +instance PFromJSVal TimeRanges where + pFromJSVal = TimeRanges + {-# INLINE pFromJSVal #-} + +instance ToJSVal TimeRanges where + toJSVal = return . unTimeRanges + {-# INLINE toJSVal #-} + +instance FromJSVal TimeRanges where + fromJSVal v = fmap TimeRanges <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TimeRanges + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TimeRanges where + makeObject = makeObject . unTimeRanges + +instance IsGObject TimeRanges where + typeGType _ = gTypeTimeRanges + {-# INLINE typeGType #-} + +noTimeRanges :: Maybe TimeRanges +noTimeRanges = Nothing +{-# INLINE noTimeRanges #-} + +gTypeTimeRanges :: JSM GType +gTypeTimeRanges = GType . Object <$> jsg "TimeRanges" + +-- | Functions for this inteface are in "JSDOM.Touch". +-- +-- +newtype Touch = Touch { unTouch :: JSVal } + +instance PToJSVal Touch where + pToJSVal = unTouch + {-# INLINE pToJSVal #-} + +instance PFromJSVal Touch where + pFromJSVal = Touch + {-# INLINE pFromJSVal #-} + +instance ToJSVal Touch where + toJSVal = return . unTouch + {-# INLINE toJSVal #-} + +instance FromJSVal Touch where + fromJSVal v = fmap Touch <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Touch + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Touch where + makeObject = makeObject . unTouch + +instance IsGObject Touch where + typeGType _ = gTypeTouch + {-# INLINE typeGType #-} + +noTouch :: Maybe Touch +noTouch = Nothing +{-# INLINE noTouch #-} + +gTypeTouch :: JSM GType +gTypeTouch = GType . Object <$> jsg "Touch" + +-- | Functions for this inteface are in "JSDOM.TouchEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEvent" +-- * "JSDOM.Event" +-- +-- +newtype TouchEvent = TouchEvent { unTouchEvent :: JSVal } + +instance PToJSVal TouchEvent where + pToJSVal = unTouchEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal TouchEvent where + pFromJSVal = TouchEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal TouchEvent where + toJSVal = return . unTouchEvent + {-# INLINE toJSVal #-} + +instance FromJSVal TouchEvent where + fromJSVal v = fmap TouchEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TouchEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TouchEvent where + makeObject = makeObject . unTouchEvent + +instance IsUIEvent TouchEvent +instance IsEvent TouchEvent +instance IsGObject TouchEvent where + typeGType _ = gTypeTouchEvent + {-# INLINE typeGType #-} + +noTouchEvent :: Maybe TouchEvent +noTouchEvent = Nothing +{-# INLINE noTouchEvent #-} + +gTypeTouchEvent :: JSM GType +gTypeTouchEvent = GType . Object <$> jsg "TouchEvent" + +-- | Functions for this inteface are in "JSDOM.TouchEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.UIEventInit" +-- * "JSDOM.EventInit" +-- +-- +newtype TouchEventInit = TouchEventInit { unTouchEventInit :: JSVal } + +instance PToJSVal TouchEventInit where + pToJSVal = unTouchEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal TouchEventInit where + pFromJSVal = TouchEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal TouchEventInit where + toJSVal = return . unTouchEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal TouchEventInit where + fromJSVal v = fmap TouchEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TouchEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TouchEventInit where + makeObject = makeObject . unTouchEventInit + +instance IsUIEventInit TouchEventInit +instance IsEventInit TouchEventInit +instance IsGObject TouchEventInit where + typeGType _ = gTypeTouchEventInit + {-# INLINE typeGType #-} + +noTouchEventInit :: Maybe TouchEventInit +noTouchEventInit = Nothing +{-# INLINE noTouchEventInit #-} + +gTypeTouchEventInit :: JSM GType +gTypeTouchEventInit = GType . Object <$> jsg "TouchEventInit" + +-- | Functions for this inteface are in "JSDOM.TouchList". +-- +-- +newtype TouchList = TouchList { unTouchList :: JSVal } + +instance PToJSVal TouchList where + pToJSVal = unTouchList + {-# INLINE pToJSVal #-} + +instance PFromJSVal TouchList where + pFromJSVal = TouchList + {-# INLINE pFromJSVal #-} + +instance ToJSVal TouchList where + toJSVal = return . unTouchList + {-# INLINE toJSVal #-} + +instance FromJSVal TouchList where + fromJSVal v = fmap TouchList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TouchList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TouchList where + makeObject = makeObject . unTouchList + +instance IsGObject TouchList where + typeGType _ = gTypeTouchList + {-# INLINE typeGType #-} + +noTouchList :: Maybe TouchList +noTouchList = Nothing +{-# INLINE noTouchList #-} + +gTypeTouchList :: JSM GType +gTypeTouchList = GType . Object <$> jsg "TouchList" + +-- | Functions for this inteface are in "JSDOM.TrackEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype TrackEvent = TrackEvent { unTrackEvent :: JSVal } + +instance PToJSVal TrackEvent where + pToJSVal = unTrackEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal TrackEvent where + pFromJSVal = TrackEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal TrackEvent where + toJSVal = return . unTrackEvent + {-# INLINE toJSVal #-} + +instance FromJSVal TrackEvent where + fromJSVal v = fmap TrackEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TrackEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TrackEvent where + makeObject = makeObject . unTrackEvent + +instance IsEvent TrackEvent +instance IsGObject TrackEvent where + typeGType _ = gTypeTrackEvent + {-# INLINE typeGType #-} + +noTrackEvent :: Maybe TrackEvent +noTrackEvent = Nothing +{-# INLINE noTrackEvent #-} + +gTypeTrackEvent :: JSM GType +gTypeTrackEvent = GType . Object <$> jsg "TrackEvent" + +-- | Functions for this inteface are in "JSDOM.TrackEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype TrackEventInit = TrackEventInit { unTrackEventInit :: JSVal } + +instance PToJSVal TrackEventInit where + pToJSVal = unTrackEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal TrackEventInit where + pFromJSVal = TrackEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal TrackEventInit where + toJSVal = return . unTrackEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal TrackEventInit where + fromJSVal v = fmap TrackEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TrackEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TrackEventInit where + makeObject = makeObject . unTrackEventInit + +instance IsEventInit TrackEventInit +instance IsGObject TrackEventInit where + typeGType _ = gTypeTrackEventInit + {-# INLINE typeGType #-} + +noTrackEventInit :: Maybe TrackEventInit +noTrackEventInit = Nothing +{-# INLINE noTrackEventInit #-} + +gTypeTrackEventInit :: JSM GType +gTypeTrackEventInit = GType . Object <$> jsg "TrackEventInit" + +-- | Functions for this inteface are in "JSDOM.TransitionEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype TransitionEvent = TransitionEvent { unTransitionEvent :: JSVal } + +instance PToJSVal TransitionEvent where + pToJSVal = unTransitionEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal TransitionEvent where + pFromJSVal = TransitionEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal TransitionEvent where + toJSVal = return . unTransitionEvent + {-# INLINE toJSVal #-} + +instance FromJSVal TransitionEvent where + fromJSVal v = fmap TransitionEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TransitionEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TransitionEvent where + makeObject = makeObject . unTransitionEvent + +instance IsEvent TransitionEvent +instance IsGObject TransitionEvent where + typeGType _ = gTypeTransitionEvent + {-# INLINE typeGType #-} + +noTransitionEvent :: Maybe TransitionEvent +noTransitionEvent = Nothing +{-# INLINE noTransitionEvent #-} + +gTypeTransitionEvent :: JSM GType +gTypeTransitionEvent = GType . Object <$> jsg "TransitionEvent" + +-- | Functions for this inteface are in "JSDOM.TransitionEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype TransitionEventInit = TransitionEventInit { unTransitionEventInit :: JSVal } + +instance PToJSVal TransitionEventInit where + pToJSVal = unTransitionEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal TransitionEventInit where + pFromJSVal = TransitionEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal TransitionEventInit where + toJSVal = return . unTransitionEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal TransitionEventInit where + fromJSVal v = fmap TransitionEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TransitionEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TransitionEventInit where + makeObject = makeObject . unTransitionEventInit + +instance IsEventInit TransitionEventInit +instance IsGObject TransitionEventInit where + typeGType _ = gTypeTransitionEventInit + {-# INLINE typeGType #-} + +noTransitionEventInit :: Maybe TransitionEventInit +noTransitionEventInit = Nothing +{-# INLINE noTransitionEventInit #-} + +gTypeTransitionEventInit :: JSM GType +gTypeTransitionEventInit = GType . Object <$> jsg "TransitionEventInit" + +-- | Functions for this inteface are in "JSDOM.TreeWalker". +-- +-- +newtype TreeWalker = TreeWalker { unTreeWalker :: JSVal } + +instance PToJSVal TreeWalker where + pToJSVal = unTreeWalker + {-# INLINE pToJSVal #-} + +instance PFromJSVal TreeWalker where + pFromJSVal = TreeWalker + {-# INLINE pFromJSVal #-} + +instance ToJSVal TreeWalker where + toJSVal = return . unTreeWalker + {-# INLINE toJSVal #-} + +instance FromJSVal TreeWalker where + fromJSVal v = fmap TreeWalker <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . TreeWalker + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject TreeWalker where + makeObject = makeObject . unTreeWalker + +instance IsGObject TreeWalker where + typeGType _ = gTypeTreeWalker + {-# INLINE typeGType #-} + +noTreeWalker :: Maybe TreeWalker +noTreeWalker = Nothing +{-# INLINE noTreeWalker #-} + +gTypeTreeWalker :: JSM GType +gTypeTreeWalker = GType . Object <$> jsg "TreeWalker" + +-- | Functions for this inteface are in "JSDOM.UIEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype UIEvent = UIEvent { unUIEvent :: JSVal } + +instance PToJSVal UIEvent where + pToJSVal = unUIEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal UIEvent where + pFromJSVal = UIEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal UIEvent where + toJSVal = return . unUIEvent + {-# INLINE toJSVal #-} + +instance FromJSVal UIEvent where + fromJSVal v = fmap UIEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . UIEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject UIEvent where + makeObject = makeObject . unUIEvent + +class (IsEvent o, IsGObject o) => IsUIEvent o +toUIEvent :: IsUIEvent o => o -> UIEvent +toUIEvent = UIEvent . coerce + +instance IsUIEvent UIEvent +instance IsEvent UIEvent +instance IsGObject UIEvent where + typeGType _ = gTypeUIEvent + {-# INLINE typeGType #-} + +noUIEvent :: Maybe UIEvent +noUIEvent = Nothing +{-# INLINE noUIEvent #-} + +gTypeUIEvent :: JSM GType +gTypeUIEvent = GType . Object <$> jsg "UIEvent" + +-- | Functions for this inteface are in "JSDOM.UIEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype UIEventInit = UIEventInit { unUIEventInit :: JSVal } + +instance PToJSVal UIEventInit where + pToJSVal = unUIEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal UIEventInit where + pFromJSVal = UIEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal UIEventInit where + toJSVal = return . unUIEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal UIEventInit where + fromJSVal v = fmap UIEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . UIEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject UIEventInit where + makeObject = makeObject . unUIEventInit + +class (IsEventInit o, IsGObject o) => IsUIEventInit o +toUIEventInit :: IsUIEventInit o => o -> UIEventInit +toUIEventInit = UIEventInit . coerce + +instance IsUIEventInit UIEventInit +instance IsEventInit UIEventInit +instance IsGObject UIEventInit where + typeGType _ = gTypeUIEventInit + {-# INLINE typeGType #-} + +noUIEventInit :: Maybe UIEventInit +noUIEventInit = Nothing +{-# INLINE noUIEventInit #-} + +gTypeUIEventInit :: JSM GType +gTypeUIEventInit = GType . Object <$> jsg "UIEventInit" + +-- | Functions for this inteface are in "JSDOM.URL". +-- +-- +newtype URL = URL { unURL :: JSVal } + +instance PToJSVal URL where + pToJSVal = unURL + {-# INLINE pToJSVal #-} + +instance PFromJSVal URL where + pFromJSVal = URL + {-# INLINE pFromJSVal #-} + +instance ToJSVal URL where + toJSVal = return . unURL + {-# INLINE toJSVal #-} + +instance FromJSVal URL where + fromJSVal v = fmap URL <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . URL + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject URL where + makeObject = makeObject . unURL + +instance IsGObject URL where + typeGType _ = gTypeURL + {-# INLINE typeGType #-} + +noURL :: Maybe URL +noURL = Nothing +{-# INLINE noURL #-} + +gTypeURL :: JSM GType +gTypeURL = GType . Object <$> jsg "URL" + +-- | Functions for this inteface are in "JSDOM.URLSearchParams". +-- +-- +newtype URLSearchParams = URLSearchParams { unURLSearchParams :: JSVal } + +instance PToJSVal URLSearchParams where + pToJSVal = unURLSearchParams + {-# INLINE pToJSVal #-} + +instance PFromJSVal URLSearchParams where + pFromJSVal = URLSearchParams + {-# INLINE pFromJSVal #-} + +instance ToJSVal URLSearchParams where + toJSVal = return . unURLSearchParams + {-# INLINE toJSVal #-} + +instance FromJSVal URLSearchParams where + fromJSVal v = fmap URLSearchParams <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . URLSearchParams + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject URLSearchParams where + makeObject = makeObject . unURLSearchParams + +instance IsGObject URLSearchParams where + typeGType _ = gTypeURLSearchParams + {-# INLINE typeGType #-} + +noURLSearchParams :: Maybe URLSearchParams +noURLSearchParams = Nothing +{-# INLINE noURLSearchParams #-} + +gTypeURLSearchParams :: JSM GType +gTypeURLSearchParams = GType . Object <$> jsg "URLSearchParams" + +-- | Functions for this inteface are in "JSDOM.UserMessageHandler". +-- +-- +newtype UserMessageHandler = UserMessageHandler { unUserMessageHandler :: JSVal } + +instance PToJSVal UserMessageHandler where + pToJSVal = unUserMessageHandler + {-# INLINE pToJSVal #-} + +instance PFromJSVal UserMessageHandler where + pFromJSVal = UserMessageHandler + {-# INLINE pFromJSVal #-} + +instance ToJSVal UserMessageHandler where + toJSVal = return . unUserMessageHandler + {-# INLINE toJSVal #-} + +instance FromJSVal UserMessageHandler where + fromJSVal v = fmap UserMessageHandler <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . UserMessageHandler + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject UserMessageHandler where + makeObject = makeObject . unUserMessageHandler + +instance IsGObject UserMessageHandler where + typeGType _ = gTypeUserMessageHandler + {-# INLINE typeGType #-} + +noUserMessageHandler :: Maybe UserMessageHandler +noUserMessageHandler = Nothing +{-# INLINE noUserMessageHandler #-} + +gTypeUserMessageHandler :: JSM GType +gTypeUserMessageHandler = GType . Object <$> jsg "UserMessageHandler" + +-- | Functions for this inteface are in "JSDOM.UserMessageHandlersNamespace". +-- +-- +newtype UserMessageHandlersNamespace = UserMessageHandlersNamespace { unUserMessageHandlersNamespace :: JSVal } + +instance PToJSVal UserMessageHandlersNamespace where + pToJSVal = unUserMessageHandlersNamespace + {-# INLINE pToJSVal #-} + +instance PFromJSVal UserMessageHandlersNamespace where + pFromJSVal = UserMessageHandlersNamespace + {-# INLINE pFromJSVal #-} + +instance ToJSVal UserMessageHandlersNamespace where + toJSVal = return . unUserMessageHandlersNamespace + {-# INLINE toJSVal #-} + +instance FromJSVal UserMessageHandlersNamespace where + fromJSVal v = fmap UserMessageHandlersNamespace <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . UserMessageHandlersNamespace + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject UserMessageHandlersNamespace where + makeObject = makeObject . unUserMessageHandlersNamespace + +instance IsGObject UserMessageHandlersNamespace where + typeGType _ = gTypeUserMessageHandlersNamespace + {-# INLINE typeGType #-} + +noUserMessageHandlersNamespace :: Maybe UserMessageHandlersNamespace +noUserMessageHandlersNamespace = Nothing +{-# INLINE noUserMessageHandlersNamespace #-} + +gTypeUserMessageHandlersNamespace :: JSM GType +gTypeUserMessageHandlersNamespace = GType . Object <$> jsg "UserMessageHandlersNamespace" + +-- | Functions for this inteface are in "JSDOM.VTTCue". +-- Base interface functions are in: +-- +-- * "JSDOM.TextTrackCue" +-- * "JSDOM.EventTarget" +-- +-- +newtype VTTCue = VTTCue { unVTTCue :: JSVal } + +instance PToJSVal VTTCue where + pToJSVal = unVTTCue + {-# INLINE pToJSVal #-} + +instance PFromJSVal VTTCue where + pFromJSVal = VTTCue + {-# INLINE pFromJSVal #-} + +instance ToJSVal VTTCue where + toJSVal = return . unVTTCue + {-# INLINE toJSVal #-} + +instance FromJSVal VTTCue where + fromJSVal v = fmap VTTCue <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . VTTCue + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject VTTCue where + makeObject = makeObject . unVTTCue + +instance IsTextTrackCue VTTCue +instance IsEventTarget VTTCue +instance IsGObject VTTCue where + typeGType _ = gTypeVTTCue + {-# INLINE typeGType #-} + +noVTTCue :: Maybe VTTCue +noVTTCue = Nothing +{-# INLINE noVTTCue #-} + +gTypeVTTCue :: JSM GType +gTypeVTTCue = GType . Object <$> jsg "VTTCue" + +-- | Functions for this inteface are in "JSDOM.VTTRegion". +-- +-- +newtype VTTRegion = VTTRegion { unVTTRegion :: JSVal } + +instance PToJSVal VTTRegion where + pToJSVal = unVTTRegion + {-# INLINE pToJSVal #-} + +instance PFromJSVal VTTRegion where + pFromJSVal = VTTRegion + {-# INLINE pFromJSVal #-} + +instance ToJSVal VTTRegion where + toJSVal = return . unVTTRegion + {-# INLINE toJSVal #-} + +instance FromJSVal VTTRegion where + fromJSVal v = fmap VTTRegion <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . VTTRegion + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject VTTRegion where + makeObject = makeObject . unVTTRegion + +instance IsGObject VTTRegion where + typeGType _ = gTypeVTTRegion + {-# INLINE typeGType #-} + +noVTTRegion :: Maybe VTTRegion +noVTTRegion = Nothing +{-# INLINE noVTTRegion #-} + +gTypeVTTRegion :: JSM GType +gTypeVTTRegion = GType . Object <$> jsg "VTTRegion" + +-- | Functions for this inteface are in "JSDOM.VTTRegionList". +-- +-- +newtype VTTRegionList = VTTRegionList { unVTTRegionList :: JSVal } + +instance PToJSVal VTTRegionList where + pToJSVal = unVTTRegionList + {-# INLINE pToJSVal #-} + +instance PFromJSVal VTTRegionList where + pFromJSVal = VTTRegionList + {-# INLINE pFromJSVal #-} + +instance ToJSVal VTTRegionList where + toJSVal = return . unVTTRegionList + {-# INLINE toJSVal #-} + +instance FromJSVal VTTRegionList where + fromJSVal v = fmap VTTRegionList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . VTTRegionList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject VTTRegionList where + makeObject = makeObject . unVTTRegionList + +instance IsGObject VTTRegionList where + typeGType _ = gTypeVTTRegionList + {-# INLINE typeGType #-} + +noVTTRegionList :: Maybe VTTRegionList +noVTTRegionList = Nothing +{-# INLINE noVTTRegionList #-} + +gTypeVTTRegionList :: JSM GType +gTypeVTTRegionList = GType . Object <$> jsg "VTTRegionList" + +-- | Functions for this inteface are in "JSDOM.ValidityState". +-- +-- +newtype ValidityState = ValidityState { unValidityState :: JSVal } + +instance PToJSVal ValidityState where + pToJSVal = unValidityState + {-# INLINE pToJSVal #-} + +instance PFromJSVal ValidityState where + pFromJSVal = ValidityState + {-# INLINE pFromJSVal #-} + +instance ToJSVal ValidityState where + toJSVal = return . unValidityState + {-# INLINE toJSVal #-} + +instance FromJSVal ValidityState where + fromJSVal v = fmap ValidityState <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . ValidityState + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject ValidityState where + makeObject = makeObject . unValidityState + +instance IsGObject ValidityState where + typeGType _ = gTypeValidityState + {-# INLINE typeGType #-} + +noValidityState :: Maybe ValidityState +noValidityState = Nothing +{-# INLINE noValidityState #-} + +gTypeValidityState :: JSM GType +gTypeValidityState = GType . Object <$> jsg "ValidityState" + +-- | Functions for this inteface are in "JSDOM.VideoPlaybackQuality". +-- +-- +newtype VideoPlaybackQuality = VideoPlaybackQuality { unVideoPlaybackQuality :: JSVal } + +instance PToJSVal VideoPlaybackQuality where + pToJSVal = unVideoPlaybackQuality + {-# INLINE pToJSVal #-} + +instance PFromJSVal VideoPlaybackQuality where + pFromJSVal = VideoPlaybackQuality + {-# INLINE pFromJSVal #-} + +instance ToJSVal VideoPlaybackQuality where + toJSVal = return . unVideoPlaybackQuality + {-# INLINE toJSVal #-} + +instance FromJSVal VideoPlaybackQuality where + fromJSVal v = fmap VideoPlaybackQuality <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . VideoPlaybackQuality + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject VideoPlaybackQuality where + makeObject = makeObject . unVideoPlaybackQuality + +instance IsGObject VideoPlaybackQuality where + typeGType _ = gTypeVideoPlaybackQuality + {-# INLINE typeGType #-} + +noVideoPlaybackQuality :: Maybe VideoPlaybackQuality +noVideoPlaybackQuality = Nothing +{-# INLINE noVideoPlaybackQuality #-} + +gTypeVideoPlaybackQuality :: JSM GType +gTypeVideoPlaybackQuality = GType . Object <$> jsg "VideoPlaybackQuality" + +-- | Functions for this inteface are in "JSDOM.VideoTrack". +-- +-- +newtype VideoTrack = VideoTrack { unVideoTrack :: JSVal } + +instance PToJSVal VideoTrack where + pToJSVal = unVideoTrack + {-# INLINE pToJSVal #-} + +instance PFromJSVal VideoTrack where + pFromJSVal = VideoTrack + {-# INLINE pFromJSVal #-} + +instance ToJSVal VideoTrack where + toJSVal = return . unVideoTrack + {-# INLINE toJSVal #-} + +instance FromJSVal VideoTrack where + fromJSVal v = fmap VideoTrack <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . VideoTrack + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject VideoTrack where + makeObject = makeObject . unVideoTrack + +instance IsGObject VideoTrack where + typeGType _ = gTypeVideoTrack + {-# INLINE typeGType #-} + +noVideoTrack :: Maybe VideoTrack +noVideoTrack = Nothing +{-# INLINE noVideoTrack #-} + +gTypeVideoTrack :: JSM GType +gTypeVideoTrack = GType . Object <$> jsg "VideoTrack" + +-- | Functions for this inteface are in "JSDOM.VideoTrackList". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype VideoTrackList = VideoTrackList { unVideoTrackList :: JSVal } + +instance PToJSVal VideoTrackList where + pToJSVal = unVideoTrackList + {-# INLINE pToJSVal #-} + +instance PFromJSVal VideoTrackList where + pFromJSVal = VideoTrackList + {-# INLINE pFromJSVal #-} + +instance ToJSVal VideoTrackList where + toJSVal = return . unVideoTrackList + {-# INLINE toJSVal #-} + +instance FromJSVal VideoTrackList where + fromJSVal v = fmap VideoTrackList <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . VideoTrackList + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject VideoTrackList where + makeObject = makeObject . unVideoTrackList + +instance IsEventTarget VideoTrackList +instance IsGObject VideoTrackList where + typeGType _ = gTypeVideoTrackList + {-# INLINE typeGType #-} + +noVideoTrackList :: Maybe VideoTrackList +noVideoTrackList = Nothing +{-# INLINE noVideoTrackList #-} + +gTypeVideoTrackList :: JSM GType +gTypeVideoTrackList = GType . Object <$> jsg "VideoTrackList" + +-- | Functions for this inteface are in "JSDOM.WaveShaperNode". +-- Base interface functions are in: +-- +-- * "JSDOM.AudioNode" +-- * "JSDOM.EventTarget" +-- +-- +newtype WaveShaperNode = WaveShaperNode { unWaveShaperNode :: JSVal } + +instance PToJSVal WaveShaperNode where + pToJSVal = unWaveShaperNode + {-# INLINE pToJSVal #-} + +instance PFromJSVal WaveShaperNode where + pFromJSVal = WaveShaperNode + {-# INLINE pFromJSVal #-} + +instance ToJSVal WaveShaperNode where + toJSVal = return . unWaveShaperNode + {-# INLINE toJSVal #-} + +instance FromJSVal WaveShaperNode where + fromJSVal v = fmap WaveShaperNode <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WaveShaperNode + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WaveShaperNode where + makeObject = makeObject . unWaveShaperNode + +instance IsAudioNode WaveShaperNode +instance IsEventTarget WaveShaperNode +instance IsGObject WaveShaperNode where + typeGType _ = gTypeWaveShaperNode + {-# INLINE typeGType #-} + +noWaveShaperNode :: Maybe WaveShaperNode +noWaveShaperNode = Nothing +{-# INLINE noWaveShaperNode #-} + +gTypeWaveShaperNode :: JSM GType +gTypeWaveShaperNode = GType . Object <$> jsg "WaveShaperNode" + +-- | Functions for this inteface are in "JSDOM.WebGL2RenderingContext". +-- Base interface functions are in: +-- +-- * "JSDOM.WebGLRenderingContextBase" +-- +-- +newtype WebGL2RenderingContext = WebGL2RenderingContext { unWebGL2RenderingContext :: JSVal } + +instance PToJSVal WebGL2RenderingContext where + pToJSVal = unWebGL2RenderingContext + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGL2RenderingContext where + pFromJSVal = WebGL2RenderingContext + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGL2RenderingContext where + toJSVal = return . unWebGL2RenderingContext + {-# INLINE toJSVal #-} + +instance FromJSVal WebGL2RenderingContext where + fromJSVal v = fmap WebGL2RenderingContext <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGL2RenderingContext + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGL2RenderingContext where + makeObject = makeObject . unWebGL2RenderingContext + +instance IsWebGLRenderingContextBase WebGL2RenderingContext +instance IsGObject WebGL2RenderingContext where + typeGType _ = gTypeWebGL2RenderingContext + {-# INLINE typeGType #-} + +noWebGL2RenderingContext :: Maybe WebGL2RenderingContext +noWebGL2RenderingContext = Nothing +{-# INLINE noWebGL2RenderingContext #-} + +gTypeWebGL2RenderingContext :: JSM GType +gTypeWebGL2RenderingContext = GType . Object <$> jsg "WebGL2RenderingContext" + +-- | Functions for this inteface are in "JSDOM.WebGLActiveInfo". +-- +-- +newtype WebGLActiveInfo = WebGLActiveInfo { unWebGLActiveInfo :: JSVal } + +instance PToJSVal WebGLActiveInfo where + pToJSVal = unWebGLActiveInfo + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLActiveInfo where + pFromJSVal = WebGLActiveInfo + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLActiveInfo where + toJSVal = return . unWebGLActiveInfo + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLActiveInfo where + fromJSVal v = fmap WebGLActiveInfo <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLActiveInfo + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLActiveInfo where + makeObject = makeObject . unWebGLActiveInfo + +instance IsGObject WebGLActiveInfo where + typeGType _ = gTypeWebGLActiveInfo + {-# INLINE typeGType #-} + +noWebGLActiveInfo :: Maybe WebGLActiveInfo +noWebGLActiveInfo = Nothing +{-# INLINE noWebGLActiveInfo #-} + +gTypeWebGLActiveInfo :: JSM GType +gTypeWebGLActiveInfo = GType . Object <$> jsg "WebGLActiveInfo" + +-- | Functions for this inteface are in "JSDOM.WebGLBuffer". +-- +-- +newtype WebGLBuffer = WebGLBuffer { unWebGLBuffer :: JSVal } + +instance PToJSVal WebGLBuffer where + pToJSVal = unWebGLBuffer + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLBuffer where + pFromJSVal = WebGLBuffer + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLBuffer where + toJSVal = return . unWebGLBuffer + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLBuffer where + fromJSVal v = fmap WebGLBuffer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLBuffer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLBuffer where + makeObject = makeObject . unWebGLBuffer + +instance IsGObject WebGLBuffer where + typeGType _ = gTypeWebGLBuffer + {-# INLINE typeGType #-} + +noWebGLBuffer :: Maybe WebGLBuffer +noWebGLBuffer = Nothing +{-# INLINE noWebGLBuffer #-} + +gTypeWebGLBuffer :: JSM GType +gTypeWebGLBuffer = GType . Object <$> jsg "WebGLBuffer" + +-- | Functions for this inteface are in "JSDOM.WebGLCompressedTextureATC". +-- +-- +newtype WebGLCompressedTextureATC = WebGLCompressedTextureATC { unWebGLCompressedTextureATC :: JSVal } + +instance PToJSVal WebGLCompressedTextureATC where + pToJSVal = unWebGLCompressedTextureATC + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLCompressedTextureATC where + pFromJSVal = WebGLCompressedTextureATC + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLCompressedTextureATC where + toJSVal = return . unWebGLCompressedTextureATC + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLCompressedTextureATC where + fromJSVal v = fmap WebGLCompressedTextureATC <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLCompressedTextureATC + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLCompressedTextureATC where + makeObject = makeObject . unWebGLCompressedTextureATC + +instance IsGObject WebGLCompressedTextureATC where + typeGType _ = gTypeWebGLCompressedTextureATC + {-# INLINE typeGType #-} + +noWebGLCompressedTextureATC :: Maybe WebGLCompressedTextureATC +noWebGLCompressedTextureATC = Nothing +{-# INLINE noWebGLCompressedTextureATC #-} + +gTypeWebGLCompressedTextureATC :: JSM GType +gTypeWebGLCompressedTextureATC = GType . Object <$> jsg "WebGLCompressedTextureATC" + +-- | Functions for this inteface are in "JSDOM.WebGLCompressedTexturePVRTC". +-- +-- +newtype WebGLCompressedTexturePVRTC = WebGLCompressedTexturePVRTC { unWebGLCompressedTexturePVRTC :: JSVal } + +instance PToJSVal WebGLCompressedTexturePVRTC where + pToJSVal = unWebGLCompressedTexturePVRTC + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLCompressedTexturePVRTC where + pFromJSVal = WebGLCompressedTexturePVRTC + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLCompressedTexturePVRTC where + toJSVal = return . unWebGLCompressedTexturePVRTC + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLCompressedTexturePVRTC where + fromJSVal v = fmap WebGLCompressedTexturePVRTC <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLCompressedTexturePVRTC + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLCompressedTexturePVRTC where + makeObject = makeObject . unWebGLCompressedTexturePVRTC + +instance IsGObject WebGLCompressedTexturePVRTC where + typeGType _ = gTypeWebGLCompressedTexturePVRTC + {-# INLINE typeGType #-} + +noWebGLCompressedTexturePVRTC :: Maybe WebGLCompressedTexturePVRTC +noWebGLCompressedTexturePVRTC = Nothing +{-# INLINE noWebGLCompressedTexturePVRTC #-} + +gTypeWebGLCompressedTexturePVRTC :: JSM GType +gTypeWebGLCompressedTexturePVRTC = GType . Object <$> jsg "WebGLCompressedTexturePVRTC" + +-- | Functions for this inteface are in "JSDOM.WebGLCompressedTextureS3TC". +-- +-- +newtype WebGLCompressedTextureS3TC = WebGLCompressedTextureS3TC { unWebGLCompressedTextureS3TC :: JSVal } + +instance PToJSVal WebGLCompressedTextureS3TC where + pToJSVal = unWebGLCompressedTextureS3TC + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLCompressedTextureS3TC where + pFromJSVal = WebGLCompressedTextureS3TC + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLCompressedTextureS3TC where + toJSVal = return . unWebGLCompressedTextureS3TC + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLCompressedTextureS3TC where + fromJSVal v = fmap WebGLCompressedTextureS3TC <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLCompressedTextureS3TC + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLCompressedTextureS3TC where + makeObject = makeObject . unWebGLCompressedTextureS3TC + +instance IsGObject WebGLCompressedTextureS3TC where + typeGType _ = gTypeWebGLCompressedTextureS3TC + {-# INLINE typeGType #-} + +noWebGLCompressedTextureS3TC :: Maybe WebGLCompressedTextureS3TC +noWebGLCompressedTextureS3TC = Nothing +{-# INLINE noWebGLCompressedTextureS3TC #-} + +gTypeWebGLCompressedTextureS3TC :: JSM GType +gTypeWebGLCompressedTextureS3TC = GType . Object <$> jsg "WebGLCompressedTextureS3TC" + +-- | Functions for this inteface are in "JSDOM.WebGLContextAttributes". +-- +-- +newtype WebGLContextAttributes = WebGLContextAttributes { unWebGLContextAttributes :: JSVal } + +instance PToJSVal WebGLContextAttributes where + pToJSVal = unWebGLContextAttributes + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLContextAttributes where + pFromJSVal = WebGLContextAttributes + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLContextAttributes where + toJSVal = return . unWebGLContextAttributes + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLContextAttributes where + fromJSVal v = fmap WebGLContextAttributes <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLContextAttributes + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLContextAttributes where + makeObject = makeObject . unWebGLContextAttributes + +instance IsGObject WebGLContextAttributes where + typeGType _ = gTypeWebGLContextAttributes + {-# INLINE typeGType #-} + +noWebGLContextAttributes :: Maybe WebGLContextAttributes +noWebGLContextAttributes = Nothing +{-# INLINE noWebGLContextAttributes #-} + +gTypeWebGLContextAttributes :: JSM GType +gTypeWebGLContextAttributes = GType . Object <$> jsg "WebGLContextAttributes" + +-- | Functions for this inteface are in "JSDOM.WebGLContextEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype WebGLContextEvent = WebGLContextEvent { unWebGLContextEvent :: JSVal } + +instance PToJSVal WebGLContextEvent where + pToJSVal = unWebGLContextEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLContextEvent where + pFromJSVal = WebGLContextEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLContextEvent where + toJSVal = return . unWebGLContextEvent + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLContextEvent where + fromJSVal v = fmap WebGLContextEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLContextEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLContextEvent where + makeObject = makeObject . unWebGLContextEvent + +instance IsEvent WebGLContextEvent +instance IsGObject WebGLContextEvent where + typeGType _ = gTypeWebGLContextEvent + {-# INLINE typeGType #-} + +noWebGLContextEvent :: Maybe WebGLContextEvent +noWebGLContextEvent = Nothing +{-# INLINE noWebGLContextEvent #-} + +gTypeWebGLContextEvent :: JSM GType +gTypeWebGLContextEvent = GType . Object <$> jsg "WebGLContextEvent" + +-- | Functions for this inteface are in "JSDOM.WebGLContextEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype WebGLContextEventInit = WebGLContextEventInit { unWebGLContextEventInit :: JSVal } + +instance PToJSVal WebGLContextEventInit where + pToJSVal = unWebGLContextEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLContextEventInit where + pFromJSVal = WebGLContextEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLContextEventInit where + toJSVal = return . unWebGLContextEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLContextEventInit where + fromJSVal v = fmap WebGLContextEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLContextEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLContextEventInit where + makeObject = makeObject . unWebGLContextEventInit + +instance IsEventInit WebGLContextEventInit +instance IsGObject WebGLContextEventInit where + typeGType _ = gTypeWebGLContextEventInit + {-# INLINE typeGType #-} + +noWebGLContextEventInit :: Maybe WebGLContextEventInit +noWebGLContextEventInit = Nothing +{-# INLINE noWebGLContextEventInit #-} + +gTypeWebGLContextEventInit :: JSM GType +gTypeWebGLContextEventInit = GType . Object <$> jsg "WebGLContextEventInit" + +-- | Functions for this inteface are in "JSDOM.WebGLDebugRendererInfo". +-- +-- +newtype WebGLDebugRendererInfo = WebGLDebugRendererInfo { unWebGLDebugRendererInfo :: JSVal } + +instance PToJSVal WebGLDebugRendererInfo where + pToJSVal = unWebGLDebugRendererInfo + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLDebugRendererInfo where + pFromJSVal = WebGLDebugRendererInfo + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLDebugRendererInfo where + toJSVal = return . unWebGLDebugRendererInfo + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLDebugRendererInfo where + fromJSVal v = fmap WebGLDebugRendererInfo <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLDebugRendererInfo + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLDebugRendererInfo where + makeObject = makeObject . unWebGLDebugRendererInfo + +instance IsGObject WebGLDebugRendererInfo where + typeGType _ = gTypeWebGLDebugRendererInfo + {-# INLINE typeGType #-} + +noWebGLDebugRendererInfo :: Maybe WebGLDebugRendererInfo +noWebGLDebugRendererInfo = Nothing +{-# INLINE noWebGLDebugRendererInfo #-} + +gTypeWebGLDebugRendererInfo :: JSM GType +gTypeWebGLDebugRendererInfo = GType . Object <$> jsg "WebGLDebugRendererInfo" + +-- | Functions for this inteface are in "JSDOM.WebGLDebugShaders". +-- +-- +newtype WebGLDebugShaders = WebGLDebugShaders { unWebGLDebugShaders :: JSVal } + +instance PToJSVal WebGLDebugShaders where + pToJSVal = unWebGLDebugShaders + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLDebugShaders where + pFromJSVal = WebGLDebugShaders + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLDebugShaders where + toJSVal = return . unWebGLDebugShaders + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLDebugShaders where + fromJSVal v = fmap WebGLDebugShaders <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLDebugShaders + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLDebugShaders where + makeObject = makeObject . unWebGLDebugShaders + +instance IsGObject WebGLDebugShaders where + typeGType _ = gTypeWebGLDebugShaders + {-# INLINE typeGType #-} + +noWebGLDebugShaders :: Maybe WebGLDebugShaders +noWebGLDebugShaders = Nothing +{-# INLINE noWebGLDebugShaders #-} + +gTypeWebGLDebugShaders :: JSM GType +gTypeWebGLDebugShaders = GType . Object <$> jsg "WebGLDebugShaders" + +-- | Functions for this inteface are in "JSDOM.WebGLDepthTexture". +-- +-- +newtype WebGLDepthTexture = WebGLDepthTexture { unWebGLDepthTexture :: JSVal } + +instance PToJSVal WebGLDepthTexture where + pToJSVal = unWebGLDepthTexture + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLDepthTexture where + pFromJSVal = WebGLDepthTexture + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLDepthTexture where + toJSVal = return . unWebGLDepthTexture + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLDepthTexture where + fromJSVal v = fmap WebGLDepthTexture <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLDepthTexture + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLDepthTexture where + makeObject = makeObject . unWebGLDepthTexture + +instance IsGObject WebGLDepthTexture where + typeGType _ = gTypeWebGLDepthTexture + {-# INLINE typeGType #-} + +noWebGLDepthTexture :: Maybe WebGLDepthTexture +noWebGLDepthTexture = Nothing +{-# INLINE noWebGLDepthTexture #-} + +gTypeWebGLDepthTexture :: JSM GType +gTypeWebGLDepthTexture = GType . Object <$> jsg "WebGLDepthTexture" + +-- | Functions for this inteface are in "JSDOM.WebGLDrawBuffers". +-- +-- +newtype WebGLDrawBuffers = WebGLDrawBuffers { unWebGLDrawBuffers :: JSVal } + +instance PToJSVal WebGLDrawBuffers where + pToJSVal = unWebGLDrawBuffers + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLDrawBuffers where + pFromJSVal = WebGLDrawBuffers + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLDrawBuffers where + toJSVal = return . unWebGLDrawBuffers + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLDrawBuffers where + fromJSVal v = fmap WebGLDrawBuffers <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLDrawBuffers + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLDrawBuffers where + makeObject = makeObject . unWebGLDrawBuffers + +instance IsGObject WebGLDrawBuffers where + typeGType _ = gTypeWebGLDrawBuffers + {-# INLINE typeGType #-} + +noWebGLDrawBuffers :: Maybe WebGLDrawBuffers +noWebGLDrawBuffers = Nothing +{-# INLINE noWebGLDrawBuffers #-} + +gTypeWebGLDrawBuffers :: JSM GType +gTypeWebGLDrawBuffers = GType . Object <$> jsg "WebGLDrawBuffers" + +-- | Functions for this inteface are in "JSDOM.WebGLFramebuffer". +-- +-- +newtype WebGLFramebuffer = WebGLFramebuffer { unWebGLFramebuffer :: JSVal } + +instance PToJSVal WebGLFramebuffer where + pToJSVal = unWebGLFramebuffer + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLFramebuffer where + pFromJSVal = WebGLFramebuffer + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLFramebuffer where + toJSVal = return . unWebGLFramebuffer + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLFramebuffer where + fromJSVal v = fmap WebGLFramebuffer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLFramebuffer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLFramebuffer where + makeObject = makeObject . unWebGLFramebuffer + +instance IsGObject WebGLFramebuffer where + typeGType _ = gTypeWebGLFramebuffer + {-# INLINE typeGType #-} + +noWebGLFramebuffer :: Maybe WebGLFramebuffer +noWebGLFramebuffer = Nothing +{-# INLINE noWebGLFramebuffer #-} + +gTypeWebGLFramebuffer :: JSM GType +gTypeWebGLFramebuffer = GType . Object <$> jsg "WebGLFramebuffer" + +-- | Functions for this inteface are in "JSDOM.WebGLLoseContext". +-- +-- +newtype WebGLLoseContext = WebGLLoseContext { unWebGLLoseContext :: JSVal } + +instance PToJSVal WebGLLoseContext where + pToJSVal = unWebGLLoseContext + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLLoseContext where + pFromJSVal = WebGLLoseContext + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLLoseContext where + toJSVal = return . unWebGLLoseContext + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLLoseContext where + fromJSVal v = fmap WebGLLoseContext <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLLoseContext + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLLoseContext where + makeObject = makeObject . unWebGLLoseContext + +instance IsGObject WebGLLoseContext where + typeGType _ = gTypeWebGLLoseContext + {-# INLINE typeGType #-} + +noWebGLLoseContext :: Maybe WebGLLoseContext +noWebGLLoseContext = Nothing +{-# INLINE noWebGLLoseContext #-} + +gTypeWebGLLoseContext :: JSM GType +gTypeWebGLLoseContext = GType . Object <$> jsg "WebGLLoseContext" + +-- | Functions for this inteface are in "JSDOM.WebGLProgram". +-- +-- +newtype WebGLProgram = WebGLProgram { unWebGLProgram :: JSVal } + +instance PToJSVal WebGLProgram where + pToJSVal = unWebGLProgram + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLProgram where + pFromJSVal = WebGLProgram + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLProgram where + toJSVal = return . unWebGLProgram + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLProgram where + fromJSVal v = fmap WebGLProgram <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLProgram + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLProgram where + makeObject = makeObject . unWebGLProgram + +instance IsGObject WebGLProgram where + typeGType _ = gTypeWebGLProgram + {-# INLINE typeGType #-} + +noWebGLProgram :: Maybe WebGLProgram +noWebGLProgram = Nothing +{-# INLINE noWebGLProgram #-} + +gTypeWebGLProgram :: JSM GType +gTypeWebGLProgram = GType . Object <$> jsg "WebGLProgram" + +-- | Functions for this inteface are in "JSDOM.WebGLQuery". +-- +-- +newtype WebGLQuery = WebGLQuery { unWebGLQuery :: JSVal } + +instance PToJSVal WebGLQuery where + pToJSVal = unWebGLQuery + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLQuery where + pFromJSVal = WebGLQuery + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLQuery where + toJSVal = return . unWebGLQuery + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLQuery where + fromJSVal v = fmap WebGLQuery <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLQuery + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLQuery where + makeObject = makeObject . unWebGLQuery + +instance IsGObject WebGLQuery where + typeGType _ = gTypeWebGLQuery + {-# INLINE typeGType #-} + +noWebGLQuery :: Maybe WebGLQuery +noWebGLQuery = Nothing +{-# INLINE noWebGLQuery #-} + +gTypeWebGLQuery :: JSM GType +gTypeWebGLQuery = GType . Object <$> jsg "WebGLQuery" + +-- | Functions for this inteface are in "JSDOM.WebGLRenderbuffer". +-- +-- +newtype WebGLRenderbuffer = WebGLRenderbuffer { unWebGLRenderbuffer :: JSVal } + +instance PToJSVal WebGLRenderbuffer where + pToJSVal = unWebGLRenderbuffer + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLRenderbuffer where + pFromJSVal = WebGLRenderbuffer + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLRenderbuffer where + toJSVal = return . unWebGLRenderbuffer + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLRenderbuffer where + fromJSVal v = fmap WebGLRenderbuffer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLRenderbuffer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLRenderbuffer where + makeObject = makeObject . unWebGLRenderbuffer + +instance IsGObject WebGLRenderbuffer where + typeGType _ = gTypeWebGLRenderbuffer + {-# INLINE typeGType #-} + +noWebGLRenderbuffer :: Maybe WebGLRenderbuffer +noWebGLRenderbuffer = Nothing +{-# INLINE noWebGLRenderbuffer #-} + +gTypeWebGLRenderbuffer :: JSM GType +gTypeWebGLRenderbuffer = GType . Object <$> jsg "WebGLRenderbuffer" + +-- | Functions for this inteface are in "JSDOM.WebGLRenderingContext". +-- Base interface functions are in: +-- +-- * "JSDOM.WebGLRenderingContextBase" +-- +-- +newtype WebGLRenderingContext = WebGLRenderingContext { unWebGLRenderingContext :: JSVal } + +instance PToJSVal WebGLRenderingContext where + pToJSVal = unWebGLRenderingContext + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLRenderingContext where + pFromJSVal = WebGLRenderingContext + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLRenderingContext where + toJSVal = return . unWebGLRenderingContext + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLRenderingContext where + fromJSVal v = fmap WebGLRenderingContext <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLRenderingContext + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLRenderingContext where + makeObject = makeObject . unWebGLRenderingContext + +instance IsWebGLRenderingContextBase WebGLRenderingContext +instance IsGObject WebGLRenderingContext where + typeGType _ = gTypeWebGLRenderingContext + {-# INLINE typeGType #-} + +noWebGLRenderingContext :: Maybe WebGLRenderingContext +noWebGLRenderingContext = Nothing +{-# INLINE noWebGLRenderingContext #-} + +gTypeWebGLRenderingContext :: JSM GType +gTypeWebGLRenderingContext = GType . Object <$> jsg "WebGLRenderingContext" + +-- | Functions for this inteface are in "JSDOM.WebGLRenderingContextBase". +-- +-- +newtype WebGLRenderingContextBase = WebGLRenderingContextBase { unWebGLRenderingContextBase :: JSVal } + +instance PToJSVal WebGLRenderingContextBase where + pToJSVal = unWebGLRenderingContextBase + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLRenderingContextBase where + pFromJSVal = WebGLRenderingContextBase + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLRenderingContextBase where + toJSVal = return . unWebGLRenderingContextBase + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLRenderingContextBase where + fromJSVal v = fmap WebGLRenderingContextBase <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLRenderingContextBase + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLRenderingContextBase where + makeObject = makeObject . unWebGLRenderingContextBase + +class (IsGObject o) => IsWebGLRenderingContextBase o +toWebGLRenderingContextBase :: IsWebGLRenderingContextBase o => o -> WebGLRenderingContextBase +toWebGLRenderingContextBase = WebGLRenderingContextBase . coerce + +instance IsWebGLRenderingContextBase WebGLRenderingContextBase +instance IsGObject WebGLRenderingContextBase where + typeGType _ = gTypeWebGLRenderingContextBase + {-# INLINE typeGType #-} + +noWebGLRenderingContextBase :: Maybe WebGLRenderingContextBase +noWebGLRenderingContextBase = Nothing +{-# INLINE noWebGLRenderingContextBase #-} + +gTypeWebGLRenderingContextBase :: JSM GType +gTypeWebGLRenderingContextBase = GType . Object <$> jsg "WebGLRenderingContextBase" + +-- | Functions for this inteface are in "JSDOM.WebGLSampler". +-- +-- +newtype WebGLSampler = WebGLSampler { unWebGLSampler :: JSVal } + +instance PToJSVal WebGLSampler where + pToJSVal = unWebGLSampler + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLSampler where + pFromJSVal = WebGLSampler + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLSampler where + toJSVal = return . unWebGLSampler + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLSampler where + fromJSVal v = fmap WebGLSampler <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLSampler + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLSampler where + makeObject = makeObject . unWebGLSampler + +instance IsGObject WebGLSampler where + typeGType _ = gTypeWebGLSampler + {-# INLINE typeGType #-} + +noWebGLSampler :: Maybe WebGLSampler +noWebGLSampler = Nothing +{-# INLINE noWebGLSampler #-} + +gTypeWebGLSampler :: JSM GType +gTypeWebGLSampler = GType . Object <$> jsg "WebGLSampler" + +-- | Functions for this inteface are in "JSDOM.WebGLShader". +-- +-- +newtype WebGLShader = WebGLShader { unWebGLShader :: JSVal } + +instance PToJSVal WebGLShader where + pToJSVal = unWebGLShader + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLShader where + pFromJSVal = WebGLShader + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLShader where + toJSVal = return . unWebGLShader + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLShader where + fromJSVal v = fmap WebGLShader <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLShader + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLShader where + makeObject = makeObject . unWebGLShader + +instance IsGObject WebGLShader where + typeGType _ = gTypeWebGLShader + {-# INLINE typeGType #-} + +noWebGLShader :: Maybe WebGLShader +noWebGLShader = Nothing +{-# INLINE noWebGLShader #-} + +gTypeWebGLShader :: JSM GType +gTypeWebGLShader = GType . Object <$> jsg "WebGLShader" + +-- | Functions for this inteface are in "JSDOM.WebGLShaderPrecisionFormat". +-- +-- +newtype WebGLShaderPrecisionFormat = WebGLShaderPrecisionFormat { unWebGLShaderPrecisionFormat :: JSVal } + +instance PToJSVal WebGLShaderPrecisionFormat where + pToJSVal = unWebGLShaderPrecisionFormat + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLShaderPrecisionFormat where + pFromJSVal = WebGLShaderPrecisionFormat + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLShaderPrecisionFormat where + toJSVal = return . unWebGLShaderPrecisionFormat + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLShaderPrecisionFormat where + fromJSVal v = fmap WebGLShaderPrecisionFormat <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLShaderPrecisionFormat + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLShaderPrecisionFormat where + makeObject = makeObject . unWebGLShaderPrecisionFormat + +instance IsGObject WebGLShaderPrecisionFormat where + typeGType _ = gTypeWebGLShaderPrecisionFormat + {-# INLINE typeGType #-} + +noWebGLShaderPrecisionFormat :: Maybe WebGLShaderPrecisionFormat +noWebGLShaderPrecisionFormat = Nothing +{-# INLINE noWebGLShaderPrecisionFormat #-} + +gTypeWebGLShaderPrecisionFormat :: JSM GType +gTypeWebGLShaderPrecisionFormat = GType . Object <$> jsg "WebGLShaderPrecisionFormat" + +-- | Functions for this inteface are in "JSDOM.WebGLSync". +-- +-- +newtype WebGLSync = WebGLSync { unWebGLSync :: JSVal } + +instance PToJSVal WebGLSync where + pToJSVal = unWebGLSync + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLSync where + pFromJSVal = WebGLSync + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLSync where + toJSVal = return . unWebGLSync + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLSync where + fromJSVal v = fmap WebGLSync <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLSync + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLSync where + makeObject = makeObject . unWebGLSync + +instance IsGObject WebGLSync where + typeGType _ = gTypeWebGLSync + {-# INLINE typeGType #-} + +noWebGLSync :: Maybe WebGLSync +noWebGLSync = Nothing +{-# INLINE noWebGLSync #-} + +gTypeWebGLSync :: JSM GType +gTypeWebGLSync = GType . Object <$> jsg "WebGLSync" + +-- | Functions for this inteface are in "JSDOM.WebGLTexture". +-- +-- +newtype WebGLTexture = WebGLTexture { unWebGLTexture :: JSVal } + +instance PToJSVal WebGLTexture where + pToJSVal = unWebGLTexture + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLTexture where + pFromJSVal = WebGLTexture + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLTexture where + toJSVal = return . unWebGLTexture + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLTexture where + fromJSVal v = fmap WebGLTexture <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLTexture + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLTexture where + makeObject = makeObject . unWebGLTexture + +instance IsGObject WebGLTexture where + typeGType _ = gTypeWebGLTexture + {-# INLINE typeGType #-} + +noWebGLTexture :: Maybe WebGLTexture +noWebGLTexture = Nothing +{-# INLINE noWebGLTexture #-} + +gTypeWebGLTexture :: JSM GType +gTypeWebGLTexture = GType . Object <$> jsg "WebGLTexture" + +-- | Functions for this inteface are in "JSDOM.WebGLTransformFeedback". +-- +-- +newtype WebGLTransformFeedback = WebGLTransformFeedback { unWebGLTransformFeedback :: JSVal } + +instance PToJSVal WebGLTransformFeedback where + pToJSVal = unWebGLTransformFeedback + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLTransformFeedback where + pFromJSVal = WebGLTransformFeedback + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLTransformFeedback where + toJSVal = return . unWebGLTransformFeedback + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLTransformFeedback where + fromJSVal v = fmap WebGLTransformFeedback <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLTransformFeedback + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLTransformFeedback where + makeObject = makeObject . unWebGLTransformFeedback + +instance IsGObject WebGLTransformFeedback where + typeGType _ = gTypeWebGLTransformFeedback + {-# INLINE typeGType #-} + +noWebGLTransformFeedback :: Maybe WebGLTransformFeedback +noWebGLTransformFeedback = Nothing +{-# INLINE noWebGLTransformFeedback #-} + +gTypeWebGLTransformFeedback :: JSM GType +gTypeWebGLTransformFeedback = GType . Object <$> jsg "WebGLTransformFeedback" + +-- | Functions for this inteface are in "JSDOM.WebGLUniformLocation". +-- +-- +newtype WebGLUniformLocation = WebGLUniformLocation { unWebGLUniformLocation :: JSVal } + +instance PToJSVal WebGLUniformLocation where + pToJSVal = unWebGLUniformLocation + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLUniformLocation where + pFromJSVal = WebGLUniformLocation + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLUniformLocation where + toJSVal = return . unWebGLUniformLocation + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLUniformLocation where + fromJSVal v = fmap WebGLUniformLocation <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLUniformLocation + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLUniformLocation where + makeObject = makeObject . unWebGLUniformLocation + +instance IsGObject WebGLUniformLocation where + typeGType _ = gTypeWebGLUniformLocation + {-# INLINE typeGType #-} + +noWebGLUniformLocation :: Maybe WebGLUniformLocation +noWebGLUniformLocation = Nothing +{-# INLINE noWebGLUniformLocation #-} + +gTypeWebGLUniformLocation :: JSM GType +gTypeWebGLUniformLocation = GType . Object <$> jsg "WebGLUniformLocation" + +-- | Functions for this inteface are in "JSDOM.WebGLVertexArrayObject". +-- +-- +newtype WebGLVertexArrayObject = WebGLVertexArrayObject { unWebGLVertexArrayObject :: JSVal } + +instance PToJSVal WebGLVertexArrayObject where + pToJSVal = unWebGLVertexArrayObject + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLVertexArrayObject where + pFromJSVal = WebGLVertexArrayObject + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLVertexArrayObject where + toJSVal = return . unWebGLVertexArrayObject + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLVertexArrayObject where + fromJSVal v = fmap WebGLVertexArrayObject <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLVertexArrayObject + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLVertexArrayObject where + makeObject = makeObject . unWebGLVertexArrayObject + +instance IsGObject WebGLVertexArrayObject where + typeGType _ = gTypeWebGLVertexArrayObject + {-# INLINE typeGType #-} + +noWebGLVertexArrayObject :: Maybe WebGLVertexArrayObject +noWebGLVertexArrayObject = Nothing +{-# INLINE noWebGLVertexArrayObject #-} + +gTypeWebGLVertexArrayObject :: JSM GType +gTypeWebGLVertexArrayObject = GType . Object <$> jsg "WebGLVertexArrayObject" + +-- | Functions for this inteface are in "JSDOM.WebGLVertexArrayObjectOES". +-- +-- +newtype WebGLVertexArrayObjectOES = WebGLVertexArrayObjectOES { unWebGLVertexArrayObjectOES :: JSVal } + +instance PToJSVal WebGLVertexArrayObjectOES where + pToJSVal = unWebGLVertexArrayObjectOES + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGLVertexArrayObjectOES where + pFromJSVal = WebGLVertexArrayObjectOES + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGLVertexArrayObjectOES where + toJSVal = return . unWebGLVertexArrayObjectOES + {-# INLINE toJSVal #-} + +instance FromJSVal WebGLVertexArrayObjectOES where + fromJSVal v = fmap WebGLVertexArrayObjectOES <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGLVertexArrayObjectOES + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGLVertexArrayObjectOES where + makeObject = makeObject . unWebGLVertexArrayObjectOES + +instance IsGObject WebGLVertexArrayObjectOES where + typeGType _ = gTypeWebGLVertexArrayObjectOES + {-# INLINE typeGType #-} + +noWebGLVertexArrayObjectOES :: Maybe WebGLVertexArrayObjectOES +noWebGLVertexArrayObjectOES = Nothing +{-# INLINE noWebGLVertexArrayObjectOES #-} + +gTypeWebGLVertexArrayObjectOES :: JSM GType +gTypeWebGLVertexArrayObjectOES = GType . Object <$> jsg "WebGLVertexArrayObjectOES" + +-- | Functions for this inteface are in "JSDOM.WebGPUBuffer". +-- +-- +newtype WebGPUBuffer = WebGPUBuffer { unWebGPUBuffer :: JSVal } + +instance PToJSVal WebGPUBuffer where + pToJSVal = unWebGPUBuffer + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUBuffer where + pFromJSVal = WebGPUBuffer + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUBuffer where + toJSVal = return . unWebGPUBuffer + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUBuffer where + fromJSVal v = fmap WebGPUBuffer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUBuffer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUBuffer where + makeObject = makeObject . unWebGPUBuffer + +instance IsGObject WebGPUBuffer where + typeGType _ = gTypeWebGPUBuffer + {-# INLINE typeGType #-} + +noWebGPUBuffer :: Maybe WebGPUBuffer +noWebGPUBuffer = Nothing +{-# INLINE noWebGPUBuffer #-} + +gTypeWebGPUBuffer :: JSM GType +gTypeWebGPUBuffer = GType . Object <$> jsg "WebGPUBuffer" + +-- | Functions for this inteface are in "JSDOM.WebGPUCommandBuffer". +-- +-- +newtype WebGPUCommandBuffer = WebGPUCommandBuffer { unWebGPUCommandBuffer :: JSVal } + +instance PToJSVal WebGPUCommandBuffer where + pToJSVal = unWebGPUCommandBuffer + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUCommandBuffer where + pFromJSVal = WebGPUCommandBuffer + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUCommandBuffer where + toJSVal = return . unWebGPUCommandBuffer + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUCommandBuffer where + fromJSVal v = fmap WebGPUCommandBuffer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUCommandBuffer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUCommandBuffer where + makeObject = makeObject . unWebGPUCommandBuffer + +instance IsGObject WebGPUCommandBuffer where + typeGType _ = gTypeWebGPUCommandBuffer + {-# INLINE typeGType #-} + +noWebGPUCommandBuffer :: Maybe WebGPUCommandBuffer +noWebGPUCommandBuffer = Nothing +{-# INLINE noWebGPUCommandBuffer #-} + +gTypeWebGPUCommandBuffer :: JSM GType +gTypeWebGPUCommandBuffer = GType . Object <$> jsg "WebGPUCommandBuffer" + +-- | Functions for this inteface are in "JSDOM.WebGPUCommandQueue". +-- +-- +newtype WebGPUCommandQueue = WebGPUCommandQueue { unWebGPUCommandQueue :: JSVal } + +instance PToJSVal WebGPUCommandQueue where + pToJSVal = unWebGPUCommandQueue + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUCommandQueue where + pFromJSVal = WebGPUCommandQueue + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUCommandQueue where + toJSVal = return . unWebGPUCommandQueue + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUCommandQueue where + fromJSVal v = fmap WebGPUCommandQueue <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUCommandQueue + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUCommandQueue where + makeObject = makeObject . unWebGPUCommandQueue + +instance IsGObject WebGPUCommandQueue where + typeGType _ = gTypeWebGPUCommandQueue + {-# INLINE typeGType #-} + +noWebGPUCommandQueue :: Maybe WebGPUCommandQueue +noWebGPUCommandQueue = Nothing +{-# INLINE noWebGPUCommandQueue #-} + +gTypeWebGPUCommandQueue :: JSM GType +gTypeWebGPUCommandQueue = GType . Object <$> jsg "WebGPUCommandQueue" + +-- | Functions for this inteface are in "JSDOM.WebGPUComputeCommandEncoder". +-- +-- +newtype WebGPUComputeCommandEncoder = WebGPUComputeCommandEncoder { unWebGPUComputeCommandEncoder :: JSVal } + +instance PToJSVal WebGPUComputeCommandEncoder where + pToJSVal = unWebGPUComputeCommandEncoder + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUComputeCommandEncoder where + pFromJSVal = WebGPUComputeCommandEncoder + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUComputeCommandEncoder where + toJSVal = return . unWebGPUComputeCommandEncoder + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUComputeCommandEncoder where + fromJSVal v = fmap WebGPUComputeCommandEncoder <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUComputeCommandEncoder + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUComputeCommandEncoder where + makeObject = makeObject . unWebGPUComputeCommandEncoder + +instance IsGObject WebGPUComputeCommandEncoder where + typeGType _ = gTypeWebGPUComputeCommandEncoder + {-# INLINE typeGType #-} + +noWebGPUComputeCommandEncoder :: Maybe WebGPUComputeCommandEncoder +noWebGPUComputeCommandEncoder = Nothing +{-# INLINE noWebGPUComputeCommandEncoder #-} + +gTypeWebGPUComputeCommandEncoder :: JSM GType +gTypeWebGPUComputeCommandEncoder = GType . Object <$> jsg "WebGPUComputeCommandEncoder" + +-- | Functions for this inteface are in "JSDOM.WebGPUComputePipelineState". +-- +-- +newtype WebGPUComputePipelineState = WebGPUComputePipelineState { unWebGPUComputePipelineState :: JSVal } + +instance PToJSVal WebGPUComputePipelineState where + pToJSVal = unWebGPUComputePipelineState + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUComputePipelineState where + pFromJSVal = WebGPUComputePipelineState + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUComputePipelineState where + toJSVal = return . unWebGPUComputePipelineState + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUComputePipelineState where + fromJSVal v = fmap WebGPUComputePipelineState <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUComputePipelineState + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUComputePipelineState where + makeObject = makeObject . unWebGPUComputePipelineState + +instance IsGObject WebGPUComputePipelineState where + typeGType _ = gTypeWebGPUComputePipelineState + {-# INLINE typeGType #-} + +noWebGPUComputePipelineState :: Maybe WebGPUComputePipelineState +noWebGPUComputePipelineState = Nothing +{-# INLINE noWebGPUComputePipelineState #-} + +gTypeWebGPUComputePipelineState :: JSM GType +gTypeWebGPUComputePipelineState = GType . Object <$> jsg "WebGPUComputePipelineState" + +-- | Functions for this inteface are in "JSDOM.WebGPUDepthStencilDescriptor". +-- +-- +newtype WebGPUDepthStencilDescriptor = WebGPUDepthStencilDescriptor { unWebGPUDepthStencilDescriptor :: JSVal } + +instance PToJSVal WebGPUDepthStencilDescriptor where + pToJSVal = unWebGPUDepthStencilDescriptor + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUDepthStencilDescriptor where + pFromJSVal = WebGPUDepthStencilDescriptor + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUDepthStencilDescriptor where + toJSVal = return . unWebGPUDepthStencilDescriptor + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUDepthStencilDescriptor where + fromJSVal v = fmap WebGPUDepthStencilDescriptor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUDepthStencilDescriptor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUDepthStencilDescriptor where + makeObject = makeObject . unWebGPUDepthStencilDescriptor + +instance IsGObject WebGPUDepthStencilDescriptor where + typeGType _ = gTypeWebGPUDepthStencilDescriptor + {-# INLINE typeGType #-} + +noWebGPUDepthStencilDescriptor :: Maybe WebGPUDepthStencilDescriptor +noWebGPUDepthStencilDescriptor = Nothing +{-# INLINE noWebGPUDepthStencilDescriptor #-} + +gTypeWebGPUDepthStencilDescriptor :: JSM GType +gTypeWebGPUDepthStencilDescriptor = GType . Object <$> jsg "WebGPUDepthStencilDescriptor" + +-- | Functions for this inteface are in "JSDOM.WebGPUDepthStencilState". +-- +-- +newtype WebGPUDepthStencilState = WebGPUDepthStencilState { unWebGPUDepthStencilState :: JSVal } + +instance PToJSVal WebGPUDepthStencilState where + pToJSVal = unWebGPUDepthStencilState + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUDepthStencilState where + pFromJSVal = WebGPUDepthStencilState + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUDepthStencilState where + toJSVal = return . unWebGPUDepthStencilState + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUDepthStencilState where + fromJSVal v = fmap WebGPUDepthStencilState <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUDepthStencilState + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUDepthStencilState where + makeObject = makeObject . unWebGPUDepthStencilState + +instance IsGObject WebGPUDepthStencilState where + typeGType _ = gTypeWebGPUDepthStencilState + {-# INLINE typeGType #-} + +noWebGPUDepthStencilState :: Maybe WebGPUDepthStencilState +noWebGPUDepthStencilState = Nothing +{-# INLINE noWebGPUDepthStencilState #-} + +gTypeWebGPUDepthStencilState :: JSM GType +gTypeWebGPUDepthStencilState = GType . Object <$> jsg "WebGPUDepthStencilState" + +-- | Functions for this inteface are in "JSDOM.WebGPUDrawable". +-- +-- +newtype WebGPUDrawable = WebGPUDrawable { unWebGPUDrawable :: JSVal } + +instance PToJSVal WebGPUDrawable where + pToJSVal = unWebGPUDrawable + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUDrawable where + pFromJSVal = WebGPUDrawable + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUDrawable where + toJSVal = return . unWebGPUDrawable + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUDrawable where + fromJSVal v = fmap WebGPUDrawable <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUDrawable + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUDrawable where + makeObject = makeObject . unWebGPUDrawable + +instance IsGObject WebGPUDrawable where + typeGType _ = gTypeWebGPUDrawable + {-# INLINE typeGType #-} + +noWebGPUDrawable :: Maybe WebGPUDrawable +noWebGPUDrawable = Nothing +{-# INLINE noWebGPUDrawable #-} + +gTypeWebGPUDrawable :: JSM GType +gTypeWebGPUDrawable = GType . Object <$> jsg "WebGPUDrawable" + +-- | Functions for this inteface are in "JSDOM.WebGPUFunction". +-- +-- +newtype WebGPUFunction = WebGPUFunction { unWebGPUFunction :: JSVal } + +instance PToJSVal WebGPUFunction where + pToJSVal = unWebGPUFunction + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUFunction where + pFromJSVal = WebGPUFunction + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUFunction where + toJSVal = return . unWebGPUFunction + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUFunction where + fromJSVal v = fmap WebGPUFunction <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUFunction + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUFunction where + makeObject = makeObject . unWebGPUFunction + +instance IsGObject WebGPUFunction where + typeGType _ = gTypeWebGPUFunction + {-# INLINE typeGType #-} + +noWebGPUFunction :: Maybe WebGPUFunction +noWebGPUFunction = Nothing +{-# INLINE noWebGPUFunction #-} + +gTypeWebGPUFunction :: JSM GType +gTypeWebGPUFunction = GType . Object <$> jsg "WebGPUFunction" + +-- | Functions for this inteface are in "JSDOM.WebGPULibrary". +-- +-- +newtype WebGPULibrary = WebGPULibrary { unWebGPULibrary :: JSVal } + +instance PToJSVal WebGPULibrary where + pToJSVal = unWebGPULibrary + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPULibrary where + pFromJSVal = WebGPULibrary + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPULibrary where + toJSVal = return . unWebGPULibrary + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPULibrary where + fromJSVal v = fmap WebGPULibrary <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPULibrary + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPULibrary where + makeObject = makeObject . unWebGPULibrary + +instance IsGObject WebGPULibrary where + typeGType _ = gTypeWebGPULibrary + {-# INLINE typeGType #-} + +noWebGPULibrary :: Maybe WebGPULibrary +noWebGPULibrary = Nothing +{-# INLINE noWebGPULibrary #-} + +gTypeWebGPULibrary :: JSM GType +gTypeWebGPULibrary = GType . Object <$> jsg "WebGPULibrary" + +-- | Functions for this inteface are in "JSDOM.WebGPURenderCommandEncoder". +-- +-- +newtype WebGPURenderCommandEncoder = WebGPURenderCommandEncoder { unWebGPURenderCommandEncoder :: JSVal } + +instance PToJSVal WebGPURenderCommandEncoder where + pToJSVal = unWebGPURenderCommandEncoder + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPURenderCommandEncoder where + pFromJSVal = WebGPURenderCommandEncoder + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPURenderCommandEncoder where + toJSVal = return . unWebGPURenderCommandEncoder + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPURenderCommandEncoder where + fromJSVal v = fmap WebGPURenderCommandEncoder <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPURenderCommandEncoder + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPURenderCommandEncoder where + makeObject = makeObject . unWebGPURenderCommandEncoder + +instance IsGObject WebGPURenderCommandEncoder where + typeGType _ = gTypeWebGPURenderCommandEncoder + {-# INLINE typeGType #-} + +noWebGPURenderCommandEncoder :: Maybe WebGPURenderCommandEncoder +noWebGPURenderCommandEncoder = Nothing +{-# INLINE noWebGPURenderCommandEncoder #-} + +gTypeWebGPURenderCommandEncoder :: JSM GType +gTypeWebGPURenderCommandEncoder = GType . Object <$> jsg "WebGPURenderCommandEncoder" + +-- | Functions for this inteface are in "JSDOM.WebGPURenderPassAttachmentDescriptor". +-- +-- +newtype WebGPURenderPassAttachmentDescriptor = WebGPURenderPassAttachmentDescriptor { unWebGPURenderPassAttachmentDescriptor :: JSVal } + +instance PToJSVal WebGPURenderPassAttachmentDescriptor where + pToJSVal = unWebGPURenderPassAttachmentDescriptor + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPURenderPassAttachmentDescriptor where + pFromJSVal = WebGPURenderPassAttachmentDescriptor + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPURenderPassAttachmentDescriptor where + toJSVal = return . unWebGPURenderPassAttachmentDescriptor + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPURenderPassAttachmentDescriptor where + fromJSVal v = fmap WebGPURenderPassAttachmentDescriptor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPURenderPassAttachmentDescriptor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPURenderPassAttachmentDescriptor where + makeObject = makeObject . unWebGPURenderPassAttachmentDescriptor + +class (IsGObject o) => IsWebGPURenderPassAttachmentDescriptor o +toWebGPURenderPassAttachmentDescriptor :: IsWebGPURenderPassAttachmentDescriptor o => o -> WebGPURenderPassAttachmentDescriptor +toWebGPURenderPassAttachmentDescriptor = WebGPURenderPassAttachmentDescriptor . coerce + +instance IsWebGPURenderPassAttachmentDescriptor WebGPURenderPassAttachmentDescriptor +instance IsGObject WebGPURenderPassAttachmentDescriptor where + typeGType _ = gTypeWebGPURenderPassAttachmentDescriptor + {-# INLINE typeGType #-} + +noWebGPURenderPassAttachmentDescriptor :: Maybe WebGPURenderPassAttachmentDescriptor +noWebGPURenderPassAttachmentDescriptor = Nothing +{-# INLINE noWebGPURenderPassAttachmentDescriptor #-} + +gTypeWebGPURenderPassAttachmentDescriptor :: JSM GType +gTypeWebGPURenderPassAttachmentDescriptor = GType . Object <$> jsg "WebGPURenderPassAttachmentDescriptor" + +-- | Functions for this inteface are in "JSDOM.WebGPURenderPassColorAttachmentDescriptor". +-- Base interface functions are in: +-- +-- * "JSDOM.WebGPURenderPassAttachmentDescriptor" +-- +-- +newtype WebGPURenderPassColorAttachmentDescriptor = WebGPURenderPassColorAttachmentDescriptor { unWebGPURenderPassColorAttachmentDescriptor :: JSVal } + +instance PToJSVal WebGPURenderPassColorAttachmentDescriptor where + pToJSVal = unWebGPURenderPassColorAttachmentDescriptor + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPURenderPassColorAttachmentDescriptor where + pFromJSVal = WebGPURenderPassColorAttachmentDescriptor + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPURenderPassColorAttachmentDescriptor where + toJSVal = return . unWebGPURenderPassColorAttachmentDescriptor + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPURenderPassColorAttachmentDescriptor where + fromJSVal v = fmap WebGPURenderPassColorAttachmentDescriptor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPURenderPassColorAttachmentDescriptor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPURenderPassColorAttachmentDescriptor where + makeObject = makeObject . unWebGPURenderPassColorAttachmentDescriptor + +instance IsWebGPURenderPassAttachmentDescriptor WebGPURenderPassColorAttachmentDescriptor +instance IsGObject WebGPURenderPassColorAttachmentDescriptor where + typeGType _ = gTypeWebGPURenderPassColorAttachmentDescriptor + {-# INLINE typeGType #-} + +noWebGPURenderPassColorAttachmentDescriptor :: Maybe WebGPURenderPassColorAttachmentDescriptor +noWebGPURenderPassColorAttachmentDescriptor = Nothing +{-# INLINE noWebGPURenderPassColorAttachmentDescriptor #-} + +gTypeWebGPURenderPassColorAttachmentDescriptor :: JSM GType +gTypeWebGPURenderPassColorAttachmentDescriptor = GType . Object <$> jsg "WebGPURenderPassColorAttachmentDescriptor" + +-- | Functions for this inteface are in "JSDOM.WebGPURenderPassDepthAttachmentDescriptor". +-- Base interface functions are in: +-- +-- * "JSDOM.WebGPURenderPassAttachmentDescriptor" +-- +-- +newtype WebGPURenderPassDepthAttachmentDescriptor = WebGPURenderPassDepthAttachmentDescriptor { unWebGPURenderPassDepthAttachmentDescriptor :: JSVal } + +instance PToJSVal WebGPURenderPassDepthAttachmentDescriptor where + pToJSVal = unWebGPURenderPassDepthAttachmentDescriptor + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPURenderPassDepthAttachmentDescriptor where + pFromJSVal = WebGPURenderPassDepthAttachmentDescriptor + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPURenderPassDepthAttachmentDescriptor where + toJSVal = return . unWebGPURenderPassDepthAttachmentDescriptor + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPURenderPassDepthAttachmentDescriptor where + fromJSVal v = fmap WebGPURenderPassDepthAttachmentDescriptor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPURenderPassDepthAttachmentDescriptor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPURenderPassDepthAttachmentDescriptor where + makeObject = makeObject . unWebGPURenderPassDepthAttachmentDescriptor + +instance IsWebGPURenderPassAttachmentDescriptor WebGPURenderPassDepthAttachmentDescriptor +instance IsGObject WebGPURenderPassDepthAttachmentDescriptor where + typeGType _ = gTypeWebGPURenderPassDepthAttachmentDescriptor + {-# INLINE typeGType #-} + +noWebGPURenderPassDepthAttachmentDescriptor :: Maybe WebGPURenderPassDepthAttachmentDescriptor +noWebGPURenderPassDepthAttachmentDescriptor = Nothing +{-# INLINE noWebGPURenderPassDepthAttachmentDescriptor #-} + +gTypeWebGPURenderPassDepthAttachmentDescriptor :: JSM GType +gTypeWebGPURenderPassDepthAttachmentDescriptor = GType . Object <$> jsg "WebGPURenderPassDepthAttachmentDescriptor" + +-- | Functions for this inteface are in "JSDOM.WebGPURenderPassDescriptor". +-- +-- +newtype WebGPURenderPassDescriptor = WebGPURenderPassDescriptor { unWebGPURenderPassDescriptor :: JSVal } + +instance PToJSVal WebGPURenderPassDescriptor where + pToJSVal = unWebGPURenderPassDescriptor + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPURenderPassDescriptor where + pFromJSVal = WebGPURenderPassDescriptor + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPURenderPassDescriptor where + toJSVal = return . unWebGPURenderPassDescriptor + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPURenderPassDescriptor where + fromJSVal v = fmap WebGPURenderPassDescriptor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPURenderPassDescriptor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPURenderPassDescriptor where + makeObject = makeObject . unWebGPURenderPassDescriptor + +instance IsGObject WebGPURenderPassDescriptor where + typeGType _ = gTypeWebGPURenderPassDescriptor + {-# INLINE typeGType #-} + +noWebGPURenderPassDescriptor :: Maybe WebGPURenderPassDescriptor +noWebGPURenderPassDescriptor = Nothing +{-# INLINE noWebGPURenderPassDescriptor #-} + +gTypeWebGPURenderPassDescriptor :: JSM GType +gTypeWebGPURenderPassDescriptor = GType . Object <$> jsg "WebGPURenderPassDescriptor" + +-- | Functions for this inteface are in "JSDOM.WebGPURenderPipelineColorAttachmentDescriptor". +-- +-- +newtype WebGPURenderPipelineColorAttachmentDescriptor = WebGPURenderPipelineColorAttachmentDescriptor { unWebGPURenderPipelineColorAttachmentDescriptor :: JSVal } + +instance PToJSVal WebGPURenderPipelineColorAttachmentDescriptor where + pToJSVal = unWebGPURenderPipelineColorAttachmentDescriptor + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPURenderPipelineColorAttachmentDescriptor where + pFromJSVal = WebGPURenderPipelineColorAttachmentDescriptor + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPURenderPipelineColorAttachmentDescriptor where + toJSVal = return . unWebGPURenderPipelineColorAttachmentDescriptor + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPURenderPipelineColorAttachmentDescriptor where + fromJSVal v = fmap WebGPURenderPipelineColorAttachmentDescriptor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPURenderPipelineColorAttachmentDescriptor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPURenderPipelineColorAttachmentDescriptor where + makeObject = makeObject . unWebGPURenderPipelineColorAttachmentDescriptor + +instance IsGObject WebGPURenderPipelineColorAttachmentDescriptor where + typeGType _ = gTypeWebGPURenderPipelineColorAttachmentDescriptor + {-# INLINE typeGType #-} + +noWebGPURenderPipelineColorAttachmentDescriptor :: Maybe WebGPURenderPipelineColorAttachmentDescriptor +noWebGPURenderPipelineColorAttachmentDescriptor = Nothing +{-# INLINE noWebGPURenderPipelineColorAttachmentDescriptor #-} + +gTypeWebGPURenderPipelineColorAttachmentDescriptor :: JSM GType +gTypeWebGPURenderPipelineColorAttachmentDescriptor = GType . Object <$> jsg "WebGPURenderPipelineColorAttachmentDescriptor" + +-- | Functions for this inteface are in "JSDOM.WebGPURenderPipelineDescriptor". +-- +-- +newtype WebGPURenderPipelineDescriptor = WebGPURenderPipelineDescriptor { unWebGPURenderPipelineDescriptor :: JSVal } + +instance PToJSVal WebGPURenderPipelineDescriptor where + pToJSVal = unWebGPURenderPipelineDescriptor + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPURenderPipelineDescriptor where + pFromJSVal = WebGPURenderPipelineDescriptor + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPURenderPipelineDescriptor where + toJSVal = return . unWebGPURenderPipelineDescriptor + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPURenderPipelineDescriptor where + fromJSVal v = fmap WebGPURenderPipelineDescriptor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPURenderPipelineDescriptor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPURenderPipelineDescriptor where + makeObject = makeObject . unWebGPURenderPipelineDescriptor + +instance IsGObject WebGPURenderPipelineDescriptor where + typeGType _ = gTypeWebGPURenderPipelineDescriptor + {-# INLINE typeGType #-} + +noWebGPURenderPipelineDescriptor :: Maybe WebGPURenderPipelineDescriptor +noWebGPURenderPipelineDescriptor = Nothing +{-# INLINE noWebGPURenderPipelineDescriptor #-} + +gTypeWebGPURenderPipelineDescriptor :: JSM GType +gTypeWebGPURenderPipelineDescriptor = GType . Object <$> jsg "WebGPURenderPipelineDescriptor" + +-- | Functions for this inteface are in "JSDOM.WebGPURenderPipelineState". +-- +-- +newtype WebGPURenderPipelineState = WebGPURenderPipelineState { unWebGPURenderPipelineState :: JSVal } + +instance PToJSVal WebGPURenderPipelineState where + pToJSVal = unWebGPURenderPipelineState + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPURenderPipelineState where + pFromJSVal = WebGPURenderPipelineState + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPURenderPipelineState where + toJSVal = return . unWebGPURenderPipelineState + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPURenderPipelineState where + fromJSVal v = fmap WebGPURenderPipelineState <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPURenderPipelineState + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPURenderPipelineState where + makeObject = makeObject . unWebGPURenderPipelineState + +instance IsGObject WebGPURenderPipelineState where + typeGType _ = gTypeWebGPURenderPipelineState + {-# INLINE typeGType #-} + +noWebGPURenderPipelineState :: Maybe WebGPURenderPipelineState +noWebGPURenderPipelineState = Nothing +{-# INLINE noWebGPURenderPipelineState #-} + +gTypeWebGPURenderPipelineState :: JSM GType +gTypeWebGPURenderPipelineState = GType . Object <$> jsg "WebGPURenderPipelineState" + +-- | Functions for this inteface are in "JSDOM.WebGPURenderingContext". +-- +-- +newtype WebGPURenderingContext = WebGPURenderingContext { unWebGPURenderingContext :: JSVal } + +instance PToJSVal WebGPURenderingContext where + pToJSVal = unWebGPURenderingContext + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPURenderingContext where + pFromJSVal = WebGPURenderingContext + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPURenderingContext where + toJSVal = return . unWebGPURenderingContext + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPURenderingContext where + fromJSVal v = fmap WebGPURenderingContext <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPURenderingContext + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPURenderingContext where + makeObject = makeObject . unWebGPURenderingContext + +instance IsGObject WebGPURenderingContext where + typeGType _ = gTypeWebGPURenderingContext + {-# INLINE typeGType #-} + +noWebGPURenderingContext :: Maybe WebGPURenderingContext +noWebGPURenderingContext = Nothing +{-# INLINE noWebGPURenderingContext #-} + +gTypeWebGPURenderingContext :: JSM GType +gTypeWebGPURenderingContext = GType . Object <$> jsg "WebGPURenderingContext" + +-- | Functions for this inteface are in "JSDOM.WebGPUSize". +-- +-- +newtype WebGPUSize = WebGPUSize { unWebGPUSize :: JSVal } + +instance PToJSVal WebGPUSize where + pToJSVal = unWebGPUSize + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUSize where + pFromJSVal = WebGPUSize + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUSize where + toJSVal = return . unWebGPUSize + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUSize where + fromJSVal v = fmap WebGPUSize <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUSize + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUSize where + makeObject = makeObject . unWebGPUSize + +instance IsGObject WebGPUSize where + typeGType _ = gTypeWebGPUSize + {-# INLINE typeGType #-} + +noWebGPUSize :: Maybe WebGPUSize +noWebGPUSize = Nothing +{-# INLINE noWebGPUSize #-} + +gTypeWebGPUSize :: JSM GType +gTypeWebGPUSize = GType . Object <$> jsg "WebGPUSize" + +-- | Functions for this inteface are in "JSDOM.WebGPUTexture". +-- +-- +newtype WebGPUTexture = WebGPUTexture { unWebGPUTexture :: JSVal } + +instance PToJSVal WebGPUTexture where + pToJSVal = unWebGPUTexture + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUTexture where + pFromJSVal = WebGPUTexture + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUTexture where + toJSVal = return . unWebGPUTexture + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUTexture where + fromJSVal v = fmap WebGPUTexture <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUTexture + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUTexture where + makeObject = makeObject . unWebGPUTexture + +instance IsGObject WebGPUTexture where + typeGType _ = gTypeWebGPUTexture + {-# INLINE typeGType #-} + +noWebGPUTexture :: Maybe WebGPUTexture +noWebGPUTexture = Nothing +{-# INLINE noWebGPUTexture #-} + +gTypeWebGPUTexture :: JSM GType +gTypeWebGPUTexture = GType . Object <$> jsg "WebGPUTexture" + +-- | Functions for this inteface are in "JSDOM.WebGPUTextureDescriptor". +-- +-- +newtype WebGPUTextureDescriptor = WebGPUTextureDescriptor { unWebGPUTextureDescriptor :: JSVal } + +instance PToJSVal WebGPUTextureDescriptor where + pToJSVal = unWebGPUTextureDescriptor + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebGPUTextureDescriptor where + pFromJSVal = WebGPUTextureDescriptor + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebGPUTextureDescriptor where + toJSVal = return . unWebGPUTextureDescriptor + {-# INLINE toJSVal #-} + +instance FromJSVal WebGPUTextureDescriptor where + fromJSVal v = fmap WebGPUTextureDescriptor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebGPUTextureDescriptor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebGPUTextureDescriptor where + makeObject = makeObject . unWebGPUTextureDescriptor + +instance IsGObject WebGPUTextureDescriptor where + typeGType _ = gTypeWebGPUTextureDescriptor + {-# INLINE typeGType #-} + +noWebGPUTextureDescriptor :: Maybe WebGPUTextureDescriptor +noWebGPUTextureDescriptor = Nothing +{-# INLINE noWebGPUTextureDescriptor #-} + +gTypeWebGPUTextureDescriptor :: JSM GType +gTypeWebGPUTextureDescriptor = GType . Object <$> jsg "WebGPUTextureDescriptor" + +-- | Functions for this inteface are in "JSDOM.WebKitAnimationEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype WebKitAnimationEvent = WebKitAnimationEvent { unWebKitAnimationEvent :: JSVal } + +instance PToJSVal WebKitAnimationEvent where + pToJSVal = unWebKitAnimationEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitAnimationEvent where + pFromJSVal = WebKitAnimationEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitAnimationEvent where + toJSVal = return . unWebKitAnimationEvent + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitAnimationEvent where + fromJSVal v = fmap WebKitAnimationEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitAnimationEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitAnimationEvent where + makeObject = makeObject . unWebKitAnimationEvent + +instance IsEvent WebKitAnimationEvent +instance IsGObject WebKitAnimationEvent where + typeGType _ = gTypeWebKitAnimationEvent + {-# INLINE typeGType #-} + +noWebKitAnimationEvent :: Maybe WebKitAnimationEvent +noWebKitAnimationEvent = Nothing +{-# INLINE noWebKitAnimationEvent #-} + +gTypeWebKitAnimationEvent :: JSM GType +gTypeWebKitAnimationEvent = GType . Object <$> jsg "WebKitAnimationEvent" + +-- | Functions for this inteface are in "JSDOM.WebKitAnimationEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype WebKitAnimationEventInit = WebKitAnimationEventInit { unWebKitAnimationEventInit :: JSVal } + +instance PToJSVal WebKitAnimationEventInit where + pToJSVal = unWebKitAnimationEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitAnimationEventInit where + pFromJSVal = WebKitAnimationEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitAnimationEventInit where + toJSVal = return . unWebKitAnimationEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitAnimationEventInit where + fromJSVal v = fmap WebKitAnimationEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitAnimationEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitAnimationEventInit where + makeObject = makeObject . unWebKitAnimationEventInit + +instance IsEventInit WebKitAnimationEventInit +instance IsGObject WebKitAnimationEventInit where + typeGType _ = gTypeWebKitAnimationEventInit + {-# INLINE typeGType #-} + +noWebKitAnimationEventInit :: Maybe WebKitAnimationEventInit +noWebKitAnimationEventInit = Nothing +{-# INLINE noWebKitAnimationEventInit #-} + +gTypeWebKitAnimationEventInit :: JSM GType +gTypeWebKitAnimationEventInit = GType . Object <$> jsg "WebKitAnimationEventInit" + +-- | Functions for this inteface are in "JSDOM.WebKitCSSMatrix". +-- +-- +newtype WebKitCSSMatrix = WebKitCSSMatrix { unWebKitCSSMatrix :: JSVal } + +instance PToJSVal WebKitCSSMatrix where + pToJSVal = unWebKitCSSMatrix + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitCSSMatrix where + pFromJSVal = WebKitCSSMatrix + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitCSSMatrix where + toJSVal = return . unWebKitCSSMatrix + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitCSSMatrix where + fromJSVal v = fmap WebKitCSSMatrix <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitCSSMatrix + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitCSSMatrix where + makeObject = makeObject . unWebKitCSSMatrix + +instance IsGObject WebKitCSSMatrix where + typeGType _ = gTypeWebKitCSSMatrix + {-# INLINE typeGType #-} + +noWebKitCSSMatrix :: Maybe WebKitCSSMatrix +noWebKitCSSMatrix = Nothing +{-# INLINE noWebKitCSSMatrix #-} + +gTypeWebKitCSSMatrix :: JSM GType +gTypeWebKitCSSMatrix = GType . Object <$> jsg "WebKitCSSMatrix" + +-- | Functions for this inteface are in "JSDOM.WebKitCSSRegionRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype WebKitCSSRegionRule = WebKitCSSRegionRule { unWebKitCSSRegionRule :: JSVal } + +instance PToJSVal WebKitCSSRegionRule where + pToJSVal = unWebKitCSSRegionRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitCSSRegionRule where + pFromJSVal = WebKitCSSRegionRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitCSSRegionRule where + toJSVal = return . unWebKitCSSRegionRule + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitCSSRegionRule where + fromJSVal v = fmap WebKitCSSRegionRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitCSSRegionRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitCSSRegionRule where + makeObject = makeObject . unWebKitCSSRegionRule + +instance IsCSSRule WebKitCSSRegionRule +instance IsGObject WebKitCSSRegionRule where + typeGType _ = gTypeWebKitCSSRegionRule + {-# INLINE typeGType #-} + +noWebKitCSSRegionRule :: Maybe WebKitCSSRegionRule +noWebKitCSSRegionRule = Nothing +{-# INLINE noWebKitCSSRegionRule #-} + +gTypeWebKitCSSRegionRule :: JSM GType +gTypeWebKitCSSRegionRule = GType . Object <$> jsg "WebKitCSSRegionRule" + +-- | Functions for this inteface are in "JSDOM.WebKitCSSViewportRule". +-- Base interface functions are in: +-- +-- * "JSDOM.CSSRule" +-- +-- +newtype WebKitCSSViewportRule = WebKitCSSViewportRule { unWebKitCSSViewportRule :: JSVal } + +instance PToJSVal WebKitCSSViewportRule where + pToJSVal = unWebKitCSSViewportRule + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitCSSViewportRule where + pFromJSVal = WebKitCSSViewportRule + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitCSSViewportRule where + toJSVal = return . unWebKitCSSViewportRule + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitCSSViewportRule where + fromJSVal v = fmap WebKitCSSViewportRule <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitCSSViewportRule + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitCSSViewportRule where + makeObject = makeObject . unWebKitCSSViewportRule + +instance IsCSSRule WebKitCSSViewportRule +instance IsGObject WebKitCSSViewportRule where + typeGType _ = gTypeWebKitCSSViewportRule + {-# INLINE typeGType #-} + +noWebKitCSSViewportRule :: Maybe WebKitCSSViewportRule +noWebKitCSSViewportRule = Nothing +{-# INLINE noWebKitCSSViewportRule #-} + +gTypeWebKitCSSViewportRule :: JSM GType +gTypeWebKitCSSViewportRule = GType . Object <$> jsg "WebKitCSSViewportRule" + +-- | Functions for this inteface are in "JSDOM.WebKitMediaKeyError". +-- +-- +newtype WebKitMediaKeyError = WebKitMediaKeyError { unWebKitMediaKeyError :: JSVal } + +instance PToJSVal WebKitMediaKeyError where + pToJSVal = unWebKitMediaKeyError + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitMediaKeyError where + pFromJSVal = WebKitMediaKeyError + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitMediaKeyError where + toJSVal = return . unWebKitMediaKeyError + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitMediaKeyError where + fromJSVal v = fmap WebKitMediaKeyError <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitMediaKeyError + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitMediaKeyError where + makeObject = makeObject . unWebKitMediaKeyError + +instance IsGObject WebKitMediaKeyError where + typeGType _ = gTypeWebKitMediaKeyError + {-# INLINE typeGType #-} + +noWebKitMediaKeyError :: Maybe WebKitMediaKeyError +noWebKitMediaKeyError = Nothing +{-# INLINE noWebKitMediaKeyError #-} + +gTypeWebKitMediaKeyError :: JSM GType +gTypeWebKitMediaKeyError = GType . Object <$> jsg "WebKitMediaKeyError" + +-- | Functions for this inteface are in "JSDOM.WebKitMediaKeyMessageEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype WebKitMediaKeyMessageEvent = WebKitMediaKeyMessageEvent { unWebKitMediaKeyMessageEvent :: JSVal } + +instance PToJSVal WebKitMediaKeyMessageEvent where + pToJSVal = unWebKitMediaKeyMessageEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitMediaKeyMessageEvent where + pFromJSVal = WebKitMediaKeyMessageEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitMediaKeyMessageEvent where + toJSVal = return . unWebKitMediaKeyMessageEvent + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitMediaKeyMessageEvent where + fromJSVal v = fmap WebKitMediaKeyMessageEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitMediaKeyMessageEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitMediaKeyMessageEvent where + makeObject = makeObject . unWebKitMediaKeyMessageEvent + +instance IsEvent WebKitMediaKeyMessageEvent +instance IsGObject WebKitMediaKeyMessageEvent where + typeGType _ = gTypeWebKitMediaKeyMessageEvent + {-# INLINE typeGType #-} + +noWebKitMediaKeyMessageEvent :: Maybe WebKitMediaKeyMessageEvent +noWebKitMediaKeyMessageEvent = Nothing +{-# INLINE noWebKitMediaKeyMessageEvent #-} + +gTypeWebKitMediaKeyMessageEvent :: JSM GType +gTypeWebKitMediaKeyMessageEvent = GType . Object <$> jsg "WebKitMediaKeyMessageEvent" + +-- | Functions for this inteface are in "JSDOM.WebKitMediaKeyMessageEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype WebKitMediaKeyMessageEventInit = WebKitMediaKeyMessageEventInit { unWebKitMediaKeyMessageEventInit :: JSVal } + +instance PToJSVal WebKitMediaKeyMessageEventInit where + pToJSVal = unWebKitMediaKeyMessageEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitMediaKeyMessageEventInit where + pFromJSVal = WebKitMediaKeyMessageEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitMediaKeyMessageEventInit where + toJSVal = return . unWebKitMediaKeyMessageEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitMediaKeyMessageEventInit where + fromJSVal v = fmap WebKitMediaKeyMessageEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitMediaKeyMessageEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitMediaKeyMessageEventInit where + makeObject = makeObject . unWebKitMediaKeyMessageEventInit + +instance IsEventInit WebKitMediaKeyMessageEventInit +instance IsGObject WebKitMediaKeyMessageEventInit where + typeGType _ = gTypeWebKitMediaKeyMessageEventInit + {-# INLINE typeGType #-} + +noWebKitMediaKeyMessageEventInit :: Maybe WebKitMediaKeyMessageEventInit +noWebKitMediaKeyMessageEventInit = Nothing +{-# INLINE noWebKitMediaKeyMessageEventInit #-} + +gTypeWebKitMediaKeyMessageEventInit :: JSM GType +gTypeWebKitMediaKeyMessageEventInit = GType . Object <$> jsg "WebKitMediaKeyMessageEventInit" + +-- | Functions for this inteface are in "JSDOM.WebKitMediaKeyNeededEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype WebKitMediaKeyNeededEvent = WebKitMediaKeyNeededEvent { unWebKitMediaKeyNeededEvent :: JSVal } + +instance PToJSVal WebKitMediaKeyNeededEvent where + pToJSVal = unWebKitMediaKeyNeededEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitMediaKeyNeededEvent where + pFromJSVal = WebKitMediaKeyNeededEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitMediaKeyNeededEvent where + toJSVal = return . unWebKitMediaKeyNeededEvent + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitMediaKeyNeededEvent where + fromJSVal v = fmap WebKitMediaKeyNeededEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitMediaKeyNeededEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitMediaKeyNeededEvent where + makeObject = makeObject . unWebKitMediaKeyNeededEvent + +instance IsEvent WebKitMediaKeyNeededEvent +instance IsGObject WebKitMediaKeyNeededEvent where + typeGType _ = gTypeWebKitMediaKeyNeededEvent + {-# INLINE typeGType #-} + +noWebKitMediaKeyNeededEvent :: Maybe WebKitMediaKeyNeededEvent +noWebKitMediaKeyNeededEvent = Nothing +{-# INLINE noWebKitMediaKeyNeededEvent #-} + +gTypeWebKitMediaKeyNeededEvent :: JSM GType +gTypeWebKitMediaKeyNeededEvent = GType . Object <$> jsg "WebKitMediaKeyNeededEvent" + +-- | Functions for this inteface are in "JSDOM.WebKitMediaKeyNeededEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype WebKitMediaKeyNeededEventInit = WebKitMediaKeyNeededEventInit { unWebKitMediaKeyNeededEventInit :: JSVal } + +instance PToJSVal WebKitMediaKeyNeededEventInit where + pToJSVal = unWebKitMediaKeyNeededEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitMediaKeyNeededEventInit where + pFromJSVal = WebKitMediaKeyNeededEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitMediaKeyNeededEventInit where + toJSVal = return . unWebKitMediaKeyNeededEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitMediaKeyNeededEventInit where + fromJSVal v = fmap WebKitMediaKeyNeededEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitMediaKeyNeededEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitMediaKeyNeededEventInit where + makeObject = makeObject . unWebKitMediaKeyNeededEventInit + +instance IsEventInit WebKitMediaKeyNeededEventInit +instance IsGObject WebKitMediaKeyNeededEventInit where + typeGType _ = gTypeWebKitMediaKeyNeededEventInit + {-# INLINE typeGType #-} + +noWebKitMediaKeyNeededEventInit :: Maybe WebKitMediaKeyNeededEventInit +noWebKitMediaKeyNeededEventInit = Nothing +{-# INLINE noWebKitMediaKeyNeededEventInit #-} + +gTypeWebKitMediaKeyNeededEventInit :: JSM GType +gTypeWebKitMediaKeyNeededEventInit = GType . Object <$> jsg "WebKitMediaKeyNeededEventInit" + +-- | Functions for this inteface are in "JSDOM.WebKitMediaKeySession". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype WebKitMediaKeySession = WebKitMediaKeySession { unWebKitMediaKeySession :: JSVal } + +instance PToJSVal WebKitMediaKeySession where + pToJSVal = unWebKitMediaKeySession + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitMediaKeySession where + pFromJSVal = WebKitMediaKeySession + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitMediaKeySession where + toJSVal = return . unWebKitMediaKeySession + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitMediaKeySession where + fromJSVal v = fmap WebKitMediaKeySession <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitMediaKeySession + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitMediaKeySession where + makeObject = makeObject . unWebKitMediaKeySession + +instance IsEventTarget WebKitMediaKeySession +instance IsGObject WebKitMediaKeySession where + typeGType _ = gTypeWebKitMediaKeySession + {-# INLINE typeGType #-} + +noWebKitMediaKeySession :: Maybe WebKitMediaKeySession +noWebKitMediaKeySession = Nothing +{-# INLINE noWebKitMediaKeySession #-} + +gTypeWebKitMediaKeySession :: JSM GType +gTypeWebKitMediaKeySession = GType . Object <$> jsg "WebKitMediaKeySession" + +-- | Functions for this inteface are in "JSDOM.WebKitMediaKeys". +-- +-- +newtype WebKitMediaKeys = WebKitMediaKeys { unWebKitMediaKeys :: JSVal } + +instance PToJSVal WebKitMediaKeys where + pToJSVal = unWebKitMediaKeys + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitMediaKeys where + pFromJSVal = WebKitMediaKeys + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitMediaKeys where + toJSVal = return . unWebKitMediaKeys + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitMediaKeys where + fromJSVal v = fmap WebKitMediaKeys <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitMediaKeys + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitMediaKeys where + makeObject = makeObject . unWebKitMediaKeys + +instance IsGObject WebKitMediaKeys where + typeGType _ = gTypeWebKitMediaKeys + {-# INLINE typeGType #-} + +noWebKitMediaKeys :: Maybe WebKitMediaKeys +noWebKitMediaKeys = Nothing +{-# INLINE noWebKitMediaKeys #-} + +gTypeWebKitMediaKeys :: JSM GType +gTypeWebKitMediaKeys = GType . Object <$> jsg "WebKitMediaKeys" + +-- | Functions for this inteface are in "JSDOM.WebKitNamedFlow". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype WebKitNamedFlow = WebKitNamedFlow { unWebKitNamedFlow :: JSVal } + +instance PToJSVal WebKitNamedFlow where + pToJSVal = unWebKitNamedFlow + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitNamedFlow where + pFromJSVal = WebKitNamedFlow + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitNamedFlow where + toJSVal = return . unWebKitNamedFlow + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitNamedFlow where + fromJSVal v = fmap WebKitNamedFlow <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitNamedFlow + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitNamedFlow where + makeObject = makeObject . unWebKitNamedFlow + +instance IsEventTarget WebKitNamedFlow +instance IsGObject WebKitNamedFlow where + typeGType _ = gTypeWebKitNamedFlow + {-# INLINE typeGType #-} + +noWebKitNamedFlow :: Maybe WebKitNamedFlow +noWebKitNamedFlow = Nothing +{-# INLINE noWebKitNamedFlow #-} + +gTypeWebKitNamedFlow :: JSM GType +gTypeWebKitNamedFlow = GType . Object <$> jsg "WebKitNamedFlow" + +-- | Functions for this inteface are in "JSDOM.WebKitNamespace". +-- +-- +newtype WebKitNamespace = WebKitNamespace { unWebKitNamespace :: JSVal } + +instance PToJSVal WebKitNamespace where + pToJSVal = unWebKitNamespace + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitNamespace where + pFromJSVal = WebKitNamespace + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitNamespace where + toJSVal = return . unWebKitNamespace + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitNamespace where + fromJSVal v = fmap WebKitNamespace <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitNamespace + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitNamespace where + makeObject = makeObject . unWebKitNamespace + +instance IsGObject WebKitNamespace where + typeGType _ = gTypeWebKitNamespace + {-# INLINE typeGType #-} + +noWebKitNamespace :: Maybe WebKitNamespace +noWebKitNamespace = Nothing +{-# INLINE noWebKitNamespace #-} + +gTypeWebKitNamespace :: JSM GType +gTypeWebKitNamespace = GType . Object <$> jsg "WebKitNamespace" + +-- | Functions for this inteface are in "JSDOM.WebKitPlaybackTargetAvailabilityEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype WebKitPlaybackTargetAvailabilityEvent = WebKitPlaybackTargetAvailabilityEvent { unWebKitPlaybackTargetAvailabilityEvent :: JSVal } + +instance PToJSVal WebKitPlaybackTargetAvailabilityEvent where + pToJSVal = unWebKitPlaybackTargetAvailabilityEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitPlaybackTargetAvailabilityEvent where + pFromJSVal = WebKitPlaybackTargetAvailabilityEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitPlaybackTargetAvailabilityEvent where + toJSVal = return . unWebKitPlaybackTargetAvailabilityEvent + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitPlaybackTargetAvailabilityEvent where + fromJSVal v = fmap WebKitPlaybackTargetAvailabilityEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitPlaybackTargetAvailabilityEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitPlaybackTargetAvailabilityEvent where + makeObject = makeObject . unWebKitPlaybackTargetAvailabilityEvent + +instance IsEvent WebKitPlaybackTargetAvailabilityEvent +instance IsGObject WebKitPlaybackTargetAvailabilityEvent where + typeGType _ = gTypeWebKitPlaybackTargetAvailabilityEvent + {-# INLINE typeGType #-} + +noWebKitPlaybackTargetAvailabilityEvent :: Maybe WebKitPlaybackTargetAvailabilityEvent +noWebKitPlaybackTargetAvailabilityEvent = Nothing +{-# INLINE noWebKitPlaybackTargetAvailabilityEvent #-} + +gTypeWebKitPlaybackTargetAvailabilityEvent :: JSM GType +gTypeWebKitPlaybackTargetAvailabilityEvent = GType . Object <$> jsg "WebKitPlaybackTargetAvailabilityEvent" + +-- | Functions for this inteface are in "JSDOM.WebKitPlaybackTargetAvailabilityEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype WebKitPlaybackTargetAvailabilityEventInit = WebKitPlaybackTargetAvailabilityEventInit { unWebKitPlaybackTargetAvailabilityEventInit :: JSVal } + +instance PToJSVal WebKitPlaybackTargetAvailabilityEventInit where + pToJSVal = unWebKitPlaybackTargetAvailabilityEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitPlaybackTargetAvailabilityEventInit where + pFromJSVal = WebKitPlaybackTargetAvailabilityEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitPlaybackTargetAvailabilityEventInit where + toJSVal = return . unWebKitPlaybackTargetAvailabilityEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitPlaybackTargetAvailabilityEventInit where + fromJSVal v = fmap WebKitPlaybackTargetAvailabilityEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitPlaybackTargetAvailabilityEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitPlaybackTargetAvailabilityEventInit where + makeObject = makeObject . unWebKitPlaybackTargetAvailabilityEventInit + +instance IsEventInit WebKitPlaybackTargetAvailabilityEventInit +instance IsGObject WebKitPlaybackTargetAvailabilityEventInit where + typeGType _ = gTypeWebKitPlaybackTargetAvailabilityEventInit + {-# INLINE typeGType #-} + +noWebKitPlaybackTargetAvailabilityEventInit :: Maybe WebKitPlaybackTargetAvailabilityEventInit +noWebKitPlaybackTargetAvailabilityEventInit = Nothing +{-# INLINE noWebKitPlaybackTargetAvailabilityEventInit #-} + +gTypeWebKitPlaybackTargetAvailabilityEventInit :: JSM GType +gTypeWebKitPlaybackTargetAvailabilityEventInit = GType . Object <$> jsg "WebKitPlaybackTargetAvailabilityEventInit" + +-- | Functions for this inteface are in "JSDOM.WebKitPoint". +-- +-- +newtype WebKitPoint = WebKitPoint { unWebKitPoint :: JSVal } + +instance PToJSVal WebKitPoint where + pToJSVal = unWebKitPoint + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitPoint where + pFromJSVal = WebKitPoint + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitPoint where + toJSVal = return . unWebKitPoint + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitPoint where + fromJSVal v = fmap WebKitPoint <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitPoint + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitPoint where + makeObject = makeObject . unWebKitPoint + +instance IsGObject WebKitPoint where + typeGType _ = gTypeWebKitPoint + {-# INLINE typeGType #-} + +noWebKitPoint :: Maybe WebKitPoint +noWebKitPoint = Nothing +{-# INLINE noWebKitPoint #-} + +gTypeWebKitPoint :: JSM GType +gTypeWebKitPoint = GType . Object <$> jsg "WebKitPoint" + +-- | Functions for this inteface are in "JSDOM.WebKitSubtleCrypto". +-- +-- +newtype WebKitSubtleCrypto = WebKitSubtleCrypto { unWebKitSubtleCrypto :: JSVal } + +instance PToJSVal WebKitSubtleCrypto where + pToJSVal = unWebKitSubtleCrypto + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitSubtleCrypto where + pFromJSVal = WebKitSubtleCrypto + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitSubtleCrypto where + toJSVal = return . unWebKitSubtleCrypto + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitSubtleCrypto where + fromJSVal v = fmap WebKitSubtleCrypto <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitSubtleCrypto + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitSubtleCrypto where + makeObject = makeObject . unWebKitSubtleCrypto + +instance IsGObject WebKitSubtleCrypto where + typeGType _ = gTypeWebKitSubtleCrypto + {-# INLINE typeGType #-} + +noWebKitSubtleCrypto :: Maybe WebKitSubtleCrypto +noWebKitSubtleCrypto = Nothing +{-# INLINE noWebKitSubtleCrypto #-} + +gTypeWebKitSubtleCrypto :: JSM GType +gTypeWebKitSubtleCrypto = GType . Object <$> jsg "WebKitSubtleCrypto" + +-- | Functions for this inteface are in "JSDOM.WebKitTransitionEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.Event" +-- +-- +newtype WebKitTransitionEvent = WebKitTransitionEvent { unWebKitTransitionEvent :: JSVal } + +instance PToJSVal WebKitTransitionEvent where + pToJSVal = unWebKitTransitionEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitTransitionEvent where + pFromJSVal = WebKitTransitionEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitTransitionEvent where + toJSVal = return . unWebKitTransitionEvent + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitTransitionEvent where + fromJSVal v = fmap WebKitTransitionEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitTransitionEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitTransitionEvent where + makeObject = makeObject . unWebKitTransitionEvent + +instance IsEvent WebKitTransitionEvent +instance IsGObject WebKitTransitionEvent where + typeGType _ = gTypeWebKitTransitionEvent + {-# INLINE typeGType #-} + +noWebKitTransitionEvent :: Maybe WebKitTransitionEvent +noWebKitTransitionEvent = Nothing +{-# INLINE noWebKitTransitionEvent #-} + +gTypeWebKitTransitionEvent :: JSM GType +gTypeWebKitTransitionEvent = GType . Object <$> jsg "WebKitTransitionEvent" + +-- | Functions for this inteface are in "JSDOM.WebKitTransitionEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.EventInit" +-- +-- +newtype WebKitTransitionEventInit = WebKitTransitionEventInit { unWebKitTransitionEventInit :: JSVal } + +instance PToJSVal WebKitTransitionEventInit where + pToJSVal = unWebKitTransitionEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebKitTransitionEventInit where + pFromJSVal = WebKitTransitionEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebKitTransitionEventInit where + toJSVal = return . unWebKitTransitionEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal WebKitTransitionEventInit where + fromJSVal v = fmap WebKitTransitionEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebKitTransitionEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebKitTransitionEventInit where + makeObject = makeObject . unWebKitTransitionEventInit + +instance IsEventInit WebKitTransitionEventInit +instance IsGObject WebKitTransitionEventInit where + typeGType _ = gTypeWebKitTransitionEventInit + {-# INLINE typeGType #-} + +noWebKitTransitionEventInit :: Maybe WebKitTransitionEventInit +noWebKitTransitionEventInit = Nothing +{-# INLINE noWebKitTransitionEventInit #-} + +gTypeWebKitTransitionEventInit :: JSM GType +gTypeWebKitTransitionEventInit = GType . Object <$> jsg "WebKitTransitionEventInit" + +-- | Functions for this inteface are in "JSDOM.WebSocket". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype WebSocket = WebSocket { unWebSocket :: JSVal } + +instance PToJSVal WebSocket where + pToJSVal = unWebSocket + {-# INLINE pToJSVal #-} + +instance PFromJSVal WebSocket where + pFromJSVal = WebSocket + {-# INLINE pFromJSVal #-} + +instance ToJSVal WebSocket where + toJSVal = return . unWebSocket + {-# INLINE toJSVal #-} + +instance FromJSVal WebSocket where + fromJSVal v = fmap WebSocket <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WebSocket + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WebSocket where + makeObject = makeObject . unWebSocket + +instance IsEventTarget WebSocket +instance IsGObject WebSocket where + typeGType _ = gTypeWebSocket + {-# INLINE typeGType #-} + +noWebSocket :: Maybe WebSocket +noWebSocket = Nothing +{-# INLINE noWebSocket #-} + +gTypeWebSocket :: JSM GType +gTypeWebSocket = GType . Object <$> jsg "WebSocket" + +-- | Functions for this inteface are in "JSDOM.WheelEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.MouseEvent" +-- * "JSDOM.UIEvent" +-- * "JSDOM.Event" +-- +-- +newtype WheelEvent = WheelEvent { unWheelEvent :: JSVal } + +instance PToJSVal WheelEvent where + pToJSVal = unWheelEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal WheelEvent where + pFromJSVal = WheelEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal WheelEvent where + toJSVal = return . unWheelEvent + {-# INLINE toJSVal #-} + +instance FromJSVal WheelEvent where + fromJSVal v = fmap WheelEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WheelEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WheelEvent where + makeObject = makeObject . unWheelEvent + +instance IsMouseEvent WheelEvent +instance IsUIEvent WheelEvent +instance IsEvent WheelEvent +instance IsGObject WheelEvent where + typeGType _ = gTypeWheelEvent + {-# INLINE typeGType #-} + +noWheelEvent :: Maybe WheelEvent +noWheelEvent = Nothing +{-# INLINE noWheelEvent #-} + +gTypeWheelEvent :: JSM GType +gTypeWheelEvent = GType . Object <$> jsg "WheelEvent" + +-- | Functions for this inteface are in "JSDOM.WheelEventInit". +-- Base interface functions are in: +-- +-- * "JSDOM.MouseEventInit" +-- * "JSDOM.EventModifierInit" +-- * "JSDOM.UIEventInit" +-- * "JSDOM.EventInit" +-- +-- +newtype WheelEventInit = WheelEventInit { unWheelEventInit :: JSVal } + +instance PToJSVal WheelEventInit where + pToJSVal = unWheelEventInit + {-# INLINE pToJSVal #-} + +instance PFromJSVal WheelEventInit where + pFromJSVal = WheelEventInit + {-# INLINE pFromJSVal #-} + +instance ToJSVal WheelEventInit where + toJSVal = return . unWheelEventInit + {-# INLINE toJSVal #-} + +instance FromJSVal WheelEventInit where + fromJSVal v = fmap WheelEventInit <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WheelEventInit + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WheelEventInit where + makeObject = makeObject . unWheelEventInit + +instance IsMouseEventInit WheelEventInit +instance IsEventModifierInit WheelEventInit +instance IsUIEventInit WheelEventInit +instance IsEventInit WheelEventInit +instance IsGObject WheelEventInit where + typeGType _ = gTypeWheelEventInit + {-# INLINE typeGType #-} + +noWheelEventInit :: Maybe WheelEventInit +noWheelEventInit = Nothing +{-# INLINE noWheelEventInit #-} + +gTypeWheelEventInit :: JSM GType +gTypeWheelEventInit = GType . Object <$> jsg "WheelEventInit" + +-- | Functions for this inteface are in "JSDOM.Window". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- * "JSDOM.WindowOrWorkerGlobalScope" +-- * "JSDOM.WindowEventHandlers" +-- * "JSDOM.GlobalPerformance" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.GlobalCrypto" +-- +-- +newtype Window = Window { unWindow :: JSVal } + +instance PToJSVal Window where + pToJSVal = unWindow + {-# INLINE pToJSVal #-} + +instance PFromJSVal Window where + pFromJSVal = Window + {-# INLINE pFromJSVal #-} + +instance ToJSVal Window where + toJSVal = return . unWindow + {-# INLINE toJSVal #-} + +instance FromJSVal Window where + fromJSVal v = fmap Window <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Window + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Window where + makeObject = makeObject . unWindow + +instance IsEventTarget Window +instance IsWindowOrWorkerGlobalScope Window +instance IsWindowEventHandlers Window +instance IsGlobalPerformance Window +instance IsGlobalEventHandlers Window +instance IsGlobalCrypto Window +instance IsGObject Window where + typeGType _ = gTypeWindow + {-# INLINE typeGType #-} + +noWindow :: Maybe Window +noWindow = Nothing +{-# INLINE noWindow #-} + +gTypeWindow :: JSM GType +gTypeWindow = GType . Object <$> jsg "Window" + +-- | Functions for this inteface are in "JSDOM.WindowEventHandlers". +-- +-- +newtype WindowEventHandlers = WindowEventHandlers { unWindowEventHandlers :: JSVal } + +instance PToJSVal WindowEventHandlers where + pToJSVal = unWindowEventHandlers + {-# INLINE pToJSVal #-} + +instance PFromJSVal WindowEventHandlers where + pFromJSVal = WindowEventHandlers + {-# INLINE pFromJSVal #-} + +instance ToJSVal WindowEventHandlers where + toJSVal = return . unWindowEventHandlers + {-# INLINE toJSVal #-} + +instance FromJSVal WindowEventHandlers where + fromJSVal v = fmap WindowEventHandlers <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WindowEventHandlers + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WindowEventHandlers where + makeObject = makeObject . unWindowEventHandlers + +class (IsGObject o) => IsWindowEventHandlers o +toWindowEventHandlers :: IsWindowEventHandlers o => o -> WindowEventHandlers +toWindowEventHandlers = WindowEventHandlers . coerce + +instance IsWindowEventHandlers WindowEventHandlers +instance IsGObject WindowEventHandlers where + typeGType _ = gTypeWindowEventHandlers + {-# INLINE typeGType #-} + +noWindowEventHandlers :: Maybe WindowEventHandlers +noWindowEventHandlers = Nothing +{-# INLINE noWindowEventHandlers #-} + +gTypeWindowEventHandlers :: JSM GType +gTypeWindowEventHandlers = GType . Object <$> jsg "WindowEventHandlers" + +-- | Functions for this inteface are in "JSDOM.WindowOrWorkerGlobalScope". +-- +-- +newtype WindowOrWorkerGlobalScope = WindowOrWorkerGlobalScope { unWindowOrWorkerGlobalScope :: JSVal } + +instance PToJSVal WindowOrWorkerGlobalScope where + pToJSVal = unWindowOrWorkerGlobalScope + {-# INLINE pToJSVal #-} + +instance PFromJSVal WindowOrWorkerGlobalScope where + pFromJSVal = WindowOrWorkerGlobalScope + {-# INLINE pFromJSVal #-} + +instance ToJSVal WindowOrWorkerGlobalScope where + toJSVal = return . unWindowOrWorkerGlobalScope + {-# INLINE toJSVal #-} + +instance FromJSVal WindowOrWorkerGlobalScope where + fromJSVal v = fmap WindowOrWorkerGlobalScope <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WindowOrWorkerGlobalScope + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WindowOrWorkerGlobalScope where + makeObject = makeObject . unWindowOrWorkerGlobalScope + +class (IsGObject o) => IsWindowOrWorkerGlobalScope o +toWindowOrWorkerGlobalScope :: IsWindowOrWorkerGlobalScope o => o -> WindowOrWorkerGlobalScope +toWindowOrWorkerGlobalScope = WindowOrWorkerGlobalScope . coerce + +instance IsWindowOrWorkerGlobalScope WindowOrWorkerGlobalScope +instance IsGObject WindowOrWorkerGlobalScope where + typeGType _ = gTypeWindowOrWorkerGlobalScope + {-# INLINE typeGType #-} + +noWindowOrWorkerGlobalScope :: Maybe WindowOrWorkerGlobalScope +noWindowOrWorkerGlobalScope = Nothing +{-# INLINE noWindowOrWorkerGlobalScope #-} + +gTypeWindowOrWorkerGlobalScope :: JSM GType +gTypeWindowOrWorkerGlobalScope = GType . Object <$> jsg "WindowOrWorkerGlobalScope" + +-- | Functions for this inteface are in "JSDOM.Worker". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- * "JSDOM.AbstractWorker" +-- +-- +newtype Worker = Worker { unWorker :: JSVal } + +instance PToJSVal Worker where + pToJSVal = unWorker + {-# INLINE pToJSVal #-} + +instance PFromJSVal Worker where + pFromJSVal = Worker + {-# INLINE pFromJSVal #-} + +instance ToJSVal Worker where + toJSVal = return . unWorker + {-# INLINE toJSVal #-} + +instance FromJSVal Worker where + fromJSVal v = fmap Worker <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . Worker + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject Worker where + makeObject = makeObject . unWorker + +instance IsEventTarget Worker +instance IsAbstractWorker Worker +instance IsGObject Worker where + typeGType _ = gTypeWorker + {-# INLINE typeGType #-} + +noWorker :: Maybe Worker +noWorker = Nothing +{-# INLINE noWorker #-} + +gTypeWorker :: JSM GType +gTypeWorker = GType . Object <$> jsg "Worker" + +-- | Functions for this inteface are in "JSDOM.WorkerGlobalScope". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- * "JSDOM.WindowOrWorkerGlobalScope" +-- * "JSDOM.GlobalPerformance" +-- * "JSDOM.GlobalCrypto" +-- +-- +newtype WorkerGlobalScope = WorkerGlobalScope { unWorkerGlobalScope :: JSVal } + +instance PToJSVal WorkerGlobalScope where + pToJSVal = unWorkerGlobalScope + {-# INLINE pToJSVal #-} + +instance PFromJSVal WorkerGlobalScope where + pFromJSVal = WorkerGlobalScope + {-# INLINE pFromJSVal #-} + +instance ToJSVal WorkerGlobalScope where + toJSVal = return . unWorkerGlobalScope + {-# INLINE toJSVal #-} + +instance FromJSVal WorkerGlobalScope where + fromJSVal v = fmap WorkerGlobalScope <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WorkerGlobalScope + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WorkerGlobalScope where + makeObject = makeObject . unWorkerGlobalScope + +class (IsEventTarget o, IsWindowOrWorkerGlobalScope o, IsGlobalPerformance o, IsGlobalCrypto o, IsGObject o) => IsWorkerGlobalScope o +toWorkerGlobalScope :: IsWorkerGlobalScope o => o -> WorkerGlobalScope +toWorkerGlobalScope = WorkerGlobalScope . coerce + +instance IsWorkerGlobalScope WorkerGlobalScope +instance IsEventTarget WorkerGlobalScope +instance IsWindowOrWorkerGlobalScope WorkerGlobalScope +instance IsGlobalPerformance WorkerGlobalScope +instance IsGlobalCrypto WorkerGlobalScope +instance IsGObject WorkerGlobalScope where + typeGType _ = gTypeWorkerGlobalScope + {-# INLINE typeGType #-} + +noWorkerGlobalScope :: Maybe WorkerGlobalScope +noWorkerGlobalScope = Nothing +{-# INLINE noWorkerGlobalScope #-} + +gTypeWorkerGlobalScope :: JSM GType +gTypeWorkerGlobalScope = GType . Object <$> jsg "WorkerGlobalScope" + +-- | Functions for this inteface are in "JSDOM.WorkerLocation". +-- +-- +newtype WorkerLocation = WorkerLocation { unWorkerLocation :: JSVal } + +instance PToJSVal WorkerLocation where + pToJSVal = unWorkerLocation + {-# INLINE pToJSVal #-} + +instance PFromJSVal WorkerLocation where + pFromJSVal = WorkerLocation + {-# INLINE pFromJSVal #-} + +instance ToJSVal WorkerLocation where + toJSVal = return . unWorkerLocation + {-# INLINE toJSVal #-} + +instance FromJSVal WorkerLocation where + fromJSVal v = fmap WorkerLocation <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WorkerLocation + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WorkerLocation where + makeObject = makeObject . unWorkerLocation + +instance IsGObject WorkerLocation where + typeGType _ = gTypeWorkerLocation + {-# INLINE typeGType #-} + +noWorkerLocation :: Maybe WorkerLocation +noWorkerLocation = Nothing +{-# INLINE noWorkerLocation #-} + +gTypeWorkerLocation :: JSM GType +gTypeWorkerLocation = GType . Object <$> jsg "WorkerLocation" + +-- | Functions for this inteface are in "JSDOM.WorkerNavigator". +-- Base interface functions are in: +-- +-- * "JSDOM.NavigatorOnLine" +-- * "JSDOM.NavigatorLanguage" +-- * "JSDOM.NavigatorID" +-- * "JSDOM.NavigatorConcurrentHardware" +-- +-- +newtype WorkerNavigator = WorkerNavigator { unWorkerNavigator :: JSVal } + +instance PToJSVal WorkerNavigator where + pToJSVal = unWorkerNavigator + {-# INLINE pToJSVal #-} + +instance PFromJSVal WorkerNavigator where + pFromJSVal = WorkerNavigator + {-# INLINE pFromJSVal #-} + +instance ToJSVal WorkerNavigator where + toJSVal = return . unWorkerNavigator + {-# INLINE toJSVal #-} + +instance FromJSVal WorkerNavigator where + fromJSVal v = fmap WorkerNavigator <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WorkerNavigator + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WorkerNavigator where + makeObject = makeObject . unWorkerNavigator + +instance IsNavigatorOnLine WorkerNavigator +instance IsNavigatorLanguage WorkerNavigator +instance IsNavigatorID WorkerNavigator +instance IsNavigatorConcurrentHardware WorkerNavigator +instance IsGObject WorkerNavigator where + typeGType _ = gTypeWorkerNavigator + {-# INLINE typeGType #-} + +noWorkerNavigator :: Maybe WorkerNavigator +noWorkerNavigator = Nothing +{-# INLINE noWorkerNavigator #-} + +gTypeWorkerNavigator :: JSM GType +gTypeWorkerNavigator = GType . Object <$> jsg "WorkerNavigator" + +-- | Functions for this inteface are in "JSDOM.WritableStream". +-- +-- +newtype WritableStream = WritableStream { unWritableStream :: JSVal } + +instance PToJSVal WritableStream where + pToJSVal = unWritableStream + {-# INLINE pToJSVal #-} + +instance PFromJSVal WritableStream where + pFromJSVal = WritableStream + {-# INLINE pFromJSVal #-} + +instance ToJSVal WritableStream where + toJSVal = return . unWritableStream + {-# INLINE toJSVal #-} + +instance FromJSVal WritableStream where + fromJSVal v = fmap WritableStream <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . WritableStream + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject WritableStream where + makeObject = makeObject . unWritableStream + +instance IsGObject WritableStream where + typeGType _ = gTypeWritableStream + {-# INLINE typeGType #-} + +noWritableStream :: Maybe WritableStream +noWritableStream = Nothing +{-# INLINE noWritableStream #-} + +gTypeWritableStream :: JSM GType +gTypeWritableStream = GType . Object <$> jsg "WritableStream" + +-- | Functions for this inteface are in "JSDOM.XMLDocument". +-- Base interface functions are in: +-- +-- * "JSDOM.Document" +-- * "JSDOM.Node" +-- * "JSDOM.EventTarget" +-- * "JSDOM.GlobalEventHandlers" +-- * "JSDOM.DocumentOrShadowRoot" +-- * "JSDOM.NonElementParentNode" +-- * "JSDOM.ParentNode" +-- * "JSDOM.DocumentAndElementEventHandlers" +-- +-- +newtype XMLDocument = XMLDocument { unXMLDocument :: JSVal } + +instance PToJSVal XMLDocument where + pToJSVal = unXMLDocument + {-# INLINE pToJSVal #-} + +instance PFromJSVal XMLDocument where + pFromJSVal = XMLDocument + {-# INLINE pFromJSVal #-} + +instance ToJSVal XMLDocument where + toJSVal = return . unXMLDocument + {-# INLINE toJSVal #-} + +instance FromJSVal XMLDocument where + fromJSVal v = fmap XMLDocument <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XMLDocument + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XMLDocument where + makeObject = makeObject . unXMLDocument + +instance IsDocument XMLDocument +instance IsNode XMLDocument +instance IsEventTarget XMLDocument +instance IsGlobalEventHandlers XMLDocument +instance IsDocumentOrShadowRoot XMLDocument +instance IsNonElementParentNode XMLDocument +instance IsParentNode XMLDocument +instance IsDocumentAndElementEventHandlers XMLDocument +instance IsGObject XMLDocument where + typeGType _ = gTypeXMLDocument + {-# INLINE typeGType #-} + +noXMLDocument :: Maybe XMLDocument +noXMLDocument = Nothing +{-# INLINE noXMLDocument #-} + +gTypeXMLDocument :: JSM GType +gTypeXMLDocument = GType . Object <$> jsg "XMLDocument" + +-- | Functions for this inteface are in "JSDOM.XMLHttpRequest". +-- Base interface functions are in: +-- +-- * "JSDOM.XMLHttpRequestEventTarget" +-- * "JSDOM.EventTarget" +-- +-- +newtype XMLHttpRequest = XMLHttpRequest { unXMLHttpRequest :: JSVal } + +instance PToJSVal XMLHttpRequest where + pToJSVal = unXMLHttpRequest + {-# INLINE pToJSVal #-} + +instance PFromJSVal XMLHttpRequest where + pFromJSVal = XMLHttpRequest + {-# INLINE pFromJSVal #-} + +instance ToJSVal XMLHttpRequest where + toJSVal = return . unXMLHttpRequest + {-# INLINE toJSVal #-} + +instance FromJSVal XMLHttpRequest where + fromJSVal v = fmap XMLHttpRequest <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XMLHttpRequest + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XMLHttpRequest where + makeObject = makeObject . unXMLHttpRequest + +instance IsXMLHttpRequestEventTarget XMLHttpRequest +instance IsEventTarget XMLHttpRequest +instance IsGObject XMLHttpRequest where + typeGType _ = gTypeXMLHttpRequest + {-# INLINE typeGType #-} + +noXMLHttpRequest :: Maybe XMLHttpRequest +noXMLHttpRequest = Nothing +{-# INLINE noXMLHttpRequest #-} + +gTypeXMLHttpRequest :: JSM GType +gTypeXMLHttpRequest = GType . Object <$> jsg "XMLHttpRequest" + +-- | Functions for this inteface are in "JSDOM.XMLHttpRequestEventTarget". +-- Base interface functions are in: +-- +-- * "JSDOM.EventTarget" +-- +-- +newtype XMLHttpRequestEventTarget = XMLHttpRequestEventTarget { unXMLHttpRequestEventTarget :: JSVal } + +instance PToJSVal XMLHttpRequestEventTarget where + pToJSVal = unXMLHttpRequestEventTarget + {-# INLINE pToJSVal #-} + +instance PFromJSVal XMLHttpRequestEventTarget where + pFromJSVal = XMLHttpRequestEventTarget + {-# INLINE pFromJSVal #-} + +instance ToJSVal XMLHttpRequestEventTarget where + toJSVal = return . unXMLHttpRequestEventTarget + {-# INLINE toJSVal #-} + +instance FromJSVal XMLHttpRequestEventTarget where + fromJSVal v = fmap XMLHttpRequestEventTarget <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XMLHttpRequestEventTarget + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XMLHttpRequestEventTarget where + makeObject = makeObject . unXMLHttpRequestEventTarget + +class (IsEventTarget o, IsGObject o) => IsXMLHttpRequestEventTarget o +toXMLHttpRequestEventTarget :: IsXMLHttpRequestEventTarget o => o -> XMLHttpRequestEventTarget +toXMLHttpRequestEventTarget = XMLHttpRequestEventTarget . coerce + +instance IsXMLHttpRequestEventTarget XMLHttpRequestEventTarget +instance IsEventTarget XMLHttpRequestEventTarget +instance IsGObject XMLHttpRequestEventTarget where + typeGType _ = gTypeXMLHttpRequestEventTarget + {-# INLINE typeGType #-} + +noXMLHttpRequestEventTarget :: Maybe XMLHttpRequestEventTarget +noXMLHttpRequestEventTarget = Nothing +{-# INLINE noXMLHttpRequestEventTarget #-} + +gTypeXMLHttpRequestEventTarget :: JSM GType +gTypeXMLHttpRequestEventTarget = GType . Object <$> jsg "XMLHttpRequestEventTarget" + +-- | Functions for this inteface are in "JSDOM.XMLHttpRequestProgressEvent". +-- Base interface functions are in: +-- +-- * "JSDOM.ProgressEvent" +-- * "JSDOM.Event" +-- +-- +newtype XMLHttpRequestProgressEvent = XMLHttpRequestProgressEvent { unXMLHttpRequestProgressEvent :: JSVal } + +instance PToJSVal XMLHttpRequestProgressEvent where + pToJSVal = unXMLHttpRequestProgressEvent + {-# INLINE pToJSVal #-} + +instance PFromJSVal XMLHttpRequestProgressEvent where + pFromJSVal = XMLHttpRequestProgressEvent + {-# INLINE pFromJSVal #-} + +instance ToJSVal XMLHttpRequestProgressEvent where + toJSVal = return . unXMLHttpRequestProgressEvent + {-# INLINE toJSVal #-} + +instance FromJSVal XMLHttpRequestProgressEvent where + fromJSVal v = fmap XMLHttpRequestProgressEvent <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XMLHttpRequestProgressEvent + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XMLHttpRequestProgressEvent where + makeObject = makeObject . unXMLHttpRequestProgressEvent + +instance IsProgressEvent XMLHttpRequestProgressEvent +instance IsEvent XMLHttpRequestProgressEvent +instance IsGObject XMLHttpRequestProgressEvent where + typeGType _ = gTypeXMLHttpRequestProgressEvent + {-# INLINE typeGType #-} + +noXMLHttpRequestProgressEvent :: Maybe XMLHttpRequestProgressEvent +noXMLHttpRequestProgressEvent = Nothing +{-# INLINE noXMLHttpRequestProgressEvent #-} + +gTypeXMLHttpRequestProgressEvent :: JSM GType +gTypeXMLHttpRequestProgressEvent = GType . Object <$> jsg "XMLHttpRequestProgressEvent" + +-- | Functions for this inteface are in "JSDOM.XMLHttpRequestUpload". +-- Base interface functions are in: +-- +-- * "JSDOM.XMLHttpRequestEventTarget" +-- * "JSDOM.EventTarget" +-- +-- +newtype XMLHttpRequestUpload = XMLHttpRequestUpload { unXMLHttpRequestUpload :: JSVal } + +instance PToJSVal XMLHttpRequestUpload where + pToJSVal = unXMLHttpRequestUpload + {-# INLINE pToJSVal #-} + +instance PFromJSVal XMLHttpRequestUpload where + pFromJSVal = XMLHttpRequestUpload + {-# INLINE pFromJSVal #-} + +instance ToJSVal XMLHttpRequestUpload where + toJSVal = return . unXMLHttpRequestUpload + {-# INLINE toJSVal #-} + +instance FromJSVal XMLHttpRequestUpload where + fromJSVal v = fmap XMLHttpRequestUpload <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XMLHttpRequestUpload + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XMLHttpRequestUpload where + makeObject = makeObject . unXMLHttpRequestUpload + +instance IsXMLHttpRequestEventTarget XMLHttpRequestUpload +instance IsEventTarget XMLHttpRequestUpload +instance IsGObject XMLHttpRequestUpload where + typeGType _ = gTypeXMLHttpRequestUpload + {-# INLINE typeGType #-} + +noXMLHttpRequestUpload :: Maybe XMLHttpRequestUpload +noXMLHttpRequestUpload = Nothing +{-# INLINE noXMLHttpRequestUpload #-} + +gTypeXMLHttpRequestUpload :: JSM GType +gTypeXMLHttpRequestUpload = GType . Object <$> jsg "XMLHttpRequestUpload" + +-- | Functions for this inteface are in "JSDOM.XMLSerializer". +-- +-- +newtype XMLSerializer = XMLSerializer { unXMLSerializer :: JSVal } + +instance PToJSVal XMLSerializer where + pToJSVal = unXMLSerializer + {-# INLINE pToJSVal #-} + +instance PFromJSVal XMLSerializer where + pFromJSVal = XMLSerializer + {-# INLINE pFromJSVal #-} + +instance ToJSVal XMLSerializer where + toJSVal = return . unXMLSerializer + {-# INLINE toJSVal #-} + +instance FromJSVal XMLSerializer where + fromJSVal v = fmap XMLSerializer <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XMLSerializer + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XMLSerializer where + makeObject = makeObject . unXMLSerializer + +instance IsGObject XMLSerializer where + typeGType _ = gTypeXMLSerializer + {-# INLINE typeGType #-} + +noXMLSerializer :: Maybe XMLSerializer +noXMLSerializer = Nothing +{-# INLINE noXMLSerializer #-} + +gTypeXMLSerializer :: JSM GType +gTypeXMLSerializer = GType . Object <$> jsg "XMLSerializer" + +-- | Functions for this inteface are in "JSDOM.XPathEvaluator". +-- +-- +newtype XPathEvaluator = XPathEvaluator { unXPathEvaluator :: JSVal } + +instance PToJSVal XPathEvaluator where + pToJSVal = unXPathEvaluator + {-# INLINE pToJSVal #-} + +instance PFromJSVal XPathEvaluator where + pFromJSVal = XPathEvaluator + {-# INLINE pFromJSVal #-} + +instance ToJSVal XPathEvaluator where + toJSVal = return . unXPathEvaluator + {-# INLINE toJSVal #-} + +instance FromJSVal XPathEvaluator where + fromJSVal v = fmap XPathEvaluator <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XPathEvaluator + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XPathEvaluator where + makeObject = makeObject . unXPathEvaluator + +instance IsGObject XPathEvaluator where + typeGType _ = gTypeXPathEvaluator + {-# INLINE typeGType #-} + +noXPathEvaluator :: Maybe XPathEvaluator +noXPathEvaluator = Nothing +{-# INLINE noXPathEvaluator #-} + +gTypeXPathEvaluator :: JSM GType +gTypeXPathEvaluator = GType . Object <$> jsg "XPathEvaluator" + +-- | Functions for this inteface are in "JSDOM.XPathException". +-- +-- +newtype XPathException = XPathException { unXPathException :: JSVal } + +instance PToJSVal XPathException where + pToJSVal = unXPathException + {-# INLINE pToJSVal #-} + +instance PFromJSVal XPathException where + pFromJSVal = XPathException + {-# INLINE pFromJSVal #-} + +instance ToJSVal XPathException where + toJSVal = return . unXPathException + {-# INLINE toJSVal #-} + +instance FromJSVal XPathException where + fromJSVal v = fmap XPathException <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XPathException + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XPathException where + makeObject = makeObject . unXPathException + +instance IsGObject XPathException where + typeGType _ = gTypeXPathException + {-# INLINE typeGType #-} + +noXPathException :: Maybe XPathException +noXPathException = Nothing +{-# INLINE noXPathException #-} + +gTypeXPathException :: JSM GType +gTypeXPathException = GType . Object <$> jsg "XPathException" + +-- | Functions for this inteface are in "JSDOM.XPathExpression". +-- +-- +newtype XPathExpression = XPathExpression { unXPathExpression :: JSVal } + +instance PToJSVal XPathExpression where + pToJSVal = unXPathExpression + {-# INLINE pToJSVal #-} + +instance PFromJSVal XPathExpression where + pFromJSVal = XPathExpression + {-# INLINE pFromJSVal #-} + +instance ToJSVal XPathExpression where + toJSVal = return . unXPathExpression + {-# INLINE toJSVal #-} + +instance FromJSVal XPathExpression where + fromJSVal v = fmap XPathExpression <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XPathExpression + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XPathExpression where + makeObject = makeObject . unXPathExpression + +instance IsGObject XPathExpression where + typeGType _ = gTypeXPathExpression + {-# INLINE typeGType #-} + +noXPathExpression :: Maybe XPathExpression +noXPathExpression = Nothing +{-# INLINE noXPathExpression #-} + +gTypeXPathExpression :: JSM GType +gTypeXPathExpression = GType . Object <$> jsg "XPathExpression" + +-- | Functions for this inteface are in "JSDOM.XPathNSResolver". +-- +-- +newtype XPathNSResolver = XPathNSResolver { unXPathNSResolver :: JSVal } + +instance PToJSVal XPathNSResolver where + pToJSVal = unXPathNSResolver + {-# INLINE pToJSVal #-} + +instance PFromJSVal XPathNSResolver where + pFromJSVal = XPathNSResolver + {-# INLINE pFromJSVal #-} + +instance ToJSVal XPathNSResolver where + toJSVal = return . unXPathNSResolver + {-# INLINE toJSVal #-} + +instance FromJSVal XPathNSResolver where + fromJSVal v = fmap XPathNSResolver <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XPathNSResolver + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XPathNSResolver where + makeObject = makeObject . unXPathNSResolver + +instance IsGObject XPathNSResolver where + typeGType _ = gTypeXPathNSResolver + {-# INLINE typeGType #-} + +noXPathNSResolver :: Maybe XPathNSResolver +noXPathNSResolver = Nothing +{-# INLINE noXPathNSResolver #-} + +gTypeXPathNSResolver :: JSM GType +gTypeXPathNSResolver = GType . Object <$> jsg "XPathNSResolver" + +-- | Functions for this inteface are in "JSDOM.XPathResult". +-- +-- +newtype XPathResult = XPathResult { unXPathResult :: JSVal } + +instance PToJSVal XPathResult where + pToJSVal = unXPathResult + {-# INLINE pToJSVal #-} + +instance PFromJSVal XPathResult where + pFromJSVal = XPathResult + {-# INLINE pFromJSVal #-} + +instance ToJSVal XPathResult where + toJSVal = return . unXPathResult + {-# INLINE toJSVal #-} + +instance FromJSVal XPathResult where + fromJSVal v = fmap XPathResult <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XPathResult + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XPathResult where + makeObject = makeObject . unXPathResult + +instance IsGObject XPathResult where + typeGType _ = gTypeXPathResult + {-# INLINE typeGType #-} + +noXPathResult :: Maybe XPathResult +noXPathResult = Nothing +{-# INLINE noXPathResult #-} + +gTypeXPathResult :: JSM GType +gTypeXPathResult = GType . Object <$> jsg "XPathResult" + +-- | Functions for this inteface are in "JSDOM.XSLTProcessor". +-- +-- +newtype XSLTProcessor = XSLTProcessor { unXSLTProcessor :: JSVal } + +instance PToJSVal XSLTProcessor where + pToJSVal = unXSLTProcessor + {-# INLINE pToJSVal #-} + +instance PFromJSVal XSLTProcessor where + pFromJSVal = XSLTProcessor + {-# INLINE pFromJSVal #-} + +instance ToJSVal XSLTProcessor where + toJSVal = return . unXSLTProcessor + {-# INLINE toJSVal #-} + +instance FromJSVal XSLTProcessor where + fromJSVal v = fmap XSLTProcessor <$> maybeNullOrUndefined v + {-# INLINE fromJSVal #-} + fromJSValUnchecked = return . XSLTProcessor + {-# INLINE fromJSValUnchecked #-} + +instance MakeObject XSLTProcessor where + makeObject = makeObject . unXSLTProcessor + +instance IsGObject XSLTProcessor where + typeGType _ = gTypeXSLTProcessor + {-# INLINE typeGType #-} + +noXSLTProcessor :: Maybe XSLTProcessor +noXSLTProcessor = Nothing +{-# INLINE noXSLTProcessor #-} gTypeXSLTProcessor :: JSM GType gTypeXSLTProcessor = GType . Object <$> jsg "XSLTProcessor"